![(please configure the [header_logo] section in trac.ini)](/fioinfo/chrome/site/your_project_logo.png){kind=logo}
Changeset 21 for trunk/Forms
- Timestamp:
- Mar 25, 2013, 11:20:30 PM (12 years ago)
- Location:
- trunk/Forms
- Files:
-
- 2 edited
-
UFormAccounts.lfm (modified) (9 diffs)
-
UFormAccounts.pas (modified) (2 diffs)
Legend:
- Unmodified
- Added
- Removed
-
trunk/Forms/UFormAccounts.lfm
r20 r21 1 1 object FormAccounts: TFormAccounts 2 2 Left = 366 3 Height = 50 33 Height = 505 4 4 Top = 127 5 Width = 6 215 Width = 637 6 6 Caption = 'Accounts' 7 ClientHeight = 50 38 ClientWidth = 6 217 ClientHeight = 505 8 ClientWidth = 637 9 9 OnCreate = FormCreate 10 10 OnDestroy = FormDestroy … … 14 14 object ListView1: TListView 15 15 Left = 8 16 Height = 29 316 Height = 295 17 17 Top = 8 18 Width = 6 0118 Width = 617 19 19 Anchors = [akTop, akLeft, akRight, akBottom] 20 20 Columns = < … … 51 51 end 52 52 object ButtonOk: TButton 53 Left = 5 2753 Left = 543 54 54 Height = 25 55 Top = 4 6855 Top = 470 56 56 Width = 75 57 57 Anchors = [akRight, akBottom] … … 62 62 end 63 63 object ButtonCancel: TButton 64 Left = 4 3164 Left = 447 65 65 Height = 25 66 Top = 4 6866 Top = 470 67 67 Width = 75 68 68 Anchors = [akRight, akBottom] … … 71 71 TabOrder = 2 72 72 end 73 object ButtonAdd: TButton74 Left = 875 Height = 2576 Top = 30877 Width = 7578 Action = AAdd79 Anchors = [akLeft, akBottom]80 Color = clScrollBar81 TabOrder = 382 end83 object ButtonRemove: TButton84 Left = 9685 Height = 2586 Top = 30887 Width = 7588 Action = ARemove89 Anchors = [akLeft, akBottom]90 Color = clScrollBar91 TabOrder = 492 end93 73 object LabeledEditToken: TLabeledEdit 94 74 Left = 8 95 75 Height = 27 96 Top = 42 697 Width = 6 0176 Top = 428 77 Width = 617 98 78 Anchors = [akLeft, akRight, akBottom] 99 79 EditLabel.AnchorSideLeft.Control = LabeledEditToken … … 103 83 EditLabel.Left = 8 104 84 EditLabel.Height = 17 105 EditLabel.Top = 40 6106 EditLabel.Width = 6 0185 EditLabel.Top = 408 86 EditLabel.Width = 617 107 87 EditLabel.Caption = 'Token' 108 88 EditLabel.ParentColor = False 109 TabOrder = 589 TabOrder = 3 110 90 OnChange = LabeledEditTokenChange 111 91 end … … 113 93 Left = 8 114 94 Height = 27 115 Top = 37 2116 Width = 6 0195 Top = 374 96 Width = 617 117 97 Anchors = [akLeft, akRight, akBottom] 118 98 EditLabel.AnchorSideLeft.Control = LabeledEditName … … 122 102 EditLabel.Left = 8 123 103 EditLabel.Height = 17 124 EditLabel.Top = 35 2125 EditLabel.Width = 6 01104 EditLabel.Top = 354 105 EditLabel.Width = 617 126 106 EditLabel.Caption = 'Name' 127 107 EditLabel.ParentColor = False 108 TabOrder = 4 109 OnChange = LabeledEditTokenChange 110 end 111 object BitBtnAdd: TBitBtn 112 Left = 8 113 Height = 26 114 Top = 314 115 Width = 88 116 Action = AAdd 117 Anchors = [akLeft, akBottom] 118 Glyph.Data = { 119 36040000424D3604000000000000360000002800000010000000100000000100 120 2000000000000004000064000000640000000000000000000000000000000000 121 0000000000000000000000000000000000000000000000000000000000000000 122 0000000000000000000000000000000000000000000000000000000000000000 123 000000000000000000000000000000000000D4D4D4FFB2B2B2FFB2B2B2FFD4D4 124 D4FF000000000000000000000000000000000000000000000000000000000000 125 0000000000000000000000000000709B70FF004A00FF004800FF4E764EFFB2B2 126 B2FF000000000000000000000000000000000000000000000000000000000000 127 0000000000000000000000000000004E00FF00C800FF00C400FF004800FFB2B2 128 B2FF000000000000000000000000000000000000000000000000000000000000 129 0000000000000000000000000000005000FF00CA00FF00C600FF004A00FFB2B2 130 B2FF000000000000000000000000000000000000000000000000000000000000 131 0000000000000000000000000000005300FF00CE00FF00CA00FF004C00FFB2B2 132 B2FF00000000000000000000000000000000000000000000000000000000D4D4 133 D4FFB2B2B2FFB2B2B2FFB2B2B2FF005400FF00D200FF00CE00FF004E00FFB2B2 134 B2FFB2B2B2FFB2B2B2FFB2B2B2FFB2B2B2FFD4D4D4FF0000000070A670FF005E 135 00FF005C00FF005A00FF005800FF005600FF00D600FF00D000FF005000FF004E 136 00FF004C00FF004A00FF004A00FF4E764EFFB2B2B2FF00000000006200FF8CFE 137 8CFF00EA00FF00E600FF00E200FF00DE00FF00DA00FF00D400FF00D000FF00CC 138 00FF00C800FF00C400FF00C200FF004800FFB2B2B2FF00000000006400FFECFF 139 ECFF8CFE8CFF8CFE8CFF8CFE8CFF8CFE8CFF00DE00FF00D900FF00D400FF00D0 140 00FF00CC00FF00C800FF00C400FF004A00FFD4D4D4FF0000000070A970FF0064 141 00FF006400FF006200FF006000FF006000FF8CFE8CFF00DD00FF005800FF0056 142 00FF005400FF005300FF005000FF709C70FF0000000000000000000000000000 143 0000000000000000000000000000006000FF8CFE8CFF00E000FF005A00FFB2B2 144 B2FF000000000000000000000000000000000000000000000000000000000000 145 0000000000000000000000000000006200FF8CFE8CFF00E500FF005C00FFB2B2 146 B2FF000000000000000000000000000000000000000000000000000000000000 147 0000000000000000000000000000006400FF8CFE8CFF00E800FF005E00FFB2B2 148 B2FF000000000000000000000000000000000000000000000000000000000000 149 0000000000000000000000000000006400FFECFFECFF8CFE8CFF006000FFD4D4 150 D4FF000000000000000000000000000000000000000000000000000000000000 151 000000000000000000000000000070A970FF006400FF006200FF70A670FF0000 152 0000000000000000000000000000000000000000000000000000 153 } 154 TabOrder = 5 155 end 156 object BitBtnRemove: TBitBtn 157 Left = 112 158 Height = 26 159 Top = 314 160 Width = 88 161 Action = ARemove 162 Anchors = [akLeft, akBottom] 163 Glyph.Data = { 164 36040000424D3604000000000000360000002800000010000000100000000100 165 2000000000000004000064000000640000000000000000000000000000000000 166 0000000000000000000000000000000000000000000000000000000000000000 167 0000000000000000000000000000000000000000000000000000000000000000 168 000000000000DCDCDCFFB2B2B2FFDCDCDCFF0000000000000000000000000000 169 000000000000DCDCDCFFB2B2B2FFDCDCDCFF0000000000000000000000000000 170 00007979A8FF000067FF626291FFB2B2B2FFDCDCDCFF00000000000000000000 171 00007979A8FF000050FF626291FFB2B2B2FFDCDCDCFF00000000000000008C8C 172 BBFF00006EFF0035FFFF000068FF626291FFB2B2B2FFDCDCDCFF000000007979 173 A8FF000054FF0015FFFF000050FF626291FFB2B2B2FF00000000000000000000 174 72FF619BFFFF003AFFFF0035FFFF000067FF626291FFB2B2B2FF7979A8FF0000 175 59FF001BFFFF0018FFFF0015FFFF000050FFDCDCDCFF00000000000000008C8C 176 BBFF000075FF619BFFFF003AFFFF0035FFFF000067FF626291FF000061FF0023 177 FFFF001FFFFF001BFFFF000054FF7979A8FF0000000000000000000000000000 178 00008C8CBBFF000075FF619BFFFF003AFFFF0035FFFF000067FF002CFFFF0027 179 FFFF0023FFFF000059FF7979A8FF000000000000000000000000000000000000 180 0000000000008C8CBBFF000075FF619BFFFF003AFFFF0035FFFF0030FFFF002B 181 FFFF000061FF7979A8FF00000000000000000000000000000000000000000000 182 000000000000000000007979A8FF000075FF003EFFFF003AFFFF0035FFFF0000 183 68FF626291FFB2B2B2FFDCDCDCFF000000000000000000000000000000000000 184 0000000000007979A8FF00007CFF0047FFFF0042FFFF003EFFFF003AFFFF0035 185 FFFF000068FF626291FFB2B2B2FFDCDCDCFF0000000000000000000000000000 186 00007979A8FF000082FF004EFFFF004BFFFF0047FFFF000075FF619BFFFF003A 187 FFFF0035FFFF000068FF626291FFB2B2B2FFDCDCDCFF00000000000000008C8C 188 BBFF000086FF0054FFFF0052FFFF004EFFFF00007CFF7979A8FF000075FF619B 189 FFFF003AFFFF0035FFFF000067FF626291FFB2B2B2FF00000000000000000000 190 88FF619BFFFF0057FFFF0054FFFF000082FF7979A8FF000000008C8CBBFF0000 191 75FF619BFFFF003AFFFF0035FFFF000068FFDCDCDCFF00000000000000008C8C 192 BBFF000088FF619BFFFF000086FF7979A8FF0000000000000000000000008C8C 193 BBFF000075FF619BFFFF00006EFF7979A8FF0000000000000000000000000000 194 00008C8CBBFF000088FF8C8CBBFF000000000000000000000000000000000000 195 00008C8CBBFF000075FF8C8CBBFF000000000000000000000000000000000000 196 0000000000000000000000000000000000000000000000000000000000000000 197 0000000000000000000000000000000000000000000000000000 198 } 128 199 TabOrder = 6 129 OnChange = LabeledEditTokenChange130 200 end 131 201 object ActionList1: TActionList 132 202 Images = Core.ImageList1 133 left = 200203 left = 376 134 204 top = 304 135 205 object AAdd: TAction 136 206 Caption = 'Add' 207 ImageIndex = 0 137 208 OnExecute = AAddExecute 138 209 ShortCut = 45 … … 140 211 object ARemove: TAction 141 212 Caption = 'Remove' 213 ImageIndex = 4 142 214 OnExecute = ARemoveExecute 143 215 ShortCut = 46 -
trunk/Forms/UFormAccounts.pas
r20 r21 7 7 uses 8 8 Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, ComCtrls, 9 StdCtrls, ExtCtrls, ActnList, Menus, SpecializedList;9 StdCtrls, ExtCtrls, ActnList, Menus, Buttons, SpecializedList; 10 10 11 11 type … … 17 17 ARemove: TAction; 18 18 ActionList1: TActionList; 19 B uttonAdd: TButton;20 B uttonRemove: TButton;19 BitBtnAdd: TBitBtn; 20 BitBtnRemove: TBitBtn; 21 21 ButtonOk: TButton; 22 22 ButtonCancel: TButton;
Note:
See TracChangeset
for help on using the changeset viewer.
