Главная страница
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.051 c
14-54197
frizZ.
2003-02-28 23:16
2003.03.17
Stack Overflow


14-54232
Kranch
2003-02-27 23:41
2003.03.17
Hosting


3-53957
SergBBS
2003-02-26 15:22
2003.03.17
обновление данных


7-54323
dtv
2003-01-20 15:04
2003.03.17
Добрый день, Мастера! Нужна Ваша помощь!


14-54262
BALU1111
2003-02-28 14:52
2003.03.17
Частота процессора.