Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

Два простых вопроса для знатоков.... [D5, D6, Win95/98, Win2k]

BillyJeans © (2002-09-16 09:11:00)
Вопрос первый:
как в ComboBox вставлять images из ImageList?

Вопрос второй:
Как в tray помещать иконку из ImageList? Сейчас сделано так:

procedure TForm1.CreateTrayIcon(n:Integer);
var nidata : TNotifyIconData;
begin
with nidata do begin
cbSize := SizeOf(TNotifyIconData);
Wnd := Self.Handle;
uID := 1;
uFlags := NIF_ICON or NIF_MESSAGE or NIF_TIP;
uCallBackMessage := WM_MYICONNOTIFY;
hIcon := Application.Icon.Handle; // а нужен ImageList...
StrPCopy(szTip,Application.Title);
end;
Shell_NotifyIcon(NIM_ADD, @nidata);
end;

BillyJeans (2002-09-16 13:41:00) [1]
ну там глюк один в D6!

REA (2002-09-16 11:12:00) [2]
А про ComboBox начиная с D6 есть компонент готовый.

Separator (2002-09-16 10:32:00) [3]
ImageList.GetBitmap(N, Gr), где N- номер картинки в ImageList

Кулюкин Олег (2002-09-16 10:23:00) [4]
2 BillyJeans © (16.09.02 09:59)
http://www.delphikingdom.com/helloworld/dbgridcolor.htm

Это про DBGrid, но принцып поймете.

И почитайте хелп по GetIcon.

PS. Вспоминается анекдот "рация на бронепоезде"

BillyJeans (2002-09-16 09:59:00) [5]
ну и что вы тут написали?
TComboBox - OnDrawItem(Control: TWinControl; Index: Integer;
Rect: TRect; State: TOwnerDrawState);
...я уже успользую, но TBitmap считываю из файла:

procedure TForm2.ComboBox2DrawItem(Control: TWinControl; Index: Integer; Rect: TRect; State: TOwnerDrawState);
var Gr: TBitmap;
begin
Gr := TBitmap.Create;
Gr.LoadFromFile(CurPath + IntToStr(Index + 1) + ".bmp");
ComboBox2.Canvas.Draw(Rect.Left, Rect.Top, Gr);
Gr.Free;
end;
а мне нужно вставлять из ImageList!!!

Separator (2002-09-16 09:34:00) [6]
procedure GetIcon(Index: integer; Image: TIcon)

@lex (2002-09-16 09:31:00) [7]
1. TComboBox - OnDrawItem(Control: TWinControl; Index: Integer;
Rect: TRect; State: TOwnerDrawState);
2. TImageList - GetIcon(Index: Integer; Image: TIcon);

Наверх

	« предыдущая ветвь \| форум \| следующая ветвь »