Главная страница
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.019 c
4-54379
Raph
2003-01-23 21:28
2003.03.17
Получение списка дисков


3-53891
RDA
2003-02-24 17:44
2003.03.17
Глюки с АДО


14-54201
Дмитрий К.К.
2003-03-03 05:43
2003.03.17
Именинники 3 марта


1-54114
Armageddon
2003-03-05 22:18
2003.03.17
Как задать массив в Const.


3-53914
sandrina
2003-02-26 09:14
2003.03.17
Fast Reports для Delphi