Changeset 23 for branches/overos/UApplication.pas

Timestamp:

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

Author:

chronos

Message:

• Added: Maximalize button to maximalize window.

File:

• branches/overos/UApplication.pas (modified) (1 diff)

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;