🚀 go-pugleaf

Łukasz 'Maly' Ostrowski pisze:
> On Sun, 30 Nov 2008 21:29:18 +0100, Terrmit wrote:
>> Przypuszczam, że należałoby użyć biblioteki XLib.
>> Znalazłem programik o nazwie xhotkeys dla Linuksa
>> i próbowałem rozgryźć jak on działa. Przeglądałem
>> plik źródeł najstarszej, najmniej rozbudowanej wersji:
>> http://download.savannah.gnu.org/releases/xhotkeys/xhotkeys-0.1.tar.gz
>> Niestety praktycznie nie znam pythona.
>> Ten program najwyraźniej korzysta właśnie z biblioteki XLib.
>> Czy ktoś mógłby pomóc?
> 
> W uproszczeniu:
> 
> 1. display = XOpenDisplay(0)
> 2. rootWindow = DefaultRootWindow(display)
> 3. XGrabKey() na rootWindow
> 4. XNextEvent() w pętelce czekając na ev.type == KeyPress
> 
> http://tronche.com/gui/x/xlib/input/XGrabKey.html
> oraz okolice.
>
Wykombinowałem coś takiego:

var
   Form1: TForm1;
   display : PDisplay;

implementation

procedure TForm1.FormCreate(Sender: TObject);
var win: TWindow;
     key, grab: Integer; //GrabModeAsync
begin
   display := XOpenDisplay(nil);
   if display = nil then ShowMessage('Błąd: Nie mogę połączyć się z 
serwerem X')
   else begin
     win := DefaultRootWindow(display);
     XGrabKey(display, key, 0, win, true, grab, grab);
   end;
   Timer1.Interval := 10;
end;

//W timerze wyświetlam sobie współrzędne kursora
procedure TForm1.Timer1Timer(Sender: TObject);
begin
   Label1.Caption:=IntToStr(Mouse.CursorPos.X);
   Label2.Caption:=IntToStr(Mouse.CursorPos.Y);
end;

No i gdzieś powinna być ta pętelka, ale nie bardzo łapię
gdzie ją wstawić

var ev: TXEvent;
     keys : Integer;

   repeat
     XNextEvent(display, @ev);
     if ev._type = X.KeyPress then
       //tu chciałbym kontrolnie wyświetlić kod naciśniętego klawisza
       Label3.Caption := 'Key: '+IntToStr(ev.xkey.keycode);
   until false;

Najbardziej pasowałoby chyba wstawić zawartość pętelki w timera
jakoś tak:
procedure TForm1.Timer1Timer(Sender: TObject);
var ev: TXEvent;
     keys : Integer;
begin
   Label1.Caption:=IntToStr(Mouse.CursorPos.X);
   Label2.Caption:=IntToStr(Mouse.CursorPos.Y);
   XNextEvent(display, @ev);
   if ev._type = X.KeyPress then
     Label3.Caption := 'Key: '+IntToStr(ev.xkey.keycode);
end;

Ale to nie działa - program kończy się bez żadnego komunikatu
błędu. Pewnie coś tu strasznie nachrzaniłem, ale nie radzę
sobie z tym. Może ktoś mi pomóc?

Sławek