Changeset 62 for trunk/Forms


Ignore:
Timestamp:
Dec 9, 2021, 10:53:52 PM (3 years ago)
Author:
chronos
Message:
  • Added: New feature to split multiple contacts into separate files. Accessible from File menu.
Location:
trunk/Forms
Files:
5 edited

Legend:

Unmodified
Added
Removed

  • trunk/Forms/UFormGenerate.lfm

    r23 r62  
    11object FormGenerate: TFormGenerate
    2   Left = 464
     2  Left = 470
    33  Height = 562
    4   Top = 368
     4  Top = 372
    55  Width = 812
    66  Caption = 'Generate contacts'
    … …  
    1414  object Label1: TLabel
    1515    Left = 19
    16     Height = 24
     16    Height = 25
    1717    Top = 19
    18     Width = 55
     18    Width = 52
    1919    Caption = 'Count:'
    2020    ParentColor = False
    … …  
    2323  object SpinEditCount: TSpinEdit
    2424    Left = 155
    25     Height = 42
     25    Height = 33
    2626    Top = 18
    2727    Width = 152

  • trunk/Forms/UFormGenerate.pas

    r31 r62  
    4646  for I := 1 to SpinEditCount.Value do begin
    4747    Contact := Contacts.AddNew;
     48    Contact.Fields[cfVersion] := '2.1';
    4849    Contact.Fields[cfFirstName] := 'First ' + IntToStr(Random(10000));
    4950    Contact.Fields[cfLastName] := 'Last ' + IntToStr(Random(10000));

  • trunk/Forms/UFormMain.lfm

    r44 r62  
    4141      Height = 33
    4242      Top = 5
    43       Width = 135
     43      Width = 159
    4444      Align = alNone
    4545      AutoSize = True
    … …  
    7272      end
    7373      object ToolButton4: TToolButton
    74         Left = 1
    75         Top = 33
     74        Left = 124
     75        Top = 0
    7676        Action = Core.AFileClose
    7777      end
    … …  
    8383      Height = 33
    8484      Top = 5
    85       Width = 35
     85      Width = 71
    8686      Align = alNone
    8787      AutoSize = True
    … …  
    9797      Transparent = True
    9898      object ToolButton5: TToolButton
    99         Left = 1
    100         Top = 33
     99        Left = 36
     100        Top = 0
    101101        Action = Core.ASettings
    102102      end
    … …  
    137137      object MenuItem3: TMenuItem
    138138        Action = Core.AFileMerge
     139      end
     140      object MenuItem6: TMenuItem
     141        Action = Core.AFileSplit
    139142      end
    140143      object MenuItem2: TMenuItem

  • trunk/Forms/UFormMain.pas

    r44 r62  
    2020    MenuItem4: TMenuItem;
    2121    MenuItem5: TMenuItem;
     22    MenuItem6: TMenuItem;
    2223    MenuItemToolbar: TMenuItem;
    2324    MenuItemView: TMenuItem;

  • trunk/Forms/UFormProperties.lfm

    r54 r62  
    1414  object ListView1: TListView
    1515    Left = 0
    16     Height = 810
     16    Height = 801
    1717    Top = 0
    1818    Width = 1210
    … …  
    4646    Left = 0
    4747    Height = 39
    48     Top = 842
     48    Top = 833
    4949    Width = 1210
    5050    Align = alBottom
    … …  
    7878    Left = 0
    7979    Height = 32
    80     Top = 810
     80    Top = 801
    8181    Width = 1210
    8282    OnChange = ListViewFilter1Change
    … …  
    8585  object StatusBar1: TStatusBar
    8686    Left = 0
    87     Height = 27
    88     Top = 881
     87    Height = 36
     88    Top = 872
    8989    Width = 1210
    9090    Panels = <   
Note: See TracChangeset for help on using the changeset viewer.