Changeset 74 for trunk/Forms

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.

Location:

trunk/Forms

Files:

• UFormAbout.lfm (added)
• UFormAbout.lrt (added)
• UFormAbout.pas (added)
• UFormMain.lfm (modified) (15 diffs)
• UFormMain.pas (modified) (4 diffs)

trunk/Forms/UFormMain.lfm

@@ -5 +5 @@
   Width = 860
   Caption = 'LazFuck'
-  ClientHeight = 561
+  ClientHeight = 554
   ClientWidth = 860
   Menu = MainMenu1
@@ -18 +18 @@
     Left = 0
     Height = 28
-    Top = 533
+    Top = 526
     Width = 860
     Panels = <    
@@ -131 +131 @@
   object PageControlRight: TPageControl
     Left = 467
-    Height = 507
+    Height = 500
     Top = 26
     Width = 393
@@ -141 +141 @@
     object TabSheetDebug: TTabSheet
       Caption = 'Debug'
-      ClientHeight = 499
-      ClientWidth = 359
+      ClientHeight = 494
+      ClientWidth = 319
       object PanelInput: TPanel
         Left = 0
         Height = 64
         Top = 0
-        Width = 359
+        Width = 319
         Align = alTop
         BevelOuter = bvNone
@@ -157 +157 @@
         Height = 5
         Top = 64
-        Width = 359
+        Width = 319
         Align = alTop
         ResizeAnchor = akTop
@@ -165 +165 @@
         Height = 259
         Top = 69
-        Width = 359
+        Width = 319
         Align = alTop
         BevelOuter = bvNone
@@ -175 +175 @@
         Height = 5
         Top = 328
-        Width = 359
+        Width = 319
         Align = alTop
         ResizeAnchor = akTop
@@ -183 +183 @@
         Height = 86
         Top = 333
-        Width = 359
+        Width = 319
         Align = alTop
         BevelOuter = bvNone
@@ -193 +193 @@
         Height = 5
         Top = 419
-        Width = 359
+        Width = 319
         Align = alTop
         ResizeAnchor = akTop
@@ -199 +199 @@
       object PanelMemory: TPanel
         Left = 0
-        Height = 75
+        Height = 70
         Top = 424
-        Width = 359
+        Width = 319
         Align = alClient
         BevelOuter = bvNone
@@ -210 +210 @@
   object Splitter1: TSplitter
     Left = 462
-    Height = 507
+    Height = 500
     Top = 26
     Width = 5
@@ -218 +218 @@
   object PanelLeft: TPanel
     Left = 0
-    Height = 507
+    Height = 500
     Top = 26
     Width = 462
     Align = alClient
     BevelOuter = bvNone
-    ClientHeight = 507
+    ClientHeight = 500
     ClientWidth = 462
     TabOrder = 4
     object PageControlMain: TPageControl
       Left = 0
-      Height = 384
+      Height = 377
       Top = 0
       Width = 462
@@ -246 +246 @@
       Left = 0
       Height = 118
-      Top = 389
+      Top = 382
       Width = 462
       ActivePage = TabSheetMessages
@@ -261 +261 @@
       Left = 0
       Height = 5
-      Top = 384
+      Top = 377
       Width = 462
       Align = alBottom
@@ -1005 +1005 @@
     object AAbout: TAction
       Caption = 'About'
+      OnExecute = AAboutExecute
     end
     object AHelp: TAction

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