From c782c3bc7e36768e43568e7e121a5afb985308e4 Mon Sep 17 00:00:00 2001
From: wp_xxyyzz <wp_xxyyzz@8e941d3f-bd1b-0410-a28a-d453659cc2b4>
Date: Tue, 6 Sep 2016 18:26:07 +0000
Subject: [PATCH] tvplanit: Make sure that the first time start of full demo
 uses reasonable default values.

git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@5130 8e941d3f-bd1b-0410-a28a-d453659cc2b4
---
 components/tvplanit/examples/fulldemo/demomain.lfm | 2 +-
 components/tvplanit/examples/fulldemo/demomain.pas | 6 +++---
 2 files changed, 4 insertions(+), 4 deletions(-)

diff --git a/components/tvplanit/examples/fulldemo/demomain.lfm b/components/tvplanit/examples/fulldemo/demomain.lfm
index 9e98a0a3c..0eed47d32 100644
--- a/components/tvplanit/examples/fulldemo/demomain.lfm
+++ b/components/tvplanit/examples/fulldemo/demomain.lfm
@@ -57,7 +57,7 @@ object MainForm: TMainForm
       Height = 528
       Top = 48
       Width = 834
-      PageIndex = 3
+      PageIndex = 4
       Align = alClient
       TabOrder = 1
       TabStop = True
diff --git a/components/tvplanit/examples/fulldemo/demomain.pas b/components/tvplanit/examples/fulldemo/demomain.pas
index 54ca216e5..0ffbcb555 100644
--- a/components/tvplanit/examples/fulldemo/demomain.pas
+++ b/components/tvplanit/examples/fulldemo/demomain.pas
@@ -615,8 +615,8 @@ begin
     end;
 
     CbLanguages.Items.Assign(po);
-    SetLanguage(lang);
-//    SetLanguage(GetDefaultLang);
+//    SetLanguage(lang);
+    SetLanguage(GetDefaultLang);
 
   finally
     po.Free;
@@ -779,7 +779,7 @@ begin
     if WindowState = wsNormal then begin
       ini.WriteInteger('Form', 'Width', Width);
       ini.WriteInteger('Form', 'Height', Height);
-      ini.WriteInteger('Left', 'Left', Left);
+      ini.WriteInteger('Form', 'Left', Left);
       ini.WriteInteger('Form', 'Top', Top);
     end;
     if FActiveView = 0 then begin