Changeset 127 for trunk/Forms
- Timestamp:
- Apr 8, 2022, 9:19:27 PM (3 years ago)
- Location:
- trunk/Forms
- Files:
-
- 17 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/Forms/UFormCompare.pas
r121 r127 1 1 unit UFormCompare; 2 3 {$mode Delphi}4 2 5 3 interface … … 8 6 Classes, SysUtils, Forms, Controls, Graphics, Dialogs, ExtCtrls, StdCtrls, 9 7 UContact, Diff, LCLType, LCLIntf, ComCtrls, Buttons, Menus, ActnList, SynEdit, 10 SynEditMiscClasses, SynHighlighterPosition, 11 SynEditHighlighter, UCommon,USynEditEx;8 SynEditMiscClasses, SynHighlighterPosition, SynEditHighlighter, UCommon, 9 USynEditEx; 12 10 13 11 type … … 79 77 FormCompare: TFormCompare; 80 78 79 81 80 implementation 82 81 -
trunk/Forms/UFormContact.pas
r124 r127 1 1 unit UFormContact; 2 3 {$mode delphi}4 2 5 3 interface … … 8 6 Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, StdCtrls, 9 7 ComCtrls, ActnList, Menus, ExtCtrls, ExtDlgs, Buttons, UContact, LCLIntf, 10 UFormProperties, DateUtils, {$IFDEF LCLGTK2}Gtk2Globals, {$ENDIF}UContactImage, ubarcodes; 8 UFormProperties, DateUtils, {$IFDEF LCLGTK2}Gtk2Globals, {$ENDIF}UContactImage, 9 ubarcodes; 11 10 12 11 type -
trunk/Forms/UFormContacts.pas
r108 r127 1 1 unit UFormContacts; 2 2 3 {$mode delphi}4 5 3 interface 6 4 7 5 uses 8 Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, 9 ComCtrls,Menus, ActnList, UContact, UListViewSort, fgl, LazUTF8, Clipbrd;6 Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, ComCtrls, 7 Menus, ActnList, UContact, UListViewSort, fgl, LazUTF8, Clipbrd; 10 8 11 9 type -
trunk/Forms/UFormError.pas
r31 r127 1 1 unit UFormError; 2 3 {$mode delphi}4 2 5 3 interface -
trunk/Forms/UFormFind.pas
r103 r127 1 1 unit UFormFind; 2 3 {$mode delphi}4 2 5 3 interface -
trunk/Forms/UFormFindDuplicity.pas
r103 r127 1 1 unit UFormFindDuplicity; 2 3 {$mode delphi}4 2 5 3 interface -
trunk/Forms/UFormGenerate.pas
r106 r127 1 1 unit UFormGenerate; 2 3 {$mode delphi}4 2 5 3 interface -
trunk/Forms/UFormImage.pas
r123 r127 1 1 unit UFormImage; 2 3 {$mode Delphi}4 2 5 3 interface -
trunk/Forms/UFormMain.pas
r126 r127 1 1 unit UFormMain; 2 3 {$mode delphi}{$H+}4 2 5 3 interface -
trunk/Forms/UFormNameDetails.pas
r110 r127 1 1 unit UFormNameDetails; 2 3 {$mode Delphi}4 2 5 3 interface … … 28 26 procedure FormCreate(Sender: TObject); 29 27 procedure FormShow(Sender: TObject); 30 private31 32 public33 34 28 end; 35 29 36 30 var 37 31 FormNameDetails: TFormNameDetails; 32 38 33 39 34 implementation -
trunk/Forms/UFormProperties.pas
r123 r127 1 1 unit UFormProperties; 2 2 3 {$mode delphi}4 5 3 interface 6 4 7 5 uses 8 Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, 9 ComCtrls,Menus, ActnList, UContact, UDataFile, UListViewSort, fgl, LazUTF8;6 Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, ComCtrls, 7 Menus, ActnList, UContact, UDataFile, UListViewSort, fgl, LazUTF8; 10 8 11 9 type -
trunk/Forms/UFormProperty.pas
r109 r127 1 1 unit UFormProperty; 2 3 {$mode delphi}4 2 5 3 interface … … 42 40 var 43 41 FormProperty: TFormProperty; 42 44 43 45 44 implementation -
trunk/Forms/UFormSettings.pas
r101 r127 1 1 unit UFormSettings; 2 3 {$mode delphi}4 2 5 3 interface -
trunk/Forms/UFormSource.pas
r121 r127 1 1 unit UFormSource; 2 3 {$mode Delphi}4 2 5 3 interface … … 46 44 var 47 45 FormSource: TFormSource; 46 48 47 49 48 implementation -
trunk/Forms/UFormTest.lfm
r116 r127 1 1 object FormTest: TFormTest 2 2 Left = 514 3 Height = 6 583 Height = 632 4 4 Top = 338 5 Width = 1 1175 Width = 1072 6 6 Caption = 'Test' 7 ClientHeight = 6 588 ClientWidth = 1 1179 DesignTimePPI = 1 507 ClientHeight = 632 8 ClientWidth = 1072 9 DesignTimePPI = 144 10 10 OnClose = FormClose 11 11 OnCreate = FormCreate … … 14 14 LCLVersion = '2.2.0.4' 15 15 object ListViewTestCases: TListView 16 Left = 2017 Height = 5 8616 Left = 19 17 Height = 562 18 18 Top = 11 19 Width = 10 8419 Width = 1041 20 20 Anchors = [akTop, akLeft, akRight, akBottom] 21 21 Columns = < 22 22 item 23 23 Caption = 'Name' 24 Width = 30024 Width = 288 25 25 end 26 26 item 27 27 Caption = 'Result' 28 Width = 7 6928 Width = 738 29 29 end> 30 30 OwnerData = True … … 39 39 end 40 40 object ButtonRun: TButton 41 Left = 9 8442 Height = 3 943 Top = 60944 Width = 11 741 Left = 945 42 Height = 37 43 Top = 585 44 Width = 112 45 45 Anchors = [akRight, akBottom] 46 46 Caption = 'Run' … … 49 49 end 50 50 object LabelResult: TLabel 51 Left = 2 252 Height = 2 753 Top = 60751 Left = 21 52 Height = 26 53 Top = 583 54 54 Width = 15 55 55 Anchors = [akLeft, akBottom] … … 57 57 end 58 58 object ActionList1: TActionList 59 Left = 5 3760 Top = 11 559 Left = 516 60 Top = 110 61 61 object AShow: TAction 62 62 Caption = 'Show' … … 69 69 end 70 70 object PopupMenuTest: TPopupMenu 71 Left = 5 3972 Top = 2 4471 Left = 517 72 Top = 234 73 73 object MenuItem1: TMenuItem 74 74 Action = AShow -
trunk/Forms/UFormTest.pas
r126 r127 1 1 unit UFormTest; 2 3 {$mode Delphi}4 2 5 3 interface -
trunk/Forms/UFormTestCase.pas
r103 r127 1 1 unit UFormTestCase; 2 3 {$mode Delphi}4 2 5 3 interface … … 25 23 var 26 24 FormTestCase: TFormTestCase; 25 27 26 28 27 implementation
Note:
See TracChangeset
for help on using the changeset viewer.