pascal/lazarus-ccr
1
0
Fork 0
Code Issues Releases Activity

added import/export richtext stream to the test

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@836 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
skalogryz
2009-06-10 10:32:44 +00:00
parent de57c067ab
commit 3ef41c86dd
4 changed files with 399 additions and 89 deletions
Download Patch File Download Diff File Expand all files Collapse all files

270
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="0"/> <ActiveEditorIndexAtStart Value="2"/>
</General> </General>
<VersionInfo> <VersionInfo>
<ProjectVersion Value=""/> <ProjectVersion Value=""/>
@ -32,12 +32,16 @@
<PackageName Value="LCL"/> <PackageName Value="LCL"/>
</Item2> </Item2>
</RequiredPackages> </RequiredPackages>
<Units Count="26"> <Units Count="36">
<Unit0> <Unit0>
<Filename Value="project1.lpr"/> <Filename Value="project1.lpr"/>
<IsPartOfProject Value="True"/> <IsPartOfProject Value="True"/>
<UnitName Value="project1"/> <UnitName Value="project1"/>
<UsageCount Value="30"/> <CursorPos X="32" Y="12"/>
<TopLine Value="1"/>
<EditorIndex Value="1"/>
<UsageCount Value="37"/>
<Loaded Value="True"/>
</Unit0> </Unit0>
<Unit1> <Unit1>
<Filename Value="unit1.pas"/> <Filename Value="unit1.pas"/>
@ -45,10 +49,10 @@
<IsPartOfProject Value="True"/> <IsPartOfProject Value="True"/>
<ResourceBaseClass Value="Form"/> <ResourceBaseClass Value="Form"/>
<UnitName Value="Unit1"/> <UnitName Value="Unit1"/>
<CursorPos X="28" Y="9"/> <CursorPos X="21" Y="93"/>
<TopLine Value="1"/> <TopLine Value="75"/>
<EditorIndex Value="0"/> <EditorIndex Value="0"/>
<UsageCount Value="30"/> <UsageCount Value="37"/>
<Loaded Value="True"/> <Loaded Value="True"/>
</Unit1> </Unit1>
<Unit2> <Unit2>
@ -56,84 +60,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="15"/> <UsageCount Value="14"/>
</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="9"/> <UsageCount Value="8"/>
</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="9"/> <UsageCount Value="8"/>
</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="9"/> <UsageCount Value="8"/>
</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="9"/> <UsageCount Value="8"/>
</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="9"/> <UsageCount Value="8"/>
</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="10"/> <UsageCount Value="9"/>
</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="15"/> <UsageCount Value="14"/>
</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="9"/> <UsageCount Value="8"/>
</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="13"/> <UsageCount Value="12"/>
</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="14"/> <UsageCount Value="13"/>
</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="14"/> <UsageCount Value="18"/>
<Bookmarks Count="1"> <Bookmarks Count="1">
<Item0 X="25" Y="150" ID="1"/> <Item0 X="25" Y="150" ID="1"/>
</Bookmarks> </Bookmarks>
@ -144,7 +148,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="13"/> <UsageCount Value="12"/>
<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"/>
@ -155,105 +159,281 @@
<UnitName Value="Controls"/> <UnitName Value="Controls"/>
<CursorPos X="3" Y="2457"/> <CursorPos X="3" Y="2457"/>
<TopLine Value="2448"/> <TopLine Value="2448"/>
<UsageCount Value="12"/> <UsageCount Value="11"/>
</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="10"/> <UsageCount Value="9"/>
</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="10"/> <UsageCount Value="9"/>
</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="10"/> <UsageCount Value="9"/>
</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="14"/> <UsageCount Value="13"/>
</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="13"/> <UsageCount Value="17"/>
<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="11"/> <UsageCount Value="10"/>
</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="11"/> <UsageCount Value="10"/>
</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="11"/> <UsageCount Value="10"/>
</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="10"/> <UsageCount Value="9"/>
</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="10"/> <UsageCount Value="9"/>
</Unit25> </Unit25>
<Unit26>
<Filename Value="../../../lazarus/ide/keymapping.pp"/>
<UnitName Value="KeyMapping"/>
<CursorPos X="74" Y="1565"/>
<TopLine Value="1558"/>
<UsageCount Value="9"/>
</Unit26>
<Unit27>
<Filename Value="../../richmemo.pas"/>
<UnitName Value="RichMemo"/>
<CursorPos X="1" Y="1"/>
<TopLine Value="1"/>
<EditorIndex Value="7"/>
<UsageCount Value="14"/>
<Loaded Value="True"/>
</Unit27>
<Unit28>
<Filename Value="../../wsrichmemo.pas"/>
<UnitName Value="WSRichMemo"/>
<CursorPos X="3" Y="57"/>
<TopLine Value="57"/>
<EditorIndex Value="8"/>
<UsageCount Value="14"/>
<Loaded Value="True"/>
</Unit28>
<Unit29>
<Filename Value="../../carbon/carbonrichmemo.pas"/>
<UnitName Value="CarbonRichMemo"/>
<CursorPos X="1" Y="267"/>
<TopLine Value="249"/>
<EditorIndex Value="2"/>
<UsageCount Value="13"/>
<Loaded Value="True"/>
</Unit29>
<Unit30>
<Filename Value="../../../fpc/packages/univint/src/MacOSAll.pas"/>
<UnitName Value="MacOSAll"/>
<CursorPos X="1" Y="218294"/>
<TopLine Value="218272"/>
<EditorIndex Value="6"/>
<UsageCount Value="12"/>
<Bookmarks Count="1">
<Item0 X="32" Y="83842" ID="2"/>
</Bookmarks>
<Loaded Value="True"/>
</Unit30>
<Unit31>
<Filename Value="../../../fpc/rtl/objpas/sysutils/osutilsh.inc"/>
<CursorPos X="10" Y="34"/>
<TopLine Value="18"/>
<EditorIndex Value="5"/>
<UsageCount Value="10"/>
<Loaded Value="True"/>
</Unit31>
<Unit32>
<Filename Value="../../../fpc/rtl/objpas/classes/classesh.inc"/>
<CursorPos X="19" Y="728"/>
<TopLine Value="709"/>
<EditorIndex Value="3"/>
<UsageCount Value="10"/>
<Loaded Value="True"/>
</Unit32>
<Unit33>
<Filename Value="../../../fpc/rtl/objpas/classes/streams.inc"/>
<CursorPos X="8" Y="147"/>
<TopLine Value="140"/>
<EditorIndex Value="4"/>
<UsageCount Value="10"/>
<Loaded Value="True"/>
</Unit33>
<Unit34>
<Filename Value="../../../../wnlibsvn/CarbonPaste.pas"/>
<IsPartOfProject Value="True"/>
<UnitName Value="CarbonPaste"/>
<CursorPos X="43" Y="9"/>
<TopLine Value="1"/>
<UsageCount Value="21"/>
</Unit34>
<Unit35>
<Filename Value="../../../fpc/rtl/objpas/sysutils/sysutilh.inc"/>
<CursorPos X="13" Y="185"/>
<TopLine Value="169"/>
<UsageCount Value="10"/>
</Unit35>
</Units> </Units>
<JumpHistory Count="7" HistoryIndex="6"> <JumpHistory Count="30" HistoryIndex="29">
<Position1> <Position1>
<Filename Value="Unit1.pas"/> <Filename Value="../../carbon/carbonrichmemo.pas"/>
<Caret Line="10" Column="26" TopLine="1"/> <Caret Line="332" Column="3" TopLine="330"/>
</Position1> </Position1>
<Position2> <Position2>
<Filename Value="Unit1.pas"/> <Filename Value="../../carbon/carbonrichmemo.pas"/>
<Caret Line="15" Column="36" TopLine="1"/> <Caret Line="362" Column="5" TopLine="340"/>
</Position2> </Position2>
<Position3> <Position3>
<Filename Value="Unit1.pas"/> <Filename Value="../../carbon/carbonrichmemo.pas"/>
<Caret Line="51" Column="53" TopLine="35"/> <Caret Line="349" Column="1" TopLine="345"/>
</Position3> </Position3>
<Position4> <Position4>
<Filename Value="Unit1.pas"/> <Filename Value="../../carbon/carbonrichmemo.pas"/>
<Caret Line="42" Column="32" TopLine="38"/> <Caret Line="336" Column="34" TopLine="325"/>
</Position4> </Position4>
<Position5> <Position5>
<Filename Value="Unit1.pas"/> <Filename Value="../../carbon/carbonrichmemo.pas"/>
<Caret Line="19" Column="22" TopLine="19"/> <Caret Line="327" Column="15" TopLine="316"/>
</Position5> </Position5>
<Position6> <Position6>
<Filename Value="Unit1.pas"/> <Filename Value="../../carbon/carbonrichmemo.pas"/>
<Caret Line="24" Column="46" TopLine="24"/> <Caret Line="355" Column="37" TopLine="344"/>
</Position6> </Position6>
<Position7> <Position7>
<Filename Value="Unit1.pas"/> <Filename Value="../../carbon/carbonrichmemo.pas"/>
<Caret Line="43" Column="1" TopLine="31"/> <Caret Line="347" Column="18" TopLine="344"/>
</Position7> </Position7>
<Position8>
<Filename Value="../../carbon/carbonrichmemo.pas"/>
<Caret Line="358" Column="18" TopLine="347"/>
</Position8>
<Position9>
<Filename Value="../../carbon/carbonrichmemo.pas"/>
<Caret Line="372" Column="3" TopLine="352"/>
</Position9>
<Position10>
<Filename Value="../../carbon/carbonrichmemo.pas"/>
<Caret Line="371" Column="3" TopLine="351"/>
</Position10>
<Position11>
<Filename Value="../../carbon/carbonrichmemo.pas"/>
<Caret Line="362" Column="22" TopLine="351"/>
</Position11>
<Position12>
<Filename Value="../../carbon/carbonrichmemo.pas"/>
<Caret Line="384" Column="38" TopLine="375"/>
</Position12>
<Position13>
<Filename Value="../../carbon/carbonrichmemo.pas"/>
<Caret Line="392" Column="3" TopLine="388"/>
</Position13>
<Position14>
<Filename Value="../../carbon/carbonrichmemo.pas"/>
<Caret Line="381" Column="18" TopLine="373"/>
</Position14>
<Position15>
<Filename Value="../../carbon/carbonrichmemo.pas"/>
<Caret Line="404" Column="5" TopLine="382"/>
</Position15>
<Position16>
<Filename Value="../../carbon/carbonrichmemo.pas"/>
<Caret Line="240" Column="16" TopLine="229"/>
</Position16>
<Position17>
<Filename Value="../../carbon/carbonrichmemo.pas"/>
<Caret Line="60" Column="14" TopLine="52"/>
</Position17>
<Position18>
<Filename Value="../../carbon/carbonrichmemo.pas"/>
<Caret Line="449" Column="36" TopLine="429"/>
</Position18>
<Position19>
<Filename Value="../../carbon/carbonrichmemo.pas"/>
<Caret Line="445" Column="20" TopLine="437"/>
</Position19>
<Position20>
<Filename Value="../../carbon/carbonrichmemo.pas"/>
<Caret Line="462" Column="7" TopLine="448"/>
</Position20>
<Position21>
<Filename Value="../../carbon/carbonrichmemo.pas"/>
<Caret Line="426" Column="17" TopLine="415"/>
</Position21>
<Position22>
<Filename Value="../../carbon/carbonrichmemo.pas"/>
<Caret Line="440" Column="13" TopLine="410"/>
</Position22>
<Position23>
<Filename Value="../../carbon/carbonrichmemo.pas"/>
<Caret Line="418" Column="48" TopLine="410"/>
</Position23>
<Position24>
<Filename Value="../../carbon/carbonrichmemo.pas"/>
<Caret Line="309" Column="71" TopLine="301"/>
</Position24>
<Position25>
<Filename Value="../../carbon/carbonrichmemo.pas"/>
<Caret Line="348" Column="32" TopLine="324"/>
</Position25>
<Position26>
<Filename Value="../../../fpc/packages/univint/src/MacOSAll.pas"/>
<Caret Line="224096" Column="91" TopLine="224080"/>
</Position26>
<Position27>
<Filename Value="../../carbon/carbonrichmemo.pas"/>
<Caret Line="351" Column="1" TopLine="340"/>
</Position27>
<Position28>
<Filename Value="../../carbon/carbonrichmemo.pas"/>
<Caret Line="340" Column="1" TopLine="324"/>
</Position28>
<Position29>
<Filename Value="../../carbon/carbonrichmemo.pas"/>
<Caret Line="274" Column="1" TopLine="260"/>
</Position29>
<Position30>
<Filename Value="../../carbon/carbonrichmemo.pas"/>
<Caret Line="269" Column="9" TopLine="247"/>
</Position30>
</JumpHistory> </JumpHistory>
</ProjectOptions> </ProjectOptions>
<CompilerOptions> <CompilerOptions>

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

@ -1,7 +1,7 @@
object Form1: TForm1 object Form1: TForm1
Left = 332 Left = 234
Height = 592 Height = 592
Top = 117 Top = 220
Width = 752 Width = 752
Align = alNone Align = alNone
AllowDropFiles = False AllowDropFiles = False
@ -27,10 +27,10 @@ object Form1: TForm1
LCLVersion = '0.9.27' LCLVersion = '0.9.27'
WindowState = wsNormal WindowState = wsNormal
object RichMemo1: TRichMemo object RichMemo1: TRichMemo
Left = 24 Left = 32
Height = 518 Height = 518
Top = 24 Top = 24
Width = 704 Width = 288
Align = alNone Align = alNone
Alignment = taLeftJustify Alignment = taLeftJustify
Anchors = [akTop, akLeft, akRight, akBottom] Anchors = [akTop, akLeft, akRight, akBottom]
@ -133,10 +133,87 @@ object Form1: TForm1
TabStop = True TabStop = True
Visible = True Visible = True
end end
object Button4: TButton
Left = 512
Height = 25
Top = 548
Width = 75
Align = alNone
AutoSize = False
Cancel = False
Caption = 'Export'
Color = clBtnFace
Default = False
DragCursor = crDrag
DragKind = dkDrag
DragMode = dmManual
Enabled = True
ParentBidiMode = True
ModalResult = 0
OnClick = Button4Click
ParentFont = True
ParentShowHint = True
TabOrder = 4
TabStop = True
Visible = True
end
object Memo1: TMemo
Left = 328
Height = 506
Top = 24
Width = 408
Align = alNone
Alignment = taLeftJustify
BorderStyle = bsSingle
Color = clWindow
DragCursor = crDrag
DragKind = dkDrag
DragMode = dmManual
Enabled = True
Lines.Strings = (
'Memo1'
)
MaxLength = 0
ParentBidiMode = True
ParentColor = False
ParentFont = True
ParentShowHint = True
ReadOnly = False
ScrollBars = ssBoth
TabOrder = 5
TabStop = True
Visible = True
WantReturns = True
WantTabs = False
end
object Button5: TButton
Left = 600
Height = 25
Top = 547
Width = 75
Align = alNone
AutoSize = False
Cancel = False
Caption = 'Import'
Color = clBtnFace
Default = False
DragCursor = crDrag
DragKind = dkDrag
DragMode = dmManual
Enabled = True
ParentBidiMode = True
ModalResult = 0
OnClick = Button5Click
ParentFont = True
ParentShowHint = True
TabOrder = 6
TabStop = True
Visible = True
end
object FontDialog1: TFontDialog object FontDialog1: TFontDialog
MinFontSize = 0 MinFontSize = 0
MaxFontSize = 0 MaxFontSize = 0
left = 376 left = 328
top = 256 top = 368
end end
end end

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

@ -1,40 +1,60 @@
{ This is an automatically generated lazarus resource file }
LazarusResources.Add('TForm1','FORMDATA',[ LazarusResources.Add('TForm1','FORMDATA',[
'TPF0'#6'TForm1'#5'Form1'#4'Left'#3'L'#1#6'Height'#3'P'#2#3'Top'#2'u'#5'Width' 'TPF0'#6'TForm1'#5'Form1'#4'Left'#3#234#0#6'Height'#3'P'#2#3'Top'#3#220#0#5'W'
+#3#240#2#5'Align'#7#6'alNone'#14'AllowDropFiles'#8#10'AutoScroll'#9#8'AutoSi' +'idth'#3#240#2#5'Align'#7#6'alNone'#14'AllowDropFiles'#8#10'AutoScroll'#9#8
+'ze'#8#11'BorderIcons'#11#12'biSystemMenu'#10'biMinimize'#10'biMaximize'#0#11 +'AutoSize'#8#11'BorderIcons'#11#12'biSystemMenu'#10'biMinimize'#10'biMaximiz'
+'BorderStyle'#7#10'bsSizeable'#11'BorderWidth'#2#0#7'Caption'#6#5'Form1'#12 +'e'#0#11'BorderStyle'#7#10'bsSizeable'#11'BorderWidth'#2#0#7'Caption'#6#5'Fo'
+'ClientHeight'#3'P'#2#11'ClientWidth'#3#240#2#14'DefaultMonitor'#7#12'dmActi' +'rm1'#12'ClientHeight'#3'P'#2#11'ClientWidth'#3#240#2#14'DefaultMonitor'#7#12
+'veForm'#8'DockSite'#8#8'DragKind'#7#6'dkDrag'#8'DragMode'#7#8'dmManual'#7'E' +'dmActiveForm'#8'DockSite'#8#8'DragKind'#7#6'dkDrag'#8'DragMode'#7#8'dmManua'
+'nabled'#9#9'FormStyle'#7#8'fsNormal'#14'ParentBiDiMode'#9#10'ParentFont'#8#8 +'l'#7'Enabled'#9#9'FormStyle'#7#8'fsNormal'#14'ParentBiDiMode'#9#10'ParentFo'
+'Position'#7#10'poDesigned'#13'ShowInTaskBar'#7#9'stDefault'#14'UseDockManag' +'nt'#8#8'Position'#7#10'poDesigned'#13'ShowInTaskBar'#7#9'stDefault'#14'UseD'
+'er'#8#10'LCLVersion'#6#6'0.9.27'#11'WindowState'#7#8'wsNormal'#0#9'TRichMem' +'ockManager'#8#10'LCLVersion'#6#6'0.9.27'#11'WindowState'#7#8'wsNormal'#0#9
+'o'#9'RichMemo1'#4'Left'#2#24#6'Height'#3#6#2#3'Top'#2#24#5'Width'#3#192#2#5 +'TRichMemo'#9'RichMemo1'#4'Left'#2' '#6'Height'#3#6#2#3'Top'#2#24#5'Width'#3
+'Align'#7#6'alNone'#9'Alignment'#7#13'taLeftJustify'#7'Anchors'#11#5'akTop'#6 +' '#1#5'Align'#7#6'alNone'#9'Alignment'#7#13'taLeftJustify'#7'Anchors'#11#5
+'akLeft'#7'akRight'#8'akBottom'#0#11'BorderStyle'#7#8'bsSingle'#5'Color'#7#8 +'akTop'#6'akLeft'#7'akRight'#8'akBottom'#0#11'BorderStyle'#7#8'bsSingle'#5'C'
+'clWindow'#10'DragCursor'#7#6'crDrag'#8'DragKind'#7#6'dkDrag'#8'DragMode'#7#8 +'olor'#7#8'clWindow'#10'DragCursor'#7#6'crDrag'#8'DragKind'#7#6'dkDrag'#8'Dr'
+'dmManual'#7'Enabled'#9#13'HideSelection'#8#13'Lines.Strings'#1#6#9'RichMemo' +'agMode'#7#8'dmManual'#7'Enabled'#9#13'HideSelection'#8#13'Lines.Strings'#1#6
+'1'#0#9'MaxLength'#2#0#14'ParentBidiMode'#9#11'ParentColor'#8#10'ParentFont' +#9'RichMemo1'#0#9'MaxLength'#2#0#14'ParentBidiMode'#9#11'ParentColor'#8#10'P'
+#9#14'ParentShowHint'#9#8'ReadOnly'#8#10'ScrollBars'#7#6'ssBoth'#8'TabOrder' +'arentFont'#9#14'ParentShowHint'#9#8'ReadOnly'#8#10'ScrollBars'#7#6'ssBoth'#8
+#2#0#7'TabStop'#9#7'Visible'#9#11'WantReturns'#9#8'WantTabs'#8#8'WordWrap'#8 +'TabOrder'#2#0#7'TabStop'#9#7'Visible'#9#11'WantReturns'#9#8'WantTabs'#8#8'W'
+#0#0#7'TButton'#7'Button1'#4'Left'#2#24#6'Height'#2#25#3'Top'#3'$'#2#5'Width' +'ordWrap'#8#0#0#7'TButton'#7'Button1'#4'Left'#2#24#6'Height'#2#25#3'Top'#3'$'
+#3#152#0#5'Align'#7#6'alNone'#7'Anchors'#11#6'akLeft'#8'akBottom'#0#8'AutoSi' +#2#5'Width'#3#152#0#5'Align'#7#6'alNone'#7'Anchors'#11#6'akLeft'#8'akBottom'
+'ze'#8#6'Cancel'#8#7'Caption'#6#17'Make Bold and Red'#5'Color'#7#9'clBtnFace' +#0#8'AutoSize'#8#6'Cancel'#8#7'Caption'#6#17'Make Bold and Red'#5'Color'#7#9
+#7'Default'#8#10'DragCursor'#7#6'crDrag'#8'DragKind'#7#6'dkDrag'#8'DragMode' +'clBtnFace'#7'Default'#8#10'DragCursor'#7#6'crDrag'#8'DragKind'#7#6'dkDrag'#8
+#7#8'dmManual'#7'Enabled'#9#14'ParentBidiMode'#9#11'ModalResult'#2#0#7'OnCli' +'DragMode'#7#8'dmManual'#7'Enabled'#9#14'ParentBidiMode'#9#11'ModalResult'#2
+'ck'#7#12'Button1Click'#10'ParentFont'#9#14'ParentShowHint'#9#8'TabOrder'#2#1 +#0#7'OnClick'#7#12'Button1Click'#10'ParentFont'#9#14'ParentShowHint'#9#8'Tab'
+#7'TabStop'#9#7'Visible'#9#0#0#7'TButton'#7'Button2'#4'Left'#3#184#0#6'Heigh' +'Order'#2#1#7'TabStop'#9#7'Visible'#9#0#0#7'TButton'#7'Button2'#4'Left'#3#184
+'t'#2#25#3'Top'#3'$'#2#5'Width'#3#136#0#5'Align'#7#6'alNone'#7'Anchors'#11#6 +#0#6'Height'#2#25#3'Top'#3'$'#2#5'Width'#3#136#0#5'Align'#7#6'alNone'#7'Anch'
+'akLeft'#8'akBottom'#0#8'AutoSize'#8#6'Cancel'#8#7'Caption'#6#11'Get Attribs' +'ors'#11#6'akLeft'#8'akBottom'#0#8'AutoSize'#8#6'Cancel'#8#7'Caption'#6#11'G'
+#5'Color'#7#9'clBtnFace'#7'Default'#8#10'DragCursor'#7#6'crDrag'#8'DragKind' +'et Attribs'#5'Color'#7#9'clBtnFace'#7'Default'#8#10'DragCursor'#7#6'crDrag'
+#7#6'dkDrag'#8'DragMode'#7#8'dmManual'#7'Enabled'#9#14'ParentBidiMode'#9#11 +#8'DragKind'#7#6'dkDrag'#8'DragMode'#7#8'dmManual'#7'Enabled'#9#14'ParentBid'
+'ModalResult'#2#0#7'OnClick'#7#12'Button2Click'#10'ParentFont'#9#14'ParentSh' +'iMode'#9#11'ModalResult'#2#0#7'OnClick'#7#12'Button2Click'#10'ParentFont'#9
+'owHint'#9#8'TabOrder'#2#2#7'TabStop'#9#7'Visible'#9#0#0#7'TButton'#7'Button' +#14'ParentShowHint'#9#8'TabOrder'#2#2#7'TabStop'#9#7'Visible'#9#0#0#7'TButto'
+'3'#4'Left'#3'H'#1#6'Height'#2#25#3'Top'#3'$'#2#5'Width'#3#168#0#5'Align'#7#6 +'n'#7'Button3'#4'Left'#3'H'#1#6'Height'#2#25#3'Top'#3'$'#2#5'Width'#3#168#0#5
+'alNone'#7'Anchors'#11#6'akLeft'#8'akBottom'#0#8'AutoSize'#8#6'Cancel'#8#7'C' +'Align'#7#6'alNone'#7'Anchors'#11#6'akLeft'#8'akBottom'#0#8'AutoSize'#8#6'Ca'
+'aption'#6#11'Select Font'#5'Color'#7#9'clBtnFace'#7'Default'#8#10'DragCurso' +'ncel'#8#7'Caption'#6#11'Select Font'#5'Color'#7#9'clBtnFace'#7'Default'#8#10
+'r'#7#6'crDrag'#8'DragKind'#7#6'dkDrag'#8'DragMode'#7#8'dmManual'#7'Enabled' +'DragCursor'#7#6'crDrag'#8'DragKind'#7#6'dkDrag'#8'DragMode'#7#8'dmManual'#7
+#9#14'ParentBidiMode'#9#11'ModalResult'#2#0#7'OnClick'#7#12'Button3Click'#10 +'Enabled'#9#14'ParentBidiMode'#9#11'ModalResult'#2#0#7'OnClick'#7#12'Button3'
+'ParentFont'#9#14'ParentShowHint'#9#8'TabOrder'#2#3#7'TabStop'#9#7'Visible'#9 +'Click'#10'ParentFont'#9#14'ParentShowHint'#9#8'TabOrder'#2#3#7'TabStop'#9#7
+#0#0#11'TFontDialog'#11'FontDialog1'#11'MinFontSize'#2#0#11'MaxFontSize'#2#0 +'Visible'#9#0#0#7'TButton'#7'Button4'#4'Left'#3#0#2#6'Height'#2#25#3'Top'#3
+#4'left'#3'x'#1#3'top'#3#0#1#0#0#0 +'$'#2#5'Width'#2'K'#5'Align'#7#6'alNone'#8'AutoSize'#8#6'Cancel'#8#7'Caption'
+#6#6'Export'#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'ParentBid'
+'iMode'#9#11'ModalResult'#2#0#7'OnClick'#7#12'Button4Click'#10'ParentFont'#9
+#14'ParentShowHint'#9#8'TabOrder'#2#4#7'TabStop'#9#7'Visible'#9#0#0#5'TMemo'
+#5'Memo1'#4'Left'#3'H'#1#6'Height'#3#250#1#3'Top'#2#24#5'Width'#3#152#1#5'Al'
+'ign'#7#6'alNone'#9'Alignment'#7#13'taLeftJustify'#11'BorderStyle'#7#8'bsSin'
+'gle'#5'Color'#7#8'clWindow'#10'DragCursor'#7#6'crDrag'#8'DragKind'#7#6'dkDr'
+'ag'#8'DragMode'#7#8'dmManual'#7'Enabled'#9#13'Lines.Strings'#1#6#5'Memo1'#0
+#9'MaxLength'#2#0#14'ParentBidiMode'#9#11'ParentColor'#8#10'ParentFont'#9#14
+'ParentShowHint'#9#8'ReadOnly'#8#10'ScrollBars'#7#6'ssBoth'#8'TabOrder'#2#5#7
+'TabStop'#9#7'Visible'#9#11'WantReturns'#9#8'WantTabs'#8#0#0#7'TButton'#7'Bu'
+'tton5'#4'Left'#3'X'#2#6'Height'#2#25#3'Top'#3'#'#2#5'Width'#2'K'#5'Align'#7
+#6'alNone'#8'AutoSize'#8#6'Cancel'#8#7'Caption'#6#6'Import'#5'Color'#7#9'clB'
+'tnFace'#7'Default'#8#10'DragCursor'#7#6'crDrag'#8'DragKind'#7#6'dkDrag'#8'D'
+'ragMode'#7#8'dmManual'#7'Enabled'#9#14'ParentBidiMode'#9#11'ModalResult'#2#0
+#7'OnClick'#7#12'Button5Click'#10'ParentFont'#9#14'ParentShowHint'#9#8'TabOr'
+'der'#2#6#7'TabStop'#9#7'Visible'#9#0#0#11'TFontDialog'#11'FontDialog1'#11'M'
+'inFontSize'#2#0#11'MaxFontSize'#2#0#4'left'#3'H'#1#3'top'#3'p'#1#0#0#0
]); ]);

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

@ -17,11 +17,16 @@ type
Button1: TButton; Button1: TButton;
Button2: TButton; Button2: TButton;
Button3: TButton; Button3: TButton;
Button4: TButton;
Button5: TButton;
FontDialog1: TFontDialog; FontDialog1: TFontDialog;
Memo1: TMemo;
RichMemo1: TRichMemo; RichMemo1: TRichMemo;
procedure Button1Click(Sender: TObject); procedure Button1Click(Sender: TObject);
procedure Button2Click(Sender: TObject); procedure Button2Click(Sender: TObject);
procedure Button3Click(Sender: TObject); procedure Button3Click(Sender: TObject);
procedure Button4Click(Sender: TObject);
procedure Button5Click(Sender: TObject);
private private
{ private declarations } { private declarations }
public public
@ -64,6 +69,34 @@ begin
end; end;
end; end;
procedure TForm1.Button4Click(Sender: TObject);
var
m : TMemoryStream;
begin
m := TMemoryStream.Create;
try
RichMemo1.SaveRichText(m);
m.Position:=0;
Memo1.Lines.LoadFromStream(m);
except
m.Free;
end;
end;
procedure TForm1.Button5Click(Sender: TObject);
var
m : TMemoryStream;
begin
m := TMemoryStream.Create;
try
Memo1.Lines.SaveToStream(m);
m.Position := 0;
RichMemo1.LoadRichText(m);
finally
m.free;
end;
end;
initialization initialization
{$I unit1.lrs} {$I unit1.lrs}