From a02fa3589a6fefa57d592ecea4876c39a85ae8e7 Mon Sep 17 00:00:00 2001
From: vincents <vincents@lazarus-ide.org>
Date: Fri, 29 Oct 2010 13:32:57 +0000
Subject: [PATCH] testall example: * change form style form bsDialog to
 bsSizable, so that the main menu is shown (issue #16166) * fixed line ending
 in captions: #10#13 -> #13#10

git-svn-id: trunk@27947 -
---
 examples/testall.lpi    | 33 ++++++++++++++++-----------------
 examples/testallform.pp |  6 +++---
 examples/testtools.inc  |  8 ++++----
 3 files changed, 23 insertions(+), 24 deletions(-)

diff --git a/examples/testall.lpi b/examples/testall.lpi
index deff7c2f59..5ae80e0d0b 100644
--- a/examples/testall.lpi
+++ b/examples/testall.lpi
@@ -1,17 +1,18 @@
 <?xml version="1.0"?>
 <CONFIG>
   <ProjectOptions>
-    <PathDelim Value="/"/>
-    <Version Value="6"/>
+    <Version Value="9"/>
     <General>
       <Flags>
         <SaveOnlyProjectUnits Value="True"/>
+        <LRSInOutputDirectory Value="False"/>
       </Flags>
+      <SessionStorage Value="InIDEConfig"/>
       <MainUnit Value="0"/>
-      <IconPath Value="./"/>
-      <TargetFileExt Value=""/>
-      <ActiveEditorIndexAtStart Value="1"/>
     </General>
+    <BuildModes Count="1">
+      <Item1 Name="default" Default="True"/>
+    </BuildModes>
     <PublishOptions>
       <Version Value="2"/>
       <IgnoreBinaries Value="False"/>
@@ -34,29 +35,24 @@
         <Filename Value="testall.pp"/>
         <IsPartOfProject Value="True"/>
         <UnitName Value="TestAll"/>
-        <CursorPos X="32" Y="25"/>
-        <TopLine Value="1"/>
-        <EditorIndex Value="0"/>
-        <UsageCount Value="20"/>
-        <Loaded Value="True"/>
       </Unit0>
       <Unit1>
         <Filename Value="testallform.pp"/>
         <IsPartOfProject Value="True"/>
         <UnitName Value="TestAllForm"/>
-        <CursorPos X="15" Y="44"/>
-        <TopLine Value="19"/>
-        <EditorIndex Value="1"/>
-        <UsageCount Value="20"/>
-        <Loaded Value="True"/>
       </Unit1>
     </Units>
   </ProjectOptions>
   <CompilerOptions>
-    <Version Value="8"/>
+    <Version Value="9"/>
     <SearchPaths>
-      <SrcPath Value="$(LazarusDir)/lcl/;$(LazarusDir)/lcl/interfaces/$(LCLWidgetType)/"/>
+      <SrcPath Value="$(LazarusDir)/lcl;$(LazarusDir)/lcl/interfaces/$(LCLWidgetType)"/>
     </SearchPaths>
+    <Parsing>
+      <SyntaxOptions>
+        <UseAnsiStrings Value="False"/>
+      </SyntaxOptions>
+    </Parsing>
     <Linking>
       <Options>
         <Win32>
@@ -65,6 +61,9 @@
       </Options>
     </Linking>
     <Other>
+      <CompilerMessages>
+        <UseMsgFile Value="True"/>
+      </CompilerMessages>
       <CompilerPath Value="$(CompPath)"/>
     </Other>
   </CompilerOptions>
diff --git a/examples/testallform.pp b/examples/testallform.pp
index 23e539d86b..a71b79e9aa 100644
--- a/examples/testallform.pp
+++ b/examples/testallform.pp
@@ -369,7 +369,7 @@ begin
    AutoSize       := False;
  //BiDiMode       := Form1.BiDiMode+[bdLefToRight];
  //BorderIcons    := Form1.BorderIcons+[biSystemMenu];
-   BorderStyle    := bsDialog;
+   BorderStyle    := bsSizeable;
    BorderWidth    := 0;
    Caption        := 'Test All Components V 0.2';
  //ClientHeight   := 333;
@@ -1906,10 +1906,10 @@ Memo1 := TMemo.Create(Self);
   //ImeMode	   := imDontCare;
   //ImeName
     Left 	   := 10;
-    Lines.Text     := #10#13+'                                     WELCOME'+#10#13+
+    Lines.Text     := #13#10+'                                     WELCOME'+#13#10+
                       'You will find the component you want to test in the MainMenu'+
                       ' "Components". 60 components are mentioned, but all do not exist yet.'+
-                      ' I hope this application will be usefull...'+#10#13+'Chris';
+                      ' I hope this application will be usefull...'+#13#10+'Chris';
   //MaxLength	   := 0;
     Name	   := 'Memo1';
   //OEMConvert	   := False;
diff --git a/examples/testtools.inc b/examples/testtools.inc
index 67de8f9a45..08b2e61a22 100644
--- a/examples/testtools.inc
+++ b/examples/testtools.inc
@@ -26,9 +26,9 @@
 Const
 
 Info : Array[0..5] of PChar = ('        Do not exist yet...       ',
-                               ' This component is completed !  '+#10#13+' Minor errors could be at presence, '+#10#13+'report them to the Lazarus team.',
-                               ' Almost completed, some procedures '+#10#13+' are missing in consideration to '+#10#13+' Delphi5 compatibility and some minor '+#10#13+' errors are at presence',
-                               ' Basic code completed, finalization '+#10#13+' and cleanup is necessary. '+#10#13+' Errors are at presence.  ',
+                               ' This component is completed !  '+#13#10+' Minor errors could be at presence, '+#13#10+'report them to the Lazarus team.',
+                               ' Almost completed, some procedures '+#13#10+' are missing in consideration to '+#13#10+' Delphi5 compatibility and some minor '+#13#10+' errors are at presence',
+                               ' Basic code completed, finalization '+#13#10+' and cleanup is necessary. '+#13#10+' Errors are at presence.  ',
                                ' A few procedures are completed, many errors are at presence. ',
                                ' Could crash/freeze your system! It will be created when you push this button. Try it on your own risk!');
 FileN : Array[0..8] of String =('tbitbtn','tlistbox','btn_newform','btn_newunit',
@@ -1633,7 +1633,7 @@ lblAbout := TMemo.Create(Self);
     Top := 30;
     Caption := 'This program is free software; you can redistribute it and/or modify it'+
                ' under the terms of the GNU General Public License as published '+
-               'by the Free Software Foundation; either version 2 of the License, or'+#10#13+
+               'by the Free Software Foundation; either version 2 of the License, or'+#13#10+
                '(at your option) any later version.';
     ReadOnly := True;
     Visible := True;