Hi,
vielen Dank erstmal, das hat mir schon sehr geholfen. Ich habe den Code von freedesktop.org versucht nach Kylix (Delphi) zu portieren. Bisher schaut das so aus...
Code:
procedure send_message(
dpy: PDisplay; // Display
w : Window; // Sender (tray icon window)
_message, // Message opcode
data1, // message data 1
data2, // " 2
data3: Cardinal // " 3
);
var
ev: XEvent;
begin
// memset(&ev, 0, sizeof(ev));
ev.xclient.xtype := ClientMessage;
ev.xclient.xwindow := w;
ev.xclient.message_type := XInternAtom(dpy, '_NET_SYSTEM_TRAY_OPCODE', 0);
ev.xclient.format := 32;
ev.xclient.data.l[0] := 0; // x_time;
ev.xclient.data.l[1] := _message;
ev.xclient.data.l[2] := data1;
ev.xclient.data.l[3] := data2;
ev.xclient.data.l[4] := data3;
// trap_errors();
XSendEvent(dpy, w, 0, NoEventMask, @ev);
XSync(dpy, 0);
{if untrap_errors() then
begin
// Handle failure
end;}
end;
In die Uses-Klausel muss die xlib eingetragen werden. Habe ein paar Sachen weggelassen (auskommentiert), weil ich nicht wusste, wie ich sie portieren sollte. Der Code lässt sich soweit so gut auch ohne Fehlermeldungen kompilieren, jedoch weiß ich nicht so ganz, wie ich ihn anwenden soll.. *g*
Vielleicht kann mir ja jemand weiter helfen oder hat z.B. ein kleines Mini-Beispiel (also kleines funktionsfähiges Programm) dafür in C/C++ parat... das würde mir gewiss auch sehr helfen.
Danke!
Ciao
~Zeeke
Lesezeichen