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

tvplanit: Fix another scaling issue with fulldemo

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@5883 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
wp_xxyyzz
2017-05-20 16:03:55 +00:00
parent d8a0f703d2
commit 70be970745
2 changed files with 15 additions and 4 deletions
Download Patch File Download Diff File Expand all files Collapse all files

16
components/tvplanit/examples/fulldemo/demomain.lfm
View File

@ -16,6 +16,7 @@ object MainForm: TMainForm
Top = 0 Top = 0
Width = 834 Width = 834
Align = alClient Align = alClient
AutoSize = True
BevelOuter = bvNone BevelOuter = bvNone
ClientHeight = 576 ClientHeight = 576
ClientWidth = 834 ClientWidth = 834
@ -440,19 +441,27 @@ object MainForm: TMainForm
end end
object Resources: TPage object Resources: TPage
object BtnDeleteRes: TButton object BtnDeleteRes: TButton
Left = 176 AnchorSideLeft.Control = BtnEditRes
AnchorSideLeft.Side = asrBottom
Left = 128
Height = 25 Height = 25
Top = 64 Top = 64
Width = 75 Width = 59
AutoSize = True
BorderSpacing.Left = 8
Caption = 'Delete' Caption = 'Delete'
OnClick = BtnDeleteResClick OnClick = BtnDeleteResClick
TabOrder = 0 TabOrder = 0
end end
object BtnEditRes: TButton object BtnEditRes: TButton
Left = 96 AnchorSideLeft.Control = BtnNewRes
AnchorSideLeft.Side = asrBottom
Left = 74
Height = 25 Height = 25
Top = 64 Top = 64
Width = 46 Width = 46
AutoSize = True
BorderSpacing.Left = 8
Caption = 'Edit' Caption = 'Edit'
OnClick = BtnEditResClick OnClick = BtnEditResClick
TabOrder = 1 TabOrder = 1
@ -462,6 +471,7 @@ object MainForm: TMainForm
Height = 25 Height = 25
Top = 64 Top = 64
Width = 50 Width = 50
AutoSize = True
Caption = 'New' Caption = 'New'
OnClick = BtnNewResClick OnClick = BtnNewResClick
TabOrder = 2 TabOrder = 2

3
components/tvplanit/examples/fulldemo/demomain.pas
View File

@ -738,7 +738,7 @@ begin
GetLabelWidth(LblDrawingStyle) GetLabelWidth(LblDrawingStyle)
]); ]);
CbLanguages.Left := 24 + w + 8; CbLanguages.Left := 24 + w + 8;
(*
// Resources page // Resources page
w := MaxValue([BtnNewRes.Width, BtnEditRes.Width, BtnDeleteRes.Width]); w := MaxValue([BtnNewRes.Width, BtnEditRes.Width, BtnDeleteRes.Width]);
BtnNewRes.AutoSize := false; BtnNewRes.AutoSize := false;
@ -747,6 +747,7 @@ begin
BtnNewRes.Width := w; BtnNewRes.Width := w;
BtnEditRes.Width := w; BtnEditRes.Width := w;
BtnDeleteRes.Width := w; BtnDeleteRes.Width := w;
*)
end; end;
procedure TMainForm.RbAllTasksChange(Sender: TObject); procedure TMainForm.RbAllTasksChange(Sender: TObject);