mirrors/doublecmd
2
0
Fork 0
mirror of https://github.com/doublecmd/doublecmd.git synced 2026-06-28 10:02:14 +00:00
Code Issues Projects Releases Packages Wiki Activity

UPD: Better controls alignment

Browse source
This commit is contained in:
Alexander Koblov 2019-01-26 20:48:20 +00:00
commit 3423f11cd0
2 changed files with 15 additions and 4 deletions
Download patch file Download diff file Expand all files Collapse all files

10
src/fsplitter.lfm
View file

@ -1,7 +1,7 @@
inherited frmSplitter: TfrmSplitter
Left = 920
Left = 890
Height = 247
Top = 374
Top = 363
Width = 500
HorzScrollBar.Page = 464
HorzScrollBar.Range = 369
@ -18,6 +18,7 @@ inherited frmSplitter: TfrmSplitter
Constraints.MinWidth = 500
OnCloseQuery = FormCloseQuery
OnCreate = FormCreate
OnShow = FormShow
Position = poOwnerFormCenter
SessionProperties = 'cmbxSize.Text;rbtnByte.Checked;rbtnGigaB.Checked;rbtnKiloB.Checked;rbtnMegaB.Checked;teNumberParts.Text;Width;cbRequireACRC32VerificationFile.Checked'
inherited pnlContent: TPanel
@ -49,10 +50,11 @@ inherited frmSplitter: TfrmSplitter
object cmbxSize: TComboBoxAutoWidth
AnchorSideLeft.Control = grbxSize
AnchorSideTop.Control = grbxSize
AnchorSideRight.Side = asrBottom
Left = 6
Height = 23
Top = 6
Width = 338
Width = 272
DropDownCount = 16
ItemHeight = 15
Items.Strings = (
@ -71,7 +73,7 @@ inherited frmSplitter: TfrmSplitter
Text = '1457664B - 3.5"'
end
object rbtnByte: TRadioButton
AnchorSideLeft.Control = cmbxSize
AnchorSideLeft.Control = grbxSize
AnchorSideTop.Control = cmbxSize
AnchorSideTop.Side = asrBottom
Left = 6

9
src/fsplitter.pas
View file

@ -50,6 +50,7 @@ type
pmPathHelper: TPopupMenu;
procedure FormCloseQuery(Sender: TObject; var CanClose: boolean);
procedure FormCreate(Sender: TObject);
procedure FormShow(Sender: TObject);
procedure SetNumberOfPart;
procedure SetSizeOfPart;
procedure cmbxSizeChange(Sender: TObject);
@ -240,6 +241,14 @@ begin
ParseLineToList(rsSplitPreDefinedSizes, cmbxSize.Items);
end;
procedure TfrmSplitter.FormShow(Sender: TObject);
begin
if (rbtnGigaB.Left + rbtnGigaB.Width > cmbxSize.Left + cmbxSize.Width) then
begin
cmbxSize.AnchorParallel(akRight, 0, rbtnGigaB);
end;
end;
{ TfrmSplitter.rbtnByteChange }
procedure TfrmSplitter.rbtnByteChange(Sender: TObject);
const