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

tvplanit: Less hints/warnings in fulldemo

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@8172 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
wp_xxyyzz
2021-12-06 23:32:21 +00:00
parent c41e5b4a1f
commit ed6fcb4083
2 changed files with 3 additions and 3 deletions
Download Patch File Download Diff File Expand all files Collapse all files

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

@ -57,7 +57,7 @@ object MainForm: TMainForm
Height = 528 Height = 528
Top = 48 Top = 48
Width = 834 Width = 834
PageIndex = 3 PageIndex = 0
Align = alClient Align = alClient
TabOrder = 1 TabOrder = 1
TabStop = True TabStop = True

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

@ -564,7 +564,7 @@ end;
procedure TMainForm.lbOtherResourcesClickCheck(Sender: TObject); procedure TMainForm.lbOtherResourcesClickCheck(Sender: TObject);
var var
i, n: Integer; i, n: Integer;
resArray: TVpResourceArray; resArray: TVpResourceArray = nil;
begin begin
// Collect resources checked for overlaying in an array // Collect resources checked for overlaying in an array
SetLength(resArray, lbOtherResources.Items.Count); SetLength(resArray, lbOtherResources.Items.Count);
@ -766,7 +766,7 @@ var
w: Integer; w: Integer;
begin begin
// Settings page // Settings page
w := MaxValue([ w := {%H-}MaxValue([
GetLabelWidth(LblLanguage), GetLabelWidth(LblLanguage),
GetLabelWidth(LblTimeFormat), GetLabelWidth(LblTimeFormat),
GetLabelWidth(LblFirstDayOfWeek), GetLabelWidth(LblFirstDayOfWeek),