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

Вниз

Рисование битмапа в листбоксе.   Найти похожие ветки 

 
tytus ©   (2004-01-29 10:37) [0]

Приветствую ВСЕХ. Есть код:
procedure TForm1.ListBox1DrawItem(Control: TWinControl; Index: Integer;Rect: TRect; State: TOwnerDrawState);
begin
with Control as TListBox,Canvas do
begin
FillRect(Rect);
ImageList1.GetBitmap(Index,BitMap);
Draw(Rect.Left,Rect.Top,BitMap);
TextOut(Rect.Left+40,Rect.Top,IntToStr(Index));
end;
BitMAp.Dormant;
BitMap.FreeImage;
end;
Все рисуется, разные битмапы (как я и хотел, если кто помнит), но БИТМАПЫ НЕ ОЧИЩАЮТСЯ, тоесть изображение накладывается одно на другое, и четвертый битмап состоит из предыдущих трех и четвертого поверх остальных. ВОПРОС - где и как лучше очищать битмап.


 
tytus ©   (2004-01-29 10:56) [1]

Не вижу другого выхода, как создавать и убивать битмап в TForm1.ListBox1DrawItem... Так работает, все класс,но не сильно ли это будет тормозить программу?


 
Jel ©   (2004-01-29 11:04) [2]

А для чего вообще создавать промежуточный BitMap? ImageList умеет рисовать сам.

ImageList1.Draw((Control as TListBox).Canvas, rect.top, rect.left, index);



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

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

Наверх




Память: 0.47 MB
Время: 0.017 c
1-29466
Evgeny78
2004-01-30 13:45
2004.02.10
Шрифты


1-29414
Боян Георгиев
2004-01-31 11:42
2004.02.10
F1Book дает ошибка! Помогите


4-29660
sizmrebi
2003-12-05 09:04
2004.02.10
Registry Update


14-29522
Mike Kouzmine
2004-01-19 09:31
2004.02.10
С Рождеством


6-29498
alt7
2003-12-05 15:39
2004.02.10
Помогите примерчиком по Indy POP3