Главная страница
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.015 c
8-54124
Сергей2002
2002-12-04 14:33
2003.03.17
Помогите, пожалуйста


7-54352
tararasyk
2003-01-20 20:24
2003.03.17
Активная раскладка клавиатуры


3-53903
Alex9801
2003-02-25 14:58
2003.03.17
Добавление данных в TClientDataSet из другого DataSet.


6-54131
Victor_
2003-01-27 20:27
2003.03.17
Проблема копирования в TStream


14-54171
Hirara
2003-02-27 00:42
2003.03.17
Порты всякие