Changeset 74 for trunk/Forms/UFormMain.pas

Timestamp:

Dec 17, 2016, 6:33:13 PM (8 years ago)

Author:

chronos

Message:

• Added: Main application icon.
• Modified: Updated Command and CoolTranslator packages.
• Added: About dialog.

File:

• trunk/Forms/UFormMain.pas (modified) (4 diffs)

trunk/Forms/UFormMain.pas

@@ -113 +113 @@
     ToolButton8: TToolButton;
     ToolButton9: TToolButton;
+    procedure AAboutExecute(Sender: TObject);
     procedure ABreakpointToggleExecute(Sender: TObject);
     procedure AExitExecute(Sender: TObject);
@@ -170 +171 @@
   UCore, UFormCPU, UFormOptions, UFormMessages, UFormTargets, UFormOutput, UFormInput,
   UFormMemory, UFormSourceCode, UFormTargetCode, UTargetInterpretter, UFormLog,
-  UBFTarget;
+  UBFTarget, UFormAbout;
 
 resourcestring
@@ -187 +188 @@
 procedure TFormMain.FormShow(Sender: TObject);
 begin
+  // TODO: Transparent image scaling not working properly under linux Gtk2
+  // Also screen DPI is not correctly detected under linux Gtk2
+  {$IFDEF WINDOWS}
   with Core.ScaleDPI do begin
     ApplyToAll(DesignDPI);
     ScaleImageList(ImageListMain, DesignDPI);
   end;
+  {$ENDIF}
+
   Core.CoolTranslator1.Translate;
   LoadFromRegistry(HKEY(Core.ApplicationInfo.RegistryRoot), Core.ApplicationInfo.RegistryKey);
@@ -503 +509 @@
 end;
 
+procedure TFormMain.AAboutExecute(Sender: TObject);
+begin
+  FormAbout := TFormAbout.Create(nil);
+  try
+    FormAbout.ApplicationInfo := Core.ApplicationInfo;
+    FormAbout.CoolTranslator := Core.CoolTranslator1;
+    FormAbout.ShowModal;
+  finally
+    FreeAndNil(FormAbout);
+  end;
+end;
+
 procedure TFormMain.AProgramPauseExecute(Sender: TObject);
 begin