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

Вниз

ПРОГРАМЕРЫ, как в TShellListView сделать фоновый рисунок?   Найти похожие ветки 

 
vidiv ©   (2002-12-27 11:50) [0]

ПРОГРАМЕРЫ, как в TShellListView сделать фоновый рисунок?
заранее скасибо....


 
Song ©   (2002-12-27 13:21) [1]

WM_ERASEBKGRND


 
vidiv ©   (2002-12-28 05:09) [2]

2 Song
ну помогает, иконки все равно квадратные....


 
melifaro ©   (2002-12-28 06:07) [3]

Надеюсь, поможет. Заполняет 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;



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

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

Наверх




Память: 0.47 MB
Время: 0.028 c
3-28618
vopros
2003-01-23 11:07
2003.02.10
Проблема с хранение jpg в Interbase


3-28604
РВА
2003-01-22 15:05
2003.02.10
DBTreeview


8-28945
MiS
2002-10-22 19:40
2003.02.10
Графика, Tcolor, Palette


7-29132
WindowsXP
2002-12-07 15:08
2003.02.10
Печать страниц


14-29043
OxOTHuK
2003-01-23 22:32
2003.02.10
операторы передачи управления и особенности их использования