Changeset 207 for trunk/Forms

Timestamp:

May 22, 2018, 9:43:29 AM (7 years ago)

Author:

chronos

Message:

• Fixed: Keep correctly main form dimensions in non-maximized state. Scaling DPI was affecting its size and position.
• Added: Remember last opened tab in New game form.

Location:

trunk/Forms

Files:

• UFormClient.pas (modified) (3 diffs)
• UFormMain.pas (modified) (2 diffs)
• UFormNew.pas (modified) (1 diff)

trunk/Forms/UFormClient.pas

@@ -8 +8 @@
   Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, ExtCtrls,
   UGame, LCLType, Menus, ActnList, ComCtrls, dateutils, XMLConf, DOM, UCommPin,
-  UGeometry, UGameClient, UGameProtocol;
+  UGeometry, UGameClient, UGameProtocol, UThreading;
 
 const
@@ -231 +231 @@
     FClient.OnTurnStart := DoTurnStart;
     FClient.OnDestroy := DoClientDestroy;
+    FClient.View.DestRect := TRect.CreateBounds(TPoint.Create(0, 0), TPoint.Create(PaintBox1.Width, PaintBox1.Height));
   end;
   Redraw;
@@ -243 +244 @@
 begin
   TurnActive := True;
-  UpdateInterface;
+  Synchronize(UpdateInterface);
 end;
 

trunk/Forms/UFormMain.pas

@@ -149 +149 @@
   FormClient.ManualDock(PanelMain, nil, alClient);
   FormClient.Align := alClient;
-  FormClient.Show;
 end;
 
@@ -179 +178 @@
 procedure TFormMain.FormShow(Sender: TObject);
 begin
+  Core.LoadConfig;
+  Core.ScaleDPI;
+  Core.PersistentForm.Load(Self, True);
   Core.Init;
   LoadConfig(Core.XMLConfig1, 'FormMain');
-  Core.PersistentForm.Load(Self, True);
   ReloadView;
+  FormClient.Show;
 end;
 

trunk/Forms/UFormNew.pas

@@ -342 +342 @@
   ReloadView;
   //Height := Trunc(1.5 * Height);
-  PageControl1.TabIndex := 0;
+  //PageControl1.TabIndex := 0;
 end;