Скачать: CL | DM;

Помогите начинающему в некоторых вопросах!   Найти похожие ветки 

← →
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 вся ветка

Скачать: CL | DM;



Память: 0.45 MB
Время: 0.031 c