DELPHI 画报表 画表头 stringgrid控件

DELPHI 画报表 画表头 stringgrid控件

procedure TForm1.StringGrid1DrawCell(Sender: TObject; ACol, ARow:

Integer;

Rect: TRect; State: TGridDrawState);

var

i, x, y: Integer;

begin

If gdFixed In State Then Exit;

If ARow > 1 Then Exit;



// draw row 1 with text from cell 1,1 spanning all cells in the row

with sender as tstringgrid do begin

{extend rect to include grid line on right, if not last cell

in row}

If aCol < Pred(ColCount) Then

Rect.Right := Rect.Right + GridlineWidth;



{figure out where the text of the first cell would start relative

to the current cells rect. }

y:= Rect.Top + 2;

x:= Rect.Left + 2;

for i:= 1 to aCol-1 do

x:= x - ColWidths[i] - GridlineWidth;



{ Paint cell pale yellow}

Canvas.Brush.Color := $7FFFFF;

Canvas.Brush.Style := bsSolid;

Canvas.FillRect( Rect );



{ Paint text of cell 1,1 clipped to current cell. }

Canvas.TextRect( Rect, x, y, Cells[1,1] );

end;

end;



procedure TForm1.FormCreate(Sender: TObject);

var

i, k: Integer;

begin

with stringgrid1 do begin

cells[1, 1] := 'A rather long line which will span cells';

for i:= 1 to colcount-1 do

for k:= 2 to rowcount -1 do

cells[i,k] := Format( 'Cell[%d,%d]',[i,k]);

end;

end;