diff options
| author | graemeg <graemeg@ae50a9b5-8222-0410-bf8d-8a13f76226bf> | 2008-04-15 11:45:39 +0000 |
|---|---|---|
| committer | graemeg <graemeg@ae50a9b5-8222-0410-bf8d-8a13f76226bf> | 2008-04-15 11:45:39 +0000 |
| commit | 4b251646770b838c9d30e7f07d0ca4e2bdb1689d (patch) | |
| tree | 6911cfbfa33d1b63d6adfa9bc1c3a5375145379b /src/corelib/x11/gfx_x11.pas | |
| parent | 6660740cf39f01309e27ace4c8f27eb0827ec41f (diff) | |
| download | fpGUI-4b251646770b838c9d30e7f07d0ca4e2bdb1689d.tar.xz | |
* Implemented ActiveWindow method.
Diffstat (limited to 'src/corelib/x11/gfx_x11.pas')
| -rw-r--r-- | src/corelib/x11/gfx_x11.pas | 6 |
1 files changed, 6 insertions, 0 deletions
diff --git a/src/corelib/x11/gfx_x11.pas b/src/corelib/x11/gfx_x11.pas index ca0f5a90..f32b645d 100644 --- a/src/corelib/x11/gfx_x11.pas +++ b/src/corelib/x11/gfx_x11.pas @@ -199,6 +199,7 @@ type property WinHandle: TfpgWinHandle read FWinHandle; public constructor Create(AOwner: TComponent); override; + procedure ActivateWindow; override; procedure CaptureMouse; override; procedure ReleaseMouse; override; procedure SetFullscreen(AValue: Boolean); override; @@ -1595,6 +1596,11 @@ begin FBackupWinHandle := 0; end; +procedure TfpgWindowImpl.ActivateWindow; +begin + XSetInputFocus(xapplication.Display, FWinHandle, RevertToParent, CurrentTime); +end; + procedure TfpgWindowImpl.CaptureMouse; begin XGrabPointer(xapplication.Display, FWinHandle, |