diff options
author | Felipe Menteiro de Carvalho <sekelsenmat@users.sourceforge.net> | 2006-11-20 19:27:34 +0000 |
---|---|---|
committer | Felipe Menteiro de Carvalho <sekelsenmat@users.sourceforge.net> | 2006-11-20 19:27:34 +0000 |
commit | 52ca9509153127f35955d7cf4547c7bb4d08ba78 (patch) | |
tree | a284cabf91b40366327c8b7eb99e4f19c66e6449 /gfx/gdi/gfx_gdi.pas | |
parent | 3c479a4c97c9445e7aba0bcda2fbbf325448e11a (diff) | |
download | fpGUI-52ca9509153127f35955d7cf4547c7bb4d08ba78.tar.xz |
Implemented sub-windows for X11. Also implemented property ChildWindows to indicate all child windows of a given window.
Diffstat (limited to 'gfx/gdi/gfx_gdi.pas')
-rw-r--r-- | gfx/gdi/gfx_gdi.pas | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/gfx/gdi/gfx_gdi.pas b/gfx/gdi/gfx_gdi.pas index 219461d0..f6b238c7 100644 --- a/gfx/gdi/gfx_gdi.pas +++ b/gfx/gdi/gfx_gdi.pas @@ -210,7 +210,7 @@ type procedure UpdateWindowButtons; function DoMouseEnterLeaveCheck(const Msg: TMessage): Boolean; public - constructor Create(AParent: TFCustomWindow; AWindowOptions: TGfxWindowOptions); + constructor Create(AParent: TFCustomWindow; AWindowOptions: TGfxWindowOptions); override; destructor Destroy; override; procedure DefaultHandler(var Message); override; procedure SetPosition(const APosition: TPoint); override; @@ -1069,8 +1069,8 @@ constructor TGDIWindow.Create(AParent: TFCustomWindow; AWindowOptions: TGfxWindo var ParentHandle: HWND; begin - inherited Create; - + inherited Create(AParent, AWindowOptions); + FWindowOptions := AWindowOptions; FParent := AParent; |