implement tapplication.minimize for win32, stub for gtk

git-svn-id: trunk@5868 -

lcl/forms.pp

@@ -909,6 +909,7 @@ type
     property Icon: TIcon read FIcon write SetIcon;
     procedure Initialize; override;
     function MessageBox(Text, Caption: PChar; Flags: Longint): Integer;
+    procedure Minimize;
     procedure Notification(AComponent: TComponent; Operation: TOperation); override;
     Procedure ProcessMessages;
     procedure Run;

lcl/include/application.inc

@@ -200,6 +200,18 @@ begin
   Screen.UpdateLastActive;
 end;
 
+{------------------------------------------------------------------------------
+  Method: TApplication.Minimize
+  Params: None
+  Returns: Nothing
+
+  Minimizes the application.
+ ------------------------------------------------------------------------------}
+procedure TApplication.Minimize;
+begin
+  InterfaceObject.AppMinimize;
+end;
+
 {------------------------------------------------------------------------------
   TApplication ProcesssMessages  "Enter the messageloop and process until empty"
 ------------------------------------------------------------------------------}
@@ -1327,6 +1339,9 @@ end;
 { =============================================================================
 
   $Log$
+  Revision 1.89  2004/08/27 08:55:22  micha
+  implement tapplication.minimize for win32, stub for gtk
+
   Revision 1.88  2004/08/26 22:12:39  mattias
   localized graphprop editor form and replaced opensavedialog with opensavepicturedialog
 

lcl/include/customform.inc

@@ -512,9 +512,14 @@ begin
   Assert(False, 'Trace:WMSIZE in TCustomForm');
   if not (csDesigning in ComponentState) then begin
     OldState:=FWindowState;
-    Case Message.SizeType of
+    Case (Message.SizeType and not SIZE_SourceIsInterface) of
       SIZENORMAL : FWindowState := wsNormal;
-      SIZEICONIC : FWindowState := wsMinimized;
+      SIZEICONIC : 
+        begin
+          FWindowState := wsMinimized;
+          if Application.MainForm = Self then
+            Application.Minimize;
+        end;
       SIZEFULLSCREEN : FWindowState := wsMaximized;
     end;
     if OldState<>FWindowState then begin
@@ -1779,6 +1784,9 @@ end;
 { =============================================================================
 
   $Log$
+  Revision 1.154  2004/08/27 08:55:22  micha
+  implement tapplication.minimize for win32, stub for gtk
+
   Revision 1.153  2004/08/25 17:59:06  micha
   upon form show, if no activecontrol, then focus first control in tab order
 

lcl/interfacebase.pp

@@ -50,6 +50,7 @@ type
     procedure WaitMessage; virtual; abstract;
     procedure AppInit; virtual; abstract;
     procedure AppTerminate; virtual; abstract;
+    procedure AppMinimize; virtual; abstract;
     function  InitHintFont(HintFont: TObject): Boolean; virtual;
     function  IntSendMessage3(LM_Message: Integer; Sender: TObject;
                               Data: pointer): integer; virtual; abstract;
@@ -114,6 +115,9 @@ end.
 
 {
   $Log$
+  Revision 1.49  2004/08/27 08:55:22  micha
+  implement tapplication.minimize for win32, stub for gtk
+
   Revision 1.48  2004/08/18 09:31:21  mattias
   removed obsolete unit vclglobals
 

lcl/interfaces/gtk/gtkint.pp

@@ -307,6 +307,7 @@ type
     procedure SendCachedLCLMessages; override;
     procedure AppTerminate; override;
     procedure AppInit; override;
+    procedure AppMinimize; override;
 
     // create and destroy
     function CreateComponent(Sender : TObject): THandle; override;
@@ -459,6 +460,9 @@ end.
 { =============================================================================
 
   $Log$
+  Revision 1.187  2004/08/27 08:55:22  micha
+  implement tapplication.minimize for win32, stub for gtk
+
   Revision 1.186  2004/08/18 20:49:02  mattias
   simple forms can now be child controls
 

lcl/interfaces/gtk/gtkobject.inc

@@ -1556,6 +1556,17 @@ begin
   InitKeyboardTables;
 end;
 
+{------------------------------------------------------------------------------
+  Method: TGtkWidgetSet.AppMinimize
+  Params:  None
+  Returns: Nothing
+
+  Minimizes the application
+ ------------------------------------------------------------------------------}
+procedure TGtkWidgetSet.AppMinimize;
+begin
+  // TODO: Implement me!
+end;
 
 {------------------------------------------------------------------------------
   Method: TGtkWidgetSet.RecreateWnd
@@ -9241,6 +9252,9 @@ end;
  { =============================================================================
 
   $Log$
+  Revision 1.534  2004/08/27 08:55:22  micha
+  implement tapplication.minimize for win32, stub for gtk
+
   Revision 1.533  2004/08/25 18:30:05  micha
   remove obsolete message handlers
 

lcl/interfaces/win32/win32int.pp

@@ -182,6 +182,7 @@ Type
     Destructor Destroy; Override;
     { Initialize the API }
     Procedure AppInit; Override;
+    procedure AppMinimize; override;
     Function IntSendMessage3(LM_Message: Integer; Sender: TObject; Data: Pointer) : Integer; Override;
     Procedure HandleEvents; Override;
     Procedure WaitMessage; Override;
@@ -284,6 +285,9 @@ End.
 { =============================================================================
 
   $Log$
+  Revision 1.94  2004/08/27 08:55:23  micha
+  implement tapplication.minimize for win32, stub for gtk
+
   Revision 1.93  2004/08/25 15:04:44  micha
   use new lcl interface methods instead of messages (for win32; twsbitbtn)
 

lcl/interfaces/win32/win32object.inc

@@ -187,6 +187,18 @@ Begin
   Assert(False, 'Trace:Win32Object.Init - Exit');
 End;
 
+{------------------------------------------------------------------------------
+  Method: TWin32WidgetSet.AppMinimize
+  Params:  None
+  Returns: Nothing
+
+  Minimizes the whole application to the taskbar
+ ------------------------------------------------------------------------------}
+procedure TWin32WidgetSet.AppMinimize;
+begin
+  Windows.SendMessage(FAppHandle, WM_SYSCOMMAND, SC_MINIMIZE, 0);
+end;
+
 {------------------------------------------------------------------------------
   Method: TWin32WidgetSet.GetOwnerHandle
   Params:  ADialog - dialog to get 'guiding parent' window handle for
@@ -3066,6 +3078,9 @@ End;
 
 {
   $Log$
+  Revision 1.229  2004/08/27 08:55:23  micha
+  implement tapplication.minimize for win32, stub for gtk
+
   Revision 1.228  2004/08/25 17:08:10  micha
   use new lcl interface methods instead of messages (for win32; twscustomlistview)