Как самому нарисовать иконку?

← →
sidorov_al (2003-02-03 07:56) [0]

Привет. Мое приложение кладет иконку с SystemTray, и я хочу рисовать эту иконку. Но как это сделать? Канвы у нее нет. Подскажите кто знает. Или как рисовать, или как скопировать из Bitmap?
Заранее спасибо!

← →
Игорь Шевченко © (2003-02-03 09:56) [1]

RTFM: Shell_NotifyIcon

← →
sniknik © (2003-02-03 11:13) [2]

скопировать из Bitmap просто так не получится, нужно составлять из маски и собственно рисунка.

функция "создающая" иконку, маска и рисунок тут берутся из ресурса, переделай так чтобы составлять из "нарисованах" битмапов,
положить готовую иконку в трей думаю не проблема?

function TForm1.CreateIcon(sMask, sIcon: string): TIcon; var AndMask : TBitmap; XOrMask : TBitmap; IconInfo : TIconInfo; Icon : TIcon; begin AndMask:= TBitmap.Create; AndMask.Handle:= LoadBitmap(hInstance, PChar(sMask)); XOrMask:= TBitmap.Create; XOrMask.Handle:= LoadBitmap(hInstance, PChar(sIcon)); Icon:= TIcon.Create; IconInfo.fIcon:= true; IconInfo.xHotspot:= 0; IconInfo.yHotspot:= 0; IconInfo.hbmMask:= AndMask.Handle; IconInfo.hbmColor:= XOrMask.Handle; Icon.Handle:= CreateIconIndirect(IconInfo); AndMask.Free; XOrMask.Free; result:= Icon; end;

Самому нарисовать не получится, тебя туда не пустят, пляски с бубном дадут плохой результат.
Надо отказаться от этой дикой идеи и поручить рисование системе, через функцию Shell_NotifyIcon

Как самому нарисовать иконку? Найти похожие ветки