Форум: "KOL";
Текущий архив: 2006.12.10;
Скачать: [xml.tar.bz2];
ВнизПомогите начинающему в некоторых вопросах! Найти похожие ветки
← →
Yurka R (2006-02-17 21:35) [0]1. Как задать ToolBar`у картинки для кнопок, чтоб на них действовало tboTransparent, а то они у меня не прозрачные!
2. Я установил событие OnMouse у Tray`я, и хочу обработать сообщение WM_LBUTTONUP, но ничего не получается
Tray.OnMouse := TOnTrayIconMouse(MakeMethod(Tray, @OnTrayIconMouse));
...
procedure OnTrayIconMouse(Sender: PObj; Message : Word);
begin
case Message of
WM_LBUTTONUP: begin
msgok("Ok");
end;
end;
end;
← →
Thaddy (2006-02-17 22:20) [1]1.
var
Bitmap:Pbitmap;
Imagelist:PImagelist;
try
Bitmap:=newbitmap (14*7,14);
Bitmap.LoadFromFile("d:\program files\borland\kol\fonts.bmp");
Imagelist:=NewImagelist(form);
ImageList.ImgWidth:=16;
ImageList.ImgHeight:=15;
// here"s my trick:
ImageList.AddMasked(Bitmap.Handle,bitmap.pixels[0,0]);
//-----------------------------------------^^^^^^^
finally
Bitmap.free;
end;
// set the bitmap
Toolbar.Perform(TB_SETIMAGELIST,0,Form1.ImageList. Handle );
The trick is reading the pixel at 0,0. This is almost always the transparent color.
Maybe someone else can show the same code for MCK version ;)
2.
instead of
procedure OnTrayIconMouse(Sender: PObj; Message : Word);
It should be:
procedure OnTrayIconMouse(Dummy:Pointer;Sender: PObj; Message : Word);
Because it is a procedure of object, which has a hidden pointer to self as first parameter. (See kol.pas!)
← →
Yurka R (2006-02-17 22:38) [2]Thank you very much Thaddy! :)
Страницы: 1 вся ветка
Форум: "KOL";
Текущий архив: 2006.12.10;
Скачать: [xml.tar.bz2];
Память: 0.45 MB
Время: 0.046 c