Changeset 148 for trunk/Forms


Ignore:
Timestamp:
Jun 5, 2023, 7:40:45 PM (18 months ago)
Author:
chronos
Message:
  • Modified: Update Common and VCard package. Remove U prefix from unit names.
Location:
trunk/Forms
Files:
20 edited

Legend:

Unmodified
Added
Removed

  • trunk/Forms/UFormColumns.lfm

    r138 r148  
    1212  OnDestroy = FormDestroy
    1313  OnShow = FormShow
    14   LCLVersion = '2.2.2.0'
     14  LCLVersion = '2.2.6.0'
    1515  object ButtonOk: TButton
    1616    Left = 583

  • trunk/Forms/UFormColumns.pas

    r138 r148  
    44
    55uses
    6   Classes, SysUtils, Forms, Controls, Graphics, Dialogs, StdCtrls, UVCard;
     6  Classes, SysUtils, Forms, Controls, Graphics, Dialogs, StdCtrls, VCard;
    77
    88type
    … …  
    5454
    5555procedure TFormColumns.FormShow(Sender: TObject);
    56 var
    57   I: Integer;
    5856begin
    5957  Core.PersistentForm1.Load(Self);

  • trunk/Forms/UFormCompare.pas

    r134 r148  
    55uses
    66  Classes, SysUtils, Forms, Controls, Graphics, Dialogs, ExtCtrls, StdCtrls,
    7   UVCard, Diff, LCLType, LCLIntf, ComCtrls, Buttons, Menus, ActnList, SynEdit,
    8   SynEditMiscClasses, SynHighlighterPosition, SynEditHighlighter, UCommon,
     7  VCard, Diff, LCLType, LCLIntf, ComCtrls, Buttons, Menus, ActnList, SynEdit,
     8  SynEditMiscClasses, SynHighlighterPosition, SynEditHighlighter, Common,
    99  USynEditEx;
    1010

  • trunk/Forms/UFormContact.pas

    r140 r148  
    55uses
    66  Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, StdCtrls,
    7   ComCtrls, ActnList, Menus, ExtCtrls, ExtDlgs, Buttons, UVCard, LCLIntf,
    8   UFormProperties, DateUtils, {$IFDEF LCLGTK2}Gtk2Globals, {$ENDIF}UContactImage,
     7  ComCtrls, ActnList, Menus, ExtCtrls, ExtDlgs, Buttons, VCard, LCLIntf,
     8  UFormProperties, DateUtils, {$IFDEF LCLGTK2}Gtk2Globals, {$ENDIF}ContactImage,
    99  ubarcodes;
    1010
    … …  
    257257
    258258uses
    259   UCore, UCommon, UFormImage, UFormNameDetails, UDataFile;
     259  UCore, Common, UFormImage, UFormNameDetails, DataFile;
    260260
    261261resourcestring

  • trunk/Forms/UFormContacts.lfm

    r138 r148  
    1313  OnResize = FormResize
    1414  OnShow = FormShow
    15   LCLVersion = '2.2.2.0'
     15  LCLVersion = '2.2.6.0'
    1616  object ListView1: TListView
    1717    Left = 0

  • trunk/Forms/UFormContacts.pas

    r138 r148  
    55uses
    66  Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, ComCtrls,
    7   Menus, ActnList, UVCard, UListViewSort, LazUTF8, Clipbrd, URegistry,
    8   Generics.Collections, Types;
     7  Menus, ActnList, VCard, ListViewSort, LazUTF8, Clipbrd, RegistryEx,
     8  Generics.Collections;
    99
    1010type

  • trunk/Forms/UFormFind.pas

    r129 r148  
    55uses
    66  Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, ComCtrls,
    7   ExtCtrls, StdCtrls, ActnList, Menus, UVCard, UFormContacts;
     7  ExtCtrls, StdCtrls, ActnList, Menus, VCard, UFormContacts;
    88
    99type

  • trunk/Forms/UFormFindDuplicity.pas

    r134 r148  
    55uses
    66  Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, ComCtrls,
    7   ExtCtrls, StdCtrls, ActnList, Menus, UVCard, Generics.Collections,
     7  ExtCtrls, StdCtrls, ActnList, Menus, VCard, Generics.Collections,
    88  Generics.Defaults;
    99

  • trunk/Forms/UFormGenerate.pas

    r129 r148  
    55uses
    66  Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, StdCtrls,
    7   Spin, UVCard;
     7  Spin, VCard;
    88
    99type

  • trunk/Forms/UFormImage.pas

    r131 r148  
    55uses
    66  Classes, SysUtils, Forms, Controls, Graphics, Dialogs, ExtCtrls, StdCtrls,
    7   ExtDlgs, UContactImage;
     7  ExtDlgs, ContactImage;
    88
    99type

  • trunk/Forms/UFormMain.lfm

    r138 r148  
    1515  OnResize = FormResize
    1616  OnShow = FormShow
    17   LCLVersion = '2.2.2.0'
     17  LCLVersion = '2.2.6.0'
    1818  object CoolBar1: TCoolBar
    1919    Left = 0

  • trunk/Forms/UFormMain.pas

    r138 r148  
    7878
    7979uses
    80   UCore, UFormContacts, UVCard, UVCardFile, URegistry;
     80  UCore, UFormContacts, VCard, UVCardFile, RegistryEx;
    8181
    8282resourcestring

  • trunk/Forms/UFormProperties.pas

    r133 r148  
    55uses
    66  Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, ComCtrls,
    7   Menus, ActnList, UVCard, UDataFile, UListViewSort, LazUTF8,
     7  Menus, ActnList, VCard, DataFile, ListViewSort, LazUTF8,
    88  Generics.Collections;
    99
    … …  
    8585
    8686uses
    87   UFormProperty, UCore, UCommon;
     87  UFormProperty, UCore, Common;
    8888
    8989resourcestring

  • trunk/Forms/UFormProperty.pas

    r129 r148  
    44
    55uses
    6   Classes, SysUtils, Forms, Controls, Graphics, Dialogs, StdCtrls, UVCard;
     6  Classes, SysUtils, Forms, Controls, Graphics, Dialogs, StdCtrls, VCard;
    77
    88type

  • trunk/Forms/UFormSettings.lfm

    r101 r148  
    11object FormSettings: TFormSettings
    22  Left = 798
    3   Height = 421
     3  Height = 404
    44  Top = 321
    5   Width = 548
     5  Width = 526
    66  Caption = 'Settings'
    7   ClientHeight = 421
    8   ClientWidth = 548
    9   Constraints.MinHeight = 421
    10   Constraints.MinWidth = 548
    11   DesignTimePPI = 150
     7  ClientHeight = 404
     8  ClientWidth = 526
     9  Constraints.MinHeight = 404
     10  Constraints.MinWidth = 526
     11  DesignTimePPI = 144
    1212  OnClose = FormClose
    1313  OnCreate = FormCreate
    1414  OnShow = FormShow
    1515  Position = poScreenCenter
    16   LCLVersion = '2.2.0.4'
     16  LCLVersion = '2.2.6.0'
    1717  object ComboBoxLanguage: TComboBox
    18     Left = 250
     18    Left = 240
    1919    Height = 42
    20     Top = 17
    21     Width = 275
     20    Top = 16
     21    Width = 264
    2222    ItemHeight = 0
    2323    ParentFont = False
    … …  
    2626  end
    2727  object Label1: TLabel
    28     Left = 25
    29     Height = 27
    30     Top = 25
    31     Width = 96
     28    Left = 24
     29    Height = 26
     30    Top = 24
     31    Width = 88
    3232    Caption = 'Language:'
     33    ParentColor = False
    3334    ParentFont = False
    3435  end
    3536  object ButtonOk: TButton
    36     Left = 416
    37     Height = 39
    38     Top = 365
    39     Width = 118
     37    Left = 400
     38    Height = 37
     39    Top = 351
     40    Width = 113
    4041    Anchors = [akRight, akBottom]
    4142    Caption = 'Ok'
    … …  
    4647  end
    4748  object ButtonCancel: TButton
    48     Left = 266
    49     Height = 39
    50     Top = 365
    51     Width = 118
     49    Left = 256
     50    Height = 37
     51    Top = 351
     52    Width = 113
    5253    Anchors = [akRight, akBottom]
    5354    Caption = 'Cancel'
    … …  
    5758  end
    5859  object CheckBoxAutomaticDPI: TCheckBox
    59     Left = 24
    60     Height = 31
    61     Top = 257
    62     Width = 154
     60    Left = 23
     61    Height = 30
     62    Top = 247
     63    Width = 148
    6364    Caption = 'Automatic DPI'
    6465    OnChange = CheckBoxAutomaticDPIChange
    … …  
    6869  end
    6970  object SpinEditDPI: TSpinEdit
    70     Left = 249
     71    Left = 239
    7172    Height = 43
    72     Top = 291
    73     Width = 151
     73    Top = 279
     74    Width = 145
    7475    MaxValue = 300
    7576    MinValue = 96
    … …  
    8081  end
    8182  object LabelDPI: TLabel
    82     Left = 57
    83     Height = 27
    84     Top = 299
    85     Width = 36
     83    Left = 55
     84    Height = 26
     85    Top = 287
     86    Width = 35
    8687    Caption = 'DPI:'
     88    ParentColor = False
    8789    ParentFont = False
    8890    Visible = False
    8991  end
    9092  object CheckBoxReopenLastFileOnStart: TCheckBox
    91     Left = 24
    92     Height = 31
    93     Top = 216
    94     Width = 239
     93    Left = 23
     94    Height = 30
     95    Top = 207
     96    Width = 226
    9597    Caption = 'Reopen last file on start'
    9698    ParentFont = False
    … …  
    100102    Left = 12
    101103    Height = 2
    102     Top = 346
    103     Width = 517
     104    Top = 332
     105    Width = 496
    104106    Anchors = [akLeft, akRight, akBottom]
    105107  end
    106108  object Label2: TLabel
    107     Left = 25
    108     Height = 27
    109     Top = 75
    110     Width = 67
     109    Left = 24
     110    Height = 26
     111    Top = 72
     112    Width = 63
    111113    Caption = 'Theme:'
     114    ParentColor = False
    112115    ParentFont = False
    113116  end
    114117  object ComboBoxTheme: TComboBox
    115     Left = 250
     118    Left = 240
    116119    Height = 42
    117     Top = 67
    118     Width = 275
     120    Top = 64
     121    Width = 264
    119122    ItemHeight = 0
    120123    ParentFont = False
    … …  
    123126  end
    124127  object Label3: TLabel
    125     Left = 25
    126     Height = 27
    127     Top = 125
    128     Width = 199
     128    Left = 24
     129    Height = 26
     130    Top = 120
     131    Width = 186
    129132    Caption = 'Default vCard version:'
     133    ParentColor = False
    130134  end
    131135  object EditDefaultVcardVersion: TEdit
    132     Left = 250
     136    Left = 240
    133137    Height = 43
    134     Top = 117
    135     Width = 150
     138    Top = 112
     139    Width = 144
    136140    TabOrder = 2
    137141  end
    138142  object Label4: TLabel
    139     Left = 25
    140     Height = 27
    141     Top = 172
    142     Width = 144
     143    Left = 24
     144    Height = 26
     145    Top = 165
     146    Width = 133
    143147    Caption = 'Map query URL:'
     148    ParentColor = False
    144149  end
    145150  object EditMapUrl: TEdit
    146     Left = 250
     151    Left = 240
    147152    Height = 43
    148     Top = 168
    149     Width = 278
     153    Top = 161
     154    Width = 267
    150155    Anchors = [akTop, akLeft, akRight]
    151156    TabOrder = 8

  • trunk/Forms/UFormSettings.pas

    r127 r148  
    55uses
    66  Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, StdCtrls,
    7   Menus, Spin, ExtCtrls, ULanguages;
     7  Menus, Spin, ExtCtrls, Languages;
    88
    99type
    … …  
    4949
    5050uses
    51   UCore, UTheme;
     51  UCore, Theme;
    5252
    5353{ TFormSettings }

  • trunk/Forms/UFormSource.lfm

    r115 r148  
    11object FormSource: TFormSource
    22  Left = 754
    3   Height = 713
     3  Height = 684
    44  Top = 496
    5   Width = 951
     5  Width = 913
    66  Caption = 'Source'
    7   ClientHeight = 713
    8   ClientWidth = 951
    9   DesignTimePPI = 150
     7  ClientHeight = 684
     8  ClientWidth = 913
     9  DesignTimePPI = 144
    1010  OnClose = FormClose
    1111  OnCreate = FormCreate
    1212  OnDestroy = FormDestroy
    1313  OnShow = FormShow
    14   LCLVersion = '2.2.0.4'
     14  LCLVersion = '2.2.6.0'
    1515  inline SynEditSource: TSynEdit
    1616    Left = 8
    17     Height = 649
     17    Height = 620
    1818    Top = 8
    19     Width = 935
     19    Width = 897
    2020    Align = alCustom
    2121    BorderSpacing.Around = 8
    2222    Anchors = [akTop, akLeft, akRight, akBottom]
    2323    Color = clBtnFace
    24     Font.Height = 13
     24    Font.Height = 12
    2525    Font.Name = 'DejaVu Sans Mono'
    2626    Font.Pitch = fpFixed
    … …  
    3030    PopupMenu = PopupMenu1
    3131    TabOrder = 0
    32     Gutter.Width = 80
     32    Gutter.Width = 75
    3333    Gutter.MouseActions = <>
    3434    RightGutter.Width = 0
    … …  
    479479    inline SynLeftGutterPartList1: TSynGutterPartList
    480480      object SynGutterMarks1: TSynGutterMarks
    481         Width = 38
     481        Width = 36
    482482        MouseActions = <>
    483483      end
    484484      object SynGutterLineNumber1: TSynGutterLineNumber
    485         Width = 17
     485        Width = 15
    486486        MouseActions = <>
    487487        MarkupInfo.Background = clBtnFace
    … …  
    505505      end
    506506      object SynGutterCodeFolding1: TSynGutterCodeFolding
    507         Width = 16
     507        Width = 15
    508508        MouseActions = <>
    509509        MarkupInfo.Background = clNone
    … …  
    515515  end
    516516  object ButtonOk: TButton
    517     Left = 824
    518     Height = 39
    519     Top = 664
    520     Width = 117
     517    Left = 791
     518    Height = 37
     519    Top = 637
     520    Width = 112
    521521    Anchors = [akRight, akBottom]
    522522    Caption = 'Save'
    … …  
    525525  end
    526526  object ButtonCancel: TButton
    527     Left = 688
    528     Height = 39
    529     Top = 664
    530     Width = 117
     527    Left = 661
     528    Height = 37
     529    Top = 637
     530    Width = 112
    531531    Anchors = [akRight, akBottom]
    532532    Caption = 'Cancel'
    … …  
    536536  object ActionList1: TActionList
    537537    Images = Core.ImageList1
    538     Left = 361
    539     Top = 152
     538    Left = 347
     539    Top = 146
    540540    object APaste: TAction
    541541      Caption = 'Paste'
    … …  
    563563  end
    564564  object PopupMenu1: TPopupMenu
    565     Left = 388
    566     Top = 411
     565    Left = 372
     566    Top = 395
    567567    object MenuItem1: TMenuItem
    568568      Action = ACut

  • trunk/Forms/UFormSource.pas

    r147 r148  
    55uses
    66  Classes, SysUtils, Forms, Controls, Graphics, Dialogs, ActnList, Menus,
    7   StdCtrls, SynEdit, SynHighlighterAny, UVCardHighlighter, UCommon;
     7  StdCtrls, SynEdit, SynHighlighterAny, UVCardHighlighter, Common;
    88
    99type
    … …  
    5151
    5252uses
    53   UCore, UTheme, UVCard;
     53  UCore, Theme, VCard;
    5454
    5555{ TFormSource }

  • trunk/Forms/UFormTest.lfm

    r146 r148  
    1111  OnCreate = FormCreate
    1212  OnShow = FormShow
    13   LCLVersion = '2.2.2.0'
     13  LCLVersion = '2.2.6.0'
    1414  object ListViewTestCases: TListView
    1515    Left = 19

  • trunk/Forms/UFormTest.pas

    r146 r148  
    55uses
    66  Classes, SysUtils, Forms, Controls, Graphics, Dialogs, ComCtrls, StdCtrls,
    7   ActnList, Menus, UTest, UTestCase;
     7  ActnList, Menus, TestCase;
    88
    99type
    … …  
    4848
    4949uses
    50   UCore, UFormTestCase, UVCard;
     50  UCore, UFormTestCase, VCard;
    5151
    5252{ TFormTest }
Note: See TracChangeset for help on using the changeset viewer.