| Форумы
ЧАТ |
Орешник |
|
| Форумы -» | Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG |
|
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
ПРОГРАМЕРЫ, как в TShellListView сделать фоновый рисунок? [D6, Win95/98, WinME]
vidiv © (2002-12-27 11:50:00)ПРОГРАМЕРЫ, как в TShellListView сделать фоновый рисунок?
заранее скасибо....
melifaro (2002-12-28 06:07:00) [1]Надеюсь, поможет. Заполняет ListView указанным рисунком.
...
Var
Background : TBitmap;
...
procedure TForm1.FormCreate(Sender: TObject);
begin
Background := TBitmap.Create;
Background.LoadFromFile ( "ИМЯФАЙЛА_С_ФОНОМ.BMP" );
ListView1.Canvas.Brush.Style := BsClear;
end;
...
procedure TForm1.ListView1CustomDraw(Sender: TCustomListView;
const ARect: TRect; var DefaultDraw: Boolean);
Begin
ListView1.Perform ( LVM_SETTEXTBKCOLOR, 0, -1 );
ListView1.Perform ( LVM_SETBKCOLOR, 0, -1 );
ListView1.Canvas.Draw ( 0, 0, Background );
End;
...
procedure TForm1.FormDestroy(Sender: TObject);
begin
Background.Free;
end;
vidiv (2002-12-28 05:09:00) [2]2 Song
ну помогает, иконки все равно квадратные....
Song (2002-12-27 13:21:00) [3]WM_ERASEBKGRND
| |
