Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2003.03.17;
Скачать: CL | DM;

Вниз

Графика в Stringgrid   Найти похожие ветки 

 
Alex ©   (2002-12-04 12:39) [0]

Задача следующая.
Нужно в ячейках StringGrid отобразить рисунки из ImageList.
Делаю так:

procedure TForm1.StringGrid1DrawCell(Sender: TObject; ACol, ARow: Integer;
Rect: TRect; State: TGridDrawState);
begin
if (Acol=4) and (ARow=1) then
ImageList1.Draw(stringgrid1.Canvas,Rect.Left+1,Rect.Top+1,1);
(Acol=4) and (ARow=2) then
ImageList1.Draw(stringgrid1.Canvas,Rect.Left+1,Rect.Top+1,2);
(Acol=4) and (ARow=3) then
ImageList1.Draw(stringgrid1.Canvas,Rect.Left+1,Rect.Top+1,3);

end;
</
I>

Всё вроде бы получается, но при динамическом добавлении строки к Stringgrid (Stringgrid1.rowcount:=stringgrid1.rowcount+1) в ячейках (по примеру (4,1),(4,2),(4,3))появляются изображения из ImageList под номером 3.

Как избывиться от этого?
Спасибо!


 
Song ©   (2002-12-04 13:30) [1]

FillRect(Rect) поставь перед первый ImageList1.Draw(..)



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

Текущий архив: 2003.03.17;
Скачать: CL | DM;

Наверх




Память: 0.46 MB
Время: 0.021 c
8-54120
boolean
2002-12-04 10:36
2003.03.17
Мастера, подскажите


1-54032
romzes17
2003-03-04 23:22
2003.03.17
Формулы


3-53886
Roma111111
2003-02-20 14:23
2003.03.17
Какие записи блокированы?


14-54272
AK-74
2003-02-25 01:28
2003.03.17
На каком языке это написано?


14-54170
Igor_thief
2003-02-25 20:54
2003.03.17
Hint (вопрос к мастерам)