Два простых вопроса для знатоков....

← →
BillyJeans (2002-09-16 09:11) [0]

Вопрос первый:
как в 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;

← →
@lex (2002-09-16 09:31) [1]

1. TComboBox - OnDrawItem(Control: TWinControl; Index: Integer;
Rect: TRect; State: TOwnerDrawState);
2. TImageList - GetIcon(Index: Integer; Image: TIcon);

← →
Separator (2002-09-16 09:34) [2]

procedure GetIcon(Index: integer; Image: TIcon)

← →
BillyJeans (2002-09-16 09:59) [3]

ну и что вы тут написали?
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!!!

← →
Кулюкин Олег (2002-09-16 10:23) [4]

2 BillyJeans © (16.09.02 09:59)
http://www.delphikingdom.com/helloworld/dbgridcolor.htm

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

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

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

← →
Separator (2002-09-16 10:32) [5]

ImageList.GetBitmap(N, Gr), где N - номер картинки в ImageList

← →
REA (2002-09-16 11:12) [6]

А про ComboBox начиная с D6 есть компонент готовый.

← →
BillyJeans (2002-09-16 13:41) [7]

ну там глюк один в D6!

Два простых вопроса для знатоков.... Найти похожие ветки