paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-04-16 20:49:30 +02:00
Code Issues Packages Projects Releases Wiki Activity

aggpas: clean up

Browse Source 
git-svn-id: trunk@29165 -
This commit is contained in:
mattias 2011-01-23 10:41:40 +00:00
parent d72997d2e1
commit 1aa031420c
2 changed files with 14 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

17
components/aggpas/lazarus/example/AggPasInLCLDemo1.lpi
View File

@ -1,16 +1,18 @@
<?xml version="1.0"?>
<CONFIG>
<ProjectOptions>
<Version Value="7"/>
<Version Value="9"/>
<General>
<SessionStorage Value="InIDEConfig"/>
<MainUnit Value="0"/>
<TargetFileExt Value=""/>
<UseXPManifest Value="True"/>
</General>
<VersionInfo>
<StringTable Comments="" CompanyName="" FileDescription="" FileVersion="0.0.0.0" InternalName="" LegalCopyright="" LegalTrademarks="" OriginalFilename="" ProductName="" ProductVersion=""/>
<StringTable ProductVersion=""/>
</VersionInfo>
<BuildModes Count="1">
<Item1 Name="default" Default="True"/>
</BuildModes>
<PublishOptions>
<Version Value="2"/>
<IgnoreBinaries Value="False"/>
@ -48,10 +50,15 @@
</Units>
</ProjectOptions>
<CompilerOptions>
<Version Value="8"/>
<Version Value="9"/>
<SearchPaths>
<IncludeFiles Value="$(ProjOutDir)/"/>
<IncludeFiles Value="$(ProjOutDir)"/>
</SearchPaths>
<Parsing>
<SyntaxOptions>
<UseAnsiStrings Value="False"/>
</SyntaxOptions>
</Parsing>
<Linking>
<Options>
<Win32>

4
components/aggpas/lazarus/example/unit1.pas
View File

@ -46,7 +46,7 @@ begin
Brush.Color:=clWhite;
FillRect(0,0,Width,Height);
{// a star with 5 corners, solid blue outline, filled solid yellow
// a star with 5 corners, solid blue outline, filled solid yellow
Brush.Color:=clYellow;
Pen.Color:=clBlue;
Pen.Width:=8;
@ -63,7 +63,7 @@ begin
Font.LoadFromFile(FontFilename);
Font.Size:=18;
Font.Color:=clRed;
TextOut(10,30,'LCL and AggPas');}
TextOut(10,30,'LCL and AggPas');
end;
// convert to LCL native pixel format