Changeset 169 for trunk/Forms

Timestamp:

Jan 22, 2018, 11:00:53 AM (7 years ago)

Author:

chronos

Message:

• Modified: Updated Common package.

Location:

trunk/Forms

Files:

• UFormAbout.lfm (modified) (5 diffs)
• UFormAbout.pas (modified) (1 diff)
• UFormMain.lfm (modified) (11 diffs)
• UFormMain.pas (modified) (2 diffs)

trunk/Forms/UFormAbout.lfm

@@ -1 +1 @@
 object FormAbout: TFormAbout
   Left = 562
-  Height = 397
-  Top = 277
-  Width = 473
+  Height = 314
+  Top = 306
+  Width = 485
   Caption = 'About'
-  ClientHeight = 397
-  ClientWidth = 473
+  ClientHeight = 314
+  ClientWidth = 485
+  DesignTimePPI = 120
   OnCreate = FormCreate
   OnShow = FormShow
   Position = poScreenCenter
-  LCLVersion = '1.6.0.4'
+  LCLVersion = '1.8.0.6'
   object LabelDescription: TLabel
     Left = 20
-    Height = 48
+    Height = 32
     Top = 108
-    Width = 433
+    Width = 445
     Align = alTop
+    AutoSize = False
     BorderSpacing.Around = 20
-    Caption = 'Simple tool for quick searching of meaning for various acronyms and abbreviations.'
     ParentColor = False
     WordWrap = True
   end
   object ButtonClose: TButton
-    Left = 360
+    Left = 372
     Height = 25
-    Top = 357
+    Top = 274
     Width = 93
     Anchors = [akRight, akBottom]
@@ -34 +35 @@
   object LabelContent: TLabel
     Left = 20
-    Height = 24
-    Top = 176
-    Width = 433
+    Height = 20
+    Top = 160
+    Width = 445
     Align = alTop
     BorderSpacing.Around = 20
@@ -45 +46 @@
     Left = 16
     Height = 25
-    Top = 357
+    Top = 274
     Width = 176
     Anchors = [akLeft, akBottom]
@@ -56 +57 @@
     Height = 88
     Top = 0
-    Width = 473
+    Width = 485
     Align = alTop
     BevelOuter = bvNone
     ClientHeight = 88
-    ClientWidth = 473
+    ClientWidth = 485
     TabOrder = 2
     object Image1: TImage
@@ -67 +68 @@
       Top = 16
       Width = 69
-      Picture.Data = {
-        1754506F727461626C654E6574776F726B477261706869632301000089504E47
-        0D0A1A0A0000000D49484452000000400000004008030000009DB781EC000000
-        0C504C544500000000000000003AFFC90EE9675ABE0000000174524E530040E6
-        D866000000C549444154789CEDD64B0EC3200C04D04C73FF3B77D1AAB2C1DF4E
-        48BB60364990FC440C121CC7CECEDF054968202580334881888137C1002F8303
-        664137C99A74228480334803A802EE68B589FEBC6A4030310E18DBE801516F6E
-        043E8F3E00098CCD2903EAA50740035807385B597E4E82AC5805445F57036613
-        61A6B10A2C60D7CB5FBA0710EB36353506C65F9E866AC0A982070B346660D5AB
-        D171FB90C0BC501980EC64A2812C9DC3D5AEF7AF185F5D309A4058BFFA9285B4
-        FE8A8B2655BEB3F3C33C01B6231002CAEF0D050000000049454E44AE426082
-      }
     end
     object LabelAppName: TLabel
       Left = 104
-      Height = 55
+      Height = 54
       Top = 16
-      Width = 338
+      Width = 317
       Align = alCustom
       BorderSpacing.Around = 20

trunk/Forms/UFormAbout.pas

@@ -51 +51 @@
   if Assigned(ApplicationInfo) then begin
     LabelAppName.Caption := ApplicationInfo.AppName;
+    LabelDescription.Caption := ApplicationInfo.Description;
+    LabelDescription.AutoSize := True;
     LabelContent.Caption := SVersion + ': ' + ApplicationInfo.Version + LineEnding +
       SReleaseDate + ': ' + DateToStr(ApplicationInfo.ReleaseDate) + LineEnding +
       SLicense + ': ' + ApplicationInfo.License;
+    Image1.Picture.Bitmap.Assign(Application.Icon);
   end;
 end;

trunk/Forms/UFormMain.lfm

@@ -3 +3 @@
   Height = 602
   Top = 261
-  Width = 998
+  Width = 847
   Caption = 'Acronym Decoder'
   ClientHeight = 577
-  ClientWidth = 998
+  ClientWidth = 847
   DesignTimePPI = 120
   Menu = MainMenu1
@@ -20 +20 @@
     Height = 479
     Top = 70
-    Width = 998
+    Width = 847
     Align = alClient
     BevelOuter = bvNone
     ClientHeight = 479
-    ClientWidth = 998
+    ClientWidth = 847
     TabOrder = 0
     object ListViewFilter1: TListViewFilter
@@ -30 +30 @@
       Height = 38
       Top = 6
-      Width = 979
+      Width = 828
       OnChange = ListViewFilter1Change
       Anchors = [akTop, akLeft, akRight]
@@ -38 +38 @@
       Height = 427
       Top = 44
-      Width = 980
+      Width = 829
       Anchors = [akTop, akLeft, akRight, akBottom]
       Columns = <      
@@ -68 +68 @@
     Height = 32
     Top = 38
-    Width = 998
+    Width = 847
     Align = alTop
     BevelOuter = bvNone
     ClientHeight = 32
-    ClientWidth = 998
+    ClientWidth = 847
     TabOrder = 1
     object CheckBoxExactLength: TCheckBox
@@ -103 +103 @@
     Height = 38
     Top = 0
-    Width = 998
-    AutoSize = True
+    Width = 847
     Bands = <    
       item
@@ -141 +140 @@
       Height = 28
       Top = 5
-      Width = 135
+      Width = 132
       Align = alNone
       AutoSize = True
@@ -183 +182 @@
       Height = 28
       Top = 5
-      Width = 120
+      Width = 117
       Align = alNone
       AutoSize = True
@@ -223 +222 @@
       Height = 28
       Top = 5
-      Width = 62
+      Width = 59
       Align = alNone
       AutoSize = True
@@ -253 +252 @@
       Height = 28
       Top = 5
-      Width = 91
+      Width = 88
       Align = alNone
       AutoSize = True
@@ -290 +289 @@
     Height = 28
     Top = 549
-    Width = 998
+    Width = 847
     Panels = <    
       item

trunk/Forms/UFormMain.pas

@@ -700 +700 @@
 procedure TFormMain.LoadConfig;
 begin
-  RegistryContext := RegContext(HKEY_CURRENT_USER, DefaultRegKey);
+  RegistryContext := TRegistryContext.Create(HKEY_CURRENT_USER, DefaultRegKey);
   Core.PersistentForm1.RegistryContext := RegistryContext;
-  RegistryContext := RegContext(HKEY_CURRENT_USER, DefaultRegKey + '\RecentFiles');
+  RegistryContext := TRegistryContext.Create(HKEY_CURRENT_USER, DefaultRegKey + '\RecentFiles');
   LastOpenedList1.LoadFromRegistry(RegistryContext);
 
@@ -737 +737 @@
 procedure TFormMain.SaveConfig;
 begin
-  RegistryContext := RegContext(HKEY_CURRENT_USER, DefaultRegKey + '\RecentFiles');
+  RegistryContext := TRegistryContext.Create(HKEY_CURRENT_USER, DefaultRegKey + '\RecentFiles');
   LastOpenedList1.SaveToRegistry(RegistryContext);