Changeset 21 for trunk/Forms


Ignore:
Timestamp:
May 8, 2019, 12:11:40 PM (5 years ago)
Author:
chronos
Message:
  • Fixed: Build under Lazarus 2.0.
  • Modified: Used .lrj files instead of .lrt files.
  • Removed: TemplateGenerics package.
Location:
trunk/Forms
Files:
7 added
2 deleted
9 edited

Legend:

Unmodified
Added
Removed

  • trunk/Forms

    • Property svn:ignore

      •  

        old new  
        1 *.lrj
         1

  • trunk/Forms/UFormAbout.lfm

    r7 r21  
    11object FormAbout: TFormAbout
    22  Left = 522
    3   Height = 387
     3  Height = 580
    44  Top = 335
    5   Width = 524
     5  Width = 786
    66  Caption = 'About'
    7   ClientHeight = 387
    8   ClientWidth = 524
     7  ClientHeight = 580
     8  ClientWidth = 786
     9  DesignTimePPI = 144
    910  OnCreate = FormCreate
    1011  OnShow = FormShow
    1112  Position = poScreenCenter
    12   LCLVersion = '1.8.0.4'
     13  LCLVersion = '2.0.0.4'
    1314  object LabelDescription: TLabel
    14     Left = 25
    15     Height = 40
    16     Top = 137
    17     Width = 474
     15    Left = 38
     16    Height = 60
     17    Top = 206
     18    Width = 710
    1819    Align = alTop
    1920    AutoSize = False
    20     BorderSpacing.Around = 25
     21    BorderSpacing.Around = 38
    2122    ParentColor = False
     23    ParentFont = False
    2224    WordWrap = True
    2325  end
    2426  object ButtonClose: TButton
    25     Left = 383
    26     Height = 31
    27     Top = 337
    28     Width = 116
     27    Left = 574
     28    Height = 46
     29    Top = 506
     30    Width = 174
    2931    Anchors = [akRight, akBottom]
    3032    Caption = 'Close'
    3133    ModalResult = 1
     34    ParentFont = False
    3235    TabOrder = 0
    3336  end
    3437  object LabelContent: TLabel
    35     Left = 25
     38    Left = 38
    3639    Height = 26
    37     Top = 202
    38     Width = 474
     40    Top = 304
     41    Width = 710
    3942    Align = alTop
    40     BorderSpacing.Around = 25
     43    BorderSpacing.Around = 38
    4144    Caption = '   '
    4245    ParentColor = False
     46    ParentFont = False
    4347  end
    4448  object ButtonHomePage: TButton
    45     Left = 20
    46     Height = 31
    47     Top = 337
    48     Width = 220
     49    Left = 30
     50    Height = 46
     51    Top = 506
     52    Width = 330
    4953    Anchors = [akLeft, akBottom]
    5054    Caption = 'Home page'
    5155    OnClick = ButtonHomePageClick
     56    ParentFont = False
    5257    TabOrder = 1
    5358  end
    5459  object PanelTitle: TPanel
    5560    Left = 0
    56     Height = 112
     61    Height = 168
    5762    Top = 0
    58     Width = 524
     63    Width = 786
    5964    Align = alTop
    6065    BevelOuter = bvNone
    61     ClientHeight = 112
    62     ClientWidth = 524
     66    ClientHeight = 168
     67    ClientWidth = 786
     68    ParentFont = False
    6369    TabOrder = 2
    6470    object LabelAppName: TLabel
    6571      Left = 112
    66       Height = 80
     72      Height = 136
    6773      Top = 24
    68       Width = 394
     74      Width = 656
    6975      Align = alCustom
    7076      Anchors = [akTop, akLeft, akRight, akBottom]
    7177      AutoSize = False
    72       BorderSpacing.Around = 25
    73       Font.Height = -50
     78      BorderSpacing.Around = 38
     79      Font.Height = -75
    7480      ParentColor = False
    7581      ParentFont = False
    7682    end
    7783    object Image1: TImage
    78       Left = 24
    79       Height = 64
    80       Top = 24
    81       Width = 64
     84      Left = 36
     85      Height = 96
     86      Top = 36
     87      Width = 96
    8288      Proportional = True
    8389      Stretch = True

  • trunk/Forms/UFormContact.lfm

    r15 r21  
    11object FormContact: TFormContact
    22  Left = 423
    3   Height = 490
     3  Height = 588
    44  Top = 271
    5   Width = 762
     5  Width = 914
    66  Caption = 'Contact'
    7   ClientHeight = 490
    8   ClientWidth = 762
    9   DesignTimePPI = 120
     7  ClientHeight = 588
     8  ClientWidth = 914
     9  DesignTimePPI = 144
    1010  OnClose = FormClose
    1111  OnCreate = FormCreate
    1212  OnShow = FormShow
    13   LCLVersion = '1.8.0.6'
     13  LCLVersion = '2.0.0.4'
    1414  object PageControlContact: TPageControl
    15     Left = 8
    16     Height = 424
    17     Top = 8
    18     Width = 744
     15    Left = 10
     16    Height = 508
     17    Top = 10
     18    Width = 892
    1919    ActivePage = TabSheetAll
    2020    Anchors = [akTop, akLeft, akRight, akBottom]
     21    ParentFont = False
    2122    TabIndex = 2
    2223    TabOrder = 0
    2324    object TabSheetGeneral: TTabSheet
    2425      Caption = 'General'
    25       ClientHeight = 391
    26       ClientWidth = 736
     26      ClientHeight = 468
     27      ClientWidth = 882
     28      ParentFont = False
    2729      object Label1: TLabel
    28         Left = 13
    29         Height = 20
    30         Top = 13
     30        Left = 16
     31        Height = 20
     32        Top = 16
    3133        Width = 43
    3234        Caption = 'Name:'
    3335        ParentColor = False
     36        ParentFont = False
    3437      end
    3538      object EditName: TEdit
    36         Left = 120
    37         Height = 28
    38         Top = 16
    39         Width = 212
     39        Left = 144
     40        Height = 28
     41        Top = 19
     42        Width = 254
     43        ParentFont = False
    4044        TabOrder = 0
    4145      end
    4246      object Label2: TLabel
    43         Left = 13
    44         Height = 20
    45         Top = 47
     47        Left = 16
     48        Height = 20
     49        Top = 56
    4650        Width = 74
    4751        Caption = 'Cell phone:'
    4852        ParentColor = False
     53        ParentFont = False
    4954      end
    5055      object EditCellPhone: TEdit
    51         Left = 120
    52         Height = 28
    53         Top = 47
    54         Width = 212
     56        Left = 144
     57        Height = 28
     58        Top = 56
     59        Width = 254
     60        ParentFont = False
    5561        TabOrder = 1
    5662      end
    5763      object EditPhone: TEdit
    58         Left = 120
    59         Height = 28
    60         Top = 83
    61         Width = 212
     64        Left = 144
     65        Height = 28
     66        Top = 100
     67        Width = 254
     68        ParentFont = False
    6269        TabOrder = 2
    6370      end
    6471      object Label3: TLabel
    65         Left = 13
    66         Height = 20
    67         Top = 81
     72        Left = 16
     73        Height = 20
     74        Top = 97
    6875        Width = 44
    6976        Caption = 'Phone:'
    7077        ParentColor = False
     78        ParentFont = False
    7179      end
    7280      object EditEmail: TEdit
    73         Left = 479
    74         Height = 28
    75         Top = 49
    76         Width = 212
     81        Left = 575
     82        Height = 28
     83        Top = 59
     84        Width = 254
     85        ParentFont = False
    7786        TabOrder = 3
    7887      end
    7988      object Label4: TLabel
    80         Left = 360
    81         Height = 20
    82         Top = 47
     89        Left = 432
     90        Height = 20
     91        Top = 56
    8392        Width = 46
    8493        Caption = 'E-mail:'
    8594        ParentColor = False
     95        ParentFont = False
    8696      end
    8797      object EditSurname: TEdit
    88         Left = 479
    89         Height = 28
    90         Top = 15
    91         Width = 212
     98        Left = 575
     99        Height = 28
     100        Top = 18
     101        Width = 254
     102        ParentFont = False
    92103        TabOrder = 4
    93104      end
    94105      object Label5: TLabel
    95         Left = 360
    96         Height = 20
    97         Top = 13
     106        Left = 432
     107        Height = 20
     108        Top = 16
    98109        Width = 61
    99110        Caption = 'Surname:'
    100111        ParentColor = False
     112        ParentFont = False
    101113      end
    102114      object MemoNotes: TMemo
    103         Left = 13
    104         Height = 185
    105         Top = 192
    106         Width = 708
     115        Left = 16
     116        Height = 146
     117        Top = 230
     118        Width = 702
    107119        Anchors = [akTop, akLeft, akRight, akBottom]
     120        ParentFont = False
    108121        TabOrder = 5
    109122      end
    110123      object Label6: TLabel
    111         Left = 16
    112         Height = 20
    113         Top = 168
     124        Left = 19
     125        Height = 20
     126        Top = 202
    114127        Width = 42
    115128        Caption = 'Notes:'
    116129        ParentColor = False
     130        ParentFont = False
    117131      end
    118132      object EditEmailHome: TEdit
    119         Left = 479
    120         Height = 28
    121         Top = 83
    122         Width = 212
     133        Left = 575
     134        Height = 28
     135        Top = 100
     136        Width = 254
     137        ParentFont = False
    123138        TabOrder = 6
    124139      end
    125140      object Label20: TLabel
    126         Left = 360
    127         Height = 20
    128         Top = 80
     141        Left = 432
     142        Height = 20
     143        Top = 96
    129144        Width = 101
    130145        Caption = 'E-mail (Home):'
    131146        ParentColor = False
     147        ParentFont = False
    132148      end
    133149      object EditEmailWork: TEdit
    134         Left = 479
    135         Height = 28
    136         Top = 122
    137         Width = 212
     150        Left = 575
     151        Height = 28
     152        Top = 146
     153        Width = 254
     154        ParentFont = False
    138155        TabOrder = 7
    139156      end
    140157      object Label21: TLabel
    141         Left = 360
    142         Height = 20
    143         Top = 120
     158        Left = 432
     159        Height = 20
     160        Top = 144
    144161        Width = 95
    145162        Caption = 'E-mail (Work):'
    146163        ParentColor = False
     164        ParentFont = False
    147165      end
    148166      object EditBirthday: TEdit
    149         Left = 120
    150         Height = 28
    151         Top = 120
    152         Width = 212
     167        Left = 144
     168        Height = 28
     169        Top = 144
     170        Width = 254
     171        ParentFont = False
    153172        TabOrder = 8
    154173      end
    155174      object Label22: TLabel
    156         Left = 13
    157         Height = 20
    158         Top = 120
     175        Left = 16
     176        Height = 20
     177        Top = 144
    159178        Width = 58
    160179        Caption = 'Birthday:'
    161180        ParentColor = False
     181        ParentFont = False
    162182      end
    163183    end
    164184    object TabSheetDetails: TTabSheet
    165185      Caption = 'Details'
    166       ClientHeight = 391
    167       ClientWidth = 736
     186      ClientHeight = 468
     187      ClientWidth = 882
     188      ParentFont = False
    168189      object Label7: TLabel
    169         Left = 8
    170         Height = 20
    171         Top = 15
     190        Left = 10
     191        Height = 20
     192        Top = 18
    172193        Width = 99
    173194        Caption = 'Phone (Home):'
    174195        ParentColor = False
     196        ParentFont = False
    175197      end
    176198      object EditPhoneHome: TEdit
    177         Left = 144
    178         Height = 28
    179         Top = 15
    180         Width = 212
     199        Left = 173
     200        Height = 28
     201        Top = 18
     202        Width = 254
     203        ParentFont = False
    181204        TabOrder = 0
    182205      end
    183206      object Label8: TLabel
    184         Left = 8
    185         Height = 20
    186         Top = 51
     207        Left = 10
     208        Height = 20
     209        Top = 61
    187210        Width = 93
    188211        Caption = 'Phone (Work):'
    189212        ParentColor = False
     213        ParentFont = False
    190214      end
    191215      object EditPhoneWork: TEdit
    192         Left = 144
    193         Height = 28
    194         Top = 51
    195         Width = 212
     216        Left = 173
     217        Height = 28
     218        Top = 61
     219        Width = 254
     220        ParentFont = False
    196221        TabOrder = 1
    197222      end
    198223      object Label9: TLabel
    199         Left = 8
    200         Height = 20
    201         Top = 88
     224        Left = 10
     225        Height = 20
     226        Top = 106
    202227        Width = 129
    203228        Caption = 'Cell phone (Home):'
    204229        ParentColor = False
     230        ParentFont = False
    205231      end
    206232      object EditCellPhoneHome: TEdit
    207         Left = 144
    208         Height = 28
    209         Top = 90
    210         Width = 212
     233        Left = 173
     234        Height = 28
     235        Top = 108
     236        Width = 254
     237        ParentFont = False
    211238        TabOrder = 2
    212239      end
    213240      object Label10: TLabel
    214         Left = 8
    215         Height = 20
    216         Top = 122
     241        Left = 10
     242        Height = 20
     243        Top = 146
    217244        Width = 123
    218245        Caption = 'Cell phone (Work):'
    219246        ParentColor = False
     247        ParentFont = False
    220248      end
    221249      object EditCellPhoneWork: TEdit
    222         Left = 144
    223         Height = 28
    224         Top = 122
    225         Width = 212
     250        Left = 173
     251        Height = 28
     252        Top = 146
     253        Width = 254
     254        ParentFont = False
    226255        TabOrder = 3
    227256      end
    228257      object Label11: TLabel
    229         Left = 376
    230         Height = 20
    231         Top = 13
     258        Left = 451
     259        Height = 20
     260        Top = 16
    232261        Width = 25
    233262        Caption = 'Fax:'
    234263        ParentColor = False
     264        ParentFont = False
    235265      end
    236266      object EditFax: TEdit
    237         Left = 487
    238         Height = 28
    239         Top = 15
    240         Width = 212
     267        Left = 584
     268        Height = 28
     269        Top = 18
     270        Width = 254
     271        ParentFont = False
    241272        TabOrder = 4
    242273      end
    243274      object Label12: TLabel
    244         Left = 376
    245         Height = 20
    246         Top = 48
     275        Left = 451
     276        Height = 20
     277        Top = 58
    247278        Width = 80
    248279        Caption = 'Fax (Home):'
    249280        ParentColor = False
     281        ParentFont = False
    250282      end
    251283      object EditFaxHome: TEdit
    252         Left = 487
    253         Height = 28
    254         Top = 51
    255         Width = 212
     284        Left = 584
     285        Height = 28
     286        Top = 61
     287        Width = 254
     288        ParentFont = False
    256289        TabOrder = 5
    257290      end
    258291      object Label13: TLabel
    259         Left = 376
    260         Height = 20
    261         Top = 88
     292        Left = 451
     293        Height = 20
     294        Top = 106
    262295        Width = 74
    263296        Caption = 'Fax (Work):'
    264297        ParentColor = False
     298        ParentFont = False
    265299      end
    266300      object EditFaxWork: TEdit
    267         Left = 487
    268         Height = 28
    269         Top = 90
    270         Width = 212
     301        Left = 584
     302        Height = 28
     303        Top = 108
     304        Width = 254
     305        ParentFont = False
    271306        TabOrder = 6
    272307      end
    273308      object Label14: TLabel
    274         Left = 376
    275         Height = 20
    276         Top = 120
     309        Left = 451
     310        Height = 20
     311        Top = 144
    277312        Width = 41
    278313        Caption = 'Pager:'
    279314        ParentColor = False
     315        ParentFont = False
    280316      end
    281317      object EditPager: TEdit
    282         Left = 487
    283         Height = 28
    284         Top = 122
    285         Width = 212
     318        Left = 584
     319        Height = 28
     320        Top = 146
     321        Width = 254
     322        ParentFont = False
    286323        TabOrder = 7
    287324      end
    288325      object Label15: TLabel
    289         Left = 8
    290         Height = 20
    291         Top = 184
     326        Left = 10
     327        Height = 20
     328        Top = 221
    292329        Width = 72
    293330        Caption = 'Web page:'
    294331        ParentColor = False
     332        ParentFont = False
    295333      end
    296334      object EditWebPage: TEdit
    297         Left = 144
    298         Height = 28
    299         Top = 184
    300         Width = 212
     335        Left = 173
     336        Height = 28
     337        Top = 221
     338        Width = 254
     339        ParentFont = False
    301340        TabOrder = 8
    302341      end
    303342      object Label16: TLabel
    304         Left = 8
    305         Height = 20
    306         Top = 216
     343        Left = 10
     344        Height = 20
     345        Top = 259
    307346        Width = 127
    308347        Caption = 'Web page (Home):'
    309348        ParentColor = False
     349        ParentFont = False
    310350      end
    311351      object EditWebPageHome: TEdit
    312         Left = 144
    313         Height = 28
    314         Top = 216
    315         Width = 212
     352        Left = 173
     353        Height = 28
     354        Top = 259
     355        Width = 254
     356        ParentFont = False
    316357        TabOrder = 9
    317358      end
    318359      object Label17: TLabel
    319         Left = 8
    320         Height = 20
    321         Top = 248
     360        Left = 10
     361        Height = 20
     362        Top = 298
    322363        Width = 121
    323364        Caption = 'Web page (Work):'
    324365        ParentColor = False
     366        ParentFont = False
    325367      end
    326368      object EditWebPageWork: TEdit
    327         Left = 144
    328         Height = 28
    329         Top = 248
    330         Width = 212
     369        Left = 173
     370        Height = 28
     371        Top = 298
     372        Width = 254
     373        ParentFont = False
    331374        TabOrder = 10
    332375      end
    333376      object Label18: TLabel
    334         Left = 375
    335         Height = 20
    336         Top = 184
     377        Left = 450
     378        Height = 20
     379        Top = 221
    337380        Width = 32
    338381        Caption = 'Title:'
    339382        ParentColor = False
     383        ParentFont = False
    340384      end
    341385      object EditTitle: TEdit
    342         Left = 487
    343         Height = 28
    344         Top = 184
    345         Width = 212
     386        Left = 584
     387        Height = 28
     388        Top = 221
     389        Width = 254
     390        ParentFont = False
    346391        TabOrder = 11
    347392      end
    348393      object Label19: TLabel
    349         Left = 375
    350         Height = 20
    351         Top = 216
     394        Left = 450
     395        Height = 20
     396        Top = 259
    352397        Width = 56
    353398        Caption = 'Address:'
    354399        ParentColor = False
     400        ParentFont = False
    355401      end
    356402      object EditAddress: TEdit
    357         Left = 488
    358         Height = 28
    359         Top = 216
    360         Width = 212
     403        Left = 586
     404        Height = 28
     405        Top = 259
     406        Width = 254
     407        ParentFont = False
    361408        TabOrder = 12
    362409      end
    363410      object LabelOrganization: TLabel
    364         Left = 376
    365         Height = 20
    366         Top = 248
     411        Left = 451
     412        Height = 20
     413        Top = 298
    367414        Width = 89
    368415        Caption = 'Organization:'
    369416        ParentColor = False
     417        ParentFont = False
    370418      end
    371419      object EditOrganization: TEdit
    372         Left = 487
    373         Height = 28
    374         Top = 248
    375         Width = 212
     420        Left = 584
     421        Height = 28
     422        Top = 298
     423        Width = 254
     424        ParentFont = False
    376425        TabOrder = 13
    377426      end
    … …  
    379428    object TabSheetAll: TTabSheet
    380429      Caption = 'All fields'
    381       ClientHeight = 391
    382       ClientWidth = 736
     430      ClientHeight = 468
     431      ClientWidth = 882
    383432      OnShow = TabSheetAllShow
     433      ParentFont = False
    384434      object ListView1: TListView
    385         Left = 8
    386         Height = 368
    387         Top = 16
    388         Width = 721
     435        Left = 10
     436        Height = 441
     437        Top = 19
     438        Width = 864
    389439        Anchors = [akTop, akLeft, akRight, akBottom]
    390440        Columns = <       
    391441          item
    392442            Caption = 'Item'
    393             Width = 200
     443            Width = 240
    394444          end       
    395445          item
    396446            Caption = 'Value'
    397             Width = 200
     447            Width = 609
    398448          end>
    399449        OwnerData = True
     450        ParentFont = False
    400451        PopupMenu = PopupMenu1
    401452        ReadOnly = True
    … …  
    409460  end
    410461  object ButtonCancel: TButton
    411     Left = 656
    412     Height = 31
    413     Top = 448
    414     Width = 96
     462    Left = 787
     463    Height = 37
     464    Top = 538
     465    Width = 115
    415466    Anchors = [akRight, akBottom]
    416467    Caption = 'Cancel'
    417468    ModalResult = 2
     469    ParentFont = False
    418470    TabOrder = 1
    419471  end
    420472  object ButtonOk: TButton
    421     Left = 544
    422     Height = 31
    423     Top = 448
    424     Width = 99
     473    Left = 652
     474    Height = 37
     475    Top = 538
     476    Width = 119
    425477    Anchors = [akRight, akBottom]
    426478    Caption = 'OK'
    427479    ModalResult = 1
     480    ParentFont = False
    428481    TabOrder = 2
    429482  end
    430483  object ActionList1: TActionList
    431484    Images = Core.ImageList1
    432     left = 317
    433     top = 157
     485    left = 380
     486    top = 188
    434487    object AEditField: TAction
    435488      Caption = 'Edit'
    … …  
    439492  object PopupMenu1: TPopupMenu
    440493    Images = Core.ImageList1
    441     left = 172
    442     top = 159
     494    left = 206
     495    top = 191
    443496    object MenuItem1: TMenuItem
    444497      Action = AEditField

  • trunk/Forms/UFormContacts.lfm

    r19 r21  
    11object FormContacts: TFormContacts
    22  Left = 400
    3   Height = 605
     3  Height = 908
    44  Top = 212
    5   Width = 807
     5  Width = 1210
    66  Caption = 'Contacts'
    7   ClientHeight = 605
    8   ClientWidth = 807
     7  ClientHeight = 908
     8  ClientWidth = 1210
     9  DesignTimePPI = 144
    910  OnClose = FormClose
    1011  OnCreate = FormCreate
    1112  OnShow = FormShow
    12   LCLVersion = '1.8.0.4'
     13  LCLVersion = '2.0.0.4'
    1314  object ListView1: TListView
    1415    Left = 0
    15     Height = 579
     16    Height = 869
    1617    Top = 0
    17     Width = 807
     18    Width = 1210
    1819    Align = alClient
    1920    Columns = <   
    2021      item
    2122        Caption = 'Full Name'
    22         Width = 200
     23        Width = 300
    2324      end   
    2425      item
    2526        Caption = 'First name'
    26         Width = 100
     27        Width = 150
    2728      end   
    2829      item
    2930        Caption = 'Middle name'
    30         Width = 100
     31        Width = 150
    3132      end   
    3233      item
    3334        Caption = 'Last Name'
    34         Width = 100
     35        Width = 150
    3536      end   
    3637      item
    3738        Caption = 'Cell phone'
    38         Width = 100
     39        Width = 150
    3940      end   
    4041      item
    4142        Caption = 'Home phone'
    42         Width = 187
     43        Width = 295
    4344      end>
    4445    MultiSelect = True
    4546    OwnerData = True
     47    ParentFont = False
    4648    PopupMenu = PopupMenuContact
    4749    ReadOnly = True
    … …  
    5557  object ToolBar1: TToolBar
    5658    Left = 0
    57     Height = 26
    58     Top = 579
    59     Width = 807
     59    Height = 39
     60    Top = 869
     61    Width = 1210
    6062    Align = alBottom
    6163    Images = Core.ImageList1
     64    ParentFont = False
    6265    TabOrder = 1
    6366    object ToolButton1: TToolButton
    … …  
    6770    end
    6871    object ToolButton2: TToolButton
    69       Left = 30
     72      Left = 36
    7073      Top = 2
    7174      Action = AModify
    7275    end
    7376    object ToolButton3: TToolButton
    74       Left = 59
     77      Left = 71
    7578      Top = 2
    7679      Action = ARemove
    … …  
    7982  object PopupMenuContact: TPopupMenu
    8083    Images = Core.ImageList1
    81     left = 290
    82     top = 175
     84    left = 435
     85    top = 263
    8386    object MenuItem1: TMenuItem
    8487      Action = AAdd
    … …  
    9699  object ActionList1: TActionList
    97100    Images = Core.ImageList1
    98     left = 488
    99     top = 171
     101    left = 732
     102    top = 257
    100103    object AAdd: TAction
    101104      Caption = 'Add'

  • trunk/Forms/UFormFindDuplicity.lfm

    r18 r21  
    11object FormFindDuplicity: TFormFindDuplicity
    22  Left = 455
    3   Height = 401
     3  Height = 481
    44  Top = 397
    5   Width = 584
     5  Width = 701
    66  Caption = 'Find duplicities'
    7   ClientHeight = 401
    8   ClientWidth = 584
    9   DesignTimePPI = 120
     7  ClientHeight = 481
     8  ClientWidth = 701
     9  DesignTimePPI = 144
    1010  OnClose = FormClose
    1111  OnCreate = FormCreate
    1212  OnDestroy = FormDestroy
    1313  OnShow = FormShow
    14   LCLVersion = '1.8.0.6'
     14  LCLVersion = '2.0.0.4'
    1515  object ListView1: TListView
    16     Left = 4
    17     Height = 345
    18     Top = 52
    19     Width = 576
     16    Left = 5
     17    Height = 413
     18    Top = 63
     19    Width = 691
    2020    Align = alClient
    21     BorderSpacing.Around = 4
     21    BorderSpacing.Around = 5
    2222    Columns = <   
    2323      item
    2424        Caption = 'Field'
    25         Width = 150
     25        Width = 180
    2626      end   
    2727      item
    2828        Caption = 'Contacts'
    29         Width = 300
     29        Width = 360
    3030      end   
    3131      item
    3232        Caption = 'Count'
    33         Width = 70
     33        Width = 136
    3434      end>
    3535    OwnerData = True
     36    ParentFont = False
    3637    PopupMenu = PopupMenu1
    3738    ReadOnly = True
    … …  
    4445  object Panel1: TPanel
    4546    Left = 0
    46     Height = 48
     47    Height = 58
    4748    Top = 0
    48     Width = 584
     49    Width = 701
    4950    Align = alTop
    5051    BevelOuter = bvNone
    51     ClientHeight = 48
    52     ClientWidth = 584
     52    ClientHeight = 58
     53    ClientWidth = 701
     54    ParentFont = False
    5355    TabOrder = 1
    5456    object ComboBoxField: TComboBox
    55       Left = 144
    56       Height = 28
    57       Top = 12
    58       Width = 272
    59       ItemHeight = 20
     57      Left = 173
     58      Height = 42
     59      Top = 14
     60      Width = 326
     61      ItemHeight = 0
    6062      OnChange = ComboBoxFieldChange
     63      ParentFont = False
    6164      Style = csDropDownList
    6265      TabOrder = 0
    6366    end
    6467    object Label1: TLabel
    65       Left = 11
    66       Height = 20
    67       Top = 16
    68       Width = 88
     68      Left = 13
     69      Height = 26
     70      Top = 19
     71      Width = 113
    6972      Caption = 'Contact field:'
    7073      ParentColor = False
     74      ParentFont = False
    7175    end
    7276  end
    7377  object ActionList1: TActionList
    74     left = 218
    75     top = 128
     78    left = 262
     79    top = 154
    7680    object AShowContacts: TAction
    7781      Caption = 'Show contacts'
    … …  
    8084  end
    8185  object PopupMenu1: TPopupMenu
    82     left = 75
    83     top = 124
     86    left = 90
     87    top = 149
    8488    object MenuItem1: TMenuItem
    8589      Action = AShowContacts

  • trunk/Forms/UFormGenerate.lfm

    r17 r21  
    11object FormGenerate: TFormGenerate
    22  Left = 464
    3   Height = 468
     3  Height = 562
    44  Top = 368
    5   Width = 677
     5  Width = 812
    66  Caption = 'Generate contacts'
    7   ClientHeight = 468
    8   ClientWidth = 677
    9   DesignTimePPI = 120
     7  ClientHeight = 562
     8  ClientWidth = 812
     9  DesignTimePPI = 144
    1010  OnClose = FormClose
    1111  OnCreate = FormCreate
    1212  OnShow = FormShow
    13   LCLVersion = '1.8.0.6'
     13  LCLVersion = '2.0.0.4'
    1414  object Label1: TLabel
    15     Left = 16
    16     Height = 20
    17     Top = 16
    18     Width = 42
     15    Left = 19
     16    Height = 26
     17    Top = 19
     18    Width = 56
    1919    Caption = 'Count:'
    2020    ParentColor = False
     21    ParentFont = False
    2122  end
    2223  object SpinEditCount: TSpinEdit
    23     Left = 129
    24     Height = 28
    25     Top = 15
    26     Width = 127
     24    Left = 155
     25    Height = 43
     26    Top = 18
     27    Width = 152
    2728    MaxValue = 1000000000
    2829    MinValue = 1
     30    ParentFont = False
    2931    TabOrder = 0
    3032    Value = 1
    3133  end
    3234  object ButtonGenerate: TButton
    33     Left = 16
    34     Height = 31
    35     Top = 144
    36     Width = 94
     35    Left = 19
     36    Height = 37
     37    Top = 173
     38    Width = 113
    3739    Caption = 'Generate'
    3840    OnClick = ButtonGenerateClick
     41    ParentFont = False
    3942    TabOrder = 1
    4043  end

  • trunk/Forms/UFormMain.lfm

    r19 r21  
    11object FormMain: TFormMain
    22  Left = 601
    3   Height = 531
     3  Height = 796
    44  Top = 447
    5   Width = 785
     5  Width = 1178
    66  Caption = 'vCard Studio'
    7   ClientHeight = 497
    8   ClientWidth = 785
     7  ClientHeight = 762
     8  ClientWidth = 1178
     9  DesignTimePPI = 144
    910  Menu = MainMenu1
    1011  OnClose = FormClose
    … …  
    1314  OnDestroy = FormDestroy
    1415  OnShow = FormShow
    15   LCLVersion = '1.8.0.4'
     16  LCLVersion = '2.0.0.4'
    1617  object CoolBar1: TCoolBar
    1718    Left = 0
    18     Height = 38
     19    Height = 43
    1920    Top = 0
    20     Width = 785
     21    Width = 1178
    2122    AutoSize = True
    2223    Bands = <   
    … …  
    3233        Width = 64
    3334      end>
     35    ParentFont = False
    3436    object ToolBarFile: TToolBar
    3537      AnchorSideLeft.Control = CoolBar1
    3638      AnchorSideTop.Control = CoolBar1
    3739      Left = 24
    38       Height = 28
     40      Height = 33
    3941      Top = 5
    40       Width = 132
     42      Width = 159
    4143      Align = alNone
    4244      AutoSize = True
    … …  
    4648      EdgeOuter = esNone
    4749      Images = Core.ImageList1
     50      ParentFont = False
    4851      ParentShowHint = False
    4952      ShowHint = True
    … …  
    5659      end
    5760      object ToolButton2: TToolButton
    58         Left = 30
     61        Left = 36
    5962        Top = 0
    6063        Action = Core.AFileOpen
    … …  
    6366      end
    6467      object ToolButton3: TToolButton
    65         Left = 74
     68        Left = 89
    6669        Top = 0
    6770        Action = Core.AFileSave
    6871      end
    6972      object ToolButton4: TToolButton
    70         Left = 103
     73        Left = 124
    7174        Top = 0
    7275        Action = Core.AFileClose
    … …  
    7780      AnchorSideTop.Control = CoolBar1
    7881      Left = 188
    79       Height = 28
     82      Height = 33
    8083      Top = 5
    81       Width = 59
     84      Width = 71
    8285      Align = alNone
    8386      AutoSize = True
    … …  
    8790      EdgeOuter = esNone
    8891      Images = Core.ImageList1
     92      ParentFont = False
    8993      ParentShowHint = False
    9094      ShowHint = True
    … …  
    9296      Transparent = True
    9397      object ToolButton5: TToolButton
    94         Left = 30
     98        Left = 36
    9599        Top = 0
    96100        Action = Core.ASettings
    … …  
    105109  object StatusBar1: TStatusBar
    106110    Left = 0
    107     Height = 30
    108     Top = 467
    109     Width = 785
     111    Height = 28
     112    Top = 734
     113    Width = 1178
    110114    Panels = <   
    111115      item
    112         Width = 200
     116        Width = 300
    113117      end>
     118    ParentFont = False
    114119    SimplePanel = False
    115120  end
    116121  object MainMenu1: TMainMenu
    117122    Images = Core.ImageList1
    118     left = 128
    119     top = 80
     123    left = 192
     124    top = 120
    120125    object MenuItemFile: TMenuItem
    121126      Caption = 'File'
    … …  
    182187  end
    183188  object PopupMenuOpenRecent: TPopupMenu
    184     left = 280
    185     top = 80
     189    left = 420
     190    top = 120
    186191  end
    187192end

  • trunk/Forms/UFormMain.pas

    r19 r21  
    66
    77uses
    8   Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, Menus,
     8  Classes, SysUtils, LazFileUtils, Forms, Controls, Graphics, Dialogs, Menus,
    99  ComCtrls;
    1010

  • trunk/Forms/UFormSettings.lfm

    r16 r21  
    11object FormSettings: TFormSettings
    22  Left = 798
    3   Height = 300
     3  Height = 360
    44  Top = 367
    5   Width = 481
     5  Width = 577
    66  Caption = 'Settings'
    7   ClientHeight = 300
    8   ClientWidth = 481
    9   Constraints.MinHeight = 300
    10   Constraints.MinWidth = 400
    11   DesignTimePPI = 120
     7  ClientHeight = 360
     8  ClientWidth = 577
     9  Constraints.MinHeight = 360
     10  Constraints.MinWidth = 480
     11  DesignTimePPI = 144
    1212  OnClose = FormClose
    1313  OnCreate = FormCreate
    1414  OnShow = FormShow
    1515  Position = poScreenCenter
    16   LCLVersion = '1.8.0.6'
     16  LCLVersion = '2.0.0.4'
    1717  object ComboBoxLanguage: TComboBox
    18     Left = 160
    19     Height = 28
    20     Top = 30
    21     Width = 260
    22     ItemHeight = 20
     18    Left = 192
     19    Height = 42
     20    Top = 36
     21    Width = 312
     22    ItemHeight = 0
     23    ParentFont = False
    2324    Style = csDropDownList
    2425    TabOrder = 0
    2526  end
    2627  object Label1: TLabel
    27     Left = 20
    28     Height = 20
    29     Top = 30
    30     Width = 68
     28    Left = 24
     29    Height = 26
     30    Top = 36
     31    Width = 88
    3132    Caption = 'Language:'
    3233    ParentColor = False
     34    ParentFont = False
    3335  end
    3436  object ButtonOk: TButton
    35     Left = 376
    36     Height = 31
    37     Top = 256
    38     Width = 94
     37    Left = 451
     38    Height = 37
     39    Top = 307
     40    Width = 113
    3941    Anchors = [akRight, akBottom]
    4042    Caption = 'Ok'
    4143    ModalResult = 1
    4244    OnClick = ButtonOkClick
     45    ParentFont = False
    4346    TabOrder = 2
    4447  end
    4548  object ButtonCancel: TButton
    46     Left = 256
    47     Height = 31
    48     Top = 256
    49     Width = 94
     49    Left = 307
     50    Height = 37
     51    Top = 307
     52    Width = 113
    5053    Anchors = [akRight, akBottom]
    5154    Caption = 'Cancel'
    5255    ModalResult = 2
     56    ParentFont = False
    5357    TabOrder = 1
    5458  end
    5559  object CheckBoxAutomaticDPI: TCheckBox
    56     Left = 16
    57     Height = 24
    58     Top = 104
    59     Width = 120
     60    Left = 19
     61    Height = 30
     62    Top = 125
     63    Width = 150
    6064    Caption = 'Automatic DPI'
    6165    OnChange = CheckBoxAutomaticDPIChange
     66    ParentFont = False
    6267    TabOrder = 3
    6368    Visible = False
    6469  end
    6570  object SpinEditDPI: TSpinEdit
    66     Left = 160
    67     Height = 28
    68     Top = 144
    69     Width = 121
     71    Left = 192
     72    Height = 43
     73    Top = 173
     74    Width = 145
    7075    MaxValue = 300
    7176    MinValue = 96
     77    ParentFont = False
    7278    TabOrder = 4
    7379    Value = 96
    … …  
    7581  end
    7682  object LabelDPI: TLabel
    77     Left = 80
    78     Height = 20
    79     Top = 152
    80     Width = 26
     83    Left = 96
     84    Height = 26
     85    Top = 182
     86    Width = 35
    8187    Caption = 'DPI:'
    8288    ParentColor = False
     89    ParentFont = False
    8390    Visible = False
    8491  end
    8592  object CheckBoxReopenLastFileOnStart: TCheckBox
    86     Left = 16
    87     Height = 24
    88     Top = 72
    89     Width = 181
     93    Left = 19
     94    Height = 30
     95    Top = 86
     96    Width = 229
    9097    Caption = 'Reopen last file on start'
     98    ParentFont = False
    9199    TabOrder = 5
    92100  end
    93101  object Bevel1: TBevel
    94     Left = 10
     102    Left = 12
    95103    Height = 2
    96     Top = 240
    97     Width = 456
     104    Top = 288
     105    Width = 547
    98106    Anchors = [akLeft, akRight, akBottom]
    99107  end
    100108  object Label2: TLabel
    101     Left = 20
    102     Height = 20
    103     Top = 184
    104     Width = 48
     109    Left = 24
     110    Height = 26
     111    Top = 221
     112    Width = 63
    105113    Caption = 'Theme:'
    106114    ParentColor = False
     115    ParentFont = False
    107116  end
    108117  object ComboBoxTheme: TComboBox
    109     Left = 160
    110     Height = 28
    111     Top = 184
    112     Width = 260
    113     ItemHeight = 20
     118    Left = 192
     119    Height = 42
     120    Top = 221
     121    Width = 312
     122    ItemHeight = 0
     123    ParentFont = False
    114124    Style = csDropDownList
    115125    TabOrder = 6
Note: See TracChangeset for help on using the changeset viewer.