paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-27 23:01:13 +02:00
Code Issues Packages Projects Releases Wiki Activity

testall example:

Browse Source 
* 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 -
This commit is contained in:
vincents 2010-10-29 13:32:57 +00:00
parent 0f778a42f9
commit a02fa3589a
3 changed files with 23 additions and 24 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

33
examples/testall.lpi
View File

@ -1,17 +1,18 @@
<?xml version="1.0"?> <?xml version="1.0"?>
<CONFIG> <CONFIG>
<ProjectOptions> <ProjectOptions>
<PathDelim Value="/"/> <Version Value="9"/>
<Version Value="6"/>
<General> <General>
<Flags> <Flags>
<SaveOnlyProjectUnits Value="True"/> <SaveOnlyProjectUnits Value="True"/>
<LRSInOutputDirectory Value="False"/>
</Flags> </Flags>
<SessionStorage Value="InIDEConfig"/>
<MainUnit Value="0"/> <MainUnit Value="0"/>
<IconPath Value="./"/>
<TargetFileExt Value=""/>
<ActiveEditorIndexAtStart Value="1"/>
</General> </General>
<BuildModes Count="1">
<Item1 Name="default" Default="True"/>
</BuildModes>
<PublishOptions> <PublishOptions>
<Version Value="2"/> <Version Value="2"/>
<IgnoreBinaries Value="False"/> <IgnoreBinaries Value="False"/>
@ -34,29 +35,24 @@
<Filename Value="testall.pp"/> <Filename Value="testall.pp"/>
<IsPartOfProject Value="True"/> <IsPartOfProject Value="True"/>
<UnitName Value="TestAll"/> <UnitName Value="TestAll"/>
<CursorPos X="32" Y="25"/>
<TopLine Value="1"/>
<EditorIndex Value="0"/>
<UsageCount Value="20"/>
<Loaded Value="True"/>
</Unit0> </Unit0>
<Unit1> <Unit1>
<Filename Value="testallform.pp"/> <Filename Value="testallform.pp"/>
<IsPartOfProject Value="True"/> <IsPartOfProject Value="True"/>
<UnitName Value="TestAllForm"/> <UnitName Value="TestAllForm"/>
<CursorPos X="15" Y="44"/>
<TopLine Value="19"/>
<EditorIndex Value="1"/>
<UsageCount Value="20"/>
<Loaded Value="True"/>
</Unit1> </Unit1>
</Units> </Units>
</ProjectOptions> </ProjectOptions>
<CompilerOptions> <CompilerOptions>
<Version Value="8"/> <Version Value="9"/>
<SearchPaths> <SearchPaths>
<SrcPath Value="$(LazarusDir)/lcl/;$(LazarusDir)/lcl/interfaces/$(LCLWidgetType)/"/> <SrcPath Value="$(LazarusDir)/lcl;$(LazarusDir)/lcl/interfaces/$(LCLWidgetType)"/>
</SearchPaths> </SearchPaths>
<Parsing>
<SyntaxOptions>
<UseAnsiStrings Value="False"/>
</SyntaxOptions>
</Parsing>
<Linking> <Linking>
<Options> <Options>
<Win32> <Win32>
@ -65,6 +61,9 @@
</Options> </Options>
</Linking> </Linking>
<Other> <Other>
<CompilerMessages>
<UseMsgFile Value="True"/>
</CompilerMessages>
<CompilerPath Value="$(CompPath)"/> <CompilerPath Value="$(CompPath)"/>
</Other> </Other>
</CompilerOptions> </CompilerOptions>

6
examples/testallform.pp
View File

@ -369,7 +369,7 @@ begin
AutoSize := False; AutoSize := False;
//BiDiMode := Form1.BiDiMode+[bdLefToRight]; //BiDiMode := Form1.BiDiMode+[bdLefToRight];
//BorderIcons := Form1.BorderIcons+[biSystemMenu]; //BorderIcons := Form1.BorderIcons+[biSystemMenu];
BorderStyle := bsDialog; BorderStyle := bsSizeable;
BorderWidth := 0; BorderWidth := 0;
Caption := 'Test All Components V 0.2'; Caption := 'Test All Components V 0.2';
//ClientHeight := 333; //ClientHeight := 333;
@ -1906,10 +1906,10 @@ Memo1 := TMemo.Create(Self);
//ImeMode := imDontCare; //ImeMode := imDontCare;
//ImeName //ImeName
Left := 10; 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'+ 'You will find the component you want to test in the MainMenu'+
' "Components". 60 components are mentioned, but all do not exist yet.'+ ' "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; //MaxLength := 0;
Name := 'Memo1'; Name := 'Memo1';
//OEMConvert := False; //OEMConvert := False;

8
examples/testtools.inc
View File

@ -26,9 +26,9 @@
Const Const
Info : Array[0..5] of PChar = (' Do not exist yet... ', 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.', ' This component is completed ! '+#13#10+' Minor errors could be at presence, '+#13#10+'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', ' 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 '+#10#13+' and cleanup is necessary. '+#10#13+' 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. ', ' 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!'); ' 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', FileN : Array[0..8] of String =('tbitbtn','tlistbox','btn_newform','btn_newunit',
@ -1633,7 +1633,7 @@ lblAbout := TMemo.Create(Self);
Top := 30; Top := 30;
Caption := 'This program is free software; you can redistribute it and/or modify it'+ 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 '+ ' 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.'; '(at your option) any later version.';
ReadOnly := True; ReadOnly := True;
Visible := True; Visible := True;