Code: Alles auswählen
program Project1;
uses
xlib, xutil, x;
var
dis: PDisplay;
win: TWindow;
Event: TXEvent;
begin
dis := XOpenDisplay(nil);
win := XCreateSimpleWindow(dis, RootWindow(dis, DefaultScreen(dis)), 10, 10, 320, 240, 1, 0, $FF8888);
XSelectInput(dis, win, KeyPressMask or ExposureMask);
XMapWindow(dis, win);
WriteLn('Fenster Nummer: ', win); // Nummer des Fensters
while (True) do begin
XNextEvent(dis, @Event);
end;
XCloseDisplay(dis);
end.
Und dieses Programm zeichnet voll im ersten Programm rein.
Code: Alles auswählen
program Project1;
uses
xlib, x;
var
dis: PDisplay;
scr: LongInt;
begin
dis := XOpenDisplay(nil);
// dis := XOpenDisplay('localhost:10.0');
scr := DefaultScreen(dis);
repeat
XSetForeground(dis, DefaultGC(dis, scr), random($FFFFFF));
XFillRectangle(dis, 98566145, DefaultGC(dis, scr), 20, 20, 100, 100); // Nummer anpassen !
until False;
end.