paweld/lazarus-ccr
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

removed Carbon bindings from the sample

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@920 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
skalogryz 2009-07-21 22:41:40 +00:00
parent b3909f097d
commit e1c560ada7
4 changed files with 232 additions and 363 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

344
components/richmemo/samples/testsimple/project1.lpi
View File

@ -6,7 +6,7 @@
<MainUnit Value="0"/> <MainUnit Value="0"/>
<TargetFileExt Value=""/> <TargetFileExt Value=""/>
<UseXPManifest Value="True"/> <UseXPManifest Value="True"/>
<ActiveEditorIndexAtStart Value="1"/> <ActiveEditorIndexAtStart Value="0"/>
</General> </General>
<VersionInfo> <VersionInfo>
<ProjectVersion Value=""/> <ProjectVersion Value=""/>
@ -32,14 +32,14 @@
<PackageName Value="LCL"/> <PackageName Value="LCL"/>
</Item2> </Item2>
</RequiredPackages> </RequiredPackages>
<Units Count="50"> <Units Count="54">
<Unit0> <Unit0>
<Filename Value="project1.lpr"/> <Filename Value="project1.lpr"/>
<IsPartOfProject Value="True"/> <IsPartOfProject Value="True"/>
<UnitName Value="project1"/> <UnitName Value="project1"/>
<CursorPos X="12" Y="6"/> <CursorPos X="12" Y="6"/>
<TopLine Value="6"/> <TopLine Value="6"/>
<UsageCount Value="64"/> <UsageCount Value="70"/>
</Unit0> </Unit0>
<Unit1> <Unit1>
<Filename Value="unit1.pas"/> <Filename Value="unit1.pas"/>
@ -47,10 +47,10 @@
<ComponentName Value="Form1"/> <ComponentName Value="Form1"/>
<ResourceBaseClass Value="Form"/> <ResourceBaseClass Value="Form"/>
<UnitName Value="Unit1"/> <UnitName Value="Unit1"/>
<CursorPos X="27" Y="57"/> <CursorPos X="29" Y="125"/>
<TopLine Value="49"/> <TopLine Value="123"/>
<EditorIndex Value="0"/> <EditorIndex Value="0"/>
<UsageCount Value="64"/> <UsageCount Value="70"/>
<Loaded Value="True"/> <Loaded Value="True"/>
</Unit1> </Unit1>
<Unit2> <Unit2>
@ -58,84 +58,84 @@
<UnitName Value="CarbonRichMemo"/> <UnitName Value="CarbonRichMemo"/>
<CursorPos X="31" Y="137"/> <CursorPos X="31" Y="137"/>
<TopLine Value="114"/> <TopLine Value="114"/>
<UsageCount Value="12"/> <UsageCount Value="11"/>
</Unit2> </Unit2>
<Unit3> <Unit3>
<Filename Value="../RichMemo/win32/win32richmemo.pas"/> <Filename Value="../RichMemo/win32/win32richmemo.pas"/>
<UnitName Value="Win32RichMemo"/> <UnitName Value="Win32RichMemo"/>
<CursorPos X="1" Y="32"/> <CursorPos X="1" Y="32"/>
<TopLine Value="15"/> <TopLine Value="15"/>
<UsageCount Value="6"/> <UsageCount Value="5"/>
</Unit3> </Unit3>
<Unit4> <Unit4>
<Filename Value="../RichMemo/richmemofactory.pas"/> <Filename Value="../RichMemo/richmemofactory.pas"/>
<UnitName Value="RichMemoFactory"/> <UnitName Value="RichMemoFactory"/>
<CursorPos X="20" Y="22"/> <CursorPos X="20" Y="22"/>
<TopLine Value="1"/> <TopLine Value="1"/>
<UsageCount Value="6"/> <UsageCount Value="5"/>
</Unit4> </Unit4>
<Unit5> <Unit5>
<Filename Value="../RichMemo/wsrichmemo.pas"/> <Filename Value="../RichMemo/wsrichmemo.pas"/>
<UnitName Value="WSRichMemo"/> <UnitName Value="WSRichMemo"/>
<CursorPos X="32" Y="18"/> <CursorPos X="32" Y="18"/>
<TopLine Value="1"/> <TopLine Value="1"/>
<UsageCount Value="6"/> <UsageCount Value="5"/>
</Unit5> </Unit5>
<Unit6> <Unit6>
<Filename Value="../lazarus/lcl/widgetset/wsstdctrls.pp"/> <Filename Value="../lazarus/lcl/widgetset/wsstdctrls.pp"/>
<UnitName Value="WSStdCtrls"/> <UnitName Value="WSStdCtrls"/>
<CursorPos X="32" Y="140"/> <CursorPos X="32" Y="140"/>
<TopLine Value="126"/> <TopLine Value="126"/>
<UsageCount Value="6"/> <UsageCount Value="5"/>
</Unit6> </Unit6>
<Unit7> <Unit7>
<Filename Value="../lazarus/lcl/widgetset/wscontrols.pp"/> <Filename Value="../lazarus/lcl/widgetset/wscontrols.pp"/>
<UnitName Value="WSControls"/> <UnitName Value="WSControls"/>
<CursorPos X="33" Y="115"/> <CursorPos X="33" Y="115"/>
<TopLine Value="100"/> <TopLine Value="100"/>
<UsageCount Value="6"/> <UsageCount Value="5"/>
</Unit7> </Unit7>
<Unit8> <Unit8>
<Filename Value="../lazarus/lcl/lcltype.pp"/> <Filename Value="../lazarus/lcl/lcltype.pp"/>
<UnitName Value="LCLType"/> <UnitName Value="LCLType"/>
<CursorPos X="3" Y="2330"/> <CursorPos X="3" Y="2330"/>
<TopLine Value="2316"/> <TopLine Value="2316"/>
<UsageCount Value="7"/> <UsageCount Value="6"/>
</Unit8> </Unit8>
<Unit9> <Unit9>
<Filename Value="../lazarus/lcl/interfaces/carbon/carbonedits.pp"/> <Filename Value="../lazarus/lcl/interfaces/carbon/carbonedits.pp"/>
<UnitName Value="CarbonEdits"/> <UnitName Value="CarbonEdits"/>
<CursorPos X="3" Y="140"/> <CursorPos X="3" Y="140"/>
<TopLine Value="124"/> <TopLine Value="124"/>
<UsageCount Value="12"/> <UsageCount Value="11"/>
</Unit9> </Unit9>
<Unit10> <Unit10>
<Filename Value="../lazarus/lcl/widgetset/wscomctrls.pp"/> <Filename Value="../lazarus/lcl/widgetset/wscomctrls.pp"/>
<UnitName Value="WSComCtrls"/> <UnitName Value="WSComCtrls"/>
<CursorPos X="1" Y="144"/> <CursorPos X="1" Y="144"/>
<TopLine Value="144"/> <TopLine Value="144"/>
<UsageCount Value="6"/> <UsageCount Value="5"/>
</Unit10> </Unit10>
<Unit11> <Unit11>
<Filename Value="../lazarus/lcl/interfaces/carbon/carbonwsstdctrls.pp"/> <Filename Value="../lazarus/lcl/interfaces/carbon/carbonwsstdctrls.pp"/>
<UnitName Value="CarbonWSStdCtrls"/> <UnitName Value="CarbonWSStdCtrls"/>
<CursorPos X="20" Y="39"/> <CursorPos X="20" Y="39"/>
<TopLine Value="30"/> <TopLine Value="30"/>
<UsageCount Value="10"/> <UsageCount Value="9"/>
</Unit11> </Unit11>
<Unit12> <Unit12>
<Filename Value="../fpc/packages/univint/src/MacOSAll.pas"/> <Filename Value="../fpc/packages/univint/src/MacOSAll.pas"/>
<UnitName Value="MacOSAll"/> <UnitName Value="MacOSAll"/>
<CursorPos X="3" Y="35065"/> <CursorPos X="3" Y="35065"/>
<TopLine Value="35051"/> <TopLine Value="35051"/>
<UsageCount Value="11"/> <UsageCount Value="10"/>
</Unit12> </Unit12>
<Unit13> <Unit13>
<Filename Value="../lazarus/lcl/interfaces/carbon/carbongdiobjects.pp"/> <Filename Value="../lazarus/lcl/interfaces/carbon/carbongdiobjects.pp"/>
<UnitName Value="CarbonGDIObjects"/> <UnitName Value="CarbonGDIObjects"/>
<CursorPos X="3" Y="1109"/> <CursorPos X="3" Y="1109"/>
<TopLine Value="1100"/> <TopLine Value="1100"/>
<UsageCount Value="31"/> <UsageCount Value="35"/>
<Bookmarks Count="1"> <Bookmarks Count="1">
<Item0 X="25" Y="150" ID="1"/> <Item0 X="25" Y="150" ID="1"/>
</Bookmarks> </Bookmarks>
@ -146,7 +146,7 @@
<UnitName Value="CarbonProc"/> <UnitName Value="CarbonProc"/>
<CursorPos X="13" Y="554"/> <CursorPos X="13" Y="554"/>
<TopLine Value="538"/> <TopLine Value="538"/>
<UsageCount Value="10"/> <UsageCount Value="9"/>
<Bookmarks Count="2"> <Bookmarks Count="2">
<Item0 X="25" Y="151" ID="1"/> <Item0 X="25" Y="151" ID="1"/>
<Item1 X="3" Y="536" ID="2"/> <Item1 X="3" Y="536" ID="2"/>
@ -157,133 +157,129 @@
<UnitName Value="Controls"/> <UnitName Value="Controls"/>
<CursorPos X="3" Y="2457"/> <CursorPos X="3" Y="2457"/>
<TopLine Value="2448"/> <TopLine Value="2448"/>
<UsageCount Value="9"/> <UsageCount Value="8"/>
</Unit15> </Unit15>
<Unit16> <Unit16>
<Filename Value="../fpc/rtl/objpas/sysutils/sysutilh.inc"/> <Filename Value="../fpc/rtl/objpas/sysutils/sysutilh.inc"/>
<CursorPos X="17" Y="34"/> <CursorPos X="17" Y="34"/>
<TopLine Value="2"/> <TopLine Value="2"/>
<UsageCount Value="7"/> <UsageCount Value="6"/>
</Unit16> </Unit16>
<Unit17> <Unit17>
<Filename Value="../fpc/rtl/bsd/system.pp"/> <Filename Value="../fpc/rtl/bsd/system.pp"/>
<UnitName Value="System"/> <UnitName Value="System"/>
<CursorPos X="64" Y="52"/> <CursorPos X="64" Y="52"/>
<TopLine Value="29"/> <TopLine Value="29"/>
<UsageCount Value="7"/> <UsageCount Value="6"/>
</Unit17> </Unit17>
<Unit18> <Unit18>
<Filename Value="../fpc/rtl/amiga/sysosh.inc"/> <Filename Value="../fpc/rtl/amiga/sysosh.inc"/>
<CursorPos X="22" Y="18"/> <CursorPos X="22" Y="18"/>
<TopLine Value="7"/> <TopLine Value="7"/>
<UsageCount Value="7"/> <UsageCount Value="6"/>
</Unit18> </Unit18>
<Unit19> <Unit19>
<Filename Value="../RichMemo/richmemo.pas"/> <Filename Value="../RichMemo/richmemo.pas"/>
<UnitName Value="RichMemo"/> <UnitName Value="RichMemo"/>
<CursorPos X="15" Y="39"/> <CursorPos X="15" Y="39"/>
<TopLine Value="23"/> <TopLine Value="23"/>
<UsageCount Value="11"/> <UsageCount Value="10"/>
</Unit19> </Unit19>
<Unit20> <Unit20>
<Filename Value="../lazarus/lcl/interfaces/carbon/carbonprivate.pp"/> <Filename Value="../lazarus/lcl/interfaces/carbon/carbonprivate.pp"/>
<UnitName Value="CarbonPrivate"/> <UnitName Value="CarbonPrivate"/>
<CursorPos X="17" Y="649"/> <CursorPos X="17" Y="649"/>
<TopLine Value="640"/> <TopLine Value="640"/>
<UsageCount Value="30"/> <UsageCount Value="34"/>
<Loaded Value="True"/> <Loaded Value="True"/>
</Unit20> </Unit20>
<Unit21> <Unit21>
<Filename Value="../lazarus/lcl/interfaces/carbon/carbonprivatecontrol.inc"/> <Filename Value="../lazarus/lcl/interfaces/carbon/carbonprivatecontrol.inc"/>
<CursorPos X="42" Y="499"/> <CursorPos X="42" Y="499"/>
<TopLine Value="495"/> <TopLine Value="495"/>
<UsageCount Value="8"/> <UsageCount Value="7"/>
</Unit21> </Unit21>
<Unit22> <Unit22>
<Filename Value="../lazarus/lcl/interfaces/carbon/carbondef.pp"/> <Filename Value="../lazarus/lcl/interfaces/carbon/carbondef.pp"/>
<UnitName Value="CarbonDef"/> <UnitName Value="CarbonDef"/>
<CursorPos X="17" Y="649"/> <CursorPos X="17" Y="649"/>
<TopLine Value="640"/> <TopLine Value="640"/>
<UsageCount Value="8"/> <UsageCount Value="7"/>
</Unit22> </Unit22>
<Unit23> <Unit23>
<Filename Value="../lazarus/lcl/graphics.pp"/> <Filename Value="../lazarus/lcl/graphics.pp"/>
<UnitName Value="Graphics"/> <UnitName Value="Graphics"/>
<CursorPos X="3" Y="59"/> <CursorPos X="3" Y="59"/>
<TopLine Value="45"/> <TopLine Value="45"/>
<UsageCount Value="8"/> <UsageCount Value="7"/>
</Unit23> </Unit23>
<Unit24> <Unit24>
<Filename Value="../lazarus/lcl/interfaces/carbon/carbondbgconsts.pp"/> <Filename Value="../lazarus/lcl/interfaces/carbon/carbondbgconsts.pp"/>
<UnitName Value="CarbonDbgConsts"/> <UnitName Value="CarbonDbgConsts"/>
<CursorPos X="1" Y="1"/> <CursorPos X="1" Y="1"/>
<TopLine Value="1"/> <TopLine Value="1"/>
<UsageCount Value="7"/> <UsageCount Value="6"/>
</Unit24> </Unit24>
<Unit25> <Unit25>
<Filename Value="Unit1.lrs"/> <Filename Value="Unit1.lrs"/>
<CursorPos X="1" Y="1"/> <CursorPos X="1" Y="1"/>
<TopLine Value="1"/> <TopLine Value="1"/>
<UsageCount Value="7"/> <UsageCount Value="6"/>
</Unit25> </Unit25>
<Unit26> <Unit26>
<Filename Value="../../../lazarus/ide/keymapping.pp"/> <Filename Value="../../../lazarus/ide/keymapping.pp"/>
<UnitName Value="KeyMapping"/> <UnitName Value="KeyMapping"/>
<CursorPos X="74" Y="1565"/> <CursorPos X="74" Y="1565"/>
<TopLine Value="1558"/> <TopLine Value="1558"/>
<UsageCount Value="7"/> <UsageCount Value="6"/>
</Unit26> </Unit26>
<Unit27> <Unit27>
<Filename Value="../../richmemo.pas"/> <Filename Value="../../richmemo.pas"/>
<UnitName Value="RichMemo"/> <UnitName Value="RichMemo"/>
<CursorPos X="15" Y="55"/> <CursorPos X="1" Y="44"/>
<TopLine Value="42"/> <TopLine Value="44"/>
<EditorIndex Value="6"/> <EditorIndex Value="10"/>
<UsageCount Value="27"/> <UsageCount Value="31"/>
<Loaded Value="True"/> <Loaded Value="True"/>
</Unit27> </Unit27>
<Unit28> <Unit28>
<Filename Value="../../wsrichmemo.pas"/> <Filename Value="../../wsrichmemo.pas"/>
<UnitName Value="WSRichMemo"/> <UnitName Value="WSRichMemo"/>
<CursorPos X="31" Y="47"/> <CursorPos X="1" Y="2"/>
<TopLine Value="32"/> <TopLine Value="1"/>
<EditorIndex Value="5"/> <UsageCount Value="25"/>
<UsageCount Value="27"/>
<Loaded Value="True"/>
</Unit28> </Unit28>
<Unit29> <Unit29>
<Filename Value="../../carbon/carbonrichmemo.pas"/> <Filename Value="../../carbon/carbonrichmemo.pas"/>
<UnitName Value="CarbonRichMemo"/> <UnitName Value="CarbonRichMemo"/>
<CursorPos X="12" Y="281"/> <CursorPos X="16" Y="2"/>
<TopLine Value="268"/> <TopLine Value="1"/>
<UsageCount Value="19"/> <UsageCount Value="17"/>
</Unit29> </Unit29>
<Unit30> <Unit30>
<Filename Value="../../../fpc/packages/univint/src/MacOSAll.pas"/> <Filename Value="../../../fpc/packages/univint/src/MacOSAll.pas"/>
<UnitName Value="MacOSAll"/> <UnitName Value="MacOSAll"/>
<CursorPos X="1" Y="495"/> <CursorPos X="39" Y="220678"/>
<TopLine Value="495"/> <TopLine Value="220670"/>
<EditorIndex Value="4"/> <UsageCount Value="16"/>
<UsageCount Value="18"/>
<Loaded Value="True"/>
</Unit30> </Unit30>
<Unit31> <Unit31>
<Filename Value="../../../fpc/rtl/objpas/sysutils/osutilsh.inc"/> <Filename Value="../../../fpc/rtl/objpas/sysutils/osutilsh.inc"/>
<CursorPos X="10" Y="34"/> <CursorPos X="10" Y="34"/>
<TopLine Value="20"/> <TopLine Value="20"/>
<UsageCount Value="9"/> <UsageCount Value="8"/>
</Unit31> </Unit31>
<Unit32> <Unit32>
<Filename Value="../../../fpc/rtl/objpas/classes/classesh.inc"/> <Filename Value="../../../fpc/rtl/objpas/classes/classesh.inc"/>
<CursorPos X="19" Y="728"/> <CursorPos X="19" Y="728"/>
<TopLine Value="714"/> <TopLine Value="714"/>
<UsageCount Value="9"/> <UsageCount Value="8"/>
</Unit32> </Unit32>
<Unit33> <Unit33>
<Filename Value="../../../fpc/rtl/objpas/classes/streams.inc"/> <Filename Value="../../../fpc/rtl/objpas/classes/streams.inc"/>
<CursorPos X="8" Y="147"/> <CursorPos X="8" Y="147"/>
<TopLine Value="140"/> <TopLine Value="140"/>
<UsageCount Value="9"/> <UsageCount Value="8"/>
</Unit33> </Unit33>
<Unit34> <Unit34>
<Filename Value="../../../../wnlibsvn/CarbonPaste.pas"/> <Filename Value="../../../../wnlibsvn/CarbonPaste.pas"/>
@ -291,42 +287,44 @@
<UnitName Value="CarbonPaste"/> <UnitName Value="CarbonPaste"/>
<CursorPos X="43" Y="9"/> <CursorPos X="43" Y="9"/>
<TopLine Value="1"/> <TopLine Value="1"/>
<UsageCount Value="48"/> <UsageCount Value="54"/>
</Unit34> </Unit34>
<Unit35> <Unit35>
<Filename Value="../../../fpc/rtl/objpas/sysutils/sysutilh.inc"/> <Filename Value="../../../fpc/rtl/objpas/sysutils/sysutilh.inc"/>
<CursorPos X="13" Y="185"/> <CursorPos X="13" Y="185"/>
<TopLine Value="169"/> <TopLine Value="169"/>
<UsageCount Value="8"/> <UsageCount Value="7"/>
</Unit35> </Unit35>
<Unit36> <Unit36>
<Filename Value="../../../lazarus/lcl/widgetset/wsstdctrls.pp"/> <Filename Value="../../../lazarus/lcl/widgetset/wsstdctrls.pp"/>
<UnitName Value="WSStdCtrls"/> <UnitName Value="WSStdCtrls"/>
<CursorPos X="20" Y="144"/> <CursorPos X="20" Y="145"/>
<TopLine Value="131"/> <TopLine Value="138"/>
<UsageCount Value="14"/> <UsageCount Value="13"/>
</Unit36> </Unit36>
<Unit37> <Unit37>
<Filename Value="../../richmemotypes.pas"/> <Filename Value="../../richmemotypes.pas"/>
<UnitName Value="RichMemoTypes"/> <UnitName Value="RichMemoTypes"/>
<CursorPos X="1" Y="1"/> <CursorPos X="1" Y="1"/>
<TopLine Value="1"/> <TopLine Value="1"/>
<UsageCount Value="9"/> <UsageCount Value="8"/>
</Unit37> </Unit37>
<Unit38> <Unit38>
<Filename Value="../../win32/win32richmemo.pas"/> <Filename Value="../../win32/win32richmemo.pas"/>
<UnitName Value="Win32RichMemo"/> <UnitName Value="Win32RichMemo"/>
<CursorPos X="15" Y="2"/> <CursorPos X="11" Y="288"/>
<TopLine Value="1"/> <TopLine Value="280"/>
<UsageCount Value="16"/> <EditorIndex Value="1"/>
<UsageCount Value="15"/>
<Loaded Value="True"/>
</Unit38> </Unit38>
<Unit39> <Unit39>
<Filename Value="../../win32/win32richmemoproc.pas"/> <Filename Value="../../win32/win32richmemoproc.pas"/>
<UnitName Value="Win32RichMemoProc"/> <UnitName Value="Win32RichMemoProc"/>
<CursorPos X="35" Y="172"/> <CursorPos X="27" Y="84"/>
<TopLine Value="154"/> <TopLine Value="70"/>
<EditorIndex Value="7"/> <EditorIndex Value="11"/>
<UsageCount Value="17"/> <UsageCount Value="21"/>
<Bookmarks Count="1"> <Bookmarks Count="1">
<Item0 X="1" Y="121" ID="2"/> <Item0 X="1" Y="121" ID="2"/>
</Bookmarks> </Bookmarks>
@ -337,7 +335,7 @@
<UnitName Value="richedit"/> <UnitName Value="richedit"/>
<CursorPos X="1" Y="1"/> <CursorPos X="1" Y="1"/>
<TopLine Value="1"/> <TopLine Value="1"/>
<UsageCount Value="12"/> <UsageCount Value="11"/>
<Bookmarks Count="1"> <Bookmarks Count="1">
<Item0 X="98" Y="366" ID="3"/> <Item0 X="98" Y="366" ID="3"/>
</Bookmarks> </Bookmarks>
@ -346,156 +344,225 @@
<Filename Value="../../../../../fpc/rtl/win/wininc/base.inc"/> <Filename Value="../../../../../fpc/rtl/win/wininc/base.inc"/>
<CursorPos X="1" Y="211"/> <CursorPos X="1" Y="211"/>
<TopLine Value="211"/> <TopLine Value="211"/>
<UsageCount Value="12"/> <UsageCount Value="11"/>
</Unit41> </Unit41>
<Unit42> <Unit42>
<Filename Value="../../../../../fpc/rtl/objpas/classes/classesh.inc"/> <Filename Value="../../../../../fpc/rtl/objpas/classes/classesh.inc"/>
<CursorPos X="1" Y="791"/> <CursorPos X="1" Y="791"/>
<TopLine Value="782"/> <TopLine Value="782"/>
<UsageCount Value="10"/> <UsageCount Value="9"/>
</Unit42> </Unit42>
<Unit43> <Unit43>
<Filename Value="../../../../../fpc/rtl/objpas/classes/streams.inc"/> <Filename Value="../../../../../fpc/rtl/objpas/classes/streams.inc"/>
<CursorPos X="3" Y="465"/> <CursorPos X="3" Y="465"/>
<TopLine Value="462"/> <TopLine Value="462"/>
<UsageCount Value="10"/> <UsageCount Value="9"/>
</Unit43> </Unit43>
<Unit44> <Unit44>
<Filename Value="../../../../../fpc/rtl/win/wininc/ascdef.inc"/> <Filename Value="../../../../../fpc/rtl/win/wininc/ascdef.inc"/>
<CursorPos X="120" Y="182"/> <CursorPos X="120" Y="182"/>
<TopLine Value="167"/> <TopLine Value="167"/>
<UsageCount Value="10"/> <UsageCount Value="9"/>
</Unit44> </Unit44>
<Unit45> <Unit45>
<Filename Value="../../../../../Lazarus/lcl/stdctrls.pp"/> <Filename Value="../../../../../Lazarus/lcl/stdctrls.pp"/>
<UnitName Value="StdCtrls"/> <UnitName Value="StdCtrls"/>
<CursorPos X="1" Y="23"/> <CursorPos X="33" Y="677"/>
<TopLine Value="1"/> <TopLine Value="662"/>
<EditorIndex Value="2"/>
<UsageCount Value="10"/> <UsageCount Value="10"/>
<Loaded Value="True"/>
</Unit45> </Unit45>
<Unit46> <Unit46>
<Filename Value="../../../../../Lazarus/lcl/interfaces/win32/win32def.pp"/> <Filename Value="../../../../../Lazarus/lcl/interfaces/win32/win32def.pp"/>
<UnitName Value="Win32Def"/> <UnitName Value="Win32Def"/>
<CursorPos X="1" Y="10"/> <CursorPos X="1" Y="10"/>
<TopLine Value="1"/> <TopLine Value="1"/>
<UsageCount Value="10"/> <UsageCount Value="9"/>
</Unit46> </Unit46>
<Unit47> <Unit47>
<Filename Value="../../../lazarus/lcl/interfaces/carbon/carbonedits.pp"/> <Filename Value="../../../../../Lazarus/lcl/interfaces/win32/win32wsstdctrls.pp"/>
<UnitName Value="CarbonEdits"/> <UnitName Value="Win32WSStdCtrls"/>
<CursorPos X="1" Y="1"/> <CursorPos X="26" Y="83"/>
<TopLine Value="1"/> <TopLine Value="67"/>
<EditorIndex Value="1"/> <EditorIndex Value="6"/>
<UsageCount Value="11"/> <UsageCount Value="10"/>
<Bookmarks Count="1">
<Item0 X="1" Y="188" ID="3"/>
</Bookmarks>
<Loaded Value="True"/> <Loaded Value="True"/>
</Unit47> </Unit47>
<Unit48> <Unit48>
<Filename Value="../../../lazarus/lcl/interfaces/carbon/carbonstrings.pp"/> <Filename Value="../../../../../Lazarus/lcl/widgetset/wsstdctrls.pp"/>
<UnitName Value="CarbonStrings"/> <UnitName Value="WSStdCtrls"/>
<CursorPos X="25" Y="5"/> <CursorPos X="36" Y="53"/>
<TopLine Value="1"/> <TopLine Value="39"/>
<EditorIndex Value="3"/> <EditorIndex Value="8"/>
<UsageCount Value="11"/> <UsageCount Value="10"/>
<Loaded Value="True"/> <Loaded Value="True"/>
</Unit48> </Unit48>
<Unit49> <Unit49>
<Filename Value="../../../lazarus/lcl/interfaces/carbon/carbondef.pp"/> <Filename Value="../../../../../Lazarus/lcl/widgetset/wscontrols.pp"/>
<UnitName Value="CarbonDef"/> <UnitName Value="WSControls"/>
<CursorPos X="5" Y="83"/> <CursorPos X="30" Y="100"/>
<TopLine Value="70"/> <TopLine Value="85"/>
<EditorIndex Value="2"/> <EditorIndex Value="9"/>
<UsageCount Value="10"/> <UsageCount Value="10"/>
<Loaded Value="True"/> <Loaded Value="True"/>
</Unit49> </Unit49>
<Unit50>
<Filename Value="../../../../../Lazarus/lcl/interfaces/win32/win32wscontrols.pp"/>
<UnitName Value="Win32WSControls"/>
<CursorPos X="1" Y="450"/>
<TopLine Value="434"/>
<EditorIndex Value="7"/>
<UsageCount Value="10"/>
<Loaded Value="True"/>
</Unit50>
<Unit51>
<Filename Value="../../../../../Lazarus/lcl/include/customlabel.inc"/>
<CursorPos X="3" Y="229"/>
<TopLine Value="227"/>
<EditorIndex Value="5"/>
<UsageCount Value="10"/>
<Loaded Value="True"/>
</Unit51>
<Unit52>
<Filename Value="../../../../../Lazarus/lcl/controls.pp"/>
<UnitName Value="Controls"/>
<CursorPos X="24" Y="1784"/>
<TopLine Value="1769"/>
<EditorIndex Value="3"/>
<UsageCount Value="10"/>
<Loaded Value="True"/>
</Unit52>
<Unit53>
<Filename Value="../../../../../Lazarus/lcl/include/wincontrol.inc"/>
<CursorPos X="5" Y="4342"/>
<TopLine Value="4334"/>
<EditorIndex Value="4"/>
<UsageCount Value="10"/>
<Loaded Value="True"/>
</Unit53>
</Units> </Units>
<JumpHistory Count="21" HistoryIndex="20"> <JumpHistory Count="30" HistoryIndex="29">
<Position1> <Position1>
<Filename Value="../../../lazarus/lcl/interfaces/carbon/carbonedits.pp"/> <Filename Value="../../../../../Lazarus/lcl/interfaces/win32/win32wscontrols.pp"/>
<Caret Line="1580" Column="5" TopLine="1555"/> <Caret Line="29" Column="1" TopLine="29"/>
</Position1> </Position1>
<Position2> <Position2>
<Filename Value="../../../lazarus/lcl/interfaces/carbon/carbonedits.pp"/> <Filename Value="../../../../../Lazarus/lcl/interfaces/win32/win32wscontrols.pp"/>
<Caret Line="1592" Column="1" TopLine="1580"/> <Caret Line="77" Column="30" TopLine="62"/>
</Position2> </Position2>
<Position3> <Position3>
<Filename Value="../../../lazarus/lcl/interfaces/carbon/carbonedits.pp"/> <Filename Value="unit1.pas"/>
<Caret Line="1600" Column="1" TopLine="1584"/> <Caret Line="40" Column="17" TopLine="38"/>
</Position3> </Position3>
<Position4> <Position4>
<Filename Value="../../../lazarus/lcl/interfaces/carbon/carbonedits.pp"/> <Filename Value="unit1.pas"/>
<Caret Line="1880" Column="1" TopLine="1855"/> <Caret Line="24" Column="16" TopLine="1"/>
</Position4> </Position4>
<Position5> <Position5>
<Filename Value="../../../lazarus/lcl/interfaces/carbon/carbonedits.pp"/> <Filename Value="../../../../../Lazarus/lcl/stdctrls.pp"/>
<Caret Line="27" Column="1" TopLine="27"/> <Caret Line="830" Column="17" TopLine="815"/>
</Position5> </Position5>
<Position6> <Position6>
<Filename Value="../../../lazarus/lcl/interfaces/carbon/carbonedits.pp"/> <Filename Value="../../../../../Lazarus/lcl/stdctrls.pp"/>
<Caret Line="1560" Column="5" TopLine="1535"/> <Caret Line="1" Column="1" TopLine="1"/>
</Position6> </Position6>
<Position7> <Position7>
<Filename Value="../../../lazarus/lcl/interfaces/carbon/carbonedits.pp"/> <Filename Value="../../../../../Lazarus/lcl/stdctrls.pp"/>
<Caret Line="1557" Column="61" TopLine="1544"/> <Caret Line="38" Column="16" TopLine="23"/>
</Position7> </Position7>
<Position8> <Position8>
<Filename Value="../../../lazarus/lcl/interfaces/carbon/carbonedits.pp"/> <Filename Value="../../../../../Lazarus/lcl/stdctrls.pp"/>
<Caret Line="178" Column="61" TopLine="163"/> <Caret Line="790" Column="16" TopLine="775"/>
</Position8> </Position8>
<Position9> <Position9>
<Filename Value="../../../lazarus/lcl/interfaces/carbon/carbonedits.pp"/> <Filename Value="../../../../../Lazarus/lcl/stdctrls.pp"/>
<Caret Line="1561" Column="18" TopLine="1556"/> <Caret Line="1363" Column="24" TopLine="1348"/>
</Position9> </Position9>
<Position10> <Position10>
<Filename Value="../../../lazarus/lcl/interfaces/carbon/carbonedits.pp"/> <Filename Value="../../../../../Lazarus/lcl/stdctrls.pp"/>
<Caret Line="178" Column="52" TopLine="178"/> <Caret Line="1391" Column="24" TopLine="1376"/>
</Position10> </Position10>
<Position11> <Position11>
<Filename Value="../../../lazarus/lcl/interfaces/carbon/carbonedits.pp"/> <Filename Value="../../../../../Lazarus/lcl/stdctrls.pp"/>
<Caret Line="1557" Column="61" TopLine="1557"/> <Caret Line="1" Column="1" TopLine="1"/>
</Position11> </Position11>
<Position12> <Position12>
<Filename Value="../../../lazarus/lcl/interfaces/carbon/carbonedits.pp"/> <Filename Value="../../../../../Lazarus/lcl/stdctrls.pp"/>
<Caret Line="1601" Column="1" TopLine="1592"/> <Caret Line="1391" Column="15" TopLine="1376"/>
</Position12> </Position12>
<Position13> <Position13>
<Filename Value="../../../lazarus/lcl/interfaces/carbon/carbonedits.pp"/> <Filename Value="../../../../../Lazarus/lcl/stdctrls.pp"/>
<Caret Line="1557" Column="25" TopLine="1544"/> <Caret Line="1" Column="1" TopLine="1"/>
</Position13> </Position13>
<Position14> <Position14>
<Filename Value="../../../lazarus/lcl/interfaces/carbon/carbonedits.pp"/> <Filename Value="../../../../../Lazarus/lcl/stdctrls.pp"/>
<Caret Line="178" Column="52" TopLine="178"/> <Caret Line="1391" Column="24" TopLine="1376"/>
</Position14> </Position14>
<Position15> <Position15>
<Filename Value="../../../lazarus/lcl/interfaces/carbon/carbonedits.pp"/> <Filename Value="../../../../../Lazarus/lcl/stdctrls.pp"/>
<Caret Line="190" Column="14" TopLine="176"/> <Caret Line="1" Column="1" TopLine="1"/>
</Position15> </Position15>
<Position16> <Position16>
<Filename Value="../../../lazarus/lcl/interfaces/carbon/carbonedits.pp"/> <Filename Value="../../../../../Lazarus/lcl/stdctrls.pp"/>
<Caret Line="1560" Column="51" TopLine="1548"/> <Caret Line="1289" Column="24" TopLine="1278"/>
</Position16> </Position16>
<Position17> <Position17>
<Filename Value="../../../lazarus/lcl/interfaces/carbon/carbonedits.pp"/> <Filename Value="../../../../../Lazarus/lcl/stdctrls.pp"/>
<Caret Line="1591" Column="19" TopLine="1578"/> <Caret Line="1" Column="1" TopLine="1"/>
</Position17> </Position17>
<Position18> <Position18>
<Filename Value="../../../lazarus/lcl/interfaces/carbon/carbonedits.pp"/> <Filename Value="../../../../../Lazarus/lcl/stdctrls.pp"/>
<Caret Line="1606" Column="3" TopLine="1588"/> <Caret Line="778" Column="33" TopLine="761"/>
</Position18> </Position18>
<Position19> <Position19>
<Filename Value="../../../lazarus/lcl/interfaces/carbon/carbonedits.pp"/> <Filename Value="../../../../../Lazarus/lcl/stdctrls.pp"/>
<Caret Line="1773" Column="1" TopLine="1763"/> <Caret Line="677" Column="33" TopLine="662"/>
</Position19> </Position19>
<Position20> <Position20>
<Filename Value="../../../lazarus/lcl/interfaces/carbon/carbonedits.pp"/> <Filename Value="../../../../../Lazarus/lcl/controls.pp"/>
<Caret Line="1" Column="1" TopLine="1"/> <Caret Line="1576" Column="3" TopLine="1561"/>
</Position20> </Position20>
<Position21> <Position21>
<Filename Value="../../../lazarus/lcl/interfaces/carbon/carbonedits.pp"/> <Filename Value="unit1.pas"/>
<Caret Line="342" Column="27" TopLine="333"/> <Caret Line="24" Column="16" TopLine="1"/>
</Position21> </Position21>
<Position22>
<Filename Value="../../win32/win32richmemo.pas"/>
<Caret Line="45" Column="90" TopLine="43"/>
</Position22>
<Position23>
<Filename Value="../../win32/win32richmemo.pas"/>
<Caret Line="102" Column="1" TopLine="72"/>
</Position23>
<Position24>
<Filename Value="../../win32/win32richmemo.pas"/>
<Caret Line="97" Column="32" TopLine="73"/>
</Position24>
<Position25>
<Filename Value="../../win32/win32richmemo.pas"/>
<Caret Line="1" Column="1" TopLine="1"/>
</Position25>
<Position26>
<Filename Value="unit1.pas"/>
<Caret Line="1" Column="1" TopLine="1"/>
</Position26>
<Position27>
<Filename Value="unit1.pas"/>
<Caret Line="7" Column="13" TopLine="29"/>
</Position27>
<Position28>
<Filename Value="unit1.pas"/>
<Caret Line="1" Column="1" TopLine="1"/>
</Position28>
<Position29>
<Filename Value="unit1.pas"/>
<Caret Line="23" Column="10" TopLine="30"/>
</Position29>
<Position30>
<Filename Value="unit1.pas"/>
<Caret Line="22" Column="22" TopLine="22"/>
</Position30>
</JumpHistory> </JumpHistory>
</ProjectOptions> </ProjectOptions>
<CompilerOptions> <CompilerOptions>
@ -503,13 +570,6 @@
<SearchPaths> <SearchPaths>
<IncludeFiles Value="$(ProjOutDir)/"/> <IncludeFiles Value="$(ProjOutDir)/"/>
</SearchPaths> </SearchPaths>
<Linking>
<Options>
<Win32>
<GraphicApplication Value="True"/>
</Win32>
</Options>
</Linking>
<Other> <Other>
<CompilerPath Value="$(CompPath)"/> <CompilerPath Value="$(CompPath)"/>
</Other> </Other>

149
components/richmemo/samples/testsimple/unit1.lfm
View File

@ -4,241 +4,92 @@ object Form1: TForm1
Top = 181 Top = 181
Width = 634 Width = 634
ActiveControl = RichMemo1 ActiveControl = RichMemo1
Align = alNone
AllowDropFiles = False
AutoScroll = True
AutoSize = False
BorderIcons = [biSystemMenu, biMinimize, biMaximize]
BorderStyle = bsSizeable
BorderWidth = 0
Caption = 'Form1' Caption = 'Form1'
ClientHeight = 457 ClientHeight = 457
ClientWidth = 634 ClientWidth = 634
DefaultMonitor = dmActiveForm
DockSite = False
DragKind = dkDrag
DragMode = dmManual
Enabled = True
FormStyle = fsNormal
OnCreate = FormCreate OnCreate = FormCreate
ParentBiDiMode = True
ParentFont = False
Position = poDesigned
ShowInTaskBar = stDefault
UseDockManager = False
LCLVersion = '0.9.27' LCLVersion = '0.9.27'
WindowState = wsNormal
object RichMemo1: TRichMemo object RichMemo1: TRichMemo
Left = 15 Left = 15
Height = 358 Height = 358
Top = 16 Top = 16
Width = 619 Width = 619
Align = alNone
Alignment = taLeftJustify
Anchors = [akTop, akLeft, akRight, akBottom] Anchors = [akTop, akLeft, akRight, akBottom]
BorderStyle = bsSingle
Color = clWindow
DragCursor = crDrag
DragKind = dkDrag
DragMode = dmManual
Enabled = True
Font.Height = -13 Font.Height = -13
Font.Name = 'Tahoma' Font.Name = 'Tahoma'
HideSelection = False HideSelection = False
Lines.Strings = ( Lines.Strings = (
'RichMemo1' 'RichMemo1'
) )
MaxLength = 0
ParentBidiMode = True
ParentColor = False
ParentFont = False ParentFont = False
ParentShowHint = True
ReadOnly = False
ScrollBars = ssVertical ScrollBars = ssVertical
TabOrder = 0 TabOrder = 0
TabStop = True
Visible = True
WantReturns = True
WantTabs = False
end end
object Button1: TButton object Button1: TButton
Left = 24 Left = 24
Height = 25 Height = 25
Top = 382 Top = 382
Width = 160 Width = 160
Align = alNone
Anchors = [akLeft, akBottom] Anchors = [akLeft, akBottom]
AutoSize = False
Cancel = False
Caption = 'Make Bold and Red' Caption = 'Make Bold and Red'
Color = clBtnFace
Default = False
DragCursor = crDrag
DragKind = dkDrag
DragMode = dmManual
Enabled = True
ParentBidiMode = True
ModalResult = 0
OnClick = Button1Click OnClick = Button1Click
ParentFont = True
ParentShowHint = True
TabOrder = 1 TabOrder = 1
TabStop = False TabStop = False
Visible = True
end end
object Button2: TButton object Button2: TButton
Left = 192 Left = 192
Height = 25 Height = 25
Top = 382 Top = 382
Width = 97 Width = 97
Align = alNone
Anchors = [akLeft, akBottom] Anchors = [akLeft, akBottom]
AutoSize = False
Cancel = False
Caption = 'Get Attribs' Caption = 'Get Attribs'
Color = clBtnFace
Default = False
DragCursor = crDrag
DragKind = dkDrag
DragMode = dmManual
Enabled = True
ParentBidiMode = True
ModalResult = 0
OnClick = Button2Click OnClick = Button2Click
ParentFont = True
ParentShowHint = True
TabOrder = 2 TabOrder = 2
TabStop = False TabStop = False
Visible = True
end end
object Button3: TButton object Button3: TButton
Left = 304 Left = 304
Height = 25 Height = 25
Top = 382 Top = 382
Width = 96 Width = 96
Align = alNone
Anchors = [akLeft, akBottom] Anchors = [akLeft, akBottom]
AutoSize = False
Cancel = False
Caption = 'Select Font' Caption = 'Select Font'
Color = clBtnFace
Default = False
DragCursor = crDrag
DragKind = dkDrag
DragMode = dmManual
Enabled = True
ParentBidiMode = True
ModalResult = 0
OnClick = Button3Click OnClick = Button3Click
ParentFont = True
ParentShowHint = True
TabOrder = 3 TabOrder = 3
TabStop = False TabStop = False
Visible = True
end end
object Button4: TButton object Button4: TButton
Left = 528 Left = 528
Height = 25 Height = 25
Top = 382 Top = 382
Width = 75 Width = 75
Align = alNone
Anchors = [akLeft, akBottom] Anchors = [akLeft, akBottom]
AutoSize = False
Cancel = False
Caption = 'Save RTF' Caption = 'Save RTF'
Color = clBtnFace
Default = False
DragCursor = crDrag
DragKind = dkDrag
DragMode = dmManual
Enabled = True
ParentBidiMode = True
ModalResult = 0
OnClick = Button4Click OnClick = Button4Click
ParentFont = True
ParentShowHint = True
TabOrder = 4 TabOrder = 4
TabStop = False TabStop = False
Visible = True
end end
object Button5: TButton object Button5: TButton
Left = 440 Left = 440
Height = 25 Height = 25
Top = 382 Top = 382
Width = 75 Width = 75
Align = alNone
Anchors = [akLeft, akBottom] Anchors = [akLeft, akBottom]
AutoSize = False
Cancel = False
Caption = 'Load RTF' Caption = 'Load RTF'
Color = clBtnFace
Default = False
DragCursor = crDrag
DragKind = dkDrag
DragMode = dmManual
Enabled = True
ParentBidiMode = True
ModalResult = 0
OnClick = Button5Click OnClick = Button5Click
ParentFont = True
ParentShowHint = True
TabOrder = 5 TabOrder = 5
TabStop = False TabStop = False
Visible = True
end end
object Button6: TButton object Button6: TButton
Left = 24 Left = 24
Height = 25 Height = 25
Top = 415 Top = 415
Width = 160 Width = 160
Align = alNone
Anchors = [akLeft, akBottom] Anchors = [akLeft, akBottom]
AutoSize = False
Cancel = False
Caption = 'Next Style Range' Caption = 'Next Style Range'
Color = clBtnFace
Default = False
DragCursor = crDrag
DragKind = dkDrag
DragMode = dmManual
Enabled = True
ParentBidiMode = True
ModalResult = 0
OnClick = Button6Click OnClick = Button6Click
ParentFont = True
ParentShowHint = True
TabOrder = 6 TabOrder = 6
TabStop = False TabStop = False
Visible = True
end
object Edit1: TEdit
Left = 216
Height = 16
Top = 415
Width = 320
Align = alNone
Alignment = taLeftJustify
AutoSize = True
AutoSelect = False
BorderStyle = bsSingle
Color = clWindow
CharCase = ecNormal
DragCursor = crDrag
DragKind = dkDrag
DragMode = dmManual
EchoMode = emNormal
Enabled = True
MaxLength = 0
ParentBidiMode = True
ParentColor = False
ParentFont = True
ParentShowHint = True
PasswordChar = #0
ReadOnly = False
TabStop = True
TabOrder = 7
Text = 'Edit1'
Visible = True
end end
object FontDialog1: TFontDialog object FontDialog1: TFontDialog
MinFontSize = 0 MinFontSize = 0

99
components/richmemo/samples/testsimple/unit1.lrs
View File

@ -2,73 +2,34 @@
LazarusResources.Add('TForm1','FORMDATA',[ LazarusResources.Add('TForm1','FORMDATA',[
'TPF0'#6'TForm1'#5'Form1'#4'Left'#3#196#0#6'Height'#3#201#1#3'Top'#3#181#0#5 'TPF0'#6'TForm1'#5'Form1'#4'Left'#3#196#0#6'Height'#3#201#1#3'Top'#3#181#0#5
+'Width'#3'z'#2#13'ActiveControl'#7#9'RichMemo1'#5'Align'#7#6'alNone'#14'Allo' +'Width'#3'z'#2#13'ActiveControl'#7#9'RichMemo1'#7'Caption'#6#5'Form1'#12'Cli'
+'wDropFiles'#8#10'AutoScroll'#9#8'AutoSize'#8#11'BorderIcons'#11#12'biSystem' +'entHeight'#3#201#1#11'ClientWidth'#3'z'#2#8'OnCreate'#7#10'FormCreate'#10'L'
+'Menu'#10'biMinimize'#10'biMaximize'#0#11'BorderStyle'#7#10'bsSizeable'#11'B' +'CLVersion'#6#6'0.9.27'#0#9'TRichMemo'#9'RichMemo1'#4'Left'#2#15#6'Height'#3
+'orderWidth'#2#0#7'Caption'#6#5'Form1'#12'ClientHeight'#3#201#1#11'ClientWid' +'f'#1#3'Top'#2#16#5'Width'#3'k'#2#7'Anchors'#11#5'akTop'#6'akLeft'#7'akRight'
+'th'#3'z'#2#14'DefaultMonitor'#7#12'dmActiveForm'#8'DockSite'#8#8'DragKind'#7 +#8'akBottom'#0#11'Font.Height'#2#243#9'Font.Name'#6#6'Tahoma'#13'HideSelecti'
+#6'dkDrag'#8'DragMode'#7#8'dmManual'#7'Enabled'#9#9'FormStyle'#7#8'fsNormal' +'on'#8#13'Lines.Strings'#1#6#9'RichMemo1'#0#10'ParentFont'#8#10'ScrollBars'#7
+#8'OnCreate'#7#10'FormCreate'#14'ParentBiDiMode'#9#10'ParentFont'#8#8'Positi' +#10'ssVertical'#8'TabOrder'#2#0#0#0#7'TButton'#7'Button1'#4'Left'#2#24#6'Hei'
+'on'#7#10'poDesigned'#13'ShowInTaskBar'#7#9'stDefault'#14'UseDockManager'#8 +'ght'#2#25#3'Top'#3'~'#1#5'Width'#3#160#0#7'Anchors'#11#6'akLeft'#8'akBottom'
+#10'LCLVersion'#6#6'0.9.27'#11'WindowState'#7#8'wsNormal'#0#9'TRichMemo'#9'R' +#0#7'Caption'#6#17'Make Bold and Red'#7'OnClick'#7#12'Button1Click'#8'TabOrd'
+'ichMemo1'#4'Left'#2#15#6'Height'#3'f'#1#3'Top'#2#16#5'Width'#3'k'#2#5'Align' +'er'#2#1#7'TabStop'#8#0#0#7'TButton'#7'Button2'#4'Left'#3#192#0#6'Height'#2
+#7#6'alNone'#9'Alignment'#7#13'taLeftJustify'#7'Anchors'#11#5'akTop'#6'akLef' +#25#3'Top'#3'~'#1#5'Width'#2'a'#7'Anchors'#11#6'akLeft'#8'akBottom'#0#7'Capt'
+'t'#7'akRight'#8'akBottom'#0#11'BorderStyle'#7#8'bsSingle'#5'Color'#7#8'clWi' +'ion'#6#11'Get Attribs'#7'OnClick'#7#12'Button2Click'#8'TabOrder'#2#2#7'TabS'
+'ndow'#10'DragCursor'#7#6'crDrag'#8'DragKind'#7#6'dkDrag'#8'DragMode'#7#8'dm' +'top'#8#0#0#7'TButton'#7'Button3'#4'Left'#3'0'#1#6'Height'#2#25#3'Top'#3'~'#1
+'Manual'#7'Enabled'#9#11'Font.Height'#2#243#9'Font.Name'#6#6'Tahoma'#13'Hide' +#5'Width'#2'`'#7'Anchors'#11#6'akLeft'#8'akBottom'#0#7'Caption'#6#11'Select '
+'Selection'#8#13'Lines.Strings'#1#6#9'RichMemo1'#0#9'MaxLength'#2#0#14'Paren' +'Font'#7'OnClick'#7#12'Button3Click'#8'TabOrder'#2#3#7'TabStop'#8#0#0#7'TBut'
+'tBidiMode'#9#11'ParentColor'#8#10'ParentFont'#8#14'ParentShowHint'#9#8'Read' +'ton'#7'Button4'#4'Left'#3#16#2#6'Height'#2#25#3'Top'#3'~'#1#5'Width'#2'K'#7
+'Only'#8#10'ScrollBars'#7#10'ssVertical'#8'TabOrder'#2#0#7'TabStop'#9#7'Visi' +'Anchors'#11#6'akLeft'#8'akBottom'#0#7'Caption'#6#8'Save RTF'#7'OnClick'#7#12
+'ble'#9#11'WantReturns'#9#8'WantTabs'#8#0#0#7'TButton'#7'Button1'#4'Left'#2 +'Button4Click'#8'TabOrder'#2#4#7'TabStop'#8#0#0#7'TButton'#7'Button5'#4'Left'
+#24#6'Height'#2#25#3'Top'#3'~'#1#5'Width'#3#160#0#5'Align'#7#6'alNone'#7'Anc' +#3#184#1#6'Height'#2#25#3'Top'#3'~'#1#5'Width'#2'K'#7'Anchors'#11#6'akLeft'#8
+'hors'#11#6'akLeft'#8'akBottom'#0#8'AutoSize'#8#6'Cancel'#8#7'Caption'#6#17 +'akBottom'#0#7'Caption'#6#8'Load RTF'#7'OnClick'#7#12'Button5Click'#8'TabOrd'
+'Make Bold and Red'#5'Color'#7#9'clBtnFace'#7'Default'#8#10'DragCursor'#7#6 +'er'#2#5#7'TabStop'#8#0#0#7'TButton'#7'Button6'#4'Left'#2#24#6'Height'#2#25#3
+'crDrag'#8'DragKind'#7#6'dkDrag'#8'DragMode'#7#8'dmManual'#7'Enabled'#9#14'P' +'Top'#3#159#1#5'Width'#3#160#0#7'Anchors'#11#6'akLeft'#8'akBottom'#0#7'Capti'
+'arentBidiMode'#9#11'ModalResult'#2#0#7'OnClick'#7#12'Button1Click'#10'Paren' +'on'#6#16'Next Style Range'#7'OnClick'#7#12'Button6Click'#8'TabOrder'#2#6#7
+'tFont'#9#14'ParentShowHint'#9#8'TabOrder'#2#1#7'TabStop'#8#7'Visible'#9#0#0 +'TabStop'#8#0#0#11'TFontDialog'#11'FontDialog1'#11'MinFontSize'#2#0#11'MaxFo'
+#7'TButton'#7'Button2'#4'Left'#3#192#0#6'Height'#2#25#3'Top'#3'~'#1#5'Width' +'ntSize'#2#0#4'left'#3'`'#1#3'top'#3#173#1#0#0#11'TSaveDialog'#11'SaveDialog'
+#2'a'#5'Align'#7#6'alNone'#7'Anchors'#11#6'akLeft'#8'akBottom'#0#8'AutoSize' +'1'#10'DefaultExt'#6#4'.rtf'#6'Filter'#6#27'RichText file (*.rtf)|*.rtf'#7'O'
+#8#6'Cancel'#8#7'Caption'#6#11'Get Attribs'#5'Color'#7#9'clBtnFace'#7'Defaul' +'ptions'#11#17'ofOverwritePrompt'#14'ofEnableSizing'#12'ofViewDetail'#0#4'le'
+'t'#8#10'DragCursor'#7#6'crDrag'#8'DragKind'#7#6'dkDrag'#8'DragMode'#7#8'dmM' +'ft'#3#24#1#3'top'#3#173#1#0#0#11'TOpenDialog'#11'OpenDialog1'#10'DefaultExt'
+'anual'#7'Enabled'#9#14'ParentBidiMode'#9#11'ModalResult'#2#0#7'OnClick'#7#12 +#6#4'.rtf'#6'Filter'#6#27'RichText file (*.rtf)|*.rtf'#4'left'#3#208#0#3'top'
+'Button2Click'#10'ParentFont'#9#14'ParentShowHint'#9#8'TabOrder'#2#2#7'TabSt' +#3#173#1#0#0#0
+'op'#8#7'Visible'#9#0#0#7'TButton'#7'Button3'#4'Left'#3'0'#1#6'Height'#2#25#3
+'Top'#3'~'#1#5'Width'#2'`'#5'Align'#7#6'alNone'#7'Anchors'#11#6'akLeft'#8'ak'
+'Bottom'#0#8'AutoSize'#8#6'Cancel'#8#7'Caption'#6#11'Select Font'#5'Color'#7
+#9'clBtnFace'#7'Default'#8#10'DragCursor'#7#6'crDrag'#8'DragKind'#7#6'dkDrag'
+#8'DragMode'#7#8'dmManual'#7'Enabled'#9#14'ParentBidiMode'#9#11'ModalResult'
+#2#0#7'OnClick'#7#12'Button3Click'#10'ParentFont'#9#14'ParentShowHint'#9#8'T'
+'abOrder'#2#3#7'TabStop'#8#7'Visible'#9#0#0#7'TButton'#7'Button4'#4'Left'#3
+#16#2#6'Height'#2#25#3'Top'#3'~'#1#5'Width'#2'K'#5'Align'#7#6'alNone'#7'Anch'
+'ors'#11#6'akLeft'#8'akBottom'#0#8'AutoSize'#8#6'Cancel'#8#7'Caption'#6#8'Sa'
+'ve RTF'#5'Color'#7#9'clBtnFace'#7'Default'#8#10'DragCursor'#7#6'crDrag'#8'D'
+'ragKind'#7#6'dkDrag'#8'DragMode'#7#8'dmManual'#7'Enabled'#9#14'ParentBidiMo'
+'de'#9#11'ModalResult'#2#0#7'OnClick'#7#12'Button4Click'#10'ParentFont'#9#14
+'ParentShowHint'#9#8'TabOrder'#2#4#7'TabStop'#8#7'Visible'#9#0#0#7'TButton'#7
+'Button5'#4'Left'#3#184#1#6'Height'#2#25#3'Top'#3'~'#1#5'Width'#2'K'#5'Align'
+#7#6'alNone'#7'Anchors'#11#6'akLeft'#8'akBottom'#0#8'AutoSize'#8#6'Cancel'#8
+#7'Caption'#6#8'Load RTF'#5'Color'#7#9'clBtnFace'#7'Default'#8#10'DragCursor'
+#7#6'crDrag'#8'DragKind'#7#6'dkDrag'#8'DragMode'#7#8'dmManual'#7'Enabled'#9
+#14'ParentBidiMode'#9#11'ModalResult'#2#0#7'OnClick'#7#12'Button5Click'#10'P'
+'arentFont'#9#14'ParentShowHint'#9#8'TabOrder'#2#5#7'TabStop'#8#7'Visible'#9
+#0#0#7'TButton'#7'Button6'#4'Left'#2#24#6'Height'#2#25#3'Top'#3#159#1#5'Widt'
+'h'#3#160#0#5'Align'#7#6'alNone'#7'Anchors'#11#6'akLeft'#8'akBottom'#0#8'Aut'
+'oSize'#8#6'Cancel'#8#7'Caption'#6#16'Next Style Range'#5'Color'#7#9'clBtnFa'
+'ce'#7'Default'#8#10'DragCursor'#7#6'crDrag'#8'DragKind'#7#6'dkDrag'#8'DragM'
+'ode'#7#8'dmManual'#7'Enabled'#9#14'ParentBidiMode'#9#11'ModalResult'#2#0#7
+'OnClick'#7#12'Button6Click'#10'ParentFont'#9#14'ParentShowHint'#9#8'TabOrde'
+'r'#2#6#7'TabStop'#8#7'Visible'#9#0#0#5'TEdit'#5'Edit1'#4'Left'#3#216#0#6'He'
+'ight'#2#16#3'Top'#3#159#1#5'Width'#3'@'#1#5'Align'#7#6'alNone'#9'Alignment'
+#7#13'taLeftJustify'#8'AutoSize'#9#10'AutoSelect'#8#11'BorderStyle'#7#8'bsSi'
+'ngle'#5'Color'#7#8'clWindow'#8'CharCase'#7#8'ecNormal'#10'DragCursor'#7#6'c'
+'rDrag'#8'DragKind'#7#6'dkDrag'#8'DragMode'#7#8'dmManual'#8'EchoMode'#7#8'em'
+'Normal'#7'Enabled'#9#9'MaxLength'#2#0#14'ParentBidiMode'#9#11'ParentColor'#8
+#10'ParentFont'#9#14'ParentShowHint'#9#12'PasswordChar'#6#1#0#8'ReadOnly'#8#7
+'TabStop'#9#8'TabOrder'#2#7#4'Text'#6#5'Edit1'#7'Visible'#9#0#0#11'TFontDial'
,'og'#11'FontDialog1'#11'MinFontSize'#2#0#11'MaxFontSize'#2#0#4'left'#3'`'#1#3
+'top'#3#173#1#0#0#11'TSaveDialog'#11'SaveDialog1'#10'DefaultExt'#6#4'.rtf'#6
+'Filter'#6#27'RichText file (*.rtf)|*.rtf'#7'Options'#11#17'ofOverwritePromp'
+'t'#14'ofEnableSizing'#12'ofViewDetail'#0#4'left'#3#24#1#3'top'#3#173#1#0#0
+#11'TOpenDialog'#11'OpenDialog1'#10'DefaultExt'#6#4'.rtf'#6'Filter'#6#27'Ric'
+'hText file (*.rtf)|*.rtf'#4'left'#3#208#0#3'top'#3#173#1#0#0#0
]); ]);

3
components/richmemo/samples/testsimple/unit1.pas
View File

@ -7,7 +7,6 @@ interface
uses uses
Classes, SysUtils, FileUtil, LResources, Forms, Controls, Graphics, Dialogs, Classes, SysUtils, FileUtil, LResources, Forms, Controls, Graphics, Dialogs,
StdCtrls, ExtCtrls, ComCtrls, StdCtrls, ExtCtrls, ComCtrls,
CarbonRichMemo,
RichMemo; RichMemo;
type type
@ -21,7 +20,6 @@ type
Button4: TButton; Button4: TButton;
Button5: TButton; Button5: TButton;
Button6: TButton; Button6: TButton;
Edit1: TEdit;
FontDialog1: TFontDialog; FontDialog1: TFontDialog;
OpenDialog1: TOpenDialog; OpenDialog1: TOpenDialog;
RichMemo1: TRichMemo; RichMemo1: TRichMemo;
@ -124,7 +122,6 @@ end;
procedure TForm1.FormCreate(Sender: TObject); procedure TForm1.FormCreate(Sender: TObject);
begin begin
end; end;
initialization initialization