1000copy@gmail.com

TGridAxisDrawInfo = record
EffectiveLineWidth: Integer;
FixedBoundary: Integer;
GridBoundary: Integer;
GridExtent: Integer;
LastFullVisibleCell: Longint;
FullVisBoundary: Integer;
FixedCellCount: Integer; // ¶ÔÓÚhorz£¬fixcols £¬¶ÔÓÚvert£¬fixrows
FirstGridCell: Integer; // topleft.x
GridCellCount: Integer; // ¶ÔÓÚhorz£¬cols £¬¶ÔÓÚvert£¬rows
GetExtent: TGetExtentsFunc;
// ¶ÔÓÚhorz£¬ÁÐ¿í £¬¶ÔÓÚvert£¬Ðиß.ҪôÊÇdefault£¬ÒªÃ´ÓÐÒ»¸ö²»ÊÇdefault£¬¾ÍÊÂÒµ
// FColwidths,FRowHeightsÖ¸ÕëÊý×é´æ´¢È«²¿width/height,
ÓÐһϵÁеķ½·¨MoveExtent£¬UpdateExtents£¬ModifyExtents£¬CompareExtents£¬Ò²ÓÐÖ¸ÕëÊý¾Ý£¬¶ÔÏ󻯺ÃһЩ¡£
end;


¸Ð¾õÈßÓàµÄ±È½Ï¶à¡£¸ÅÄî±È½Ï»ìÂÒ
±ÈÈçGridExtent£¬ºÃºÃµÄ²»Ö±½ÓʹÓÃself.width/self.height,Æ«ÒªÕâÑùµÄ¼×ÒÒ±û¶¡µÄµ÷À´µ÷È¥µÄ
¼×£º
Vert.GridExtent := ClientHeight;
Horz.GridExtent := ClientWidth;
ÒÒ£º property get
function TControl.GetClientHeight: Integer;
begin
Result := ClientRect.Bottom;
end;
񖜧property get
function TControl.GetClientRect: TRect;
begin
Result.Left := 0;
Result.Top := 0;
Result.Right := Width;
Result.Bottom := Height;
end;