TStringGrid

← →
Alex870 (2005-05-20 17:43) [0]

Здравствуйте!
Подскажите пожалуйста, можно ли в TStringGrid покрасить строки разными цветами, если нет, то какой похожий компонент для этого подойдет. Спасибо.

← →
Antonn © (2005-05-20 18:32) [1]

можно, да еще как! была бы фантазия...

procedure TForm1.StringGrid1DrawCell(Sender: TObject; ACol, ARow: Integer;
Rect: TRect; State: TGridDrawState);
begin
With StringGrid1.Canvas Do Begin
if (ARow div 2)*2=(ARow) then begin //ладно, ладно, не кривляйтесь, я не знаю о mod :)
Font.Color := 204;
Brush.Color := 14737663;
end else begin
Font.Color := clWindowText;
Brush.Color := clWindow;
end;
FillRect(Rect);
TextOut(Rect.Left, Rect.Top, StringGrid1.Cells[ACol, ARow]);
end;
end;

TStringGrid Найти похожие ветки