Скачать: CL | DM;

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;

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.44 MB
Время: 0.036 c