Цветные ячейки в StringGrid

← →
Viktop (2005-02-27 14:07) [0]

Как задать цвет определённой ячейке StringGrid по нажатию на КНОПКУ?

← →
olookin © (2005-02-27 14:10) [1]

рисовать на канвасе StringGrid

← →
olookin © (2005-02-27 14:10) [2]

рисовать на канвасе StringGrid

← →
Anatoly Podgoretsky © (2005-02-27 14:17) [3]

OnDrawCell

← →
Viktop (2005-02-27 14:18) [4]

Это как?

Покопайтесь в этом примере

procedure TModelWindow.StringGrid1TopLeftChanged(Sender: TObject);
var i,xc,yc: integer;
s: string;
begin
with StringGrid1 do begin
with Canvas do begin Brush.Color:=clBlack; Font.Color:=clYellow;
Font.Style:=[fsBold]; Font.Name:="MS Sans Serif"; end;
for i:=0 to RowCount-1 do begin
xc:=CellRect(0,i).Left; yc:=CellRect(0,i).Top;
if (yc<>0) or ((i=0) and (TopRow=0)) then begin
Canvas.FillRect(CellRect(0,i));
Canvas.TextRect(CellRect(0,i),xc+2,yc+2,s); end; end; end;
end;

> Viktop (27.02.05 14:07)
> Как задать цвет определённой ячейке StringGrid по нажатию
> на КНОПКУ?

http://groups.google.com/groups?selm=287011140%40p2.f175.n5020.z2.ftn

--
Regards, LVT.

Цветные ячейки в StringGrid Найти похожие ветки