Changeset 155


Ignore:
Timestamp:
Jun 6, 2023, 10:45:32 PM (18 months ago)
Author:
chronos
Message:
  • Added: Detect Beyond Compare as compare tool on Windows.
  • Modified: Improved forms resize handling.
Location:
trunk
Files:
14 edited

Legend:

Unmodified
Added
Removed

  • trunk/Core.pas

    r153 r155  
    616616  Meld = '/usr/bin/meld';
    617617  Diffuse = '/usr/bin/diffuse';
    618   BeyondCompare = '/usr/bin/bcompare';
     618  BeyondCompareLin = '/usr/bin/bcompare';
     619  BeyondCompareWin = 'c:\Program Files\Beyond Compare 4\BCompare.exe';
    619620begin
    620621  if FileExists(KDiff3) then Result := KDiff3
    … …  
    622623  else if FileExists(Kompare) then Result := Kompare
    623624  else if FileExists(Diffuse) then Result := Diffuse
    624   else if FileExists(BeyondCompare) then Result := BeyondCompare
     625  else if FileExists(BeyondCompareLin) then Result := BeyondCompareLin
     626  else if FileExists(BeyondCompareWin) then Result := BeyondCompareWin
    625627  else Result := '';
    626628end;

  • trunk/Forms/FormCompareSideBySide.lfm

    r151 r155  
    11object FormCompareSideBySide: TFormCompareSideBySide
    2   Left = 479
     2  Left = 377
    33  Height = 888
    4   Top = 411
     4  Top = 269
    55  Width = 1191
    66  Caption = 'Compare side by side'
    7   ClientHeight = 854
     7  ClientHeight = 858
    88  ClientWidth = 1191
    99  DesignTimePPI = 144
    … …  
    1818  object PanelLeft: TPanel
    1919    Left = 0
    20     Height = 854
     20    Height = 858
    2121    Top = 0
    2222    Width = 584
    2323    Align = alLeft
    2424    BevelOuter = bvNone
    25     ClientHeight = 854
     25    ClientHeight = 858
    2626    ClientWidth = 584
    2727    TabOrder = 0
    2828    object EditLeftFileName: TEdit
    2929      Left = 15
    30       Height = 43
     30      Height = 33
    3131      Top = 11
    3232      Width = 523
    … …  
    3737    inline SynEditLeft: TSynEditEx
    3838      Left = 15
    39       Height = 781
     39      Height = 785
    4040      Top = 61
    4141      Width = 562
    … …  
    4848      ParentFont = False
    4949      TabOrder = 1
    50       Gutter.Width = 75
     50      Gutter.Width = 73
    5151      Gutter.MouseActions = <>
    5252      RightGutter.Width = 0
    … …  
    503503        end
    504504        object SynGutterLineNumber1: TSynGutterLineNumber
    505           Width = 15
     505          Width = 13
    506506          MouseActions = <>
    507507          MarkupInfo.Background = clBtnFace
    … …  
    548548  object Splitter1: TSplitter
    549549    Left = 584
    550     Height = 854
     550    Height = 858
    551551    Top = 0
    552552    Width = 8
    … …  
    554554  object PanelRight: TPanel
    555555    Left = 592
    556     Height = 854
     556    Height = 858
    557557    Top = 0
    558558    Width = 599
    559559    Align = alClient
    560560    BevelOuter = bvNone
    561     ClientHeight = 854
     561    ClientHeight = 858
    562562    ClientWidth = 599
    563563    TabOrder = 2
    564564    object EditRightFileName: TEdit
    565565      Left = 12
    566       Height = 43
     566      Height = 33
    567567      Top = 11
    568568      Width = 527
    … …  
    573573    inline SynEditRight: TSynEditEx
    574574      Left = 15
    575       Height = 781
     575      Height = 785
    576576      Top = 61
    577577      Width = 571
    … …  
    584584      ParentFont = False
    585585      TabOrder = 1
    586       Gutter.Width = 75
     586      Gutter.Width = 73
    587587      Gutter.MouseActions = <>
    588588      RightGutter.Width = 0
    … …  
    10391039        end
    10401040        object SynGutterLineNumber1: TSynGutterLineNumber
    1041           Width = 15
     1041          Width = 13
    10421042          MouseActions = <>
    10431043          MarkupInfo.Background = clBtnFace

  • trunk/Forms/FormFindDuplicity.lfm

    r152 r155  
    5555    TabOrder = 1
    5656    object ComboBoxField: TComboBox
    57       Left = 192
    58       Height = 42
    59       Top = 14
     57      Left = 232
     58      Height = 33
     59      Top = 16
    6060      Width = 326
    61       ItemHeight = 0
     61      ItemHeight = 25
    6262      OnChange = ComboBoxFieldChange
    6363      ParentFont = False
    … …  
    6767    object Label1: TLabel
    6868      Left = 13
    69       Height = 26
     69      Height = 25
    7070      Top = 19
    71       Width = 135
     71      Width = 125
    7272      Caption = 'By contact field:'
    7373      ParentColor = False
    … …  
    7575    end
    7676    object ButtonMerge: TButton
    77       Left = 528
     77      Left = 568
    7878      Height = 38
    79       Top = 14
     79      Top = 16
    8080      Width = 113
    8181      Caption = 'Merge'

  • trunk/Forms/FormGenerate.lfm

    r149 r155  
    11object FormGenerate: TFormGenerate
    22  Left = 470
    3   Height = 585
    4   Top = 372
    5   Width = 846
     3  Height = 318
     4  Top = 616
     5  Width = 652
    66  Caption = 'Generate contacts'
    7   ClientHeight = 585
    8   ClientWidth = 846
    9   DesignTimePPI = 150
     7  ClientHeight = 318
     8  ClientWidth = 652
     9  DesignTimePPI = 144
    1010  OnClose = FormClose
    1111  OnCreate = FormCreate
    1212  OnShow = FormShow
    13   LCLVersion = '2.2.0.4'
     13  LCLVersion = '2.2.6.0'
    1414  object Label1: TLabel
    15     Left = 20
    16     Height = 27
    17     Top = 20
    18     Width = 59
     15    Left = 19
     16    Height = 25
     17    Top = 19
     18    Width = 52
    1919    Caption = 'Count:'
     20    ParentColor = False
    2021    ParentFont = False
    2122  end
    2223  object SpinEditCount: TSpinEdit
    23     Left = 161
    24     Height = 43
    25     Top = 19
    26     Width = 158
     24    Left = 155
     25    Height = 33
     26    Top = 18
     27    Width = 152
    2728    MaxValue = 1000000000
    2829    MinValue = 1
    … …  
    3233  end
    3334  object ButtonGenerate: TButton
    34     Left = 704
    35     Height = 39
    36     Top = 528
    37     Width = 118
     35    Left = 516
     36    Height = 37
     37    Top = 264
     38    Width = 113
    3839    Anchors = [akRight, akBottom]
    3940    Caption = 'Generate'

  • trunk/Forms/FormMain.pas

    r153 r155  
    9292procedure TFormMain.FormClose(Sender: TObject; var CloseAction: TCloseAction);
    9393begin
     94  SaveConfig;
    9495  FormContacts.Close;
    9596  Core.Core.PersistentForm1.Save(Self);
    … …  
    108109  Core.Core.OnDataFileChange := DataFileChangeExecute;
    109110  Core.Core.OnLastOpenedListChange := LastOpenedFileChangeExecute;
     111  LoadConfig;
    110112end;
    111113

  • trunk/Forms/FormNameDetails.lfm

    r149 r155  
    11object FormNameDetails: TFormNameDetails
    22  Left = 670
    3   Height = 329
    4   Top = 525
    5   Width = 604
     3  Height = 299
     4  Top = 542
     5  Width = 572
    66  Caption = 'Name details'
    7   ClientHeight = 329
    8   ClientWidth = 604
    9   Constraints.MinHeight = 311
    10   Constraints.MinWidth = 281
    11   DesignTimePPI = 150
     7  ClientHeight = 299
     8  ClientWidth = 572
     9  Constraints.MinHeight = 299
     10  Constraints.MinWidth = 270
     11  DesignTimePPI = 144
    1212  OnClose = FormClose
    1313  OnCreate = FormCreate
    1414  OnShow = FormShow
    15   LCLVersion = '2.2.0.4'
     15  LCLVersion = '2.2.6.0'
    1616  object EditFirstName: TEdit
    17     Left = 200
    18     Height = 43
    19     Top = 64
    20     Width = 384
     17    Left = 192
     18    Height = 33
     19    Top = 61
     20    Width = 361
    2121    Anchors = [akTop, akLeft, akRight]
    2222    ParentFont = False
    … …  
    2424  end
    2525  object Label1: TLabel
    26     Left = 16
    27     Height = 27
    28     Top = 72
    29     Width = 44
     26    Left = 15
     27    Height = 25
     28    Top = 69
     29    Width = 37
    3030    Caption = 'First:'
     31    ParentColor = False
    3132    ParentFont = False
    3233  end
    3334  object Label5: TLabel
    34     Left = 16
    35     Height = 27
    36     Top = 168
    37     Width = 42
     35    Left = 15
     36    Height = 25
     37    Top = 161
     38    Width = 35
    3839    Caption = 'Last:'
     40    ParentColor = False
    3941    ParentFont = False
    4042  end
    4143  object EditLastName: TEdit
    42     Left = 200
    43     Height = 43
    44     Top = 160
    45     Width = 384
     44    Left = 192
     45    Height = 33
     46    Top = 154
     47    Width = 361
    4648    Anchors = [akTop, akLeft, akRight]
    4749    ParentFont = False
    … …  
    4951  end
    5052  object EditMiddleName: TEdit
    51     Left = 200
    52     Height = 43
    53     Top = 112
    54     Width = 384
     53    Left = 192
     54    Height = 33
     55    Top = 108
     56    Width = 361
    5557    Anchors = [akTop, akLeft, akRight]
    5658    ParentFont = False
    … …  
    5860  end
    5961  object Label25: TLabel
    60     Left = 16
    61     Height = 27
    62     Top = 124
    63     Width = 67
     62    Left = 15
     63    Height = 25
     64    Top = 119
     65    Width = 59
    6466    Caption = 'Middle:'
     67    ParentColor = False
    6568    ParentFont = False
    6669  end
    6770  object Label26: TLabel
    68     Left = 16
    69     Height = 27
    70     Top = 24
    71     Width = 43
     71    Left = 15
     72    Height = 25
     73    Top = 23
     74    Width = 36
    7275    Caption = 'Title:'
     76    ParentColor = False
    7377    ParentFont = False
    7478  end
    7579  object EditTitleBefore: TEdit
    76     Left = 200
    77     Height = 43
    78     Top = 16
    79     Width = 384
     80    Left = 192
     81    Height = 33
     82    Top = 15
     83    Width = 361
    8084    Anchors = [akTop, akLeft, akRight]
    8185    ParentFont = False
    … …  
    8387  end
    8488  object Label27: TLabel
    85     Left = 16
    86     Height = 27
    87     Top = 216
    88     Width = 55
     89    Left = 15
     90    Height = 25
     91    Top = 207
     92    Width = 48
    8993    Caption = 'Suffix:'
     94    ParentColor = False
    9095    ParentFont = False
    9196  end
    9297  object EditTitleAfter: TEdit
    93     Left = 200
    94     Height = 43
    95     Top = 208
    96     Width = 384
     98    Left = 192
     99    Height = 33
     100    Top = 200
     101    Width = 361
    97102    Anchors = [akTop, akLeft, akRight]
    98103    ParentFont = False
    … …  
    100105  end
    101106  object ButtonOk: TButton
    102     Left = 467
    103     Height = 39
    104     Top = 276
    105     Width = 117
     107    Left = 441
     108    Height = 37
     109    Top = 249
     110    Width = 112
    106111    Anchors = [akRight, akBottom]
    107112    Caption = 'OK'
    … …  
    110115  end
    111116  object ButtonCancel: TButton
    112     Left = 337
    113     Height = 39
    114     Top = 276
    115     Width = 117
     117    Left = 316
     118    Height = 37
     119    Top = 249
     120    Width = 112
    116121    Anchors = [akRight, akBottom]
    117122    Caption = 'Cancel'

  • trunk/Forms/FormNormalize.lfm

    r154 r155  
    1818    Width = 743
    1919    HorzScrollBar.Page = 600
    20     VertScrollBar.Page = 211
     20    VertScrollBar.Page = 209
    2121    Anchors = [akTop, akLeft, akRight, akBottom]
    22     ClientHeight = 345
    23     ClientWidth = 741
     22    ClientHeight = 343
     23    ClientWidth = 739
    2424    TabOrder = 0
    2525    object CheckBoxRemovePhoneSpaces: TCheckBox
    2626      Left = 20
    27       Height = 30
     27      Height = 29
    2828      Top = 16
    29       Width = 318
     29      Width = 303
    3030      Caption = 'Remove spaces in phone numbers'
    3131      TabOrder = 0
    … …  
    3333    object CheckBoxAddPhonePrefix: TCheckBox
    3434      Left = 20
    35       Height = 30
     35      Height = 29
    3636      Top = 55
    37       Width = 306
     37      Width = 294
    3838      Caption = 'Add default country phone prefix'
    3939      TabOrder = 1
    … …  
    4141    object CheckBoxRemoveExactDuplicates: TCheckBox
    4242      Left = 20
    43       Height = 30
     43      Height = 29
    4444      Top = 96
    45       Width = 236
     45      Width = 225
    4646      Caption = 'Remove exact duplicates'
    4747      TabOrder = 2
    … …  
    4949    object EditPhoneCountryCode: TEdit
    5050      Left = 480
    51       Height = 43
     51      Height = 33
    5252      Top = 55
    5353      Width = 120
    … …  
    5656    object CheckBoxRemovePhotos: TCheckBox
    5757      Left = 20
    58       Height = 30
     58      Height = 29
    5959      Top = 136
    60       Width = 158
     60      Width = 157
    6161      Caption = 'Remove photos'
    6262      TabOrder = 4
    … …  
    6464    object CheckBoxConvertInternationaCallPrefixToCountryCode: TCheckBox
    6565      Left = 20
    66       Height = 30
     66      Height = 29
    6767      Top = 176
    68       Width = 429
     68      Width = 405
    6969      Caption = 'Convert international call prefix to country code'
    7070      TabOrder = 5
    … …  
    7272    object EditPhoneInternationalCallPrefix: TEdit
    7373      Left = 480
    74       Height = 43
    75       Top = 168
     74      Height = 33
     75      Top = 176
    7676      Width = 120
    7777      TabOrder = 6

  • trunk/Forms/FormNormalize.pas

    r152 r155  
    3030    procedure LoadConfig;
    3131    procedure SaveConfig;
    32 
    33   public
    34 
    3532  end;
    3633

  • trunk/Forms/FormProperty.lfm

    r149 r155  
    11object FormProperty: TFormProperty
    22  Left = 760
    3   Height = 435
    4   Top = 576
    5   Width = 756
     3  Height = 306
     4  Top = 688
     5  Width = 670
    66  Caption = 'Field'
    7   ClientHeight = 435
    8   ClientWidth = 756
    9   DesignTimePPI = 150
     7  ClientHeight = 306
     8  ClientWidth = 670
     9  DesignTimePPI = 144
    1010  OnClose = FormClose
    1111  OnCreate = FormCreate
    1212  OnShow = FormShow
    13   LCLVersion = '2.2.0.4'
     13  LCLVersion = '2.2.6.0'
    1414  object ButtonOk: TButton
    15     Left = 479
    16     Height = 39
    17     Top = 379
    18     Width = 124
     15    Left = 404
     16    Height = 37
     17    Top = 253
     18    Width = 119
    1919    Anchors = [akRight, akBottom]
    2020    Caption = 'OK'
    … …  
    2222    OnClick = ButtonOkClick
    2323    ParentFont = False
    24     TabOrder = 4
     24    TabOrder = 0
    2525  end
    2626  object ButtonCancel: TButton
    27     Left = 620
    28     Height = 39
    29     Top = 379
    30     Width = 120
     27    Left = 540
     28    Height = 37
     29    Top = 253
     30    Width = 115
    3131    Anchors = [akRight, akBottom]
    3232    Caption = 'Cancel'
    3333    ModalResult = 2
    3434    ParentFont = False
    35     TabOrder = 5
    36   end
    37   object Label1: TLabel
    38     Left = 25
    39     Height = 27
    40     Top = 83
    41     Width = 59
    42     Caption = 'Name:'
    43   end
    44   object EditName: TEdit
    45     Left = 175
    46     Height = 43
    47     Top = 75
    48     Width = 554
    49     Anchors = [akTop, akLeft, akRight]
    50     OnChange = EditNameChange
    5135    TabOrder = 1
    5236  end
    53   object Label2: TLabel
    54     Left = 25
    55     Height = 27
    56     Top = 133
    57     Width = 95
    58     Caption = 'Attributes:'
    59   end
    60   object EditAttributes: TEdit
    61     Left = 175
    62     Height = 43
    63     Top = 129
    64     Width = 554
    65     Anchors = [akTop, akLeft, akRight]
    66     OnChange = EditAttributesChange
     37  object ScrollBox1: TScrollBox
     38    Left = 16
     39    Height = 235
     40    Top = 8
     41    Width = 637
     42    HorzScrollBar.Page = 150
     43    VertScrollBar.Page = 205
     44    Anchors = [akTop, akLeft, akRight, akBottom]
     45    ClientHeight = 231
     46    ClientWidth = 633
    6747    TabOrder = 2
    68   end
    69   object Label3: TLabel
    70     Left = 25
    71     Height = 27
    72     Top = 188
    73     Width = 64
    74     Caption = 'Values:'
    75   end
    76   object EditValues: TEdit
    77     Left = 175
    78     Height = 43
    79     Top = 179
    80     Width = 554
    81     Anchors = [akTop, akLeft, akRight]
    82     TabOrder = 3
    83   end
    84   object Label4: TLabel
    85     Left = 25
    86     Height = 27
    87     Top = 33
    88     Width = 48
    89     Caption = 'Field:'
    90   end
    91   object ComboBoxField: TComboBox
    92     Left = 175
    93     Height = 42
    94     Top = 25
    95     Width = 554
    96     Anchors = [akTop, akLeft, akRight]
    97     ItemHeight = 0
    98     OnChange = ComboBoxFieldChange
    99     Style = csDropDownList
    100     TabOrder = 0
     48    object Label1: TLabel
     49      Left = 8
     50      Height = 25
     51      Top = 80
     52      Width = 51
     53      Caption = 'Name:'
     54      ParentColor = False
     55    end
     56    object EditName: TEdit
     57      Left = 141
     58      Height = 33
     59      Top = 72
     60      Width = 476
     61      Anchors = [akTop, akLeft, akRight]
     62      OnChange = EditNameChange
     63      TabOrder = 0
     64    end
     65    object Label2: TLabel
     66      Left = 8
     67      Height = 25
     68      Top = 128
     69      Width = 82
     70      Caption = 'Attributes:'
     71      ParentColor = False
     72    end
     73    object EditAttributes: TEdit
     74      Left = 141
     75      Height = 33
     76      Top = 124
     77      Width = 476
     78      Anchors = [akTop, akLeft, akRight]
     79      OnChange = EditAttributesChange
     80      TabOrder = 1
     81    end
     82    object Label3: TLabel
     83      Left = 8
     84      Height = 25
     85      Top = 180
     86      Width = 54
     87      Caption = 'Values:'
     88      ParentColor = False
     89    end
     90    object EditValues: TEdit
     91      Left = 141
     92      Height = 33
     93      Top = 172
     94      Width = 476
     95      Anchors = [akTop, akLeft, akRight]
     96      TabOrder = 2
     97    end
     98    object Label4: TLabel
     99      Left = 8
     100      Height = 25
     101      Top = 32
     102      Width = 41
     103      Caption = 'Field:'
     104      ParentColor = False
     105    end
     106    object ComboBoxField: TComboBox
     107      Left = 141
     108      Height = 33
     109      Top = 24
     110      Width = 476
     111      Anchors = [akTop, akLeft, akRight]
     112      ItemHeight = 25
     113      OnChange = ComboBoxFieldChange
     114      Style = csDropDownList
     115      TabOrder = 3
     116    end
    101117  end
    102118end

  • trunk/Forms/FormProperty.pas

    r149 r155  
    1414    ButtonOk: TButton;
    1515    ComboBoxField: TComboBox;
     16    EditAttributes: TEdit;
    1617    EditName: TEdit;
    17     EditAttributes: TEdit;
    1818    EditValues: TEdit;
    1919    Label1: TLabel;
    … …  
    2121    Label3: TLabel;
    2222    Label4: TLabel;
     23    ScrollBox1: TScrollBox;
    2324    procedure ButtonOkClick(Sender: TObject);
    2425    procedure ComboBoxFieldChange(Sender: TObject);

  • trunk/Forms/FormSettings.lfm

    r152 r155  
    4444    Width = 845
    4545    HorzScrollBar.Page = 504
    46     VertScrollBar.Page = 475
     46    VertScrollBar.Page = 457
    4747    Anchors = [akTop, akLeft, akRight, akBottom]
    48     ClientHeight = 538
    49     ClientWidth = 843
     48    ClientHeight = 536
     49    ClientWidth = 841
    5050    TabOrder = 2
    5151    object Label1: TLabel
    5252      Left = 24
    53       Height = 26
     53      Height = 25
    5454      Top = 24
    55       Width = 88
     55      Width = 81
    5656      Caption = 'Language:'
    5757      ParentColor = False
    … …  
    6060    object ComboBoxLanguage: TComboBox
    6161      Left = 240
    62       Height = 42
     62      Height = 33
    6363      Top = 16
    6464      Width = 264
    65       ItemHeight = 0
     65      ItemHeight = 25
    6666      ParentFont = False
    6767      Style = csDropDownList
    … …  
    6969    end
    7070    object CheckBoxAutomaticDPI: TCheckBox
    71       Left = 23
    72       Height = 30
    73       Top = 247
    74       Width = 148
     71      Left = 24
     72      Height = 29
     73      Top = 392
     74      Width = 145
    7575      Caption = 'Automatic DPI'
    7676      OnChange = CheckBoxAutomaticDPIChange
    … …  
    8080    end
    8181    object SpinEditDPI: TSpinEdit
    82       Left = 240
    83       Height = 43
    84       Top = 279
     82      Left = 241
     83      Height = 33
     84      Top = 424
    8585      Width = 145
    8686      MaxValue = 300
    … …  
    9292    end
    9393    object LabelDPI: TLabel
    94       Left = 55
    95       Height = 26
    96       Top = 287
    97       Width = 35
     94      Left = 56
     95      Height = 25
     96      Top = 432
     97      Width = 32
    9898      Caption = 'DPI:'
    9999      ParentColor = False
    … …  
    102102    end
    103103    object CheckBoxReopenLastFileOnStart: TCheckBox
    104       Left = 23
    105       Height = 30
    106       Top = 207
    107       Width = 226
     104      Left = 24
     105      Height = 29
     106      Top = 352
     107      Width = 217
    108108      Caption = 'Reopen last file on start'
    109109      ParentFont = False
    … …  
    112112    object Label2: TLabel
    113113      Left = 24
    114       Height = 26
     114      Height = 25
    115115      Top = 72
    116       Width = 63
     116      Width = 57
    117117      Caption = 'Theme:'
    118118      ParentColor = False
    … …  
    121121    object ComboBoxTheme: TComboBox
    122122      Left = 240
    123       Height = 42
     123      Height = 33
    124124      Top = 64
    125125      Width = 264
    126       ItemHeight = 0
     126      ItemHeight = 25
    127127      ParentFont = False
    128128      Style = csDropDownList
    … …  
    131131    object Label3: TLabel
    132132      Left = 24
    133       Height = 26
     133      Height = 25
    134134      Top = 120
    135       Width = 186
     135      Width = 174
    136136      Caption = 'Default vCard version:'
    137137      ParentColor = False
    … …  
    139139    object EditDefaultVcardVersion: TEdit
    140140      Left = 240
    141       Height = 43
     141      Height = 33
    142142      Top = 112
    143143      Width = 144
    … …  
    146146    object Label4: TLabel
    147147      Left = 24
    148       Height = 26
     148      Height = 25
    149149      Top = 165
    150       Width = 133
     150      Width = 126
    151151      Caption = 'Map query URL:'
    152152      ParentColor = False
    … …  
    154154    object EditMapUrl: TEdit
    155155      Left = 240
    156       Height = 43
     156      Height = 33
    157157      Top = 160
    158       Width = 588
     158      Width = 586
    159159      Anchors = [akTop, akLeft, akRight]
    160160      TabOrder = 6
    161161    end
    162162    object Label5: TLabel
    163       Left = 23
    164       Height = 26
    165       Top = 340
    166       Width = 120
     163      Left = 24
     164      Height = 25
     165      Top = 212
     166      Width = 114
    167167      Caption = 'Compare tool:'
    168168      ParentColor = False
    169169    end
    170170    object EditCompareTool: TEdit
    171       Left = 240
    172       Height = 43
    173       Top = 336
    174       Width = 472
     171      Left = 241
     172      Height = 33
     173      Top = 208
     174      Width = 462
    175175      Anchors = [akTop, akLeft, akRight]
    176176      TabOrder = 7
    177177    end
    178178    object ButtonBrowse: TButton
    179       Left = 720
     179      Left = 713
    180180      Height = 38
    181       Top = 340
     181      Top = 206
    182182      Width = 113
    183183      Anchors = [akTop, akRight]
    … …  
    187187    end
    188188    object Label6: TLabel
    189       Left = 23
    190       Height = 26
    191       Top = 392
    192       Width = 248
     189      Left = 24
     190      Height = 25
     191      Top = 264
     192      Width = 231
    193193      Caption = 'Default phone country prefix:'
    194194      ParentColor = False
    195195    end
    196196    object EditDefaultPhoneCountryPrefix: TEdit
    197       Left = 312
    198       Height = 43
    199       Top = 384
     197      Left = 328
     198      Height = 33
     199      Top = 264
    200200      Width = 144
    201201      TabOrder = 9
    202202    end
    203203    object Label7: TLabel
    204       Left = 23
    205       Height = 26
    206       Top = 440
    207       Width = 267
     204      Left = 24
     205      Height = 25
     206      Top = 312
     207      Width = 243
    208208      Caption = 'Default international call prefix:'
    209209      ParentColor = False
    210210    end
    211211    object EditDefaultInternationalCallPrefix: TEdit
    212       Left = 312
    213       Height = 43
    214       Top = 432
     212      Left = 328
     213      Height = 33
     214      Top = 312
    215215      Width = 144
    216216      TabOrder = 10
    … …  
    218218  end
    219219  object OpenDialog1: TOpenDialog
    220     Left = 506
    221     Top = 258
     220    Left = 640
     221    Top = 72
    222222  end
    223223end

  • trunk/Install/win/vCard Studio.iss

    r143 r155  
    8080Source: "{#MyAppSubDir}\lib\i386-win32-Release\{#MyAppExeName}"; DestDir: "{app}"; Flags: ignoreversion; Check: not Is64BitInstallMode
    8181Source: "{#MyAppSubDir}\Languages\*.po"; DestDir: "{app}\Languages"; Flags: ignoreversion
     82Source: "{#MyAppSubDir}\Packages\Common\Languages\*.po"; DestDir: "{app}\Languages"; Flags: ignoreversion
     83Source: "{#MyAppSubDir}\Packages\VCard\Languages\*.po"; DestDir: "{app}\Languages"; Flags: ignoreversion
    8284Source: "{#MyAppSubDir}\Images\Profile.png"; DestDir: "{app}\Images"; Flags: ignoreversion
    8385

  • trunk/Languages/vCardStudio.cs.po

    r153 r155  
    13831383msgid "vCard file"
    13841384msgstr "Soubor vCard"
     1385

  • trunk/vCardStudio.lpr

    r152 r155  
    1717
    1818begin
    19   Application.Scaled := True;
    20   Application.Title := 'vCard Studio';
     19  Application.Scaled:=True;
     20  Application.Title:='vCard Studio';
    2121  {$if declared(UseHeapTrace)}
    2222  DeleteFile(ExtractFilePath(ParamStr(0)) + HeapTraceLog);
Note: See TracChangeset for help on using the changeset viewer.