RLine = record //纸属性结构
R_FirstPoint: TPoint; //起点位置
R_SecondPoint: TPoint; //终点位置
R_PenWidth: integer;
R_PenStyle: TPenStyle;
R_PenColor: TColor;
R_BrushStyle: TBrushStyle;
R_BrushColor: TColor;
end;
biaozhi := 2;
fstmTemp.Write(biaozhi, sizeof(biaozhi));
tmpres.R_FirstPoint := m_FirstPoint;
tmpres.R_SecondPoint := m_SecondPoint;
tmpres.R_PenWidth := m_Pen.Width;
tmpres.R_PenStyle := m_Pen.style;
tmpres.R_PenColor := m_Pen.Color;
tmpres.R_BrushStyle := m_Brush.Style;
tmpres.R_BrushColor := m_Brush.Color;
fstmTemp.Write(tmpres, sizeof(RLine));
这是我以前写的软件中的代码,就是图形对象信息都在结构体中!看代码很简单的!