Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

Цветные ячейки в StringGrid [D7, WinXP]

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

Leonid Troyanovsky (2005-02-27 14:41:00) [1]

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

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

--
Regards, LVT.

olookin (2005-02-27 14:23:00) [2]
Покопайтесь в этом примере

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 (2005-02-27 14:18:00) [3]
Это как?

Anatoly Podgoretsky (2005-02-27 14:17:00) [4]
OnDrawCell

olookin (2005-02-27 14:10:00) [5]
рисовать на канвасе StringGrid

olookin (2005-02-27 14:10:00) [6]
рисовать на канвасе StringGrid

Наверх

	« предыдущая ветвь \| форум \| следующая ветвь »