mirror of
https://github.com/doublecmd/doublecmd.git
synced 2026-06-28 10:02:14 +00:00
UPD: Some interface alignment
This commit is contained in:
Alexander Koblov
parent
9431634fa0
commit
e6fbe3c1ac
3 changed files with 69 additions and 65 deletions
|
|
@ -246,7 +246,7 @@ end;
|
|||
|
||||
procedure TfrmEditSearch.CreateDialog(AOwner: TForm);
|
||||
begin
|
||||
SetInitialBounds(367, 203, 372, 170);
|
||||
SetInitialBounds(367, 203, 400, 170);
|
||||
|
||||
BorderStyle := bsDialog;
|
||||
Position := poMainFormCenter;
|
||||
|
|
@ -267,7 +267,7 @@ begin
|
|||
|
||||
gbSearchOptions :=TGroupBox.Create(AOwner);
|
||||
gbSearchOptions.Parent:=AOwner;
|
||||
gbSearchOptions.SetBounds(8, 32, 194, 127);
|
||||
gbSearchOptions.SetBounds(8, 36, 198, 127);
|
||||
|
||||
|
||||
cbSearchCaseSensitive := TCheckBox.Create(gbSearchOptions);
|
||||
|
|
@ -294,7 +294,7 @@ begin
|
|||
|
||||
rgSearchDirection := TRadioGroup.Create(AOwner);
|
||||
rgSearchDirection.Parent:=AOwner;
|
||||
rgSearchDirection.SetBounds(170, 32, 154, 72);
|
||||
rgSearchDirection.SetBounds(170, 36, 154, 72);
|
||||
rgSearchDirection.AnchorToNeighbour(akLeft, 6, gbSearchOptions);
|
||||
|
||||
btnOK := TBitBtn.Create(AOwner);
|
||||
|
|
@ -302,6 +302,7 @@ begin
|
|||
btnOK.Left:=210;
|
||||
btnOK.Top:=136;
|
||||
btnOK.Height:= 32;
|
||||
btnOK.Width:= 90;
|
||||
btnOK.Default:= True;
|
||||
btnOK.Kind:= bkOK;
|
||||
btnOK.OnClick:=@btnOKClick;
|
||||
|
|
@ -309,8 +310,9 @@ begin
|
|||
btnCancel:= TBitBtn.Create(AOwner);
|
||||
btnCancel.Parent:=AOwner;
|
||||
btnCancel.Top:=136;
|
||||
btnCancel.Left:=289;
|
||||
btnCancel.Left:=306;
|
||||
btnCancel.Height := 32;
|
||||
btnCancel.Width:= 90;
|
||||
btnCancel.Cancel:=True;
|
||||
btnCancel.ModalResult:=mrCancel;
|
||||
btnCancel.Kind:= bkCancel;
|
||||
|
|
|
|||
115
fmultirename.lfm
115
fmultirename.lfm
|
|
@ -1,16 +1,16 @@
|
|||
object frmMultiRename: TfrmMultiRename
|
||||
Left = 259
|
||||
Left = 277
|
||||
Height = 400
|
||||
Top = 157
|
||||
Width = 700
|
||||
Top = 253
|
||||
Width = 740
|
||||
ActiveControl = edName
|
||||
Caption = 'MultiRename'
|
||||
ClientHeight = 400
|
||||
ClientWidth = 700
|
||||
ClientWidth = 740
|
||||
OnCreate = FormCreate
|
||||
ParentFont = False
|
||||
Position = poMainFormCenter
|
||||
LCLVersion = '0.9.27'
|
||||
LCLVersion = '0.9.26'
|
||||
object gbMaska: TGroupBox
|
||||
AnchorSideLeft.Control = Owner
|
||||
AnchorSideRight.Side = asrBottom
|
||||
|
|
@ -21,7 +21,7 @@ object frmMultiRename: TfrmMultiRename
|
|||
Anchors = [akLeft, akBottom]
|
||||
BorderSpacing.Left = 6
|
||||
Caption = 'Mask'
|
||||
ClientHeight = 101
|
||||
ClientHeight = 99
|
||||
ClientWidth = 172
|
||||
ParentCtl3D = False
|
||||
TabOrder = 0
|
||||
|
|
@ -113,25 +113,25 @@ object frmMultiRename: TfrmMultiRename
|
|||
object gbFindReplace: TGroupBox
|
||||
AnchorSideLeft.Control = gbMaska
|
||||
AnchorSideLeft.Side = asrBottom
|
||||
AnchorSideBottom.Control = gbLog
|
||||
AnchorSideBottom.Control = btnRestore
|
||||
AnchorSideBottom.Side = asrBottom
|
||||
Left = 188
|
||||
Height = 151
|
||||
Height = 156
|
||||
Top = 240
|
||||
Width = 156
|
||||
Width = 196
|
||||
Anchors = [akLeft, akBottom]
|
||||
BorderSpacing.Left = 6
|
||||
Caption = 'Find && Replace'
|
||||
ClientHeight = 133
|
||||
ClientWidth = 152
|
||||
ClientHeight = 136
|
||||
ClientWidth = 192
|
||||
ParentCtl3D = False
|
||||
TabOrder = 1
|
||||
object lbFind: TLabel
|
||||
AnchorSideLeft.Control = gbFindReplace
|
||||
AnchorSideTop.Control = gbFindReplace
|
||||
Left = 6
|
||||
Height = 14
|
||||
Width = 33
|
||||
Height = 19
|
||||
Width = 42
|
||||
BorderSpacing.Left = 6
|
||||
Caption = 'Find...'
|
||||
ParentColor = False
|
||||
|
|
@ -141,9 +141,9 @@ object frmMultiRename: TfrmMultiRename
|
|||
AnchorSideTop.Control = edFind
|
||||
AnchorSideTop.Side = asrBottom
|
||||
Left = 6
|
||||
Height = 14
|
||||
Top = 46
|
||||
Width = 51
|
||||
Height = 19
|
||||
Top = 47
|
||||
Width = 67
|
||||
BorderSpacing.Left = 6
|
||||
BorderSpacing.Top = 6
|
||||
Caption = 'Replace...'
|
||||
|
|
@ -157,11 +157,11 @@ object frmMultiRename: TfrmMultiRename
|
|||
AnchorSideRight.Side = asrBottom
|
||||
Left = 4
|
||||
Height = 20
|
||||
Top = 20
|
||||
Width = 144
|
||||
Top = 21
|
||||
Width = 184
|
||||
Anchors = [akTop, akLeft, akRight]
|
||||
BorderSpacing.Left = 4
|
||||
BorderSpacing.Top = 6
|
||||
BorderSpacing.Top = 2
|
||||
BorderSpacing.Right = 4
|
||||
OnChange = cmbxFontChange
|
||||
TabOrder = 0
|
||||
|
|
@ -174,11 +174,11 @@ object frmMultiRename: TfrmMultiRename
|
|||
AnchorSideRight.Side = asrBottom
|
||||
Left = 4
|
||||
Height = 20
|
||||
Top = 66
|
||||
Width = 144
|
||||
Top = 68
|
||||
Width = 184
|
||||
Anchors = [akTop, akLeft, akRight]
|
||||
BorderSpacing.Left = 4
|
||||
BorderSpacing.Top = 6
|
||||
BorderSpacing.Top = 2
|
||||
BorderSpacing.Right = 4
|
||||
OnChange = cmbxFontChange
|
||||
TabOrder = 1
|
||||
|
|
@ -188,11 +188,11 @@ object frmMultiRename: TfrmMultiRename
|
|||
AnchorSideTop.Control = edReplace
|
||||
AnchorSideTop.Side = asrBottom
|
||||
Left = 4
|
||||
Height = 19
|
||||
Height = 22
|
||||
Top = 90
|
||||
Width = 123
|
||||
Width = 159
|
||||
BorderSpacing.Left = 4
|
||||
BorderSpacing.Top = 4
|
||||
BorderSpacing.Top = 2
|
||||
Caption = '&Regular expressions'
|
||||
OnChange = cbRegExpChange
|
||||
TabOrder = 2
|
||||
|
|
@ -202,27 +202,26 @@ object frmMultiRename: TfrmMultiRename
|
|||
AnchorSideTop.Control = cbRegExp
|
||||
AnchorSideTop.Side = asrBottom
|
||||
Left = 4
|
||||
Height = 19
|
||||
Top = 111
|
||||
Width = 103
|
||||
Height = 22
|
||||
Top = 112
|
||||
Width = 128
|
||||
BorderSpacing.Left = 4
|
||||
BorderSpacing.Top = 2
|
||||
Caption = 'Use substitution'
|
||||
OnChange = cmbxFontChange
|
||||
Enabled = False
|
||||
OnChange = cmbxFontChange
|
||||
TabOrder = 3
|
||||
end
|
||||
end
|
||||
object gbFontStyle: TGroupBox
|
||||
AnchorSideBottom.Control = gbLog
|
||||
Left = 536
|
||||
Left = 576
|
||||
Height = 63
|
||||
Top = 240
|
||||
Width = 157
|
||||
Anchors = [akRight, akBottom]
|
||||
BorderSpacing.Bottom = 6
|
||||
Caption = 'File Name Style'
|
||||
ClientHeight = 45
|
||||
ClientHeight = 43
|
||||
ClientWidth = 153
|
||||
ParentCtl3D = False
|
||||
TabOrder = 2
|
||||
|
|
@ -232,14 +231,13 @@ object frmMultiRename: TfrmMultiRename
|
|||
AnchorSideRight.Control = gbFontStyle
|
||||
AnchorSideRight.Side = asrBottom
|
||||
Left = 4
|
||||
Height = 21
|
||||
Height = 30
|
||||
Top = 6
|
||||
Width = 145
|
||||
Anchors = [akTop, akLeft, akRight]
|
||||
BorderSpacing.Left = 4
|
||||
BorderSpacing.Top = 6
|
||||
BorderSpacing.Right = 4
|
||||
ItemHeight = 13
|
||||
ItemIndex = 0
|
||||
Items.Strings = (
|
||||
'no change'
|
||||
|
|
@ -247,6 +245,7 @@ object frmMultiRename: TfrmMultiRename
|
|||
'lowercase'
|
||||
'first char big'
|
||||
)
|
||||
MaxLength = -1
|
||||
OnChange = cmbxFontChange
|
||||
ParentCtl3D = False
|
||||
Style = csDropDownList
|
||||
|
|
@ -256,14 +255,14 @@ object frmMultiRename: TfrmMultiRename
|
|||
object gbCounter: TGroupBox
|
||||
AnchorSideLeft.Side = asrBottom
|
||||
AnchorSideRight.Control = gbFontStyle
|
||||
Left = 360
|
||||
Left = 400
|
||||
Height = 119
|
||||
Top = 240
|
||||
Width = 170
|
||||
Anchors = [akRight, akBottom]
|
||||
BorderSpacing.Right = 6
|
||||
Caption = 'Counter'
|
||||
ClientHeight = 101
|
||||
ClientHeight = 99
|
||||
ClientWidth = 166
|
||||
ParentCtl3D = False
|
||||
TabOrder = 3
|
||||
|
|
@ -272,9 +271,9 @@ object frmMultiRename: TfrmMultiRename
|
|||
AnchorSideTop.Control = edPoc
|
||||
AnchorSideTop.Side = asrCenter
|
||||
Left = 6
|
||||
Height = 14
|
||||
Top = 9
|
||||
Width = 65
|
||||
Height = 19
|
||||
Top = 7
|
||||
Width = 89
|
||||
BorderSpacing.Left = 6
|
||||
Caption = 'Start Number'
|
||||
ParentColor = False
|
||||
|
|
@ -284,9 +283,9 @@ object frmMultiRename: TfrmMultiRename
|
|||
AnchorSideTop.Control = edInterval
|
||||
AnchorSideTop.Side = asrCenter
|
||||
Left = 6
|
||||
Height = 14
|
||||
Top = 62
|
||||
Width = 39
|
||||
Height = 19
|
||||
Top = 69
|
||||
Width = 50
|
||||
BorderSpacing.Left = 6
|
||||
BorderSpacing.Right = 6
|
||||
Caption = 'Interval'
|
||||
|
|
@ -297,9 +296,9 @@ object frmMultiRename: TfrmMultiRename
|
|||
AnchorSideTop.Control = cmbxWidth
|
||||
AnchorSideTop.Side = asrCenter
|
||||
Left = 6
|
||||
Height = 14
|
||||
Top = 35
|
||||
Width = 29
|
||||
Height = 19
|
||||
Top = 38
|
||||
Width = 38
|
||||
BorderSpacing.Left = 6
|
||||
Caption = 'Width'
|
||||
ParentColor = False
|
||||
|
|
@ -327,7 +326,7 @@ object frmMultiRename: TfrmMultiRename
|
|||
AnchorSideRight.Side = asrBottom
|
||||
Left = 110
|
||||
Height = 20
|
||||
Top = 59
|
||||
Top = 68
|
||||
Width = 50
|
||||
Anchors = [akTop, akRight]
|
||||
BorderSpacing.Top = 6
|
||||
|
|
@ -343,13 +342,12 @@ object frmMultiRename: TfrmMultiRename
|
|||
AnchorSideRight.Control = gbCounter
|
||||
AnchorSideRight.Side = asrBottom
|
||||
Left = 110
|
||||
Height = 21
|
||||
Height = 30
|
||||
Top = 32
|
||||
Width = 50
|
||||
Anchors = [akTop, akRight]
|
||||
BorderSpacing.Top = 6
|
||||
BorderSpacing.Right = 6
|
||||
ItemHeight = 13
|
||||
ItemIndex = 0
|
||||
Items.Strings = (
|
||||
'01'
|
||||
|
|
@ -363,6 +361,7 @@ object frmMultiRename: TfrmMultiRename
|
|||
'09'
|
||||
'10'
|
||||
)
|
||||
MaxLength = -1
|
||||
OnChange = cmbxFontChange
|
||||
ParentCtl3D = False
|
||||
Style = csDropDownList
|
||||
|
|
@ -372,7 +371,7 @@ object frmMultiRename: TfrmMultiRename
|
|||
end
|
||||
object btnOK: TButton
|
||||
AnchorSideRight.Control = btnCancel
|
||||
Left = 392
|
||||
Left = 432
|
||||
Height = 32
|
||||
Top = 366
|
||||
Width = 66
|
||||
|
|
@ -385,7 +384,7 @@ object frmMultiRename: TfrmMultiRename
|
|||
end
|
||||
object btnCancel: TButton
|
||||
AnchorSideRight.Control = gbLog
|
||||
Left = 464
|
||||
Left = 504
|
||||
Height = 32
|
||||
Top = 366
|
||||
Width = 66
|
||||
|
|
@ -397,13 +396,13 @@ object frmMultiRename: TfrmMultiRename
|
|||
TabOrder = 5
|
||||
end
|
||||
object gbLog: TGroupBox
|
||||
Left = 536
|
||||
Left = 576
|
||||
Height = 82
|
||||
Top = 309
|
||||
Width = 157
|
||||
Anchors = [akRight, akBottom]
|
||||
Caption = 'Log Result'
|
||||
ClientHeight = 64
|
||||
ClientHeight = 62
|
||||
ClientWidth = 153
|
||||
ParentCtl3D = False
|
||||
TabOrder = 6
|
||||
|
|
@ -427,9 +426,9 @@ object frmMultiRename: TfrmMultiRename
|
|||
AnchorSideTop.Control = edFile
|
||||
AnchorSideTop.Side = asrBottom
|
||||
Left = 4
|
||||
Height = 19
|
||||
Height = 22
|
||||
Top = 32
|
||||
Width = 43
|
||||
Width = 49
|
||||
AllowGrayed = True
|
||||
BorderSpacing.Left = 4
|
||||
BorderSpacing.Top = 6
|
||||
|
|
@ -453,23 +452,23 @@ object frmMultiRename: TfrmMultiRename
|
|||
Left = 2
|
||||
Height = 230
|
||||
Top = 2
|
||||
Width = 695
|
||||
Width = 735
|
||||
Anchors = [akTop, akLeft, akRight, akBottom]
|
||||
Columns = <
|
||||
item
|
||||
AutoSize = True
|
||||
Caption = 'Old File Name'
|
||||
Width = 105
|
||||
Width = 101
|
||||
end
|
||||
item
|
||||
AutoSize = True
|
||||
Caption = 'New File Name'
|
||||
Width = 112
|
||||
Width = 108
|
||||
end
|
||||
item
|
||||
AutoSize = True
|
||||
Caption = 'File Path'
|
||||
Width = 460
|
||||
Width = 508
|
||||
end>
|
||||
TabOrder = 8
|
||||
ViewStyle = vsReport
|
||||
|
|
|
|||
|
|
@ -2382,10 +2382,13 @@ object frmOptions: TfrmOptions
|
|||
ParentColor = False
|
||||
end
|
||||
object cbbFileSystem: TComboBox
|
||||
Left = 297
|
||||
Height = 21
|
||||
Width = 508
|
||||
AnchorSideLeft.Control = lblConfigColumns
|
||||
AnchorSideLeft.Side = asrBottom
|
||||
Left = 241
|
||||
Height = 30
|
||||
Width = 373
|
||||
Anchors = [akTop, akLeft, akRight]
|
||||
BorderSpacing.Left = 4
|
||||
ItemIndex = 0
|
||||
Items.Strings = (
|
||||
'General'
|
||||
|
|
|
|||
Loading…
Add table
Add a link
Reference in a new issue