paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-04-06 18:58:12 +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"?>
<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>

6
examples/testallform.pp
View File

@ -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;

8
examples/testtools.inc
View File

@ -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;