paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-18 23:59:10 +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"?> <?xml version="1.0"?>
<CONFIG> <CONFIG>
<ProjectOptions> <ProjectOptions>
<Version Value="7"/> <Version Value="9"/>
<General> <General>
<SessionStorage Value="InIDEConfig"/> <SessionStorage Value="InIDEConfig"/>
<MainUnit Value="0"/> <MainUnit Value="0"/>
<TargetFileExt Value=""/>
<UseXPManifest Value="True"/> <UseXPManifest Value="True"/>
</General> </General>
<VersionInfo> <VersionInfo>
<StringTable Comments="" CompanyName="" FileDescription="" FileVersion="0.0.0.0" InternalName="" LegalCopyright="" LegalTrademarks="" OriginalFilename="" ProductName="" ProductVersion=""/> <StringTable ProductVersion=""/>
</VersionInfo> </VersionInfo>
<BuildModes Count="1">
<Item1 Name="default" Default="True"/>
</BuildModes>
<PublishOptions> <PublishOptions>
<Version Value="2"/> <Version Value="2"/>
<IgnoreBinaries Value="False"/> <IgnoreBinaries Value="False"/>
@ -48,10 +50,15 @@
</Units> </Units>
</ProjectOptions> </ProjectOptions>
<CompilerOptions> <CompilerOptions>
<Version Value="8"/> <Version Value="9"/>
<SearchPaths> <SearchPaths>
<IncludeFiles Value="$(ProjOutDir)/"/> <IncludeFiles Value="$(ProjOutDir)"/>
</SearchPaths> </SearchPaths>
<Parsing>
<SyntaxOptions>
<UseAnsiStrings Value="False"/>
</SyntaxOptions>
</Parsing>
<Linking> <Linking>
<Options> <Options>
<Win32> <Win32>

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

@ -46,7 +46,7 @@ begin
Brush.Color:=clWhite; Brush.Color:=clWhite;
FillRect(0,0,Width,Height); 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; Brush.Color:=clYellow;
Pen.Color:=clBlue; Pen.Color:=clBlue;
Pen.Width:=8; Pen.Width:=8;
@ -63,7 +63,7 @@ begin
Font.LoadFromFile(FontFilename); Font.LoadFromFile(FontFilename);
Font.Size:=18; Font.Size:=18;
Font.Color:=clRed; Font.Color:=clRed;
TextOut(10,30,'LCL and AggPas');} TextOut(10,30,'LCL and AggPas');
end; end;
// convert to LCL native pixel format // convert to LCL native pixel format