Hello,
First, I´ve being trying to look at the bug I reported (1519 - Cannot
Draw Transparent Bitmap), but when I click to see the bug I keeps
loading the page
http://www.lazarus.freepascal.org/mantis/view.php?id=1519 without going
anywhere. Can someone tell me what was the end of the bug? I don´t know
if it was solved, if it wasn´t a bug ... it seams closed, but I don´t
know what happened.
Now, the real issue:
I am writing an app witch creates a Systray Icon, so I need an message
loop to process the messages for it.
I thought about using the WndProc witch already comes with the Windows,
and so I did, but it works on Delphi 5, but doesn´t work on Lazarus.
On Lazarus doesn´t matter witch button I click nothing happens. On
Delphi Right click brings up the Popup menu and Click executes the
desired method.
procedure TMainWindow.WndProc(var Message: TMessage);
var
pt: TPoint;
begin
case Message.msg of
{*******************************************************************
* This is a message from icon
* lParam includes the type of the message
*******************************************************************}
MYWM_NOTIFYICON:
begin
// Processes the extra information
case (Message.lParam) of
WM_RBUTTONUP:
begin
pt := Mouse.CursorPos;// Gets cursor position in screen coords
vMenu.Popup(pt.x, pt.y);
end;
WM_LBUTTONUP: ExecuteLens;
end;
end;
else
inherited WndProc(Message);
end;
end;
thanks,
Felipe
_________________________________________________________________
To unsubscribe: mail [EMAIL PROTECTED] with
"unsubscribe" as the Subject
archives at http://www.lazarus.freepascal.org/mailarchives
