Changeset 23

Timestamp:

Dec 30, 2018, 1:17:24 AM (6 years ago)

Author:

chronos

Message:

• Added: Maximalize button to maximalize window.

Location:

branches/overos

Files:

• UApplication.pas (modified) (1 diff)
• UFormMain.pas (modified) (1 diff)
• UWindow.pas (modified) (5 diffs)

branches/overos/UApplication.pas

@@ -40 +40 @@
     Message := MessageQueue.Messages.First;
     MessageQueue.Messages.Delete(0);
-    if Message is TMessageWindowClose then begin
-      TWindow(Message.Handle).Free;
-    end;
+    if Message is TMessageWindow then
+      TWindow(Message.Handle).HandleMessage(Message);
   end;
 end;

branches/overos/UFormMain.pas

@@ -101 +101 @@
   Y: Integer);
 begin
-  Caption := IntToStr(X) + ',' + IntToStr(Y);
+  //Caption := IntToStr(X) + ',' + IntToStr(Y);
   System.Mouse.Move(TPosition.Create(X, Y));
 end;

branches/overos/UWindow.pas

@@ -47 +47 @@
   end;
 
-  TMessageWindowClose = class(TMessage);
+  TMessageWindow = class(TMessage);
+  TMessageWindowClose = class(TMessageWindow);
+  TMessageWindowMaximize = class(TMessageWindow);
 
   { TWindow }
@@ -65 +67 @@
     Title: string;
     Application: TObject; // TApplication
+    procedure HandleMessage(Message: TMessage);
     procedure MouseButtonDown(Pos: TPosition; Button: TMouseButton); override;
     procedure MouseButtonUp(Pos: TPosition; Button: TMouseButton); override;
     procedure Close;
+    procedure Maximize;
     procedure Focus;
     procedure Paint; override;
@@ -125 +129 @@
 procedure TTitleBar.ButtonMaximizeClick(Sender: TObject);
 begin
-  Rectangle := TRectangle.Create(TPosition.Create(0, 0), Window.Screen.Size);
-  Paint;
+  Window.Maximize;
 end;
 
@@ -228 +231 @@
 end;
 
+procedure TWindow.HandleMessage(Message: TMessage);
+begin
+  if Message is TMessageWindowClose then begin
+    Free;
+  end else
+  if Message is TMessageWindowMaximize then begin;
+    Rectangle := TRectangle.Create(TPosition.Create(0, 0), Screen.Size);
+    Paint;
+  end;
+end;
+
 procedure TWindow.MouseButtonDown(Pos: TPosition; Button: TMouseButton);
 begin
@@ -243 +257 @@
 begin
   TApplication(Application).MessageQueue.PostMessage(Self, TMessageWindowClose.Create);
+end;
+
+procedure TWindow.Maximize;
+begin
+  TApplication(Application).MessageQueue.PostMessage(Self, TMessageWindowMaximize.Create);
 end;