Changeset 119 for branches

Timestamp:

Feb 3, 2018, 4:05:10 PM (7 years ago)

Author:

chronos

Message:

• Fixed: CraeteParams is called before FormCraete. Move initialization to FormCreate.

File:

• branches/delphi/LocalPlayer/Term.pas (modified) (3 diffs)

branches/delphi/LocalPlayer/Term.pas

@@ -3379 +3379 @@
     inherited;
 
+    if FullScreen then
+    begin
+      p.Style := $87000000;
+      BorderStyle := bsNone;
+      BorderIcons := [];
+    end;
+
+  end;
+
+  procedure TMainScreen.FormCreate(Sender: TObject);
+  var
+    i, j: integer;
+  begin
+
     // define which menu settings to save
     SaveOption[0] := mAlEffectiveMovesOnly.Tag;
@@ -3436 +3450 @@
     end;
 
-    if FullScreen then
-    begin
-      p.Style := $87000000;
-      BorderStyle := bsNone;
-      BorderIcons := [];
-    end;
-
     if 1 shl 13 and OptionChecked <> 0 then
       SoundMode := smOff
@@ -3449 +3456 @@
     else
       SoundMode := smOn
-  end;
-
-  procedure TMainScreen.FormCreate(Sender: TObject);
-  var
-    i, j: integer;
-  begin
+
     Screen.Cursors[crImpDrag] := LoadCursor(HInstance, 'DRAG');
     Screen.Cursors[crFlatHand] := LoadCursor(HInstance, 'FLATHAND');