Главная страница
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.019 c
4-29664
sowell
2003-12-04 14:47
2004.02.10
ShellExecute и его выполнение


7-29636
DNT
2003-11-05 12:03
2004.02.10
Скрытый запуск приложения.


1-29333
Werewolf
2004-01-29 17:52
2004.02.10
Прозрачный TreeView


1-29467
tovSuhov
2004-01-30 14:07
2004.02.10
Проблема с перезагрузкой


1-29328
alexEagle
2004-01-29 00:42
2004.02.10
Почему падает TForm.Create?