mirrors/doublecmd
2
0
Fork 0
mirror of https://github.com/doublecmd/doublecmd.git synced 2026-06-21 09:58:13 +00:00
Code Issues Projects Releases Packages Wiki Activity

UPD: Controls alignment

Browse source
This commit is contained in:
Alexander Koblov 2021-10-31 11:02:44 +03:00
commit c4fcd808e3
2 changed files with 11 additions and 8 deletions
Download patch file Download diff file Expand all files Collapse all files

15
src/fmultirename.lfm
View file

@ -548,14 +548,13 @@ object frmMultiRename: TfrmMultiRename
end
end
object cbLog: TCheckBox
AnchorSideLeft.Control = pnlOptionsRight
AnchorSideLeft.Control = fneRenameLogFileFilename
AnchorSideTop.Control = cbLogAppend
AnchorSideTop.Side = asrCenter
Left = 10
Left = 5
Height = 23
Top = 190
Width = 87
BorderSpacing.Left = 10
BorderSpacing.Top = 2
Caption = '&Log result'
OnClick = cbLogClick
@ -589,15 +588,15 @@ object frmMultiRename: TfrmMultiRename
ParentFont = False
end
object fneRenameLogFileFilename: TFileNameEdit
AnchorSideLeft.Control = pnlOptionsRight
AnchorSideLeft.Control = gbFindReplace
AnchorSideTop.Control = cbLog
AnchorSideTop.Side = asrBottom
AnchorSideRight.Control = btnRelativeRenameLogFile
AnchorSideBottom.Side = asrBottom
Left = 10
Left = 5
Height = 35
Top = 215
Width = 461
Width = 466
DialogTitle = 'Select target log filename'
DialogOptions = []
FilterIndex = 0
@ -605,7 +604,7 @@ object frmMultiRename: TfrmMultiRename
ButtonWidth = 23
NumGlyphs = 1
Anchors = [akTop, akLeft, akRight]
BorderSpacing.Left = 10
BorderSpacing.Left = 5
MaxLength = 0
ParentFont = False
TabOrder = 5
@ -616,7 +615,7 @@ object frmMultiRename: TfrmMultiRename
AnchorSideLeft.Side = asrBottom
AnchorSideTop.Control = gbFindReplace
AnchorSideTop.Side = asrBottom
Left = 107
Left = 102
Height = 23
Top = 190
Width = 75

4
src/fmultirename.pas
View file

@ -660,11 +660,15 @@ begin
end;
procedure TfrmMultiRename.FormShow(Sender: TObject);
var
APoint: TPoint;
begin
{$IF DEFINED(LCLQT5)}
gbPresets.Constraints.MaxHeight:= cbPresets.Height + (gbPresets.Height - gbPresets.ClientHeight) +
gbPresets.ChildSizing.TopBottomSpacing * 2;
{$ENDIF}
APoint:= TPoint.Create(cbUseSubs.Left, 0);
fneRenameLogFileFilename.BorderSpacing.Left:= gbFindReplace.ClientToParent(APoint, pnlOptionsRight).X;
end;
{ TfrmMultiRename.StringGridKeyDown }