Changeset 153 for trunk/Core.pas

Timestamp:

Aug 14, 2024, 1:05:13 PM (5 weeks ago)

Author:

chronos

Message:

• Added: Full screen switching support.
• Added: Help form.
• Modified: Updated Common package.
• Fixed: Execution of compiled Java and C# programs.
• Fixed: Removed interlanced empty lines in Console form on Unix.

File:

• trunk/Core.pas (modified) (5 diffs)

trunk/Core.pas

@@ -121 +121 @@
   TFormEx.PersistentForm := PersistentForm1;
 
-  FormMain := TFormMain.Create(nil);
+  Application.CreateForm(TFormMain, FormMain);
   FormMain.Show;
 end;
@@ -132 +132 @@
   FreeAndNil(Project);
   FreeAndNil(StoredDimension);
-  FreeAndNil(FormMain);
 end;
 
@@ -258 +257 @@
 procedure TCore.TargetLogExecute(Lines: TStrings);
 begin
-
 end;
 
@@ -269 +267 @@
     if (DesignDPI.X <> DPI.X) or (DesignDPI.Y <> DPI.Y) then begin
       //ApplyToAll(DesignDPI);
-      for I := 0 to Screen.FormCount - 1 do
+{      for I := 0 to Screen.FormCount - 1 do
       if (Screen.Forms[I].WindowState = wsNormal) or
         (Screen.Forms[I].WindowState = wsMinimized) then begin
@@ -275 +273 @@
         ScaleDimensions(Screen.Forms[I], StoredDimension);
       end;
-      ScaleImageList(ImageListMain, DesignDPI);
+ }     ScaleImageList(ImageListMain, DesignDPI);
     end;
   end;