| Attached Files |  OptionsUI.patch [^] (31,778 bytes) 2011-12-07 20:23 [Show Content] [Hide Content]Index: src/frames/foptionsarchivers.lfm
===================================================================
--- src/frames/foptionsarchivers.lfm (revision 4147)
+++ src/frames/foptionsarchivers.lfm (working copy)
@@ -1,11 +1,11 @@
inherited frmOptionsArchivers: TfrmOptionsArchivers
- Height = 642
- Width = 901
- ClientHeight = 642
- ClientWidth = 901
+ Height = 511
+ Width = 629
+ ClientHeight = 511
+ ClientWidth = 629
object lbxMultiArc: TListBox[0]
Left = 0
- Height = 642
+ Height = 511
Top = 0
Width = 55
Align = alLeft
@@ -15,313 +15,276 @@
end
object splMultiArc: TSplitter[1]
Left = 55
- Height = 642
+ Height = 511
Top = 0
Width = 5
end
object pnlArchiverCommands: TPanel[2]
Left = 60
- Height = 642
+ Height = 511
Top = 0
- Width = 841
+ Width = 569
Align = alClient
BevelOuter = bvNone
- ClientHeight = 642
- ClientWidth = 841
+ ClientHeight = 511
+ ClientWidth = 569
TabOrder = 2
object pcArchiverCommands: TPageControl
AnchorSideLeft.Control = pnlArchiverCommands
AnchorSideTop.Control = pnlArchiverCommands
AnchorSideRight.Control = pnlArchiverCommands
Left = 0
- Height = 592
+ Height = 467
Top = 0
- Width = 841
+ Width = 563
HelpType = htKeyword
HelpKeyword = '/multiarc.html'
- ActivePage = tbArchiverGeneral
+ ActivePage = tbArchiverAdditional
Align = alClient
Anchors = [akTop, akLeft, akRight]
- TabIndex = 0
+ BorderSpacing.Right = 6
+ TabIndex = 1
TabOrder = 0
object tbArchiverGeneral: TTabSheet
Caption = 'General'
- ClientHeight = 558
- ClientWidth = 833
- object lblDescription: TLabel
- AnchorSideRight.Side = asrBottom
- Left = 10
- Height = 22
- Top = 10
- Width = 809
- Anchors = [akTop, akLeft, akRight]
- BorderSpacing.Left = 10
- BorderSpacing.Top = 10
- BorderSpacing.Right = 10
- Caption = 'Description:'
- ParentColor = False
- end
- object edtDescription: TEdit
- AnchorSideLeft.Control = lblDescription
- AnchorSideTop.Control = lblDescription
- AnchorSideTop.Side = asrBottom
- AnchorSideRight.Control = lblDescription
- AnchorSideRight.Side = asrBottom
- Left = 10
- Height = 29
- Top = 32
- Width = 809
- Anchors = [akTop, akLeft, akRight]
+ ClientHeight = 441
+ ClientWidth = 555
+ object pnlGeneral: TPanel
+ Left = 0
+ Height = 408
+ Top = 0
+ Width = 555
+ Align = alTop
+ AutoSize = True
+ BevelOuter = bvNone
+ ClientHeight = 408
+ ClientWidth = 555
TabOrder = 0
+ object lblDescription: TLabel
+ Left = 6
+ Height = 14
+ Top = 6
+ Width = 543
+ Align = alTop
+ BorderSpacing.Left = 6
+ BorderSpacing.Top = 6
+ BorderSpacing.Right = 6
+ Caption = 'Description:'
+ ParentColor = False
+ end
+ object edtDescription: TEdit
+ Left = 6
+ Height = 21
+ Top = 20
+ Width = 543
+ Align = alTop
+ BorderSpacing.Left = 6
+ BorderSpacing.Right = 6
+ TabOrder = 0
+ end
+ object lblArchiver: TLabel
+ Left = 6
+ Height = 14
+ Top = 47
+ Width = 543
+ Align = alTop
+ BorderSpacing.Left = 6
+ BorderSpacing.Top = 6
+ BorderSpacing.Right = 6
+ Caption = 'Archiver:'
+ ParentColor = False
+ end
+ object fneArchiver: TFileNameEdit
+ Left = 6
+ Height = 21
+ Top = 61
+ Width = 543
+ DialogOptions = []
+ FilterIndex = 0
+ HideDirectories = False
+ ButtonWidth = 23
+ NumGlyphs = 0
+ Align = alTop
+ BorderSpacing.Left = 6
+ BorderSpacing.Right = 6
+ MaxLength = 0
+ TabOrder = 1
+ end
+ object lblArchiveExtension: TLabel
+ Left = 6
+ Height = 14
+ Top = 88
+ Width = 543
+ Align = alTop
+ BorderSpacing.Left = 6
+ BorderSpacing.Top = 6
+ BorderSpacing.Right = 6
+ Caption = 'Extension:'
+ ParentColor = False
+ end
+ object edtArchiveExtension: TEdit
+ Left = 6
+ Height = 21
+ Top = 102
+ Width = 543
+ Align = alTop
+ BorderSpacing.Left = 6
+ BorderSpacing.Right = 6
+ TabOrder = 2
+ end
+ object lblArchiveList: TLabel
+ Left = 6
+ Height = 14
+ Top = 129
+ Width = 543
+ Align = alTop
+ BorderSpacing.Left = 6
+ BorderSpacing.Top = 6
+ BorderSpacing.Right = 6
+ Caption = 'List:'
+ ParentColor = False
+ end
+ object edtArchiveList: TEdit
+ Left = 6
+ Height = 21
+ Top = 143
+ Width = 543
+ Align = alTop
+ BorderSpacing.Left = 6
+ BorderSpacing.Right = 6
+ TabOrder = 3
+ end
+ object lblArchiveExtract: TLabel
+ Left = 6
+ Height = 14
+ Top = 332
+ Width = 543
+ Align = alTop
+ BorderSpacing.Left = 6
+ BorderSpacing.Top = 6
+ BorderSpacing.Right = 6
+ Caption = 'Extract:'
+ ParentColor = False
+ end
+ object edtArchiveExtract: TEdit
+ Left = 6
+ Height = 21
+ Top = 346
+ Width = 543
+ Align = alTop
+ BorderSpacing.Left = 6
+ BorderSpacing.Right = 6
+ TabOrder = 4
+ end
+ object lblArchiveAdd: TLabel
+ Left = 6
+ Height = 14
+ Top = 373
+ Width = 543
+ Align = alTop
+ BorderSpacing.Left = 6
+ BorderSpacing.Top = 6
+ BorderSpacing.Right = 6
+ Caption = 'Add:'
+ ParentColor = False
+ end
+ object edtArchiveAdd: TEdit
+ Left = 6
+ Height = 21
+ Top = 387
+ Width = 543
+ Align = alTop
+ BorderSpacing.Left = 6
+ BorderSpacing.Right = 6
+ TabOrder = 5
+ end
+ object lblArchiveListFormat: TLabel
+ Left = 6
+ Height = 14
+ Top = 252
+ Width = 543
+ Align = alTop
+ BorderSpacing.Left = 6
+ BorderSpacing.Top = 6
+ BorderSpacing.Right = 6
+ Caption = 'Listing format:'
+ ParentColor = False
+ end
+ object memArchiveListFormat: TMemo
+ Left = 6
+ Height = 60
+ Top = 266
+ Width = 543
+ Align = alTop
+ BorderSpacing.Left = 6
+ BorderSpacing.Right = 6
+ Lines.Strings = (
+ ''
+ )
+ ScrollBars = ssAutoBoth
+ TabOrder = 6
+ WordWrap = False
+ end
+ object lblArchiveListStart: TLabel
+ Left = 6
+ Height = 14
+ Top = 170
+ Width = 543
+ Align = alTop
+ BorderSpacing.Left = 6
+ BorderSpacing.Top = 6
+ BorderSpacing.Right = 6
+ Caption = 'Listing start (optional):'
+ ParentColor = False
+ end
+ object edtArchiveListStart: TEdit
+ Left = 6
+ Height = 21
+ Top = 184
+ Width = 543
+ Align = alTop
+ BorderSpacing.Left = 6
+ BorderSpacing.Right = 6
+ TabOrder = 7
+ end
+ object lblArchiveListEnd: TLabel
+ Left = 6
+ Height = 14
+ Top = 211
+ Width = 543
+ Align = alTop
+ BorderSpacing.Left = 6
+ BorderSpacing.Top = 6
+ BorderSpacing.Right = 6
+ Caption = 'Listing finish (optional):'
+ ParentColor = False
+ end
+ object edtArchiveListEnd: TEdit
+ Left = 6
+ Height = 21
+ Top = 225
+ Width = 543
+ Align = alTop
+ BorderSpacing.Left = 6
+ BorderSpacing.Right = 6
+ TabOrder = 8
+ end
end
- object lblArchiver: TLabel
- AnchorSideTop.Control = edtDescription
- AnchorSideTop.Side = asrBottom
- AnchorSideRight.Side = asrBottom
- Left = 10
- Height = 22
- Top = 63
- Width = 809
- Anchors = [akTop, akLeft, akRight]
- BorderSpacing.Left = 10
- BorderSpacing.Top = 2
- BorderSpacing.Right = 10
- Caption = 'Archiver:'
- ParentColor = False
- end
- object lblArchiveExtension: TLabel
- AnchorSideTop.Control = fneArchiver
- AnchorSideTop.Side = asrBottom
- AnchorSideRight.Side = asrBottom
- Left = 10
- Height = 22
- Top = 116
- Width = 809
- Anchors = [akTop, akLeft, akRight]
- BorderSpacing.Left = 10
- BorderSpacing.Top = 2
- BorderSpacing.Right = 10
- Caption = 'Extension:'
- ParentColor = False
- end
- object edtArchiveExtension: TEdit
- AnchorSideLeft.Control = lblDescription
- AnchorSideTop.Control = lblArchiveExtension
- AnchorSideTop.Side = asrBottom
- AnchorSideRight.Control = lblDescription
- AnchorSideRight.Side = asrBottom
- Left = 10
- Height = 29
- Top = 138
- Width = 809
- Anchors = [akTop, akLeft, akRight]
- TabOrder = 1
- end
- object lblArchiveList: TLabel
- AnchorSideTop.Control = edtArchiveExtension
- AnchorSideTop.Side = asrBottom
- AnchorSideRight.Side = asrBottom
- Left = 10
- Height = 22
- Top = 169
- Width = 809
- Anchors = [akTop, akLeft, akRight]
- BorderSpacing.Left = 10
- BorderSpacing.Top = 2
- BorderSpacing.Right = 10
- Caption = 'List:'
- ParentColor = False
- end
- object edtArchiveList: TEdit
- AnchorSideLeft.Control = lblDescription
- AnchorSideTop.Control = lblArchiveList
- AnchorSideTop.Side = asrBottom
- AnchorSideRight.Control = lblDescription
- AnchorSideRight.Side = asrBottom
- Left = 10
- Height = 29
- Top = 191
- Width = 809
- Anchors = [akTop, akLeft, akRight]
- TabOrder = 2
- end
- object lblArchiveExtract: TLabel
- AnchorSideTop.Control = memArchiveListFormat
- AnchorSideTop.Side = asrBottom
- AnchorSideRight.Side = asrBottom
- Left = 10
- Height = 22
- Top = 410
- Width = 809
- Anchors = [akTop, akLeft, akRight]
- BorderSpacing.Left = 10
- BorderSpacing.Top = 2
- BorderSpacing.Right = 10
- Caption = 'Extract:'
- ParentColor = False
- end
- object edtArchiveExtract: TEdit
- AnchorSideLeft.Control = lblDescription
- AnchorSideTop.Control = lblArchiveExtract
- AnchorSideTop.Side = asrBottom
- AnchorSideRight.Control = lblDescription
- AnchorSideRight.Side = asrBottom
- Left = 10
- Height = 29
- Top = 432
- Width = 809
- Anchors = [akTop, akLeft, akRight]
- TabOrder = 3
- end
- object lblArchiveAdd: TLabel
- AnchorSideTop.Control = edtArchiveExtract
- AnchorSideTop.Side = asrBottom
- AnchorSideRight.Side = asrBottom
- Left = 10
- Height = 22
- Top = 463
- Width = 809
- Anchors = [akTop, akLeft, akRight]
- BorderSpacing.Left = 10
- BorderSpacing.Top = 2
- BorderSpacing.Right = 10
- Caption = 'Add:'
- ParentColor = False
- end
- object edtArchiveAdd: TEdit
- AnchorSideLeft.Control = lblDescription
- AnchorSideTop.Control = lblArchiveAdd
- AnchorSideTop.Side = asrBottom
- AnchorSideRight.Control = lblDescription
- AnchorSideRight.Side = asrBottom
- Left = 10
- Height = 29
- Top = 485
- Width = 809
- Anchors = [akTop, akLeft, akRight]
- TabOrder = 4
- end
- object lblArchiveListFormat: TLabel
- AnchorSideTop.Control = edtArchiveListEnd
- AnchorSideTop.Side = asrBottom
- AnchorSideRight.Side = asrBottom
- Left = 10
- Height = 22
- Top = 326
- Width = 809
- Anchors = [akTop, akLeft, akRight]
- BorderSpacing.Left = 10
- BorderSpacing.Top = 2
- BorderSpacing.Right = 10
- Caption = 'Listing format:'
- ParentColor = False
- end
- object memArchiveListFormat: TMemo
- AnchorSideTop.Control = lblArchiveListFormat
- AnchorSideTop.Side = asrBottom
- AnchorSideRight.Side = asrBottom
- Left = 10
- Height = 60
- Top = 348
- Width = 809
- Anchors = [akTop, akLeft, akRight]
- BorderSpacing.Left = 10
- BorderSpacing.Right = 10
- Lines.Strings = (
- ''
- )
- ScrollBars = ssAutoBoth
- TabOrder = 5
- WordWrap = False
- end
- object fneArchiver: TFileNameEdit
- AnchorSideLeft.Control = lblDescription
- AnchorSideTop.Control = lblArchiver
- AnchorSideTop.Side = asrBottom
- AnchorSideRight.Side = asrBottom
- Left = 10
- Height = 29
- Top = 85
- Width = 787
- DialogOptions = []
- FilterIndex = 0
- HideDirectories = False
- ButtonWidth = 23
- NumGlyphs = 0
- Anchors = [akTop, akLeft, akRight]
- MaxLength = 0
- TabOrder = 6
- end
- object lblArchiveListStart: TLabel
- AnchorSideLeft.Control = lblDescription
- AnchorSideTop.Control = edtArchiveList
- AnchorSideTop.Side = asrBottom
- AnchorSideRight.Control = lblDescription
- AnchorSideRight.Side = asrBottom
- Left = 10
- Height = 22
- Top = 222
- Width = 809
- Anchors = [akTop, akLeft, akRight]
- BorderSpacing.Top = 2
- Caption = 'Listing start (optional):'
- ParentColor = False
- end
- object edtArchiveListStart: TEdit
- AnchorSideLeft.Control = lblDescription
- AnchorSideTop.Control = lblArchiveListStart
- AnchorSideTop.Side = asrBottom
- AnchorSideRight.Control = lblDescription
- AnchorSideRight.Side = asrBottom
- Left = 10
- Height = 29
- Top = 244
- Width = 809
- Anchors = [akTop, akLeft, akRight]
- TabOrder = 7
- end
- object lblArchiveListEnd: TLabel
- AnchorSideLeft.Control = lblDescription
- AnchorSideTop.Control = edtArchiveListStart
- AnchorSideTop.Side = asrBottom
- AnchorSideRight.Control = lblDescription
- AnchorSideRight.Side = asrBottom
- Left = 10
- Height = 22
- Top = 273
- Width = 809
- Anchors = [akTop, akLeft, akRight]
- Caption = 'Listing finish (optional):'
- ParentColor = False
- end
- object edtArchiveListEnd: TEdit
- AnchorSideLeft.Control = lblDescription
- AnchorSideTop.Control = lblArchiveListEnd
- AnchorSideTop.Side = asrBottom
- AnchorSideRight.Control = lblDescription
- AnchorSideRight.Side = asrBottom
- Left = 10
- Height = 29
- Top = 295
- Width = 809
- Anchors = [akTop, akLeft, akRight]
- TabOrder = 8
- end
end
object tbArchiverAdditional: TTabSheet
HelpType = htKeyword
HelpKeyword = '/multiarc.html'
Caption = 'Additional'
- ChildSizing.LeftRightSpacing = 10
- ChildSizing.TopBottomSpacing = 10
- ClientHeight = 387
- ClientWidth = 633
+ ChildSizing.LeftRightSpacing = 6
+ ChildSizing.TopBottomSpacing = 6
+ ClientHeight = 441
+ ClientWidth = 555
OnShow = tbArchiverAdditionalShow
object stgArchiverCommands: TStringGrid
- Left = 10
- Height = 314
- Top = 10
- Width = 613
+ Left = 6
+ Height = 380
+ Top = 6
+ Width = 543
Align = alClient
AutoFillColumns = True
ColCount = 2
@@ -332,43 +295,41 @@
OnPrepareCanvas = stgArchiverCommandsPrepareCanvas
ColWidths = (
64
- 549
+ 475
)
end
object gbArchiverOptions: TGroupBox
- Left = 10
- Height = 51
- Top = 326
- Width = 613
+ Left = 6
+ Height = 47
+ Top = 388
+ Width = 543
Align = alBottom
Anchors = [akLeft, akRight]
AutoSize = True
BorderSpacing.Top = 2
Caption = 'Options'
- ChildSizing.LeftRightSpacing = 10
- ChildSizing.TopBottomSpacing = 8
+ ChildSizing.LeftRightSpacing = 6
+ ChildSizing.TopBottomSpacing = 6
+ ChildSizing.HorizontalSpacing = 6
+ ChildSizing.VerticalSpacing = 6
+ ChildSizing.Layout = cclLeftToRightThenTopToBottom
+ ChildSizing.ControlsPerLine = 2
ClientHeight = 29
- ClientWidth = 609
+ ClientWidth = 539
TabOrder = 1
object chkMultiArcOutput: TCheckBox
- AnchorSideTop.Control = gbArchiverOptions
- Left = 10
+ Left = 6
Height = 17
- Top = 8
+ Top = 6
Width = 118
Caption = 'Show console output'
TabOrder = 0
end
object chkMultiArcDebug: TCheckBox
- AnchorSideTop.Control = gbArchiverOptions
- AnchorSideTop.Side = asrCenter
- AnchorSideRight.Control = gbArchiverOptions
- AnchorSideRight.Side = asrBottom
- Left = 521
+ Left = 130
Height = 17
- Top = 8
+ Top = 6
Width = 78
- Anchors = [akTop, akRight]
Caption = 'Debug mode'
TabOrder = 1
end
@@ -377,99 +338,101 @@
end
object pnlMultiArcButtons: TPanel
Left = 0
- Height = 50
- Top = 592
- Width = 841
+ Height = 32
+ Top = 473
+ Width = 563
Align = alBottom
+ BorderSpacing.Top = 6
+ BorderSpacing.Right = 6
+ BorderSpacing.Bottom = 6
BevelOuter = bvNone
- ClientHeight = 50
- ClientWidth = 841
+ ChildSizing.VerticalSpacing = 6
+ ChildSizing.ControlsPerLine = 10
+ ClientHeight = 32
+ ClientWidth = 563
TabOrder = 1
- object btnMultiArcApply: TBitBtn
- AnchorSideTop.Control = pnlMultiArcButtons
- AnchorSideTop.Side = asrCenter
- AnchorSideRight.Control = pnlMultiArcButtons
- AnchorSideRight.Side = asrBottom
- Left = 731
- Height = 30
- Top = 10
- Width = 100
- Anchors = [akTop, akRight]
- BorderSpacing.Right = 10
- Caption = 'Apply'
- OnClick = btnMultiArcApplyClick
- TabOrder = 0
- end
- object btnMultiArcRename: TBitBtn
- AnchorSideTop.Control = btnMultiArcApply
- AnchorSideTop.Side = asrCenter
- AnchorSideRight.Control = btnMultiArcApply
- Left = 625
- Height = 30
- Top = 10
- Width = 100
- Anchors = [akTop, akRight]
- BorderSpacing.Right = 6
- Caption = 'Rename'
- OnClick = btnMultiArcRenameClick
- TabOrder = 1
- end
- object btnMultiArcDelete: TBitBtn
- AnchorSideTop.Control = btnMultiArcApply
- AnchorSideTop.Side = asrCenter
- AnchorSideRight.Control = btnMultiArcRename
- Left = 519
- Height = 30
- Top = 10
- Width = 100
- Anchors = [akTop, akRight]
- BorderSpacing.Right = 6
- Caption = 'Delete'
- OnClick = btnMultiArcDeleteClick
- TabOrder = 2
- end
- object btnMultiArcAdd: TBitBtn
- AnchorSideTop.Control = btnMultiArcApply
- AnchorSideTop.Side = asrCenter
- AnchorSideRight.Control = btnMultiArcDelete
- Left = 413
- Height = 30
- Top = 10
- Width = 100
- Anchors = [akTop, akRight]
- BorderSpacing.Right = 6
- Caption = 'Add'
- OnClick = btnMultiArcAddClick
- TabOrder = 3
- end
object chkMultiArcEnabled: TCheckBox
- AnchorSideLeft.Control = pnlMultiArcButtons
- AnchorSideTop.Control = pnlMultiArcButtons
- AnchorSideTop.Side = asrCenter
- AnchorSideRight.Control = btnAutoConfig
- Left = 10
- Height = 25
- Top = 13
- Width = 260
- Anchors = [akTop, akLeft, akRight]
- BorderSpacing.Left = 10
+ Left = 6
+ Height = 32
+ Top = 0
+ Width = 56
+ Align = alLeft
+ BorderSpacing.Left = 6
BorderSpacing.Right = 6
Caption = 'Enabled'
OnChange = chkMultiArcEnabledChange
- TabOrder = 4
+ TabOrder = 0
end
- object btnAutoConfig: TBitBtn
- AnchorSideTop.Control = btnMultiArcApply
- AnchorSideRight.Control = btnMultiArcAdd
- Left = 276
- Height = 30
- Top = 10
- Width = 131
- Anchors = [akTop, akRight]
- BorderSpacing.Right = 6
- Caption = 'Auto Configure'
- OnClick = btnAutoConfigClick
- TabOrder = 5
+ object pnlButtons: TPanel
+ Left = 214
+ Height = 32
+ Top = 0
+ Width = 349
+ Align = alRight
+ AutoSize = True
+ BevelOuter = bvNone
+ ClientHeight = 32
+ ClientWidth = 349
+ TabOrder = 1
+ object btnMultiArcRename: TBitBtn
+ Left = 114
+ Height = 32
+ Top = 0
+ Width = 65
+ Align = alRight
+ AutoSize = True
+ BorderSpacing.Right = 6
+ Caption = 'Rename'
+ OnClick = btnMultiArcRenameClick
+ TabOrder = 0
+ end
+ object btnMultiArcApply: TBitBtn
+ Left = 185
+ Height = 32
+ Top = 0
+ Width = 53
+ Align = alRight
+ AutoSize = True
+ BorderSpacing.Right = 12
+ Caption = 'Apply'
+ OnClick = btnMultiArcApplyClick
+ TabOrder = 1
+ end
+ object btnAutoConfig: TBitBtn
+ Left = 250
+ Height = 32
+ Top = 0
+ Width = 99
+ Align = alRight
+ AutoSize = True
+ Caption = 'Auto Configure'
+ OnClick = btnAutoConfigClick
+ TabOrder = 2
+ end
+ object btnMultiArcAdd: TBitBtn
+ Left = 0
+ Height = 32
+ Top = 0
+ Width = 45
+ Align = alRight
+ AutoSize = True
+ BorderSpacing.Right = 6
+ Caption = 'Add'
+ OnClick = btnMultiArcAddClick
+ TabOrder = 3
+ end
+ object btnMultiArcDelete: TBitBtn
+ Left = 51
+ Height = 32
+ Top = 0
+ Width = 57
+ Align = alRight
+ AutoSize = True
+ BorderSpacing.Right = 6
+ Caption = 'Delete'
+ OnClick = btnMultiArcDeleteClick
+ TabOrder = 4
+ end
end
end
end
Index: src/frames/foptionsarchivers.pas
===================================================================
--- src/frames/foptionsarchivers.pas (revision 4147)
+++ src/frames/foptionsarchivers.pas (working copy)
@@ -63,6 +63,8 @@
lblDescription: TLabel;
lbxMultiArc: TListBox;
memArchiveListFormat: TMemo;
+ pnlGeneral: TPanel;
+ pnlButtons: TPanel;
pcArchiverCommands: TPageControl;
pnlArchiverCommands: TPanel;
pnlMultiArcButtons: TPanel;
Index: src/frames/foptionscustomcolumns.lfm
===================================================================
--- src/frames/foptionscustomcolumns.lfm (revision 4147)
+++ src/frames/foptionscustomcolumns.lfm (working copy)
@@ -1,15 +1,15 @@
inherited frmOptionsCustomColumns: TfrmOptionsCustomColumns
- Height = 372
- Width = 730
- ClientHeight = 372
- ClientWidth = 730
+ Height = 380
+ Width = 519
+ ClientHeight = 380
+ ClientWidth = 519
object lblConfigColumns: TLabel[0]
AnchorSideTop.Control = cbbFileSystem
AnchorSideTop.Side = asrCenter
Left = 7
- Height = 22
+ Height = 14
Top = 3
- Width = 229
+ Width = 164
Caption = 'Configure columns for file system:'
ParentColor = False
end
@@ -18,14 +18,14 @@
AnchorSideLeft.Side = asrBottom
AnchorSideRight.Control = Owner
AnchorSideRight.Side = asrBottom
- Left = 240
- Height = 29
+ Left = 175
+ Height = 21
Top = 0
- Width = 484
+ Width = 338
Anchors = [akTop, akLeft, akRight]
BorderSpacing.Left = 4
BorderSpacing.Right = 6
- ItemHeight = 21
+ ItemHeight = 13
ItemIndex = 0
Items.Strings = (
'General'
@@ -40,11 +40,10 @@
AnchorSideTop.Side = asrBottom
AnchorSideRight.Control = Owner
AnchorSideRight.Side = asrBottom
- AnchorSideBottom.Control = pnlButtons
Left = 6
- Height = 279
- Top = 35
- Width = 718
+ Height = 311
+ Top = 27
+ Width = 507
Anchors = [akTop, akLeft, akRight, akBottom]
BorderSpacing.Left = 6
BorderSpacing.Top = 6
@@ -54,68 +53,79 @@
OnDblClick = btnEditColumnsSetClick
TabOrder = 1
end
- object pnlButtons: TPanel[3]
- AnchorSideRight.Control = Owner
- AnchorSideRight.Side = asrBottom
- AnchorSideBottom.Control = Owner
- AnchorSideBottom.Side = asrBottom
- Left = 7
- Height = 46
- Top = 320
- Width = 717
- Anchors = [akLeft, akRight, akBottom]
+ object pnlBottom: TPanel[3]
+ Left = 6
+ Height = 32
+ Top = 342
+ Width = 507
+ Align = alBottom
+ BorderSpacing.Left = 6
+ BorderSpacing.Top = 6
BorderSpacing.Right = 6
BorderSpacing.Bottom = 6
- ClientHeight = 46
- ClientWidth = 717
+ BevelOuter = bvNone
+ ClientHeight = 32
+ ClientWidth = 507
TabOrder = 2
- object btnNewColumnsSet: TButton
- AnchorSideLeft.Control = pnlButtons
- Left = 7
+ object pnlButtons: TPanel
+ Left = 284
Height = 32
- Top = 7
- Width = 118
- BorderSpacing.Left = 6
- Caption = '&New'
- OnClick = btnNewColumnsSetClick
+ Top = 0
+ Width = 223
+ Align = alRight
+ Anchors = []
+ AutoSize = True
+ BevelOuter = bvNone
+ ClientHeight = 32
+ ClientWidth = 223
TabOrder = 0
+ object btnNewColumnsSet: TButton
+ Left = 6
+ Height = 32
+ Top = 0
+ Width = 47
+ Align = alRight
+ AutoSize = True
+ Caption = '&New'
+ OnClick = btnNewColumnsSetClick
+ TabOrder = 0
+ end
+ object btnEditColumnsSet: TButton
+ Left = 59
+ Height = 32
+ Top = 0
+ Width = 44
+ Align = alRight
+ AutoSize = True
+ BorderSpacing.Left = 6
+ Caption = 'Edit'
+ OnClick = btnEditColumnsSetClick
+ TabOrder = 1
+ end
+ object btnDelColumnsSet: TButton
+ Left = 109
+ Height = 32
+ Top = 0
+ Width = 57
+ Align = alRight
+ AutoSize = True
+ BorderSpacing.Left = 6
+ Caption = 'Delete'
+ OnClick = btnDelColumnsSetClick
+ TabOrder = 2
+ end
+ object btnCopyColumnsSet: TButton
+ Left = 172
+ Height = 32
+ Top = 0
+ Width = 51
+ Align = alRight
+ AutoSize = True
+ BorderSpacing.Left = 6
+ Caption = 'Copy'
+ OnClick = btnCopyColumnsSetClick
+ TabOrder = 3
+ end
end
- object btnEditColumnsSet: TButton
- AnchorSideLeft.Control = btnNewColumnsSet
- AnchorSideLeft.Side = asrBottom
- Left = 131
- Height = 32
- Top = 7
- Width = 116
- BorderSpacing.Left = 6
- Caption = 'Edit'
- OnClick = btnEditColumnsSetClick
- TabOrder = 1
- end
- object btnDelColumnsSet: TButton
- AnchorSideRight.Control = btnCopyColumnsSet
- Left = 481
- Height = 32
- Top = 7
- Width = 112
- Anchors = [akTop, akRight]
- BorderSpacing.Right = 6
- Caption = 'Delete'
- OnClick = btnDelColumnsSetClick
- TabOrder = 2
- end
- object btnCopyColumnsSet: TButton
- AnchorSideRight.Control = pnlButtons
- AnchorSideRight.Side = asrBottom
- Left = 599
- Height = 32
- Top = 7
- Width = 111
- Anchors = [akTop, akRight]
- BorderSpacing.Right = 6
- Caption = 'Copy'
- OnClick = btnCopyColumnsSetClick
- TabOrder = 3
- end
end
end
Index: src/frames/foptionscustomcolumns.pas
===================================================================
--- src/frames/foptionscustomcolumns.pas (revision 4147)
+++ src/frames/foptionscustomcolumns.pas (working copy)
@@ -42,6 +42,7 @@
cbbFileSystem: TComboBox;
lblConfigColumns: TLabel;
lstColumnsSets: TListBox;
+ pnlBottom: TPanel;
pnlButtons: TPanel;
procedure btnCopyColumnsSetClick(Sender: TObject);
procedure btnDelColumnsSetClick(Sender: TObject);
|
Relationships 
Relationships 