Changeset 15 for trunk/LocalPlayer/Term.pas

Timestamp:

Jan 7, 2017, 10:16:37 PM (7 years ago)

Author:

chronos

Message:

• Fixed: Top left position of main window.

File:

• trunk/LocalPlayer/Term.pas (modified) (3 diffs)

trunk/LocalPlayer/Term.pas

@@ -4205 +4205 @@
       offscreen.Canvas.Font.Assign(UniFont[ftSmall]);
       rec := Rect(0, 0, MapWidth, MapHeight);
-      { TODO ScrollDC(offscreen.Canvas.Handle, (xwd - xw) * (xxt * 2),
-        (ywd - yw) * yyt, rec, rec, 0, nil);}
+      ScrollDC(offscreen.Canvas.Handle, (xwd - xw) * (xxt * 2),
+        (ywd - yw) * yyt, rec, rec, 0, nil);
       for DoInvalidate := false to FastScrolling do
       begin
@@ -4212 +4212 @@
         begin
           rec.Bottom := MapHeight - overlap;
-          { TODO ScrollDC(Canvas.Handle, (xwd - xw) * (xxt * 2), (ywd - yw) * yyt, rec,
-            rec, 0, nil);}
+          ScrollDC(Canvas.Handle, (xwd - xw) * (xxt * 2), (ywd - yw) * yyt, rec,
+            rec, 0, nil);
           ProcessOptions := prInvalidate;
         end
@@ -7789 +7789 @@
     procedure TMainScreen.mLogClick(Sender: TObject);
     begin
-      LogDlg.Show
+      LogDlg.Show;
     end;
 
     procedure TMainScreen.FormShow(Sender: TObject);
     begin
-      Timer1.Enabled := true
+      Timer1.Enabled := true;
+      Left := 0;
+      Top := 0;
     end;
 
     procedure TMainScreen.FormClose(Sender: TObject; var Action: TCloseAction);
     begin
-      Timer1.Enabled := false
+      Timer1.Enabled := false;
     end;
 
     procedure TMainScreen.Radio(Sender: TObject);
     begin
-      TMenuItem(Sender).Checked := true
+      TMenuItem(Sender).Checked := true;
     end;