Changeset 121 for trunk/Forms/UFormCompare.lfm

Timestamp:

Feb 22, 2022, 11:07:27 AM (2 years ago)

Author:

chronos

Message:

• Modified: Improved compare dialog to show text compare of vcard data.
• Modified: Both compare sides now have scrollbar synced.
• Modified: Compare panels keep horizontal size ratio during window resize.

File:

• trunk/Forms/UFormCompare.lfm (modified) (7 diffs)

trunk/Forms/UFormCompare.lfm

@@ -1 +1 @@
 object FormCompare: TFormCompare
-  Left = 546
+  Left = 574
   Height = 925
-  Top = 159
+  Top = 322
   Width = 1241
   Caption = 'Compare'
-  ClientHeight = 925
+  ClientHeight = 890
   ClientWidth = 1241
   DesignTimePPI = 150
+  Menu = MainMenu1
+  OnActivate = FormActivate
   OnClose = FormClose
   OnCreate = FormCreate
   OnDestroy = FormDestroy
+  OnResize = FormResize
   OnShow = FormShow
   LCLVersion = '2.2.0.4'
   object PanelLeft: TPanel
     Left = 0
-    Height = 925
+    Height = 890
     Top = 0
     Width = 608
     Align = alLeft
     BevelOuter = bvNone
-    ClientHeight = 925
+    ClientHeight = 890
     ClientWidth = 608
     TabOrder = 0
     object EditLeftFileName: TEdit
-      Left = 12
+      Left = 16
       Height = 43
       Top = 11
-      Width = 589
+      Width = 544
       Anchors = [akTop, akLeft, akRight]
       ReadOnly = True
       TabOrder = 0
     end
-    inline SynEdit1: TSynEdit
+    inline SynEditLeft: TSynEditEx
       Left = 16
-      Height = 848
+      Height = 813
       Top = 64
       Width = 585
@@ -492 +495 @@
       LineHighlightColor.Background = clNone
       LineHighlightColor.Foreground = clNone
+      OnChange = SynEditLeftChange
+      OnScroll = SynEditLeftScroll
       inline SynLeftGutterPartList1: TSynGutterPartList
         object SynGutterMarks1: TSynGutterMarks
@@ -529 +534 @@
       end
     end
+    object SpeedButtonOpenLeft: TSpeedButton
+      Left = 565
+      Height = 34
+      Top = 15
+      Width = 36
+      Action = AFileOpenLeft
+      Anchors = [akTop, akRight]
+      Images = Core.ImageList1
+      ImageIndex = 5
+      ShowCaption = False
+    end
   end
   object Splitter1: TSplitter
     Left = 608
-    Height = 925
+    Height = 890
     Top = 0
     Width = 8
@@ -538 +554 @@
   object PanelRight: TPanel
     Left = 616
-    Height = 925
+    Height = 890
     Top = 0
     Width = 625
     Align = alClient
     BevelOuter = bvNone
-    ClientHeight = 925
+    ClientHeight = 890
     ClientWidth = 625
     TabOrder = 2
@@ -550 +566 @@
       Height = 43
       Top = 11
-      Width = 599
+      Width = 551
       Anchors = [akTop, akLeft, akRight]
       ReadOnly = True
       TabOrder = 0
     end
-    inline SynEdit2: TSynEdit
+    inline SynEditRight: TSynEditEx
       Left = 16
-      Height = 848
+      Height = 813
       Top = 64
       Width = 595
@@ -1015 +1031 @@
       LineHighlightColor.Background = clNone
       LineHighlightColor.Foreground = clNone
+      OnChange = SynEditRightChange
+      OnScroll = SynEditRightScroll
       inline SynLeftGutterPartList1: TSynGutterPartList
         object SynGutterMarks1: TSynGutterMarks
@@ -1052 +1070 @@
       end
     end
+    object SpeedButtonOpenRight: TSpeedButton
+      Left = 575
+      Height = 34
+      Top = 16
+      Width = 36
+      Action = AFileOpenRight
+      Anchors = [akTop, akRight]
+      Images = Core.ImageList1
+      ImageIndex = 2
+      ShowCaption = False
+    end
+  end
+  object OpenDialogSide: TOpenDialog
+    Left = 344
+    Top = 362
+  end
+  object MainMenu1: TMainMenu
+    Images = Core.ImageList1
+    Left = 344
+    Top = 496
+    object MenuItem1: TMenuItem
+      Caption = 'File'
+      object MenuItem2: TMenuItem
+        Action = AFileOpenLeft
+      end
+      object MenuItem3: TMenuItem
+        Action = AFileOpenRight
+      end
+      object MenuItem4: TMenuItem
+        Action = AReloadFiles
+      end
+      object MenuItem5: TMenuItem
+        Action = ASwitchSides
+      end
+      object MenuItemClose: TMenuItem
+        Caption = 'Close'
+        OnClick = MenuItemCloseClick
+      end
+    end
+  end
+  object ActionList1: TActionList
+    Images = Core.ImageList1
+    Left = 764
+    Top = 360
+    object AFileOpenLeft: TAction
+      Caption = 'Open left file'
+      ImageIndex = 5
+      OnExecute = AFileOpenLeftExecute
+    end
+    object AFileOpenRight: TAction
+      Caption = 'Open right file'
+      ImageIndex = 2
+      OnExecute = AFileOpenRightExecute
+    end
+    object AReloadFiles: TAction
+      Caption = 'Reload files'
+      OnExecute = AReloadFilesExecute
+    end
+    object ASwitchSides: TAction
+      Caption = 'Switch sides'
+      OnExecute = ASwitchSidesExecute
+    end
   end
 end