mirror of
https://gitlab.com/freepascal.org/lazarus/lazarus.git
synced 2025-08-27 12:00:29 +02:00
Adds an example project for LazFreeType
git-svn-id: trunk@35669 -
This commit is contained in:
sekelsenmat
parent
15deb6f3f5
commit
e8b04fca2e
6
.gitattributes
vendored
6
.gitattributes
vendored
@ -3876,6 +3876,12 @@ examples/jpeg/lazarus.jpg -text svneol=unset#image/jpeg
|
||||
examples/jpeg/mainform.lfm svneol=native#text/plain
|
||||
examples/jpeg/mainform.lrs svneol=native#text/pascal
|
||||
examples/jpeg/mainform.pas svneol=native#text/pascal
|
||||
examples/lazfreetype/lazfreetype.ico -text
|
||||
examples/lazfreetype/lazfreetype.lpi svneol=native#text/plain
|
||||
examples/lazfreetype/lazfreetype.lpr svneol=native#text/plain
|
||||
examples/lazfreetype/lazfreetype.res -text
|
||||
examples/lazfreetype/mainform.lfm svneol=native#text/plain
|
||||
examples/lazfreetype/mainform.pas svneol=native#text/plain
|
||||
examples/lazintfimage/fadein1.lpi svneol=native#text/plain
|
||||
examples/lazintfimage/fadein1.lpr svneol=native#text/pascal
|
||||
examples/lazintfimage/mainunit1.lfm svneol=native#text/plain
|
||||
|
||||
BIN
examples/lazfreetype/lazfreetype.ico
Normal file
BIN
examples/lazfreetype/lazfreetype.ico
Normal file
Binary file not shown.
|
After Width: | Height: | Size: 134 KiB |
873
examples/lazfreetype/lazfreetype.lpi
Normal file
873
examples/lazfreetype/lazfreetype.lpi
Normal file
@ -0,0 +1,873 @@
|
||||
<?xml version="1.0"?>
|
||||
<CONFIG>
|
||||
<ProjectOptions>
|
||||
<Version Value="9"/>
|
||||
<PathDelim Value="\"/>
|
||||
<General>
|
||||
<MainUnit Value="0"/>
|
||||
<Title Value="lazfreetype"/>
|
||||
<ResourceType Value="res"/>
|
||||
<UseXPManifest Value="True"/>
|
||||
<Icon Value="0"/>
|
||||
<ActiveWindowIndexAtStart Value="0"/>
|
||||
</General>
|
||||
<i18n>
|
||||
<EnableI18N LFM="False"/>
|
||||
</i18n>
|
||||
<VersionInfo>
|
||||
<StringTable ProductVersion=""/>
|
||||
</VersionInfo>
|
||||
<BuildModes Count="1" Active="Default">
|
||||
<Item1 Name="Default" Default="True"/>
|
||||
</BuildModes>
|
||||
<PublishOptions>
|
||||
<Version Value="2"/>
|
||||
<IncludeFileFilter Value="*.(pas|pp|inc|lfm|lpr|lrs|lpi|lpk|sh|xml)"/>
|
||||
<ExcludeFileFilter Value="*.(bak|ppu|o|so);*~;backup"/>
|
||||
</PublishOptions>
|
||||
<RunParams>
|
||||
<local>
|
||||
<FormatVersion Value="1"/>
|
||||
</local>
|
||||
</RunParams>
|
||||
<RequiredPackages Count="1">
|
||||
<Item1>
|
||||
<PackageName Value="LCL"/>
|
||||
</Item1>
|
||||
</RequiredPackages>
|
||||
<Units Count="97">
|
||||
<Unit0>
|
||||
<Filename Value="lazfreetype.lpr"/>
|
||||
<IsPartOfProject Value="True"/>
|
||||
<UnitName Value="lazfreetype"/>
|
||||
<EditorIndex Value="3"/>
|
||||
<WindowIndex Value="0"/>
|
||||
<TopLine Value="1"/>
|
||||
<CursorPos X="25" Y="5"/>
|
||||
<UsageCount Value="156"/>
|
||||
<Loaded Value="True"/>
|
||||
</Unit0>
|
||||
<Unit1>
|
||||
<Filename Value="mainform.pas"/>
|
||||
<IsPartOfProject Value="True"/>
|
||||
<ComponentName Value="Form1"/>
|
||||
<ResourceBaseClass Value="Form"/>
|
||||
<UnitName Value="mainform"/>
|
||||
<EditorIndex Value="0"/>
|
||||
<WindowIndex Value="0"/>
|
||||
<TopLine Value="122"/>
|
||||
<CursorPos X="1" Y="142"/>
|
||||
<UsageCount Value="156"/>
|
||||
<Loaded Value="True"/>
|
||||
<LoadedDesigner Value="True"/>
|
||||
</Unit1>
|
||||
<Unit2>
|
||||
<Filename Value="D:\lazarus\fpc\2.4.2\source\packages\fcl-image\src\freetype.pp"/>
|
||||
<UnitName Value="freetype"/>
|
||||
<WindowIndex Value="0"/>
|
||||
<TopLine Value="676"/>
|
||||
<CursorPos X="20" Y="697"/>
|
||||
<UsageCount Value="6"/>
|
||||
</Unit2>
|
||||
<Unit3>
|
||||
<Filename Value="D:\lazarus\fpc\2.4.2\source\packages\fcl-image\src\freetypeh.pp"/>
|
||||
<UnitName Value="freetypeh"/>
|
||||
<WindowIndex Value="0"/>
|
||||
<TopLine Value="318"/>
|
||||
<CursorPos X="10" Y="336"/>
|
||||
<UsageCount Value="6"/>
|
||||
</Unit3>
|
||||
<Unit4>
|
||||
<Filename Value="C:\Users\ELSASS\Downloads\lazarus-ccr-freetypepascal.tar\lazarus-ccr-freetypepascal\freetypepascal\ttraster.pas"/>
|
||||
<UnitName Value="TTRASTER"/>
|
||||
<WindowIndex Value="0"/>
|
||||
<TopLine Value="3073"/>
|
||||
<CursorPos X="22" Y="3082"/>
|
||||
<UsageCount Value="6"/>
|
||||
</Unit4>
|
||||
<Unit5>
|
||||
<Filename Value="C:\Users\ELSASS\Downloads\lazarus-ccr-freetypepascal.tar\lazarus-ccr-freetypepascal\freetypepascal\freetype.pas"/>
|
||||
<UnitName Value="FreeType"/>
|
||||
<WindowIndex Value="0"/>
|
||||
<TopLine Value="51"/>
|
||||
<CursorPos X="1" Y="1"/>
|
||||
<UsageCount Value="5"/>
|
||||
</Unit5>
|
||||
<Unit6>
|
||||
<Filename Value="C:\Users\ELSASS\Downloads\lazarus-ccr-freetypepascal.tar\lazarus-ccr-freetypepascal\freetypepascal\lazfreetype.pas"/>
|
||||
<UnitName Value="lazfreetype"/>
|
||||
<WindowIndex Value="0"/>
|
||||
<TopLine Value="1"/>
|
||||
<CursorPos X="23" Y="7"/>
|
||||
<UsageCount Value="5"/>
|
||||
</Unit6>
|
||||
<Unit7>
|
||||
<Filename Value="C:\Users\ELSASS\Downloads\lazarus-ccr-freetypepascal.tar\lazarus-ccr-freetypepascal\freetypepascal\ttmemory.pas"/>
|
||||
<UnitName Value="TTMemory"/>
|
||||
<WindowIndex Value="0"/>
|
||||
<TopLine Value="88"/>
|
||||
<CursorPos X="37" Y="100"/>
|
||||
<UsageCount Value="5"/>
|
||||
</Unit7>
|
||||
<Unit8>
|
||||
<Filename Value="C:\Users\ELSASS\Downloads\lazarus-ccr-freetypepascal.tar\lazarus-ccr-freetypepascal\freetypepascal\ttobjs.pas"/>
|
||||
<UnitName Value="TTObjs"/>
|
||||
<WindowIndex Value="0"/>
|
||||
<TopLine Value="1637"/>
|
||||
<CursorPos X="1" Y="1742"/>
|
||||
<UsageCount Value="5"/>
|
||||
</Unit8>
|
||||
<Unit9>
|
||||
<Filename Value="C:\Users\ELSASS\Downloads\lazarus-ccr-freetypepascal.tar\lazarus-ccr-freetypepascal\freetypepascal\ttcache.pas"/>
|
||||
<UnitName Value="TTCache"/>
|
||||
<WindowIndex Value="0"/>
|
||||
<TopLine Value="319"/>
|
||||
<CursorPos X="1" Y="348"/>
|
||||
<UsageCount Value="3"/>
|
||||
</Unit9>
|
||||
<Unit10>
|
||||
<Filename Value="C:\Users\ELSASS\Downloads\lazarus-ccr-freetypepascal.tar\lazarus-ccr-freetypepascal\freetypepascal\ttfile.pas"/>
|
||||
<UnitName Value="TTFile"/>
|
||||
<WindowIndex Value="0"/>
|
||||
<TopLine Value="284"/>
|
||||
<CursorPos X="1" Y="303"/>
|
||||
<UsageCount Value="3"/>
|
||||
</Unit10>
|
||||
<Unit11>
|
||||
<Filename Value="C:\Users\ELSASS\Downloads\lazarus-ccr-freetypepascal.tar\lazarus-ccr-freetypepascal\freetypepascal\ttinterp.pas"/>
|
||||
<UnitName Value="TTInterp"/>
|
||||
<WindowIndex Value="0"/>
|
||||
<TopLine Value="1"/>
|
||||
<CursorPos X="21" Y="1338"/>
|
||||
<UsageCount Value="1"/>
|
||||
</Unit11>
|
||||
<Unit12>
|
||||
<Filename Value="..\bgracontrols\bgracontrols\bgrabutton.pas"/>
|
||||
<UnitName Value="BGRAButton"/>
|
||||
<WindowIndex Value="0"/>
|
||||
<TopLine Value="664"/>
|
||||
<CursorPos X="28" Y="673"/>
|
||||
<UsageCount Value="1"/>
|
||||
</Unit12>
|
||||
<Unit13>
|
||||
<Filename Value="D:\lazarus\lcl\include\control.inc"/>
|
||||
<WindowIndex Value="0"/>
|
||||
<TopLine Value="1312"/>
|
||||
<CursorPos X="1" Y="1323"/>
|
||||
<UsageCount Value="11"/>
|
||||
</Unit13>
|
||||
<Unit14>
|
||||
<Filename Value="D:\lazarus\lcl\graphics.pp"/>
|
||||
<UnitName Value="Graphics"/>
|
||||
<WindowIndex Value="0"/>
|
||||
<TopLine Value="2538"/>
|
||||
<CursorPos X="1" Y="2563"/>
|
||||
<UsageCount Value="22"/>
|
||||
</Unit14>
|
||||
<Unit15>
|
||||
<Filename Value="..\lazpaintsvn\bgrabitmap\bgrabitmaptypes.pas"/>
|
||||
<UnitName Value="BGRABitmapTypes"/>
|
||||
<WindowIndex Value="0"/>
|
||||
<TopLine Value="402"/>
|
||||
<CursorPos X="15" Y="420"/>
|
||||
<UsageCount Value="36"/>
|
||||
</Unit15>
|
||||
<Unit16>
|
||||
<Filename Value="..\lazpaintsvn\bgrabitmap\bgradefaultbitmap.pas"/>
|
||||
<UnitName Value="BGRADefaultBitmap"/>
|
||||
<WindowIndex Value="0"/>
|
||||
<TopLine Value="697"/>
|
||||
<CursorPos X="3" Y="724"/>
|
||||
<UsageCount Value="52"/>
|
||||
</Unit16>
|
||||
<Unit17>
|
||||
<Filename Value="..\lazpaintsvn\bgrabitmap\bgratextfx.pas"/>
|
||||
<UnitName Value="BGRATextFX"/>
|
||||
<WindowIndex Value="0"/>
|
||||
<TopLine Value="73"/>
|
||||
<CursorPos X="1" Y="90"/>
|
||||
<UsageCount Value="1"/>
|
||||
</Unit17>
|
||||
<Unit18>
|
||||
<Filename Value="..\lazpaintsvn\bgrabitmap\bgratext.pas"/>
|
||||
<UnitName Value="BGRAText"/>
|
||||
<WindowIndex Value="0"/>
|
||||
<TopLine Value="497"/>
|
||||
<CursorPos X="59" Y="512"/>
|
||||
<UsageCount Value="12"/>
|
||||
</Unit18>
|
||||
<Unit19>
|
||||
<Filename Value="D:\lazarus\lcl\include\font.inc"/>
|
||||
<WindowIndex Value="0"/>
|
||||
<TopLine Value="76"/>
|
||||
<CursorPos X="21" Y="84"/>
|
||||
<UsageCount Value="19"/>
|
||||
</Unit19>
|
||||
<Unit20>
|
||||
<Filename Value="freetype.pas"/>
|
||||
<UnitName Value="FreeType"/>
|
||||
<WindowIndex Value="0"/>
|
||||
<TopLine Value="147"/>
|
||||
<CursorPos X="3" Y="165"/>
|
||||
<UsageCount Value="61"/>
|
||||
</Unit20>
|
||||
<Unit21>
|
||||
<Filename Value="ttmemory.pas"/>
|
||||
<UnitName Value="TTMemory"/>
|
||||
<WindowIndex Value="0"/>
|
||||
<TopLine Value="147"/>
|
||||
<CursorPos X="1" Y="154"/>
|
||||
<UsageCount Value="50"/>
|
||||
</Unit21>
|
||||
<Unit22>
|
||||
<Filename Value="ttgload.pas"/>
|
||||
<UnitName Value="TTGLoad"/>
|
||||
<WindowIndex Value="0"/>
|
||||
<TopLine Value="553"/>
|
||||
<CursorPos X="13" Y="560"/>
|
||||
<UsageCount Value="48"/>
|
||||
</Unit22>
|
||||
<Unit23>
|
||||
<Filename Value="ttobjs.pas"/>
|
||||
<UnitName Value="TTObjs"/>
|
||||
<WindowIndex Value="0"/>
|
||||
<TopLine Value="1842"/>
|
||||
<CursorPos X="18" Y="1858"/>
|
||||
<UsageCount Value="51"/>
|
||||
</Unit23>
|
||||
<Unit24>
|
||||
<Filename Value="ttcache.pas"/>
|
||||
<UnitName Value="TTCache"/>
|
||||
<WindowIndex Value="0"/>
|
||||
<TopLine Value="291"/>
|
||||
<CursorPos X="5" Y="312"/>
|
||||
<UsageCount Value="21"/>
|
||||
</Unit24>
|
||||
<Unit25>
|
||||
<Filename Value="ttcalc.pas"/>
|
||||
<UnitName Value="TTCalc"/>
|
||||
<WindowIndex Value="0"/>
|
||||
<TopLine Value="43"/>
|
||||
<CursorPos X="1" Y="1"/>
|
||||
<UsageCount Value="38"/>
|
||||
</Unit25>
|
||||
<Unit26>
|
||||
<Filename Value="ttcalc1.inc"/>
|
||||
<WindowIndex Value="0"/>
|
||||
<TopLine Value="1"/>
|
||||
<CursorPos X="1" Y="1"/>
|
||||
<UsageCount Value="10"/>
|
||||
</Unit26>
|
||||
<Unit27>
|
||||
<Filename Value="ttcalc2.inc"/>
|
||||
<WindowIndex Value="0"/>
|
||||
<TopLine Value="1"/>
|
||||
<CursorPos X="1" Y="1"/>
|
||||
<UsageCount Value="10"/>
|
||||
</Unit27>
|
||||
<Unit28>
|
||||
<Filename Value="ttcalc3.inc"/>
|
||||
<WindowIndex Value="0"/>
|
||||
<TopLine Value="1"/>
|
||||
<CursorPos X="1" Y="1"/>
|
||||
<UsageCount Value="10"/>
|
||||
</Unit28>
|
||||
<Unit29>
|
||||
<Filename Value="ttcalc4.inc"/>
|
||||
<WindowIndex Value="0"/>
|
||||
<TopLine Value="85"/>
|
||||
<CursorPos X="37" Y="85"/>
|
||||
<UsageCount Value="37"/>
|
||||
</Unit29>
|
||||
<Unit30>
|
||||
<Filename Value="ttcmap.pas"/>
|
||||
<UnitName Value="TTCMap"/>
|
||||
<WindowIndex Value="0"/>
|
||||
<TopLine Value="265"/>
|
||||
<CursorPos X="25" Y="257"/>
|
||||
<UsageCount Value="12"/>
|
||||
</Unit30>
|
||||
<Unit31>
|
||||
<Filename Value="ttconfig.inc"/>
|
||||
<WindowIndex Value="0"/>
|
||||
<TopLine Value="18"/>
|
||||
<CursorPos X="9" Y="74"/>
|
||||
<UsageCount Value="9"/>
|
||||
</Unit31>
|
||||
<Unit32>
|
||||
<Filename Value="ttdebug.pas"/>
|
||||
<UnitName Value="TTDebug"/>
|
||||
<WindowIndex Value="0"/>
|
||||
<TopLine Value="1"/>
|
||||
<CursorPos X="13" Y="11"/>
|
||||
<UsageCount Value="37"/>
|
||||
</Unit32>
|
||||
<Unit33>
|
||||
<Filename Value="tterror.pas"/>
|
||||
<UnitName Value="TTError"/>
|
||||
<WindowIndex Value="0"/>
|
||||
<TopLine Value="16"/>
|
||||
<CursorPos X="5" Y="37"/>
|
||||
<UsageCount Value="31"/>
|
||||
</Unit33>
|
||||
<Unit34>
|
||||
<Filename Value="ttfile.pas"/>
|
||||
<UnitName Value="TTFile"/>
|
||||
<WindowIndex Value="0"/>
|
||||
<TopLine Value="560"/>
|
||||
<CursorPos X="51" Y="573"/>
|
||||
<UsageCount Value="21"/>
|
||||
</Unit34>
|
||||
<Unit35>
|
||||
<Filename Value="ttinterp.pas"/>
|
||||
<UnitName Value="TTInterp"/>
|
||||
<WindowIndex Value="0"/>
|
||||
<TopLine Value="25"/>
|
||||
<CursorPos X="1" Y="39"/>
|
||||
<UsageCount Value="37"/>
|
||||
</Unit35>
|
||||
<Unit36>
|
||||
<Filename Value="ttload.pas"/>
|
||||
<UnitName Value="TTLoad"/>
|
||||
<WindowIndex Value="0"/>
|
||||
<TopLine Value="998"/>
|
||||
<CursorPos X="10" Y="1016"/>
|
||||
<UsageCount Value="39"/>
|
||||
</Unit36>
|
||||
<Unit37>
|
||||
<Filename Value="ttraster.pas"/>
|
||||
<UnitName Value="TTRASTER"/>
|
||||
<WindowIndex Value="0"/>
|
||||
<TopLine Value="573"/>
|
||||
<CursorPos X="1" Y="591"/>
|
||||
<UsageCount Value="61"/>
|
||||
</Unit37>
|
||||
<Unit38>
|
||||
<Filename Value="tttables.pas"/>
|
||||
<UnitName Value="TTTables"/>
|
||||
<WindowIndex Value="0"/>
|
||||
<TopLine Value="122"/>
|
||||
<CursorPos X="41" Y="98"/>
|
||||
<UsageCount Value="10"/>
|
||||
</Unit38>
|
||||
<Unit39>
|
||||
<Filename Value="tttypes.pas"/>
|
||||
<UnitName Value="TTTypes"/>
|
||||
<WindowIndex Value="0"/>
|
||||
<TopLine Value="40"/>
|
||||
<CursorPos X="3" Y="58"/>
|
||||
<UsageCount Value="54"/>
|
||||
</Unit39>
|
||||
<Unit40>
|
||||
<Filename Value="D:\lazarus\lcl\forms.pp"/>
|
||||
<UnitName Value="Forms"/>
|
||||
<WindowIndex Value="0"/>
|
||||
<TopLine Value="1326"/>
|
||||
<CursorPos X="26" Y="1335"/>
|
||||
<UsageCount Value="1"/>
|
||||
</Unit40>
|
||||
<Unit41>
|
||||
<Filename Value="easyfreetype.pas"/>
|
||||
<UnitName Value="EasyFreeType"/>
|
||||
<WindowIndex Value="0"/>
|
||||
<TopLine Value="40"/>
|
||||
<CursorPos X="3" Y="34"/>
|
||||
<UsageCount Value="65"/>
|
||||
</Unit41>
|
||||
<Unit42>
|
||||
<Filename Value="D:\lazarus\fpc\2.4.2\source\rtl\objpas\math.pp"/>
|
||||
<UnitName Value="math"/>
|
||||
<WindowIndex Value="0"/>
|
||||
<TopLine Value="1"/>
|
||||
<CursorPos X="12" Y="32"/>
|
||||
<UsageCount Value="3"/>
|
||||
</Unit42>
|
||||
<Unit43>
|
||||
<Filename Value="D:\lazarus\fpc\2.4.2\source\rtl\i386\mathuh.inc"/>
|
||||
<WindowIndex Value="0"/>
|
||||
<TopLine Value="1"/>
|
||||
<CursorPos X="1" Y="1"/>
|
||||
<UsageCount Value="3"/>
|
||||
</Unit43>
|
||||
<Unit44>
|
||||
<Filename Value="D:\lazarus\fpc\2.4.2\source\rtl\win\sysutils.pp"/>
|
||||
<UnitName Value="sysutils"/>
|
||||
<WindowIndex Value="0"/>
|
||||
<TopLine Value="10"/>
|
||||
<CursorPos X="10" Y="26"/>
|
||||
<UsageCount Value="3"/>
|
||||
</Unit44>
|
||||
<Unit45>
|
||||
<Filename Value="D:\lazarus\fpc\2.4.2\source\rtl\win32\system.pp"/>
|
||||
<UnitName Value="System"/>
|
||||
<WindowIndex Value="0"/>
|
||||
<TopLine Value="801"/>
|
||||
<CursorPos X="12" Y="806"/>
|
||||
<UsageCount Value="10"/>
|
||||
</Unit45>
|
||||
<Unit46>
|
||||
<Filename Value="D:\lazarus\lcl\lcltype.pp"/>
|
||||
<UnitName Value="LCLType"/>
|
||||
<WindowIndex Value="0"/>
|
||||
<TopLine Value="2214"/>
|
||||
<CursorPos X="8" Y="2232"/>
|
||||
<UsageCount Value="49"/>
|
||||
</Unit46>
|
||||
<Unit47>
|
||||
<Filename Value="..\lazpaintsvn\bgrabitmap\bgragradients.pas"/>
|
||||
<UnitName Value="BGRAGradients"/>
|
||||
<WindowIndex Value="0"/>
|
||||
<TopLine Value="1"/>
|
||||
<CursorPos X="18" Y="11"/>
|
||||
<UsageCount Value="37"/>
|
||||
</Unit47>
|
||||
<Unit48>
|
||||
<Filename Value="..\lazpaintsvn\bgrabitmap\phongdraw.inc"/>
|
||||
<WindowIndex Value="0"/>
|
||||
<TopLine Value="1"/>
|
||||
<CursorPos X="20" Y="2"/>
|
||||
<UsageCount Value="37"/>
|
||||
</Unit48>
|
||||
<Unit49>
|
||||
<Filename Value="D:\lazarus\fpc\2.4.2\source\rtl\inc\systemh.inc"/>
|
||||
<WindowIndex Value="0"/>
|
||||
<TopLine Value="999"/>
|
||||
<CursorPos X="11" Y="1009"/>
|
||||
<UsageCount Value="11"/>
|
||||
</Unit49>
|
||||
<Unit50>
|
||||
<Filename Value="D:\lazarus\fpc\2.4.2\source\rtl\inc\heaph.inc"/>
|
||||
<WindowIndex Value="0"/>
|
||||
<TopLine Value="25"/>
|
||||
<CursorPos X="5" Y="43"/>
|
||||
<UsageCount Value="36"/>
|
||||
</Unit50>
|
||||
<Unit51>
|
||||
<Filename Value="D:\lazarus\fpc\2.4.2\source\rtl\inc\heap.inc"/>
|
||||
<WindowIndex Value="0"/>
|
||||
<TopLine Value="233"/>
|
||||
<CursorPos X="22" Y="247"/>
|
||||
<UsageCount Value="36"/>
|
||||
</Unit51>
|
||||
<Unit52>
|
||||
<Filename Value="ttprofile.pas"/>
|
||||
<UnitName Value="TTProfile"/>
|
||||
<WindowIndex Value="0"/>
|
||||
<TopLine Value="504"/>
|
||||
<CursorPos X="1" Y="522"/>
|
||||
<UsageCount Value="51"/>
|
||||
</Unit52>
|
||||
<Unit53>
|
||||
<Filename Value="D:\lazarus\lcl\include\customcontrol.inc"/>
|
||||
<WindowIndex Value="0"/>
|
||||
<TopLine Value="62"/>
|
||||
<CursorPos X="1" Y="80"/>
|
||||
<UsageCount Value="24"/>
|
||||
</Unit53>
|
||||
<Unit54>
|
||||
<Filename Value="ok\tttables.pas"/>
|
||||
<UnitName Value="TTTables"/>
|
||||
<WindowIndex Value="0"/>
|
||||
<TopLine Value="1"/>
|
||||
<CursorPos X="1" Y="1"/>
|
||||
<UsageCount Value="6"/>
|
||||
</Unit54>
|
||||
<Unit55>
|
||||
<Filename Value="ok\ttraster.pas"/>
|
||||
<UnitName Value="TTRASTER"/>
|
||||
<WindowIndex Value="0"/>
|
||||
<TopLine Value="2016"/>
|
||||
<CursorPos X="6" Y="2058"/>
|
||||
<UsageCount Value="6"/>
|
||||
</Unit55>
|
||||
<Unit56>
|
||||
<Filename Value="D:\lazarus\lcl\include\interfacebase.inc"/>
|
||||
<WindowIndex Value="0"/>
|
||||
<TopLine Value="31"/>
|
||||
<CursorPos X="63" Y="53"/>
|
||||
<UsageCount Value="7"/>
|
||||
</Unit56>
|
||||
<Unit57>
|
||||
<Filename Value="ttraster_sweep.inc"/>
|
||||
<WindowIndex Value="0"/>
|
||||
<TopLine Value="546"/>
|
||||
<CursorPos X="11" Y="555"/>
|
||||
<UsageCount Value="20"/>
|
||||
</Unit57>
|
||||
<Unit58>
|
||||
<Filename Value="D:\lazarus\fpc\2.4.2\source\rtl\win\wininc\struct.inc"/>
|
||||
<WindowIndex Value="0"/>
|
||||
<TopLine Value="641"/>
|
||||
<CursorPos X="20" Y="659"/>
|
||||
<UsageCount Value="19"/>
|
||||
</Unit58>
|
||||
<Unit59>
|
||||
<Filename Value="D:\lazarus\lcl\lclrescache.pas"/>
|
||||
<UnitName Value="LCLResCache"/>
|
||||
<WindowIndex Value="0"/>
|
||||
<TopLine Value="358"/>
|
||||
<CursorPos X="40" Y="361"/>
|
||||
<UsageCount Value="19"/>
|
||||
</Unit59>
|
||||
<Unit60>
|
||||
<Filename Value="D:\lazarus\lcl\avglvltree.pas"/>
|
||||
<UnitName Value="AvgLvlTree"/>
|
||||
<WindowIndex Value="0"/>
|
||||
<TopLine Value="806"/>
|
||||
<CursorPos X="1" Y="812"/>
|
||||
<UsageCount Value="19"/>
|
||||
</Unit60>
|
||||
<Unit61>
|
||||
<Filename Value="D:\lazarus\fpc\2.4.2\source\rtl\objpas\classes\classesh.inc"/>
|
||||
<WindowIndex Value="0"/>
|
||||
<TopLine Value="143"/>
|
||||
<CursorPos X="3" Y="161"/>
|
||||
<UsageCount Value="18"/>
|
||||
</Unit61>
|
||||
<Unit62>
|
||||
<Filename Value="D:\lazarus\lcl\include\winapi.inc"/>
|
||||
<WindowIndex Value="0"/>
|
||||
<TopLine Value="1289"/>
|
||||
<CursorPos X="1" Y="1317"/>
|
||||
<UsageCount Value="9"/>
|
||||
</Unit62>
|
||||
<Unit63>
|
||||
<Filename Value="D:\lazarus\lcl\include\winapih.inc"/>
|
||||
<WindowIndex Value="0"/>
|
||||
<TopLine Value="301"/>
|
||||
<CursorPos X="10" Y="319"/>
|
||||
<UsageCount Value="9"/>
|
||||
</Unit63>
|
||||
<Unit64>
|
||||
<Filename Value="D:\lazarus\lcl\include\intfbaselcl.inc"/>
|
||||
<WindowIndex Value="0"/>
|
||||
<TopLine Value="290"/>
|
||||
<CursorPos X="3" Y="252"/>
|
||||
<UsageCount Value="11"/>
|
||||
</Unit64>
|
||||
<Unit65>
|
||||
<Filename Value="D:\lazarus\lcl\include\lclintfh.inc"/>
|
||||
<WindowIndex Value="0"/>
|
||||
<TopLine Value="89"/>
|
||||
<CursorPos X="10" Y="107"/>
|
||||
<UsageCount Value="11"/>
|
||||
</Unit65>
|
||||
<Unit66>
|
||||
<Filename Value="D:\lazarus\fpc\2.4.2\source\rtl\inc\ustringh.inc"/>
|
||||
<WindowIndex Value="0"/>
|
||||
<TopLine Value="46"/>
|
||||
<CursorPos X="10" Y="103"/>
|
||||
<UsageCount Value="9"/>
|
||||
</Unit66>
|
||||
<Unit67>
|
||||
<Filename Value="D:\lazarus\fpc\2.4.2\source\rtl\inc\ustrings.inc"/>
|
||||
<WindowIndex Value="0"/>
|
||||
<TopLine Value="2104"/>
|
||||
<CursorPos X="10" Y="1994"/>
|
||||
<UsageCount Value="11"/>
|
||||
</Unit67>
|
||||
<Unit68>
|
||||
<Filename Value="D:\lazarus\lcl\lclproc.pas"/>
|
||||
<UnitName Value="LCLProc"/>
|
||||
<WindowIndex Value="0"/>
|
||||
<TopLine Value="1"/>
|
||||
<CursorPos X="1" Y="1"/>
|
||||
<UsageCount Value="11"/>
|
||||
</Unit68>
|
||||
<Unit69>
|
||||
<Filename Value="bgrafreetype.pas"/>
|
||||
<UnitName Value="BGRAFreeType"/>
|
||||
<WindowIndex Value="0"/>
|
||||
<TopLine Value="82"/>
|
||||
<CursorPos X="18" Y="96"/>
|
||||
<UsageCount Value="29"/>
|
||||
</Unit69>
|
||||
<Unit70>
|
||||
<Filename Value="D:\lazarus\lcl\intfgraphics.pas"/>
|
||||
<UnitName Value="IntfGraphics"/>
|
||||
<WindowIndex Value="0"/>
|
||||
<TopLine Value="226"/>
|
||||
<CursorPos X="17" Y="240"/>
|
||||
<UsageCount Value="12"/>
|
||||
</Unit70>
|
||||
<Unit71>
|
||||
<Filename Value="D:\lazarus\fpc\2.4.2\source\packages\fcl-image\src\fpimage.pp"/>
|
||||
<UnitName Value="FPimage"/>
|
||||
<WindowIndex Value="0"/>
|
||||
<TopLine Value="125"/>
|
||||
<CursorPos X="17" Y="140"/>
|
||||
<UsageCount Value="11"/>
|
||||
</Unit71>
|
||||
<Unit72>
|
||||
<Filename Value="D:\lazarus\fpc\2.4.2\source\packages\fcl-image\src\fpimage.inc"/>
|
||||
<WindowIndex Value="0"/>
|
||||
<TopLine Value="319"/>
|
||||
<CursorPos X="10" Y="321"/>
|
||||
<UsageCount Value="11"/>
|
||||
</Unit72>
|
||||
<Unit73>
|
||||
<Filename Value="D:\lazarus\lcl\graphtype.pp"/>
|
||||
<UnitName Value="GraphType"/>
|
||||
<WindowIndex Value="0"/>
|
||||
<TopLine Value="1241"/>
|
||||
<CursorPos X="3" Y="1239"/>
|
||||
<UsageCount Value="12"/>
|
||||
</Unit73>
|
||||
<Unit74>
|
||||
<Filename Value="intfdrawer.pas"/>
|
||||
<UnitName Value="IntfDrawer"/>
|
||||
<WindowIndex Value="0"/>
|
||||
<TopLine Value="78"/>
|
||||
<CursorPos X="31" Y="35"/>
|
||||
<UsageCount Value="13"/>
|
||||
</Unit74>
|
||||
<Unit75>
|
||||
<Filename Value="..\lazpaintsvn\bgrabitmap\bgrablend.pas"/>
|
||||
<UnitName Value="BGRABlend"/>
|
||||
<WindowIndex Value="0"/>
|
||||
<TopLine Value="474"/>
|
||||
<CursorPos X="1" Y="496"/>
|
||||
<UsageCount Value="12"/>
|
||||
</Unit75>
|
||||
<Unit76>
|
||||
<Filename Value="D:\lazarus\fpc\2.4.2\source\packages\fcl-image\src\fpcanvas.pp"/>
|
||||
<UnitName Value="FPCanvas"/>
|
||||
<WindowIndex Value="0"/>
|
||||
<TopLine Value="281"/>
|
||||
<CursorPos X="15" Y="299"/>
|
||||
<UsageCount Value="10"/>
|
||||
</Unit76>
|
||||
<Unit77>
|
||||
<Filename Value="D:\lazarus\fpc\2.4.2\source\packages\fcl-image\src\fpimgcanv.pp"/>
|
||||
<UnitName Value="FPImgCanv"/>
|
||||
<WindowIndex Value="0"/>
|
||||
<TopLine Value="1"/>
|
||||
<CursorPos X="17" Y="23"/>
|
||||
<UsageCount Value="11"/>
|
||||
</Unit77>
|
||||
<Unit78>
|
||||
<Filename Value="D:\lazarus\fpc\2.4.2\source\packages\fcl-image\src\fppixlcanv.pp"/>
|
||||
<UnitName Value="FPPixlCanv"/>
|
||||
<WindowIndex Value="0"/>
|
||||
<TopLine Value="25"/>
|
||||
<CursorPos X="3" Y="31"/>
|
||||
<UsageCount Value="10"/>
|
||||
</Unit78>
|
||||
<Unit79>
|
||||
<Filename Value="D:\lazarus\fpc\2.4.2\source\packages\fcl-image\src\fpinterpolation.inc"/>
|
||||
<WindowIndex Value="0"/>
|
||||
<TopLine Value="206"/>
|
||||
<CursorPos X="30" Y="222"/>
|
||||
<UsageCount Value="10"/>
|
||||
</Unit79>
|
||||
<Unit80>
|
||||
<Filename Value="D:\lazarus\fpc\2.4.2\source\packages\fcl-image\src\fpcanvas.inc"/>
|
||||
<WindowIndex Value="0"/>
|
||||
<TopLine Value="583"/>
|
||||
<CursorPos X="3" Y="623"/>
|
||||
<UsageCount Value="10"/>
|
||||
</Unit80>
|
||||
<Unit81>
|
||||
<Filename Value="..\lazpaintsvn\lazfreetype\ttfile.pas"/>
|
||||
<UnitName Value="TTFile"/>
|
||||
<WindowIndex Value="0"/>
|
||||
<TopLine Value="71"/>
|
||||
<CursorPos X="3" Y="190"/>
|
||||
<UsageCount Value="10"/>
|
||||
</Unit81>
|
||||
<Unit82>
|
||||
<Filename Value="..\lazpaintsvn\lazfreetype\ttcmap.pas"/>
|
||||
<UnitName Value="TTCMap"/>
|
||||
<WindowIndex Value="0"/>
|
||||
<TopLine Value="130"/>
|
||||
<CursorPos X="30" Y="139"/>
|
||||
<UsageCount Value="10"/>
|
||||
</Unit82>
|
||||
<Unit83>
|
||||
<Filename Value="..\ttintfdrawer.pas"/>
|
||||
<UnitName Value="TTIntfDrawer"/>
|
||||
<WindowIndex Value="0"/>
|
||||
<TopLine Value="1"/>
|
||||
<CursorPos X="1" Y="1"/>
|
||||
<UsageCount Value="11"/>
|
||||
</Unit83>
|
||||
<Unit84>
|
||||
<Filename Value="..\easyfreetype.pas"/>
|
||||
<UnitName Value="EasyFreeType"/>
|
||||
<WindowIndex Value="0"/>
|
||||
<TopLine Value="1"/>
|
||||
<CursorPos X="1" Y="1"/>
|
||||
<UsageCount Value="10"/>
|
||||
</Unit84>
|
||||
<Unit85>
|
||||
<Filename Value="D:\lazarus\fpc\2.4.2\source\rtl\objpas\sysutils\sysutilh.inc"/>
|
||||
<WindowIndex Value="0"/>
|
||||
<TopLine Value="188"/>
|
||||
<CursorPos X="3" Y="206"/>
|
||||
<UsageCount Value="10"/>
|
||||
</Unit85>
|
||||
<Unit86>
|
||||
<Filename Value="..\..\easyfreetype.pas"/>
|
||||
<UnitName Value="EasyFreeType"/>
|
||||
<WindowIndex Value="0"/>
|
||||
<TopLine Value="10"/>
|
||||
<CursorPos X="42" Y="20"/>
|
||||
<UsageCount Value="10"/>
|
||||
</Unit86>
|
||||
<Unit87>
|
||||
<Filename Value="..\..\freetype.pas"/>
|
||||
<UnitName Value="FreeType"/>
|
||||
<WindowIndex Value="0"/>
|
||||
<TopLine Value="1"/>
|
||||
<CursorPos X="1" Y="1"/>
|
||||
<UsageCount Value="10"/>
|
||||
</Unit87>
|
||||
<Unit88>
|
||||
<Filename Value="..\..\ttfile.pas"/>
|
||||
<UnitName Value="TTFile"/>
|
||||
<WindowIndex Value="0"/>
|
||||
<TopLine Value="1"/>
|
||||
<CursorPos X="1" Y="1"/>
|
||||
<UsageCount Value="10"/>
|
||||
</Unit88>
|
||||
<Unit89>
|
||||
<Filename Value="D:\lazarus\fpc\2.4.2\source\rtl\inc\system.inc"/>
|
||||
<WindowIndex Value="0"/>
|
||||
<TopLine Value="967"/>
|
||||
<CursorPos X="3" Y="969"/>
|
||||
<UsageCount Value="10"/>
|
||||
</Unit89>
|
||||
<Unit90>
|
||||
<Filename Value="..\..\ttintfdrawer.pas"/>
|
||||
<UnitName Value="TTIntfDrawer"/>
|
||||
<WindowIndex Value="0"/>
|
||||
<TopLine Value="1"/>
|
||||
<CursorPos X="1" Y="1"/>
|
||||
<UsageCount Value="10"/>
|
||||
</Unit90>
|
||||
<Unit91>
|
||||
<Filename Value="..\..\ttraster_sweep.inc"/>
|
||||
<WindowIndex Value="0"/>
|
||||
<TopLine Value="1"/>
|
||||
<CursorPos X="5" Y="43"/>
|
||||
<UsageCount Value="10"/>
|
||||
</Unit91>
|
||||
<Unit92>
|
||||
<Filename Value="..\..\ttraster.pas"/>
|
||||
<UnitName Value="TTRASTER"/>
|
||||
<WindowIndex Value="0"/>
|
||||
<TopLine Value="37"/>
|
||||
<CursorPos X="10" Y="44"/>
|
||||
<UsageCount Value="10"/>
|
||||
</Unit92>
|
||||
<Unit93>
|
||||
<Filename Value="..\..\ttconfig.inc"/>
|
||||
<WindowIndex Value="0"/>
|
||||
<TopLine Value="64"/>
|
||||
<CursorPos X="38" Y="81"/>
|
||||
<UsageCount Value="10"/>
|
||||
</Unit93>
|
||||
<Unit94>
|
||||
<Filename Value="lazfreetypeintfdrawer.pas"/>
|
||||
<UnitName Value="LazFreeTypeIntfDrawer"/>
|
||||
<EditorIndex Value="4"/>
|
||||
<WindowIndex Value="0"/>
|
||||
<TopLine Value="49"/>
|
||||
<CursorPos X="1" Y="59"/>
|
||||
<UsageCount Value="20"/>
|
||||
<Loaded Value="True"/>
|
||||
</Unit94>
|
||||
<Unit95>
|
||||
<Filename Value="..\..\components\lazutils\easylazfreetype.pas"/>
|
||||
<UnitName Value="EasyLazFreeType"/>
|
||||
<IsVisibleTab Value="True"/>
|
||||
<EditorIndex Value="1"/>
|
||||
<WindowIndex Value="0"/>
|
||||
<TopLine Value="180"/>
|
||||
<CursorPos X="9" Y="183"/>
|
||||
<UsageCount Value="10"/>
|
||||
<Loaded Value="True"/>
|
||||
</Unit95>
|
||||
<Unit96>
|
||||
<Filename Value="..\..\components\lazutils\ttraster.pas"/>
|
||||
<UnitName Value="TTRASTER"/>
|
||||
<EditorIndex Value="2"/>
|
||||
<WindowIndex Value="0"/>
|
||||
<TopLine Value="1100"/>
|
||||
<CursorPos X="29" Y="1103"/>
|
||||
<UsageCount Value="10"/>
|
||||
<Loaded Value="True"/>
|
||||
</Unit96>
|
||||
</Units>
|
||||
<JumpHistory Count="7" HistoryIndex="6">
|
||||
<Position1>
|
||||
<Filename Value="mainform.pas"/>
|
||||
<Caret Line="57" Column="20" TopLine="49"/>
|
||||
</Position1>
|
||||
<Position2>
|
||||
<Filename Value="mainform.pas"/>
|
||||
<Caret Line="14" Column="30" TopLine="1"/>
|
||||
</Position2>
|
||||
<Position3>
|
||||
<Filename Value="mainform.pas"/>
|
||||
<Caret Line="13" Column="32" TopLine="1"/>
|
||||
</Position3>
|
||||
<Position4>
|
||||
<Filename Value="mainform.pas"/>
|
||||
<Caret Line="114" Column="45" TopLine="102"/>
|
||||
</Position4>
|
||||
<Position5>
|
||||
<Filename Value="mainform.pas"/>
|
||||
<Caret Line="9" Column="29" TopLine="6"/>
|
||||
</Position5>
|
||||
<Position6>
|
||||
<Filename Value="..\..\components\lazutils\easylazfreetype.pas"/>
|
||||
<Caret Line="17" Column="57" TopLine="1"/>
|
||||
</Position6>
|
||||
<Position7>
|
||||
<Filename Value="..\..\components\lazutils\easylazfreetype.pas"/>
|
||||
<Caret Line="183" Column="9" TopLine="180"/>
|
||||
</Position7>
|
||||
</JumpHistory>
|
||||
</ProjectOptions>
|
||||
<CompilerOptions>
|
||||
<Version Value="11"/>
|
||||
<PathDelim Value="\"/>
|
||||
<Target>
|
||||
<Filename Value="lazfreetype"/>
|
||||
</Target>
|
||||
<SearchPaths>
|
||||
<IncludeFiles Value="$(ProjOutDir)"/>
|
||||
<UnitOutputDirectory Value="lib\$(TargetCPU)-$(TargetOS)"/>
|
||||
</SearchPaths>
|
||||
<Linking>
|
||||
<Debugging>
|
||||
<UseHeaptrc Value="True"/>
|
||||
</Debugging>
|
||||
<Options>
|
||||
<Win32>
|
||||
<GraphicApplication Value="True"/>
|
||||
</Win32>
|
||||
</Options>
|
||||
</Linking>
|
||||
<Other>
|
||||
<CompilerMessages>
|
||||
<UseMsgFile Value="True"/>
|
||||
</CompilerMessages>
|
||||
<CompilerPath Value="$(CompPath)"/>
|
||||
</Other>
|
||||
</CompilerOptions>
|
||||
<Debugging>
|
||||
<Exceptions Count="3">
|
||||
<Item1>
|
||||
<Name Value="EAbort"/>
|
||||
</Item1>
|
||||
<Item2>
|
||||
<Name Value="ECodetoolError"/>
|
||||
</Item2>
|
||||
<Item3>
|
||||
<Name Value="EFOpenError"/>
|
||||
</Item3>
|
||||
</Exceptions>
|
||||
</Debugging>
|
||||
</CONFIG>
|
||||
19
examples/lazfreetype/lazfreetype.lpr
Normal file
19
examples/lazfreetype/lazfreetype.lpr
Normal file
@ -0,0 +1,19 @@
|
||||
program lazfreetype;
|
||||
|
||||
{$mode objfpc}{$H+}
|
||||
|
||||
uses
|
||||
{$IFDEF UNIX}{$IFDEF UseCThreads}
|
||||
cthreads,
|
||||
{$ENDIF}{$ENDIF}
|
||||
Interfaces, // this includes the LCL widgetset
|
||||
Forms, mainform;
|
||||
|
||||
{$R *.res}
|
||||
|
||||
begin
|
||||
Application.Initialize;
|
||||
Application.CreateForm(TForm1, Form1);
|
||||
Application.Run;
|
||||
end.
|
||||
|
||||
BIN
examples/lazfreetype/lazfreetype.res
Normal file
BIN
examples/lazfreetype/lazfreetype.res
Normal file
Binary file not shown.
50
examples/lazfreetype/mainform.lfm
Normal file
50
examples/lazfreetype/mainform.lfm
Normal file
@ -0,0 +1,50 @@
|
||||
object Form1: TForm1
|
||||
Left = 238
|
||||
Height = 240
|
||||
Top = 161
|
||||
Width = 323
|
||||
Align = alBottom
|
||||
Caption = 'Form1'
|
||||
ClientHeight = 240
|
||||
ClientWidth = 323
|
||||
KeyPreview = True
|
||||
OnCreate = FormCreate
|
||||
OnDestroy = FormDestroy
|
||||
OnMouseMove = FormMouseMove
|
||||
OnPaint = FormPaint
|
||||
LCLVersion = '0.9.31'
|
||||
object Panel_Option: TPanel
|
||||
Left = 0
|
||||
Height = 40
|
||||
Top = 200
|
||||
Width = 323
|
||||
Align = alBottom
|
||||
ClientHeight = 40
|
||||
ClientWidth = 323
|
||||
TabOrder = 0
|
||||
object TrackBar_Size: TTrackBar
|
||||
Left = 8
|
||||
Height = 25
|
||||
Top = 8
|
||||
Width = 253
|
||||
Frequency = 0
|
||||
Max = 300
|
||||
Min = 1
|
||||
OnChange = TrackBar_SizeChange
|
||||
Position = 30
|
||||
Anchors = [akTop, akLeft, akRight]
|
||||
TabOrder = 0
|
||||
end
|
||||
object LFontSize: TLabel
|
||||
Left = 266
|
||||
Height = 16
|
||||
Top = 12
|
||||
Width = 51
|
||||
Alignment = taCenter
|
||||
Anchors = [akTop, akRight]
|
||||
AutoSize = False
|
||||
Caption = 'LFontSize'
|
||||
ParentColor = False
|
||||
end
|
||||
end
|
||||
end
|
||||
146
examples/lazfreetype/mainform.pas
Normal file
146
examples/lazfreetype/mainform.pas
Normal file
@ -0,0 +1,146 @@
|
||||
unit mainform;
|
||||
|
||||
{$mode objfpc}{$H+}
|
||||
|
||||
interface
|
||||
|
||||
uses
|
||||
Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, StdCtrls,
|
||||
ComCtrls, ExtCtrls, fpimage,
|
||||
|
||||
IntfGraphics, GraphType, //Intf basic routines
|
||||
|
||||
EasyLazFreeType, LazFreeTypeIntfDrawer; //EasyFreeType with Intf
|
||||
|
||||
type
|
||||
|
||||
{ TForm1 }
|
||||
|
||||
TForm1 = class(TForm)
|
||||
LFontSize: TLabel;
|
||||
Panel_Option: TPanel;
|
||||
TrackBar_Size: TTrackBar;
|
||||
procedure FormCreate(Sender: TObject);
|
||||
procedure FormDestroy(Sender: TObject);
|
||||
procedure FormMouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer);
|
||||
procedure FormPaint(Sender: TObject);
|
||||
procedure TrackBar_SizeChange(Sender: TObject);
|
||||
private
|
||||
procedure UpdateSizeLabel;
|
||||
{ private declarations }
|
||||
public
|
||||
{ public declarations }
|
||||
lazimg: TLazIntfImage;
|
||||
drawer: TIntfFreeTypeDrawer;
|
||||
ftFont: TFreeTypeFont;
|
||||
mx,my: integer; //mouse position
|
||||
end;
|
||||
|
||||
var
|
||||
Form1: TForm1;
|
||||
|
||||
implementation
|
||||
|
||||
{ TForm1 }
|
||||
|
||||
procedure TForm1.FormCreate(Sender: TObject);
|
||||
begin
|
||||
mx := clientwidth div 2;
|
||||
my := clientheight div 2;
|
||||
|
||||
lazimg := TLazIntfImage.Create(0,0, [riqfRGB,riqfAlpha]);
|
||||
drawer := TIntfFreeTypeDrawer.Create(lazimg);
|
||||
ftFont := nil;
|
||||
|
||||
try
|
||||
ftFont := TFreeTypeFont.Create; //only one font at once for now...
|
||||
ftFont.Name := 'arial.ttf';
|
||||
except
|
||||
on ex: Exception do
|
||||
begin
|
||||
FreeAndNil(drawer);
|
||||
FreeAndNil(lazimg);
|
||||
FreeAndNil(ftFont);
|
||||
MessageDlg('Font error',ex.Message,mtError,[mbOk],0);
|
||||
end;
|
||||
end;
|
||||
|
||||
UpdateSizeLabel;
|
||||
end;
|
||||
|
||||
procedure TForm1.FormDestroy(Sender: TObject);
|
||||
begin
|
||||
ftFont.Free;
|
||||
drawer.Free;
|
||||
lazimg.Free;
|
||||
end;
|
||||
|
||||
procedure TForm1.FormMouseMove(Sender: TObject; Shift: TShiftState; X,
|
||||
Y: Integer);
|
||||
begin
|
||||
mx := X;
|
||||
my := Y;
|
||||
invalidate;
|
||||
end;
|
||||
|
||||
procedure TForm1.UpdateSizeLabel;
|
||||
begin
|
||||
LFontSize.Caption := inttostr(TrackBar_Size.Position)+'pt';
|
||||
if ftFont <> nil then ftFont.SizeInPoints := TrackBar_Size.Position;
|
||||
end;
|
||||
|
||||
procedure TForm1.FormPaint(Sender: TObject);
|
||||
const zoom = 1;
|
||||
testtext = 'Hello world!';
|
||||
var bmp: TBitmap;
|
||||
tx,ty: integer;
|
||||
w: array of single;
|
||||
x,y,y2: single;
|
||||
i: integer;
|
||||
begin
|
||||
if lazimg = nil then exit;
|
||||
|
||||
tx := ClientWidth div zoom;
|
||||
ty := Panel_Option.Top div zoom;
|
||||
if (lazimg.Width <> tx) or (lazimg.Height <> ty) then
|
||||
lazimg.SetSize(tx,ty);
|
||||
lazimg.FillPixels(TColorToFPColor(clWhite));
|
||||
|
||||
ftFont.Hinted := true;
|
||||
ftFont.ClearType := true;
|
||||
ftFont.Quality := grqHighQuality;
|
||||
x := mx/zoom - ftFont.TextWidth(testtext)/2;
|
||||
y := round(my/zoom);
|
||||
drawer.DrawText(testtext, ftFont, x, y, colBlack, 255);
|
||||
w := ftFont.CharsWidth(testtext);
|
||||
y2 := y-ftFont.SizeInPixels;
|
||||
drawer.DrawVertLine(round(x),round(y),round(y2), TColorToFPColor(clBlue));
|
||||
for i := 0 to high(w) do
|
||||
begin
|
||||
x += w[i];
|
||||
drawer.DrawVertLine(round(x),round(y),round(y2), TColorToFPColor(clBlue));
|
||||
end;
|
||||
|
||||
ftFont.Hinted := false;
|
||||
ftFont.ClearType := false;
|
||||
ftFont.Quality := grqLowQuality;
|
||||
drawer.DrawText(testtext, ftFont, mx/zoom - ftFont.TextWidth(testtext)/4, my/zoom + ftFont.SizeInPixels/2, colRed, 192);
|
||||
ftFont.Quality := grqMonochrome;
|
||||
drawer.DrawText(testtext, ftFont, mx/zoom, my/zoom + ftFont.SizeInPixels, colBlack, 128);
|
||||
|
||||
bmp := TBitmap.Create;
|
||||
bmp.LoadFromIntfImage(lazimg);
|
||||
Canvas.StretchDraw(rect(0,0,lazimg.width*zoom,lazimg.height*zoom),bmp);
|
||||
bmp.Free;
|
||||
end;
|
||||
|
||||
procedure TForm1.TrackBar_SizeChange(Sender: TObject);
|
||||
begin
|
||||
UpdateSizeLabel;
|
||||
Invalidate;
|
||||
end;
|
||||
|
||||
{$R *.lfm}
|
||||
|
||||
end.
|
||||
|
||||
Loading…
Reference in New Issue
Block a user