TStringGrid [D7, Win95/98, WinXP]
Alex870 © (2005-05-20 17:43:00)
Здравствуйте!
Подскажите пожалуйста, можно ли в TStringGrid покрасить
строки разными цветами, если нет, то какой похожий компонент для
этого подойдет. Спасибо.
Antonn (2005-05-20 18:32:00) [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;
Наверх 
ЧАТ |
Орешник |
|
