pascal/lazarus-ccr
1
0
Fork 0
Code Issues Releases Activity

tvplanit: Fix Linux button issue in Element editor, another attempt.

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@5085 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
wp_xxyyzz
2016-08-13 14:01:04 +00:00
parent 52d878d48f
commit cdd3e42006
2 changed files with 9 additions and 3 deletions
Download Patch File Download Diff File Expand all files Collapse all files

6
components/tvplanit/source/vpedelem.lfm
View File

@ -423,7 +423,6 @@ object frmEditElement: TfrmEditElement
Top = 403
Width = 465
Align = alTop
AutoSize = True
BorderSpacing.Left = 12
BorderSpacing.Top = 8
BorderSpacing.Right = 12
@ -445,12 +444,13 @@ object frmEditElement: TfrmEditElement
end
object btnOk: TButton
AnchorSideRight.Control = btnCancel
Left = 309
Left = 308
Height = 25
Top = 0
Width = 75
Anchors = [akTop, akRight]
BorderSpacing.Right = 7
BorderSpacing.Left = 8
BorderSpacing.Right = 8
Caption = 'OK'
Default = True
OnClick = btnOkClick

6
components/tvplanit/source/vpedelem.pas
View File

@ -329,6 +329,7 @@ begin
btnCancel.Height := hBtn;
btnShape.Height := hBtn;
btnCaptionFont.Height := hBtn;
ButtonPanel.Height := btnOK.Top + btnOK.Height + btnOK.Top;
gbDayOffset.Height := rgDayOffsetUnit.Height;
rgRotation.Height := rgMeasurement.Height;
@ -362,15 +363,20 @@ begin
btnCancel.Width := w;
btnShape.Width := GetButtonWidth(btnShape);
{$IFDEF MSWINDOWS}
btnOK.BorderSpacing.Right := 8;
btnOK.AnchorSideRight.Control := btnCancel;
btnOK.TabOrder := 1;
btnCancel.BorderSpacing.Left := 0;
btnCancel.AnchorSideRight.Control := ButtonPanel;
btnCancel.AnchorSideRight.Side := asrBottom;
btnCancel.TabOrder := 2;
{$ELSE}
btnOK.BorderSpacing.Right := 0;
btnOK.BorderSpacing.Left := 8;
btnOK.AnchorSideRight.Control := ButtonPanel;
btnOK.AnchorSideRight.Side := asrBottom;
btnCancel.AnchorSideRight.Control := btnOK;
btnCancel.BorderSpacing.Right := 0;
btnCancel.TabOrder := 1;
btnOK.TabOrder := 2;
{$ENDIF}