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

tvplanit: Once more..., now without AnchorSides (do not seem to work correctly).

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@5086 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
wp_xxyyzz
2016-08-13 14:36:59 +00:00
parent cdd3e42006
commit 2b62d25c84
2 changed files with 16 additions and 27 deletions
Download Patch File Download Diff File Expand all files Collapse all files

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

@ -1,7 +1,7 @@
object frmEditElement: TfrmEditElement object frmEditElement: TfrmEditElement
Left = 1069 Left = 486
Height = 449 Height = 449
Top = 231 Top = 220
Width = 489 Width = 489
HorzScrollBar.Page = 378 HorzScrollBar.Page = 378
VertScrollBar.Page = 444 VertScrollBar.Page = 444
@ -443,27 +443,22 @@ object frmEditElement: TfrmEditElement
TabOrder = 0 TabOrder = 0
end end
object btnOk: TButton object btnOk: TButton
AnchorSideRight.Control = btnCancel Left = 316
Left = 308
Height = 25 Height = 25
Top = 0 Top = 0
Width = 75 Width = 75
Anchors = [akTop, akRight]
BorderSpacing.Left = 8
BorderSpacing.Right = 8
Caption = 'OK' Caption = 'OK'
Default = True Default = True
OnClick = btnOkClick OnClick = btnOkClick
TabOrder = 1 TabOrder = 1
end end
object btnCancel: TButton object btnCancel: TButton
AnchorSideRight.Control = ButtonPanel
AnchorSideRight.Side = asrBottom AnchorSideRight.Side = asrBottom
Left = 391 Left = 391
Height = 25 Height = 25
Top = 0 Top = 0
Width = 74 Width = 74
Anchors = [akTop, akRight] Anchors = [akTop]
Cancel = True Cancel = True
Caption = 'Cancel' Caption = 'Cancel'
OnClick = btnCancelClick OnClick = btnCancelClick

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

@ -362,24 +362,6 @@ begin
btnOK.Width := w; btnOK.Width := w;
btnCancel.Width := w; btnCancel.Width := w;
btnShape.Width := GetButtonWidth(btnShape); 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}
// Form size // Form size
rgItemType.Align := alNone; rgItemType.Align := alNone;
@ -389,6 +371,18 @@ begin
ClientWidth := RightOf(udHeight) + gbVisual.BorderSpacing.Left + gbVisual.BorderSpacing.Right; ClientWidth := RightOf(udHeight) + gbVisual.BorderSpacing.Left + gbVisual.BorderSpacing.Right;
AutoSize := true; AutoSize := true;
{$IFDEF MSWINDOWS}
btnCancel.Left := ButtonPanel.ClientWidth - btnCancel.Width;
btnOK.Left := btnCancel.Left - btnOK.Width - DELTA;
btnOK.TabOrder := 1;
btnCancel.TabOrder := 2;
{$ELSE}
btnOK.Left := ButtonCancel.ClientWidth - btnOK.Width;
btnCancel.Left := btnOK.Left - btnCancel.Width - DELTA;
btnCancel.TabOrder := 1;
btnOK.TabOrder := 2;
{$ENDIF}
end; end;
procedure TfrmEditElement.SetData(AnElement : TVpPrintFormatElementItem); procedure TfrmEditElement.SetData(AnElement : TVpPrintFormatElementItem);