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

FIX: Buttons autosize

Browse source
This commit is contained in:
Alexander Koblov 2023-10-25 19:21:49 +03:00
commit 25ec4cc253
2 changed files with 51 additions and 34 deletions
Download patch file Download diff file Expand all files Collapse all files

80
src/fdescredit.lfm
View file

@ -61,7 +61,7 @@ object frmDescrEdit: TfrmDescrEdit
AnchorSideTop.Side = asrBottom
AnchorSideRight.Control = Owner
AnchorSideRight.Side = asrBottom
AnchorSideBottom.Control = btnCancel
AnchorSideBottom.Control = KASButtonPanel
Left = 12
Height = 184
Top = 56
@ -74,45 +74,61 @@ object frmDescrEdit: TfrmDescrEdit
OnKeyDown = memDescrKeyDown
TabOrder = 0
end
object btnOK: TBitBtn
AnchorSideTop.Control = btnCancel
AnchorSideTop.Side = asrCenter
AnchorSideRight.Control = btnCancel
Left = 202
Height = 30
Top = 252
Width = 90
Anchors = [akTop, akRight]
BorderSpacing.Right = 6
Caption = '&OK'
Default = True
Kind = bkOK
ModalResult = 1
TabOrder = 1
end
object btnCancel: TBitBtn
AnchorSideTop.Side = asrBottom
object KASButtonPanel: TKASButtonPanel
AnchorSideRight.Control = memDescr
AnchorSideRight.Side = asrBottom
AnchorSideBottom.Control = Owner
AnchorSideBottom.Side = asrBottom
Left = 298
Height = 30
Top = 252
Width = 90
Left = 226
Height = 41
Top = 273
Width = 207
Anchors = [akRight, akBottom]
AutoSize = True
BorderSpacing.Bottom = 18
Cancel = True
Caption = '&Cancel'
Kind = bkCancel
ModalResult = 2
TabOrder = 2
BevelOuter = bvNone
ClientHeight = 41
ClientWidth = 207
TabOrder = 1
object btnOK: TBitBtn
AnchorSideTop.Control = btnCancel
AnchorSideTop.Side = asrCenter
AnchorSideRight.Control = btnCancel
Left = 0
Height = 30
Top = 0
Width = 90
Anchors = [akTop, akRight]
BorderSpacing.Right = 6
Caption = '&OK'
Default = True
Kind = bkOK
ModalResult = 1
TabOrder = 0
end
object btnCancel: TBitBtn
AnchorSideTop.Side = asrBottom
AnchorSideRight.Control = KASButtonPanel
AnchorSideRight.Side = asrBottom
AnchorSideBottom.Control = KASButtonPanel
AnchorSideBottom.Side = asrBottom
Left = 107
Height = 30
Top = 0
Width = 90
Anchors = [akRight, akBottom]
Cancel = True
Caption = '&Cancel'
Kind = bkCancel
ModalResult = 2
TabOrder = 1
end
end
object cbEncoding: TStaticText
AnchorSideLeft.Control = lblEncoding
AnchorSideLeft.Side = asrBottom
AnchorSideRight.Side = asrBottom
AnchorSideBottom.Control = btnCancel
AnchorSideBottom.Control = KASButtonPanel
AnchorSideBottom.Side = asrCenter
Left = 69
Height = 1
@ -121,11 +137,11 @@ object frmDescrEdit: TfrmDescrEdit
Anchors = [akLeft, akBottom]
AutoSize = True
BorderSpacing.Left = 4
TabOrder = 3
TabOrder = 2
end
object ActionList: TActionList
left = 312
top = 8
Left = 348
Top = 9
object actSaveDescription: TAction
Caption = 'Save Description'
OnExecute = actExecute

5
src/fdescredit.pas
View file

@ -3,7 +3,7 @@
-------------------------------------------------------------------------
Dialog for editing file comments.
Copyright (C) 2008-2019 Alexander Koblov (alexx2000@mail.ru)
Copyright (C) 2008-2023 Alexander Koblov (alexx2000@mail.ru)
This program is free software; you can redistribute it and/or modify
it under the terms of the GNU General Public License as published by
@ -27,7 +27,7 @@ interface
uses
Classes, SysUtils, Forms, Controls, StdCtrls, Buttons, ActnList, uDescr,
uFormCommands, uFileView;
uFormCommands, KASButtonPanel, uFileView;
type
@ -39,6 +39,7 @@ type
btnOK: TBitBtn;
btnCancel: TBitBtn;
cbEncoding: TStaticText;
KASButtonPanel: TKASButtonPanel;
lblFileName: TLabel;
lblEncoding: TLabel;
lblEditCommentFor: TLabel;