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

tvplanit: Make sure that the first time start of full demo uses reasonable default values.

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@5130 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
wp_xxyyzz
2016-09-06 18:26:07 +00:00
parent 2f73e71c1d
commit c782c3bc7e
2 changed files with 4 additions and 4 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 = 4
Align = alClient Align = alClient
TabOrder = 1 TabOrder = 1
TabStop = True TabStop = True

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

@ -615,8 +615,8 @@ begin
end; end;
CbLanguages.Items.Assign(po); CbLanguages.Items.Assign(po);
SetLanguage(lang); // SetLanguage(lang);
// SetLanguage(GetDefaultLang); SetLanguage(GetDefaultLang);
finally finally
po.Free; po.Free;
@ -779,7 +779,7 @@ begin
if WindowState = wsNormal then begin if WindowState = wsNormal then begin
ini.WriteInteger('Form', 'Width', Width); ini.WriteInteger('Form', 'Width', Width);
ini.WriteInteger('Form', 'Height', Height); ini.WriteInteger('Form', 'Height', Height);
ini.WriteInteger('Left', 'Left', Left); ini.WriteInteger('Form', 'Left', Left);
ini.WriteInteger('Form', 'Top', Top); ini.WriteInteger('Form', 'Top', Top);
end; end;
if FActiveView = 0 then begin if FActiveView = 0 then begin