Ignore:
Timestamp:
Apr 8, 2022, 9:43:55 PM (2 years ago)
Author:
chronos
Message:
  • Modified: Use Generics.Collection instead of fgl for better Delphi compatibility.
File:
1 edited

Legend:

Unmodified
Added
Removed

  • trunk/Forms/UFormCompare.lfm

    r123 r128  
    11object FormCompare: TFormCompare
    22  Left = 574
    3   Height = 925
     3  Height = 888
    44  Top = 322
    5   Width = 1241
     5  Width = 1191
    66  Caption = 'Compare'
    7   ClientHeight = 890
    8   ClientWidth = 1241
    9   DesignTimePPI = 150
     7  ClientHeight = 854
     8  ClientWidth = 1191
     9  DesignTimePPI = 144
    1010  Menu = MainMenu1
    1111  OnActivate = FormActivate
    … …  
    1818  object PanelLeft: TPanel
    1919    Left = 0
    20     Height = 890
     20    Height = 854
    2121    Top = 0
    22     Width = 608
     22    Width = 584
    2323    Align = alLeft
    2424    BevelOuter = bvNone
    25     ClientHeight = 890
    26     ClientWidth = 608
     25    ClientHeight = 854
     26    ClientWidth = 584
    2727    TabOrder = 0
    2828    object EditLeftFileName: TEdit
    29       Left = 16
    30       Height = 43
     29      Left = 15
     30      Height = 42
    3131      Top = 11
    32       Width = 544
     32      Width = 523
    3333      Anchors = [akTop, akLeft, akRight]
    3434      ReadOnly = True
    … …  
    3636    end
    3737    inline SynEditLeft: TSynEditEx
    38       Left = 16
    39       Height = 813
    40       Top = 64
    41       Width = 585
     38      Left = 15
     39      Height = 781
     40      Top = 61
     41      Width = 562
    4242      Anchors = [akTop, akLeft, akRight, akBottom]
    43       Font.Height = 13
     43      Font.Height = 12
    4444      Font.Name = 'DejaVu Sans Mono'
    4545      Font.Pitch = fpFixed
    … …  
    4848      ParentFont = False
    4949      TabOrder = 1
    50       Gutter.Width = 80
     50      Gutter.Width = 75
    5151      Gutter.MouseActions = <>
    5252      RightGutter.Width = 0
    … …  
    499499      inline SynLeftGutterPartList1: TSynGutterPartList
    500500        object SynGutterMarks1: TSynGutterMarks
    501           Width = 38
     501          Width = 36
    502502          MouseActions = <>
    503503        end
    504504        object SynGutterLineNumber1: TSynGutterLineNumber
    505           Width = 17
     505          Width = 15
    506506          MouseActions = <>
    507507          MarkupInfo.Background = clBtnFace
    … …  
    525525        end
    526526        object SynGutterCodeFolding1: TSynGutterCodeFolding
    527           Width = 16
     527          Width = 15
    528528          MouseActions = <>
    529529          MarkupInfo.Background = clNone
    … …  
    535535    end
    536536    object SpeedButtonOpenLeft: TSpeedButton
    537       Left = 565
    538       Height = 34
    539       Top = 15
    540       Width = 36
     537      Left = 542
     538      Height = 33
     539      Top = 14
     540      Width = 35
    541541      Action = AFileOpenLeft
    542542      Anchors = [akTop, akRight]
    … …  
    547547  end
    548548  object Splitter1: TSplitter
    549     Left = 608
    550     Height = 890
     549    Left = 584
     550    Height = 854
    551551    Top = 0
    552552    Width = 8
    553553  end
    554554  object PanelRight: TPanel
    555     Left = 616
    556     Height = 890
     555    Left = 592
     556    Height = 854
    557557    Top = 0
    558     Width = 625
     558    Width = 599
    559559    Align = alClient
    560560    BevelOuter = bvNone
    561     ClientHeight = 890
    562     ClientWidth = 625
     561    ClientHeight = 854
     562    ClientWidth = 599
    563563    TabOrder = 2
    564564    object EditRightFileName: TEdit
    565565      Left = 12
    566       Height = 43
     566      Height = 42
    567567      Top = 11
    568       Width = 551
     568      Width = 527
    569569      Anchors = [akTop, akLeft, akRight]
    570570      ReadOnly = True
    … …  
    572572    end
    573573    inline SynEditRight: TSynEditEx
    574       Left = 16
    575       Height = 813
    576       Top = 64
    577       Width = 595
     574      Left = 15
     575      Height = 781
     576      Top = 61
     577      Width = 571
    578578      Anchors = [akTop, akLeft, akRight, akBottom]
    579       Font.Height = 13
     579      Font.Height = 12
    580580      Font.Name = 'DejaVu Sans Mono'
    581581      Font.Pitch = fpFixed
    … …  
    584584      ParentFont = False
    585585      TabOrder = 1
    586       Gutter.Width = 80
     586      Gutter.Width = 75
    587587      Gutter.MouseActions = <>
    588588      RightGutter.Width = 0
    … …  
    10351035      inline SynLeftGutterPartList1: TSynGutterPartList
    10361036        object SynGutterMarks1: TSynGutterMarks
    1037           Width = 38
     1037          Width = 36
    10381038          MouseActions = <>
    10391039        end
    10401040        object SynGutterLineNumber1: TSynGutterLineNumber
    1041           Width = 17
     1041          Width = 15
    10421042          MouseActions = <>
    10431043          MarkupInfo.Background = clBtnFace
    … …  
    10611061        end
    10621062        object SynGutterCodeFolding1: TSynGutterCodeFolding
    1063           Width = 16
     1063          Width = 15
    10641064          MouseActions = <>
    10651065          MarkupInfo.Background = clNone
    … …  
    10711071    end
    10721072    object SpeedButtonOpenRight: TSpeedButton
    1073       Left = 575
    1074       Height = 34
    1075       Top = 16
    1076       Width = 36
     1073      Left = 551
     1074      Height = 33
     1075      Top = 15
     1076      Width = 35
    10771077      Action = AFileOpenRight
    10781078      Anchors = [akTop, akRight]
    … …  
    10831083  end
    10841084  object OpenDialogSide: TOpenDialog
    1085     Left = 336
    1086     Top = 360
     1085    Left = 323
     1086    Top = 346
    10871087  end
    10881088  object MainMenu1: TMainMenu
    10891089    Images = Core.ImageList1
    1090     Left = 344
    1091     Top = 496
     1090    Left = 330
     1091    Top = 476
    10921092    object MenuItem1: TMenuItem
    10931093      Caption = 'File'
    … …  
    11121112  object ActionList1: TActionList
    11131113    Images = Core.ImageList1
    1114     Left = 764
    1115     Top = 360
     1114    Left = 733
     1115    Top = 346
    11161116    object AFileOpenLeft: TAction
    11171117      Caption = 'Open left file'
Note: See TracChangeset for help on using the changeset viewer.