made DoAllocateWinHandle only allocate not show a handle

added a proc to show or hide an allocated handle. implemented and tested in x11. only implemented in windows not tested
fixed x11 waitmessage proc to not use 100% cpu on ShowMessage

1 files changed, 1 insertions, 5 deletions

diff --git a/src/corelib/gfxbase.pas b/src/corelib/gfxbase.pas
index 5687daf9..0d85a642 100644
--- a/src/corelib/gfxbase.pas
+++ b/src/corelib/gfxbase.pas
@@ -307,6 +307,7 @@ type
     procedure   DoUpdateWindowPosition(aleft, atop, awidth, aheight: TfpgCoord); virtual; abstract;
     procedure   DoAllocateWindowHandle(AParent: TfpgWindowBase); virtual; abstract;
     procedure   DoReleaseWindowHandle; virtual; abstract;
+    procedure   DoSetWindowVisible(const AValue: Boolean); virtual; abstract;
     procedure   DoMoveWindow(const x: TfpgCoord; const y: TfpgCoord); virtual; abstract;
     function    DoWindowToScreen(ASource: TfpgWindowBase; const AScreenPos: TPoint): TPoint; virtual; abstract;
     procedure   DoSetWindowTitle(const ATitle: string); virtual; abstract;
@@ -342,17 +343,12 @@ type
   end;
 
 
-  { TfpgApplicationBase }
-
   TfpgApplicationBase = class(TObject)
-  private
-    FTopModalForm: TfpgWindowBase;
   protected
     FIsInitialized: Boolean;
   public
     constructor Create(const AParams: string); virtual; abstract;
     property    IsInitialized: boolean read FIsInitialized;
-    property    TopModalForm: TfpgWindowBase read FTopModalForm write FTopModalForm;
   end;