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

examples: add affine transform example from tk

Browse Source 
git-svn-id: trunk@23138 -
This commit is contained in:
paul 2009-12-14 07:24:27 +00:00
parent 45e870d575
commit b68179355b
10 changed files with 984 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
.gitattributes vendored
View File

@ -2652,6 +2652,15 @@ examples/address_book/mybook.dbf -text svneol=unset#application/x-dbf
examples/address_book/mybook.mdx -text svneol=unset#application/x-mdx
examples/address_book/mybook2.dbf -text svneol=unset#application/x-dbf
examples/address_book/mybook2.mdx -text svneol=unset#application/x-mdx
examples/affinetransforms/buy_64.bmp -text
examples/affinetransforms/project1.lfm svneol=native#text/plain
examples/affinetransforms/project1.lpi svneol=native#text/plain
examples/affinetransforms/project1.lpr svneol=native#text/plain
examples/affinetransforms/project1.manifest svneol=native#text/plain
examples/affinetransforms/project1.rc svneol=native#text/plain
examples/affinetransforms/unit1.lfm svneol=native#text/plain
examples/affinetransforms/unit1.lrs svneol=native#text/plain
examples/affinetransforms/unit1.pas svneol=native#text/plain
examples/anchordocking/README.txt svneol=native#text/plain
examples/anchordocking/dockform1unit.lfm svneol=native#text/plain
examples/anchordocking/dockform1unit.lrs svneol=native#text/pascal

BIN
examples/affinetransforms/buy_64.bmp Normal file
View File

Binary file not shown.
Side by Side

After

Width:  |  Height:  |  Size: 12 KiB

26
examples/affinetransforms/project1.lfm Normal file
View File

@ -0,0 +1,26 @@
object Form1: TForm1
Left = 16
Height = 300
Top = 176
Width = 400
Caption = 'Form1'
ClientHeight = 300
ClientWidth = 400
LCLVersion = '0.9.26.2'
object StringGrid1: TStringGrid
Left = 24
Height = 156
Top = 40
Width = 352
Columns = <
item
end
item
end
item
end
item
end>
TabOrder = 0
end
end

657
examples/affinetransforms/project1.lpi Normal file
View File

@ -0,0 +1,657 @@
<?xml version="1.0"?>
<CONFIG>
<ProjectOptions>
<PathDelim Value="\"/>
<Version Value="7"/>
<General>
<MainUnit Value="0"/>
<TargetFileExt Value=".exe"/>
<UseXPManifest Value="True"/>
<ActiveEditorIndexAtStart Value="0"/>
</General>
<VersionInfo>
<ProjectVersion Value=""/>
</VersionInfo>
<PublishOptions>
<Version Value="2"/>
<IgnoreBinaries Value="False"/>
<IncludeFileFilter Value="*.(pas|pp|inc|lfm|lpr|lrs|lpi|lpk|sh|xml)"/>
<ExcludeFileFilter Value="*.(bak|ppu|ppw|o|so);*~;backup"/>
</PublishOptions>
<RunParams>
<local>
<FormatVersion Value="1"/>
<LaunchingApplication PathPlusParams="\usr\X11R6\bin\xterm -T 'Lazarus Run Output' -e $(LazarusDir)\tools\runwait.sh $(TargetCmdLine)"/>
</local>
</RunParams>
<RequiredPackages Count="1">
<Item1>
<PackageName Value="LCL"/>
</Item1>
</RequiredPackages>
<Units Count="81">
<Unit0>
<Filename Value="project1.lpr"/>
<IsPartOfProject Value="True"/>
<UnitName Value="project1"/>
<CursorPos X="13" Y="18"/>
<TopLine Value="1"/>
<EditorIndex Value="1"/>
<UsageCount Value="169"/>
<Loaded Value="True"/>
</Unit0>
<Unit1>
<Filename Value="unit1.pas"/>
<IsPartOfProject Value="True"/>
<ComponentName Value="Form1"/>
<ResourceBaseClass Value="Form"/>
<UnitName Value="Unit1"/>
<CursorPos X="60" Y="28"/>
<TopLine Value="1"/>
<EditorIndex Value="0"/>
<UsageCount Value="169"/>
<Loaded Value="True"/>
</Unit1>
<Unit2>
<Filename Value="..\KComponents\source\kgrids.pas"/>
<UnitName Value="KGrids"/>
<CursorPos X="1" Y="1"/>
<TopLine Value="1"/>
<UsageCount Value="49"/>
</Unit2>
<Unit3>
<Filename Value="C:\lazarusSVN\lcl\printers.pas"/>
<UnitName Value="Printers"/>
<CursorPos X="1" Y="379"/>
<TopLine Value="351"/>
<UsageCount Value="7"/>
</Unit3>
<Unit4>
<Filename Value="..\KComponents\source\kcontrols.pas"/>
<UnitName Value="KControls"/>
<CursorPos X="1" Y="1"/>
<TopLine Value="1"/>
<UsageCount Value="48"/>
</Unit4>
<Unit5>
<Filename Value="C:\lazarusSVN\lcl\include\canvas.inc"/>
<CursorPos X="1" Y="1196"/>
<TopLine Value="1168"/>
<UsageCount Value="44"/>
</Unit5>
<Unit6>
<Filename Value="C:\lazarusSVN\lcl\include\winapi.inc"/>
<CursorPos X="1" Y="736"/>
<TopLine Value="708"/>
<UsageCount Value="73"/>
</Unit6>
<Unit7>
<Filename Value="C:\lazarusSVN\lcl\interfaces\win32\win32winapi.inc"/>
<CursorPos X="1" Y="3337"/>
<TopLine Value="3293"/>
<UsageCount Value="10"/>
</Unit7>
<Unit8>
<Filename Value="..\KComponents\source\kgraphics.pas"/>
<UnitName Value="KGraphics"/>
<CursorPos X="1" Y="863"/>
<TopLine Value="835"/>
<UsageCount Value="45"/>
</Unit8>
<Unit9>
<Filename Value="C:\lazarusSVN\lcl\lcltype.pp"/>
<UnitName Value="LCLType"/>
<CursorPos X="3" Y="1411"/>
<TopLine Value="1383"/>
<UsageCount Value="23"/>
</Unit9>
<Unit10>
<Filename Value="C:\lazarusSVN\lcl\include\customcontrol.inc"/>
<CursorPos X="1" Y="115"/>
<TopLine Value="84"/>
<UsageCount Value="14"/>
</Unit10>
<Unit11>
<Filename Value="C:\lazarusSVN\lcl\include\wincontrol.inc"/>
<CursorPos X="1" Y="5036"/>
<TopLine Value="5008"/>
<UsageCount Value="18"/>
</Unit11>
<Unit12>
<Filename Value="C:\lazarusSVN\lcl\include\control.inc"/>
<CursorPos X="1" Y="1637"/>
<TopLine Value="1609"/>
<UsageCount Value="26"/>
</Unit12>
<Unit13>
<Filename Value="C:\lazarusSVN\lcl\include\customform.inc"/>
<CursorPos X="1" Y="1060"/>
<TopLine Value="1032"/>
<UsageCount Value="10"/>
</Unit13>
<Unit14>
<Filename Value="C:\lazarusSVN\lcl\interfaces\qt\qtwinapi.inc"/>
<CursorPos X="75" Y="4578"/>
<TopLine Value="4545"/>
<UsageCount Value="45"/>
</Unit14>
<Unit15>
<Filename Value="C:\lazarusSVN\lcl\interfaces\qt\qtwidgets.pas"/>
<UnitName Value="qtwidgets"/>
<CursorPos X="1" Y="3845"/>
<TopLine Value="3817"/>
<UsageCount Value="17"/>
</Unit15>
<Unit16>
<Filename Value="C:\lazarusSVN\lcl\include\winapih.inc"/>
<CursorPos X="10" Y="84"/>
<TopLine Value="56"/>
<UsageCount Value="38"/>
</Unit16>
<Unit17>
<Filename Value="C:\lazarusSVN\lcl\interfacebase.pp"/>
<UnitName Value="InterfaceBase"/>
<CursorPos X="78" Y="11"/>
<TopLine Value="1"/>
<UsageCount Value="9"/>
</Unit17>
<Unit18>
<Filename Value="C:\lazarusSVN\lcl\include\intfbasewinapi.inc"/>
<CursorPos X="19" Y="1102"/>
<TopLine Value="1074"/>
<UsageCount Value="9"/>
</Unit18>
<Unit19>
<Filename Value="C:\lazarusSVN\lcl\interfaces\win32\win32winapih.inc"/>
<CursorPos X="1" Y="208"/>
<TopLine Value="155"/>
<UsageCount Value="2"/>
</Unit19>
<Unit20>
<Filename Value="C:\fpc\2.2.4\source\rtl\objpas\types.pp"/>
<UnitName Value="types"/>
<CursorPos X="29" Y="114"/>
<TopLine Value="77"/>
<UsageCount Value="7"/>
</Unit20>
<Unit21>
<Filename Value="C:\lazarusSVN\lcl\interfaces\qt\qtobjects.pas"/>
<UnitName Value="qtobjects"/>
<CursorPos X="19" Y="338"/>
<TopLine Value="295"/>
<UsageCount Value="9"/>
</Unit21>
<Unit22>
<Filename Value="C:\lazarusSVN\lcl\themes.pas"/>
<UnitName Value="Themes"/>
<CursorPos X="1" Y="622"/>
<TopLine Value="594"/>
<UsageCount Value="22"/>
</Unit22>
<Unit23>
<Filename Value="C:\lazarusSVN\lcl\interfaces\qt\qtwinapih.inc"/>
<CursorPos X="10" Y="127"/>
<TopLine Value="84"/>
<UsageCount Value="42"/>
</Unit23>
<Unit24>
<Filename Value="C:\lazarusSVN\lcl\interfaces\qt\qtint.pp"/>
<UnitName Value="qtint"/>
<CursorPos X="1" Y="29"/>
<TopLine Value="29"/>
<UsageCount Value="42"/>
</Unit24>
<Unit25>
<Filename Value="C:\lazarusSVN\lcl\interfaces\qt\qtobject.inc"/>
<CursorPos X="18" Y="178"/>
<TopLine Value="156"/>
<UsageCount Value="43"/>
</Unit25>
<Unit26>
<Filename Value="C:\lazarusSVN\lcl\interfaces\qt\qt45.pas"/>
<UnitName Value="qt45"/>
<CursorPos X="1" Y="13366"/>
<TopLine Value="13338"/>
<UsageCount Value="18"/>
</Unit26>
<Unit27>
<Filename Value="C:\lazarusSVN\lcl\graphics.pp"/>
<UnitName Value="Graphics"/>
<CursorPos X="11" Y="1790"/>
<TopLine Value="1762"/>
<UsageCount Value="22"/>
</Unit27>
<Unit28>
<Filename Value="C:\lazarusSVN\lcl\interfaces\qt\qtthemes.pas"/>
<UnitName Value="QtThemes"/>
<CursorPos X="33" Y="168"/>
<TopLine Value="143"/>
<UsageCount Value="1"/>
</Unit28>
<Unit29>
<Filename Value="C:\lazarusSVN\lcl\interfaces\gtk\gtkwinapi.inc"/>
<CursorPos X="1" Y="8063"/>
<TopLine Value="8035"/>
<UsageCount Value="65"/>
</Unit29>
<Unit30>
<Filename Value="C:\lazarusSVN\lcl\interfaces\gtk\gtkproc.pp"/>
<UnitName Value="GTKProc"/>
<CursorPos X="18" Y="451"/>
<TopLine Value="422"/>
<UsageCount Value="34"/>
</Unit30>
<Unit31>
<Filename Value="C:\lazarusSVN\lcl\interfaces\gtk\gtkproc.inc"/>
<CursorPos X="1" Y="3714"/>
<TopLine Value="3686"/>
<UsageCount Value="34"/>
</Unit31>
<Unit32>
<Filename Value="C:\fpc\2.2.4\source\packages\gtk2\src\gtk+\gdk\gdkwindow.inc"/>
<CursorPos X="10" Y="449"/>
<TopLine Value="449"/>
<UsageCount Value="34"/>
</Unit32>
<Unit33>
<Filename Value="C:\fpc\2.2.4\source\packages\gtk2\src\gtk+\gdk\gdktypes.inc"/>
<CursorPos X="14" Y="37"/>
<TopLine Value="8"/>
<UsageCount Value="34"/>
</Unit33>
<Unit34>
<Filename Value="C:\fpc\2.2.4\source\packages\gtk2\src\glib\gtypes.inc"/>
<CursorPos X="14" Y="33"/>
<TopLine Value="5"/>
<UsageCount Value="34"/>
</Unit34>
<Unit35>
<Filename Value="C:\fpc\2.2.4\source\rtl\inc\ctypes.pp"/>
<UnitName Value="ctypes"/>
<CursorPos X="3" Y="49"/>
<TopLine Value="29"/>
<UsageCount Value="34"/>
</Unit35>
<Unit36>
<Filename Value="C:\lazarusSVN\lcl\interfaces\gtk\gtkwinapih.inc"/>
<CursorPos X="10" Y="107"/>
<TopLine Value="79"/>
<UsageCount Value="39"/>
</Unit36>
<Unit37>
<Filename Value="C:\lazarusSVN\lcl\interfaces\gtk\gtkdef.pp"/>
<UnitName Value="GtkDef"/>
<CursorPos X="15" Y="338"/>
<TopLine Value="310"/>
<UsageCount Value="64"/>
</Unit37>
<Unit38>
<Filename Value="C:\lazarusSVN\lcl\interfaces\gtk\gtkdevicecontext.inc"/>
<CursorPos X="1" Y="574"/>
<TopLine Value="546"/>
<UsageCount Value="64"/>
</Unit38>
<Unit39>
<Filename Value="C:\lazarusSVN\lcl\graphmath.pp"/>
<UnitName Value="GraphMath"/>
<CursorPos X="1" Y="627"/>
<TopLine Value="599"/>
<UsageCount Value="19"/>
</Unit39>
<Unit40>
<Filename Value="C:\fpc\2.2.4\source\rtl\objpas\classes\classesh.inc"/>
<CursorPos X="30" Y="33"/>
<TopLine Value="4"/>
<UsageCount Value="17"/>
</Unit40>
<Unit41>
<Filename Value="..\KComponents\source\KPrintSetup.pas"/>
<ComponentName Value="KPrintSetupForm"/>
<HasResources Value="True"/>
<ResourceBaseClass Value="Form"/>
<UnitName Value="KPrintSetup"/>
<CursorPos X="84" Y="109"/>
<TopLine Value="89"/>
<UsageCount Value="29"/>
</Unit41>
<Unit42>
<Filename Value="..\KComponents\source\khexeditor.pas"/>
<UnitName Value="KHexEditor"/>
<CursorPos X="1" Y="1823"/>
<TopLine Value="1795"/>
<UsageCount Value="16"/>
</Unit42>
<Unit43>
<Filename Value="C:\fpc\2.2.4\source\rtl\inc\systemh.inc"/>
<CursorPos X="3" Y="212"/>
<TopLine Value="184"/>
<UsageCount Value="18"/>
</Unit43>
<Unit44>
<Filename Value="C:\lazarusSVN\lcl\include\brush.inc"/>
<CursorPos X="1" Y="158"/>
<TopLine Value="130"/>
<UsageCount Value="11"/>
</Unit44>
<Unit45>
<Filename Value="C:\lazarusSVN\lcl\interfaces\qt\qtcaret.pas"/>
<UnitName Value="QtCaret"/>
<CursorPos X="1" Y="211"/>
<TopLine Value="183"/>
<UsageCount Value="18"/>
</Unit45>
<Unit46>
<Filename Value="C:\lazarusSVN\components\synedit\synedit.pp"/>
<UnitName Value="SynEdit"/>
<CursorPos X="29" Y="4386"/>
<TopLine Value="4362"/>
<UsageCount Value="15"/>
</Unit46>
<Unit47>
<Filename Value="C:\lazarusSVN\components\synedit\syneditmiscclasses.pp"/>
<UnitName Value="SynEditMiscClasses"/>
<CursorPos X="3" Y="94"/>
<TopLine Value="66"/>
<UsageCount Value="15"/>
</Unit47>
<Unit48>
<Filename Value="C:\lazarusSVN\lcl\controls.pp"/>
<UnitName Value="Controls"/>
<CursorPos X="1" Y="2656"/>
<TopLine Value="2628"/>
<UsageCount Value="31"/>
</Unit48>
<Unit49>
<Filename Value="C:\lazarusSVN\lcl\customtimer.pas"/>
<UnitName Value="CustomTimer"/>
<CursorPos X="1" Y="198"/>
<TopLine Value="161"/>
<UsageCount Value="17"/>
</Unit49>
<Unit50>
<Filename Value="..\KComponents\source\keditcommon.pas"/>
<UnitName Value="KEditCommon"/>
<CursorPos X="19" Y="393"/>
<TopLine Value="357"/>
<UsageCount Value="13"/>
</Unit50>
<Unit51>
<Filename Value="C:\lazarusSVN\lcl\interfaces\gtk\gtkint.pp"/>
<UnitName Value="GtkInt"/>
<CursorPos X="3" Y="279"/>
<TopLine Value="251"/>
<UsageCount Value="29"/>
</Unit51>
<Unit52>
<Filename Value="C:\lazarusSVN\lcl\interfaces\gtk\gtkwidgetset.inc"/>
<CursorPos X="18" Y="1542"/>
<TopLine Value="1524"/>
<UsageCount Value="35"/>
</Unit52>
<Unit53>
<Filename Value="..\KComponents\packages\kcontrols\kcontrolslaz.pas"/>
<UnitName Value="KControlsLaz"/>
<CursorPos X="29" Y="12"/>
<TopLine Value="1"/>
<UsageCount Value="10"/>
</Unit53>
<Unit54>
<Filename Value="C:\fpc\2.2.4\source\rtl\win\wininc\base.inc"/>
<CursorPos X="113" Y="3"/>
<TopLine Value="1"/>
<UsageCount Value="7"/>
</Unit54>
<Unit55>
<Filename Value="C:\lazarusSVN\lcl\include\intfbaselcl.inc"/>
<CursorPos X="1" Y="620"/>
<TopLine Value="592"/>
<UsageCount Value="18"/>
</Unit55>
<Unit56>
<Filename Value="C:\lazarusSVN\lcl\include\lclintfh.inc"/>
<CursorPos X="10" Y="1"/>
<TopLine Value="1"/>
<UsageCount Value="10"/>
</Unit56>
<Unit57>
<Filename Value="C:\lazarusSVN\lcl\graphtype.pp"/>
<UnitName Value="GraphType"/>
<CursorPos X="1" Y="1"/>
<TopLine Value="1"/>
<UsageCount Value="25"/>
</Unit57>
<Unit58>
<Filename Value="C:\lazarusSVN\lcl\include\lclintf.inc"/>
<CursorPos X="1" Y="418"/>
<TopLine Value="390"/>
<UsageCount Value="19"/>
</Unit58>
<Unit59>
<Filename Value="C:\lazarusSVN\lcl\interfaces\gtk\gtkthemes.pas"/>
<UnitName Value="GtkThemes"/>
<CursorPos X="10" Y="464"/>
<TopLine Value="437"/>
<UsageCount Value="25"/>
</Unit59>
<Unit60>
<Filename Value="C:\lazarusSVN\lcl\interfaces\gtk\gtklclintfh.inc"/>
<CursorPos X="1" Y="1"/>
<TopLine Value="1"/>
<UsageCount Value="33"/>
</Unit60>
<Unit61>
<Filename Value="C:\lazarusSVN\lcl\interfaces\gtk\gtklclintf.inc"/>
<CursorPos X="17" Y="1"/>
<TopLine Value="1"/>
<UsageCount Value="33"/>
</Unit61>
<Unit62>
<Filename Value="C:\lazarusSVN\lcl\include\application.inc"/>
<CursorPos X="1" Y="39"/>
<TopLine Value="11"/>
<UsageCount Value="19"/>
</Unit62>
<Unit63>
<Filename Value="C:\lazarusSVN\lcl\interfaces\gtk2\gtk2lclintf.inc"/>
<CursorPos X="1" Y="1"/>
<TopLine Value="1"/>
<UsageCount Value="30"/>
</Unit63>
<Unit64>
<Filename Value="C:\lazarusSVN\lcl\interfaces\gtk2\gtk2winapi.inc"/>
<CursorPos X="15" Y="592"/>
<TopLine Value="564"/>
<UsageCount Value="33"/>
</Unit64>
<Unit65>
<Filename Value="C:\lazarusSVN\lcl\include\font.inc"/>
<CursorPos X="1" Y="1"/>
<TopLine Value="1"/>
<UsageCount Value="24"/>
</Unit65>
<Unit66>
<Filename Value="C:\lazarusSVN\lcl\include\controlcanvas.inc"/>
<CursorPos X="1" Y="1"/>
<TopLine Value="1"/>
<UsageCount Value="20"/>
</Unit66>
<Unit67>
<Filename Value="C:\fpc\2.2.4\source\packages\gtk2\src\pango\pango-font.inc"/>
<CursorPos X="30" Y="178"/>
<TopLine Value="169"/>
<UsageCount Value="8"/>
</Unit67>
<Unit68>
<Filename Value="C:\lazarusSVN\lcl\interfaces\gtk\gtkfontcache.pas"/>
<UnitName Value="GtkFontCache"/>
<CursorPos X="1" Y="230"/>
<TopLine Value="202"/>
<UsageCount Value="11"/>
</Unit68>
<Unit69>
<Filename Value="C:\fpc\2.2.4\source\packages\gtk2\src\pango\pango-layout.inc"/>
<CursorPos X="10" Y="66"/>
<TopLine Value="38"/>
<UsageCount Value="8"/>
</Unit69>
<Unit70>
<Filename Value="C:\lazarusSVN\lcl\dynhasharray.pp"/>
<UnitName Value="DynHashArray"/>
<CursorPos X="1" Y="626"/>
<TopLine Value="598"/>
<UsageCount Value="9"/>
</Unit70>
<Unit71>
<Filename Value="C:\fpc\2.2.4\source\packages\gtk2\src\gtk+\gtk\gtkwidget.inc"/>
<CursorPos X="1" Y="1"/>
<TopLine Value="1"/>
<UsageCount Value="16"/>
</Unit71>
<Unit72>
<Filename Value="C:\lazarusSVN\lcl\interfaces\gtk2\gtk2devicecontext.inc"/>
<CursorPos X="63" Y="2"/>
<TopLine Value="1"/>
<UsageCount Value="18"/>
</Unit72>
<Unit73>
<Filename Value="C:\fpc\2.2.4\source\packages\gtk1\src\gdk\gdkmain.pp"/>
<UnitName Value="gdkmain"/>
<CursorPos X="25" Y="1"/>
<TopLine Value="1"/>
<UsageCount Value="14"/>
</Unit73>
<Unit74>
<Filename Value="C:\lazarusSVN\lcl\lclproc.pas"/>
<UnitName Value="LCLProc"/>
<CursorPos X="12" Y="1815"/>
<TopLine Value="1797"/>
<UsageCount Value="18"/>
</Unit74>
<Unit75>
<Filename Value="C:\lazarusSVN\lcl\intfgraphics.pas"/>
<UnitName Value="IntfGraphics"/>
<CursorPos X="24" Y="5143"/>
<TopLine Value="5114"/>
<UsageCount Value="11"/>
</Unit75>
<Unit76>
<Filename Value="C:\lazarusSVN\lcl\lclintf.pas"/>
<UnitName Value="LCLIntf"/>
<CursorPos X="6" Y="65"/>
<TopLine Value="1"/>
<UsageCount Value="10"/>
</Unit76>
<Unit77>
<Filename Value="C:\lazarusSVN\lcl\include\graphiccontrol.inc"/>
<CursorPos X="1" Y="72"/>
<TopLine Value="44"/>
<UsageCount Value="10"/>
</Unit77>
<Unit78>
<Filename Value="C:\lazarusSVN\lcl\include\paintbox.inc"/>
<CursorPos X="1" Y="52"/>
<TopLine Value="5"/>
<UsageCount Value="10"/>
</Unit78>
<Unit79>
<Filename Value="C:\lazarusSVN\lcl\lclmessageglue.pas"/>
<UnitName Value="LCLMessageGlue"/>
<CursorPos X="1" Y="121"/>
<TopLine Value="93"/>
<UsageCount Value="10"/>
</Unit79>
<Unit80>
<Filename Value="C:\lazarusSVN\lcl\interfaces\gtk\gtkcallback.inc"/>
<CursorPos X="1" Y="61"/>
<TopLine Value="33"/>
<UsageCount Value="10"/>
</Unit80>
</Units>
<JumpHistory Count="6" HistoryIndex="5">
<Position1>
<Filename Value="unit1.pas"/>
<Caret Line="137" Column="1" TopLine="96"/>
</Position1>
<Position2>
<Filename Value="unit1.pas"/>
<Caret Line="138" Column="1" TopLine="96"/>
</Position2>
<Position3>
<Filename Value="unit1.pas"/>
<Caret Line="113" Column="1" TopLine="85"/>
</Position3>
<Position4>
<Filename Value="unit1.pas"/>
<Caret Line="137" Column="1" TopLine="96"/>
</Position4>
<Position5>
<Filename Value="unit1.pas"/>
<Caret Line="110" Column="29" TopLine="85"/>
</Position5>
<Position6>
<Filename Value="unit1.pas"/>
<Caret Line="10" Column="31" TopLine="1"/>
</Position6>
</JumpHistory>
</ProjectOptions>
<CompilerOptions>
<Version Value="8"/>
<PathDelim Value="\"/>
<SearchPaths>
<IncludeFiles Value="$(ProjOutDir)\"/>
<OtherUnitFiles Value="D:\Data\Delphi\KComponents\source\"/>
</SearchPaths>
<Linking>
<Options>
<Win32>
<GraphicApplication Value="True"/>
</Win32>
</Options>
</Linking>
<Other>
<CompilerPath Value="$(CompPath)"/>
</Other>
</CompilerOptions>
<Debugging>
<Watches Count="9">
<Item1>
<Expression Value="FCurrentFont^.LogFont.lfHeight"/>
</Item1>
<Item2>
<Expression Value="FCurrentFont^.UntransfHeight"/>
</Item2>
<Item3>
<Expression Value="FCurrentFont"/>
</Item3>
<Item4>
<Expression Value="AValue"/>
</Item4>
<Item5>
<Expression Value="FCurrentFont^.GDIFontObject"/>
</Item5>
<Item6>
<Expression Value="FNewFontHeight"/>
</Item6>
<Item7>
<Expression Value="AFont^.GDIFontObject"/>
</Item7>
<Item8>
<Expression Value="Pointer(OldStr)"/>
</Item8>
<Item9>
<Expression Value="ALayout"/>
</Item9>
</Watches>
<Exceptions Count="3">
<Item1>
<Name Value="EAbort"/>
</Item1>
<Item2>
<Name Value="ECodetoolError"/>
</Item2>
<Item3>
<Name Value="EFOpenError"/>
</Item3>
</Exceptions>
</Debugging>
</CONFIG>

20
examples/affinetransforms/project1.lpr Normal file
View File

@ -0,0 +1,20 @@
program project1;
{$mode objfpc}{$H+}
uses
{$IFDEF UNIX}{$IFDEF UseCThreads}
cthreads,
{$ENDIF}{$ENDIF}
Interfaces, // this includes the LCL widgetset
Forms
{ you can add units after this }, Unit1;
{$IFDEF WINDOWS}{$R project1.rc}{$ENDIF}
begin
Application.Initialize;
Application.CreateForm(TForm1, Form1);
Application.Run;
end.

17
examples/affinetransforms/project1.manifest Normal file
View File

@ -0,0 +1,17 @@
<?xml version="1.0" encoding="UTF-8" standalone="yes"?>
<assembly xmlns="urn:schemas-microsoft-com:asm.v1" manifestVersion="1.0">
<assemblyIdentity version="1.0.0.0" processorArchitecture="*" name="CompanyName.ProductName.YourApp" type="win32"/>
<description>Your application description here.</description>
<dependency>
<dependentAssembly>
<assemblyIdentity type="win32" name="Microsoft.Windows.Common-Controls" version="6.0.0.0" processorArchitecture="*" publicKeyToken="6595b64144ccf1df" language="*"/>
</dependentAssembly>
</dependency>
<trustInfo xmlns="urn:schemas-microsoft-com:asm.v3">
<security>
<requestedPrivileges>
<requestedExecutionLevel level="asInvoker" uiAccess="false"/>
</requestedPrivileges>
</security>
</trustInfo>
</assembly>

6
examples/affinetransforms/project1.rc Normal file
View File

@ -0,0 +1,6 @@
#define RT_MANIFEST 24
#define CREATEPROCESS_MANIFEST_RESOURCE_ID 1
#define ISOLATIONAWARE_MANIFEST_RESOURCE_ID 2
#define ISOLATIONAWARE_NOSTATICIMPORT_MANIFEST_RESOURCE_ID 3
CREATEPROCESS_MANIFEST_RESOURCE_ID RT_MANIFEST "project1.manifest"

72
examples/affinetransforms/unit1.lfm Normal file
View File

@ -0,0 +1,72 @@
object Form1: TForm1
Left = 340
Height = 385
Top = 449
Width = 682
ActiveControl = RG.RadioButton0
Caption = 'Form1'
ClientHeight = 385
ClientWidth = 682
OnCreate = FormCreate
OnDestroy = FormDestroy
LCLVersion = '0.9.29'
object RG: TRadioGroup
Left = 504
Height = 248
Top = 16
Width = 169
Anchors = [akTop, akRight]
AutoFill = True
Caption = 'Mapping mode'
ChildSizing.LeftRightSpacing = 6
ChildSizing.TopBottomSpacing = 6
ChildSizing.EnlargeHorizontal = crsHomogenousChildResize
ChildSizing.EnlargeVertical = crsHomogenousChildResize
ChildSizing.ShrinkHorizontal = crsScaleChilds
ChildSizing.ShrinkVertical = crsScaleChilds
ChildSizing.Layout = cclLeftToRightThenTopToBottom
ChildSizing.ControlsPerLine = 1
ClientHeight = 229
ClientWidth = 165
ItemIndex = 0
Items.Strings = (
'ANISOTROPIC'
'ISOTROPIC'
'LOENGLISH'
'HIENGLISH'
'LOMETRIC'
'HIMETRIC'
'TWIPS'
'ANISOTROPIC mirr.'
)
OnClick = RGClick
TabOrder = 0
end
object Label1: TLabel
Left = 522
Height = 18
Top = 288
Width = 122
Anchors = [akTop, akRight]
Caption = 'Resize the window'
ParentColor = False
end
object Label2: TLabel
Left = 525
Height = 18
Top = 307
Width = 117
Anchors = [akTop, akRight]
Caption = 'to see differences'
ParentColor = False
end
object PB: TPaintBox
Left = 0
Height = 385
Top = 0
Width = 488
Align = alLeft
Anchors = [akTop, akLeft, akRight, akBottom]
OnPaint = PBPaint
end
end

26
examples/affinetransforms/unit1.lrs Normal file
View File

@ -0,0 +1,26 @@
{ This is an automatically generated lazarus resource file }
LazarusResources.Add('TForm1','FORMDATA',[
'TPF0'#6'TForm1'#5'Form1'#4'Left'#3'T'#1#6'Height'#3#129#1#3'Top'#3#193#1#5'W'
+'idth'#3#170#2#13'ActiveControl'#7#15'RG.RadioButton0'#7'Caption'#6#5'Form1'
+#12'ClientHeight'#3#129#1#11'ClientWidth'#3#170#2#8'OnCreate'#7#10'FormCreat'
+'e'#9'OnDestroy'#7#11'FormDestroy'#10'LCLVersion'#6#6'0.9.29'#0#11'TRadioGro'
+'up'#2'RG'#4'Left'#3#248#1#6'Height'#3#248#0#3'Top'#2#16#5'Width'#3#169#0#7
+'Anchors'#11#5'akTop'#7'akRight'#0#8'AutoFill'#9#7'Caption'#6#12'Mapping mod'
+'e'#28'ChildSizing.LeftRightSpacing'#2#6#28'ChildSizing.TopBottomSpacing'#2#6
+#29'ChildSizing.EnlargeHorizontal'#7#24'crsHomogenousChildResize'#27'ChildSi'
+'zing.EnlargeVertical'#7#24'crsHomogenousChildResize'#28'ChildSizing.ShrinkH'
+'orizontal'#7#14'crsScaleChilds'#26'ChildSizing.ShrinkVertical'#7#14'crsScal'
+'eChilds'#18'ChildSizing.Layout'#7#29'cclLeftToRightThenTopToBottom'#27'Chil'
+'dSizing.ControlsPerLine'#2#1#12'ClientHeight'#3#229#0#11'ClientWidth'#3#165
+#0#9'ItemIndex'#2#0#13'Items.Strings'#1#6#11'ANISOTROPIC'#6#9'ISOTROPIC'#6#9
+'LOENGLISH'#6#9'HIENGLISH'#6#8'LOMETRIC'#6#8'HIMETRIC'#6#5'TWIPS'#6#17'ANISO'
+'TROPIC mirr.'#0#7'OnClick'#7#7'RGClick'#8'TabOrder'#2#0#0#0#6'TLabel'#6'Lab'
+'el1'#4'Left'#3#10#2#6'Height'#2#18#3'Top'#3' '#1#5'Width'#2'z'#7'Anchors'#11
+#5'akTop'#7'akRight'#0#7'Caption'#6#17'Resize the window'#11'ParentColor'#8#0
+#0#6'TLabel'#6'Label2'#4'Left'#3#13#2#6'Height'#2#18#3'Top'#3'3'#1#5'Width'#2
+'u'#7'Anchors'#11#5'akTop'#7'akRight'#0#7'Caption'#6#18'to see differences'
+#11'ParentColor'#8#0#0#9'TPaintBox'#2'PB'#4'Left'#2#0#6'Height'#3#129#1#3'To'
+'p'#2#0#5'Width'#3#232#1#5'Align'#7#6'alLeft'#7'Anchors'#11#5'akTop'#6'akLef'
+'t'#7'akRight'#8'akBottom'#0#7'OnPaint'#7#7'PBPaint'#0#0#0
]);

151
examples/affinetransforms/unit1.pas Normal file
View File

@ -0,0 +1,151 @@
unit Unit1;
{$mode objfpc}{$H+}
interface
uses
LCLType, LclIntf, Types,
Classes, SysUtils, FileUtil, LResources, Forms, Controls, Graphics, Dialogs,
StdCtrls, ExtCtrls, CheckLst, Grids, Menus, sqldb, Themes;
type
{ TForm1 }
TForm1 = class(TForm)
Label1: TLabel;
Label2: TLabel;
PB: TPaintBox;
RG: TRadioGroup;
procedure FormCreate(Sender: TObject);
procedure FormDestroy(Sender: TObject);
procedure PBPaint(Sender: TObject);
procedure RGClick(Sender: TObject);
private
{ private declarations }
public
{ public declarations }
FImage: TBitmap;
end;
var
Form1: TForm1;
implementation
{ TForm1 }
procedure TForm1.FormCreate(Sender: TObject);
begin
FImage := TBitmap.Create;
FImage.LoadFromFile('./buy_64.bmp');
end;
procedure TForm1.FormDestroy(Sender: TObject);
begin
FImage.Free;
end;
procedure TForm1.PBPaint(Sender: TObject);
var
R: TRect;
P: TSize;
begin
with PB.Canvas do
begin
Brush.Color := clWhite;
FillRect(ClientRect);
Font.Color := clGreen;
Font.Height := 20;
Pen.Width := 2;
TextOut(20,300, 'Unmapped!'); // check if font size OK
case RG.ItemIndex of
0:
begin
SetMapMode(Handle, MM_ANISOTROPIC);
SetWindowExtEx(Handle, 400, 300, nil);
SetViewPortExtEx(Handle, PB.ClientWidth, PB.ClientHeight, nil);
SetViewPortOrgEx(Handle, 0, 0, nil);
end;
1:
begin
SetMapMode(Handle, MM_ISOTROPIC);
SetWindowExtEx(Handle, 400, 300, nil);
SetViewPortExtEx(Handle, PB.ClientWidth, PB.ClientHeight, nil);
SetViewPortOrgEx(Handle, 0, 0, nil);
end;
2:
begin
SetMapMode(Handle, MM_LOENGLISH);
SetViewPortOrgEx(Handle, 0, 300, nil);
end;
3:
begin
SetMapMode(Handle, MM_HIENGLISH);
SetViewPortOrgEx(Handle, 0, 300, nil);
end;
4:
begin
SetMapMode(Handle, MM_LOMETRIC);
SetViewPortOrgEx(Handle, 0, 300, nil);
end;
5:
begin
SetMapMode(Handle, MM_HIMETRIC);
SetViewPortOrgEx(Handle, 0, 300, nil);
end;
6:
begin
SetMapMode(Handle, MM_TWIPS);
SetViewPortOrgEx(Handle, 0, 300, nil);
end;
7:
begin
SetMapMode(Handle, MM_ANISOTROPIC);
SetWindowExtEx(Handle, -400, 300, nil);
SetViewPortExtEx(Handle, PB.ClientWidth, PB.ClientHeight, nil);
SetViewPortOrgEx(Handle, PB.ClientWidth, 0, nil);
end;
end;
GetWindowExtEx(Handle, @P);
GetViewPortExtEx(Handle, @P);
Brush.Color := clRed;
FillRect(10, 10, 200, 200);
Brush.Color := clYellow;
Arc(200,10,400,200,20,0,400,300);
Chord(10,10,200,200, 0,0,300,300);
Brush.Color := clGreen;
Ellipse(50,200,250,260);
Brush.Color := clWhite;
TextOut(50,50, 'Hello!');
TextRect(Rect(50,80,200,120), 50,80, 'Clipped!');
DrawFocusRect(Rect(10,200,400,220)); // normally quite slow on GTK2, disable for the test
MoveTo(300, 200);
LineTo(390, 290);
R := Rect(10,200,100,250);
Frame3D(R, 3, bvRaised);
Frame(200,250,250,260);
FrameRect(200,220,250,240);
Rectangle(320,20,380,100);
RoundRect(320,110,380,150,6,6);
ThemeServices.DrawElement(Handle, ThemeServices.GetElementDetails(tbPushButtonNormal), Rect(80,50,100,75), nil);
DrawFrameControl(Handle, Rect(50,50,70,75), DFC_BUTTON, DFCS_BUTTONPUSH);
R := Rect(110,50,140,75);
DrawEdge(Handle, R, BDR_RAISEDINNER, BF_RECT);
StretchDraw(Rect(230,100, 304, 164), FImage);
SetMapMode(Handle, MM_TEXT);
TextOut(20,20, 'Unmapped!'); // check if font size OK
end;
end;
procedure TForm1.RGClick(Sender: TObject);
begin
PB.Invalidate;
end;
initialization
{$I unit1.lrs}
end.