You've already forked lazarus-ccr
remove debugoutput in carbonrichmemo. fixed example for using SaveDialog on Save RTF button
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@890 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
skalogryz
@ -108,7 +108,7 @@ procedure GetATSUFontRGBAColor(AStyle: ATSUStyle; var r,g,b,a: Byte);
|
||||
var
|
||||
rgba : ATSURGBAlphaColor;
|
||||
begin
|
||||
writeln('getting color= ', ATSUGetAttribute(AStyle, kATSURGBAlphaColorTag, sizeof(ATSURGBAlphaColor), @rgba, nil));
|
||||
ATSUGetAttribute(AStyle, kATSURGBAlphaColorTag, sizeof(ATSURGBAlphaColor), @rgba, nil);
|
||||
r := Round(rgba.red*255);
|
||||
g := Round(rgba.green*255);
|
||||
b := Round(rgba.blue*255);
|
||||
|
||||
@ -32,25 +32,25 @@
|
||||
<PackageName Value="LCL"/>
|
||||
</Item2>
|
||||
</RequiredPackages>
|
||||
<Units Count="47">
|
||||
<Units Count="50">
|
||||
<Unit0>
|
||||
<Filename Value="project1.lpr"/>
|
||||
<IsPartOfProject Value="True"/>
|
||||
<UnitName Value="project1"/>
|
||||
<CursorPos X="12" Y="6"/>
|
||||
<TopLine Value="6"/>
|
||||
<UsageCount Value="61"/>
|
||||
<UsageCount Value="64"/>
|
||||
</Unit0>
|
||||
<Unit1>
|
||||
<Filename Value="unit1.pas"/>
|
||||
<ComponentName Value="Form1"/>
|
||||
<IsPartOfProject Value="True"/>
|
||||
<ComponentName Value="Form1"/>
|
||||
<ResourceBaseClass Value="Form"/>
|
||||
<UnitName Value="Unit1"/>
|
||||
<CursorPos X="1" Y="1"/>
|
||||
<TopLine Value="1"/>
|
||||
<CursorPos X="27" Y="57"/>
|
||||
<TopLine Value="49"/>
|
||||
<EditorIndex Value="0"/>
|
||||
<UsageCount Value="61"/>
|
||||
<UsageCount Value="64"/>
|
||||
<Loaded Value="True"/>
|
||||
</Unit1>
|
||||
<Unit2>
|
||||
@ -135,7 +135,7 @@
|
||||
<UnitName Value="CarbonGDIObjects"/>
|
||||
<CursorPos X="3" Y="1109"/>
|
||||
<TopLine Value="1100"/>
|
||||
<UsageCount Value="30"/>
|
||||
<UsageCount Value="31"/>
|
||||
<Bookmarks Count="1">
|
||||
<Item0 X="25" Y="150" ID="1"/>
|
||||
</Bookmarks>
|
||||
@ -190,7 +190,7 @@
|
||||
<UnitName Value="CarbonPrivate"/>
|
||||
<CursorPos X="17" Y="649"/>
|
||||
<TopLine Value="640"/>
|
||||
<UsageCount Value="29"/>
|
||||
<UsageCount Value="30"/>
|
||||
<Loaded Value="True"/>
|
||||
</Unit20>
|
||||
<Unit21>
|
||||
@ -236,30 +236,36 @@
|
||||
<Unit27>
|
||||
<Filename Value="../../richmemo.pas"/>
|
||||
<UnitName Value="RichMemo"/>
|
||||
<CursorPos X="1" Y="4"/>
|
||||
<TopLine Value="1"/>
|
||||
<UsageCount Value="26"/>
|
||||
<CursorPos X="15" Y="55"/>
|
||||
<TopLine Value="42"/>
|
||||
<EditorIndex Value="6"/>
|
||||
<UsageCount Value="27"/>
|
||||
<Loaded Value="True"/>
|
||||
</Unit27>
|
||||
<Unit28>
|
||||
<Filename Value="../../wsrichmemo.pas"/>
|
||||
<UnitName Value="WSRichMemo"/>
|
||||
<CursorPos X="1" Y="2"/>
|
||||
<TopLine Value="1"/>
|
||||
<UsageCount Value="26"/>
|
||||
<CursorPos X="31" Y="47"/>
|
||||
<TopLine Value="32"/>
|
||||
<EditorIndex Value="5"/>
|
||||
<UsageCount Value="27"/>
|
||||
<Loaded Value="True"/>
|
||||
</Unit28>
|
||||
<Unit29>
|
||||
<Filename Value="../../carbon/carbonrichmemo.pas"/>
|
||||
<UnitName Value="CarbonRichMemo"/>
|
||||
<CursorPos X="16" Y="2"/>
|
||||
<TopLine Value="1"/>
|
||||
<UsageCount Value="18"/>
|
||||
<CursorPos X="12" Y="281"/>
|
||||
<TopLine Value="268"/>
|
||||
<UsageCount Value="19"/>
|
||||
</Unit29>
|
||||
<Unit30>
|
||||
<Filename Value="../../../fpc/packages/univint/src/MacOSAll.pas"/>
|
||||
<UnitName Value="MacOSAll"/>
|
||||
<CursorPos X="39" Y="220678"/>
|
||||
<TopLine Value="220670"/>
|
||||
<UsageCount Value="17"/>
|
||||
<CursorPos X="1" Y="495"/>
|
||||
<TopLine Value="495"/>
|
||||
<EditorIndex Value="4"/>
|
||||
<UsageCount Value="18"/>
|
||||
<Loaded Value="True"/>
|
||||
</Unit30>
|
||||
<Unit31>
|
||||
<Filename Value="../../../fpc/rtl/objpas/sysutils/osutilsh.inc"/>
|
||||
@ -285,7 +291,7 @@
|
||||
<UnitName Value="CarbonPaste"/>
|
||||
<CursorPos X="43" Y="9"/>
|
||||
<TopLine Value="1"/>
|
||||
<UsageCount Value="45"/>
|
||||
<UsageCount Value="48"/>
|
||||
</Unit34>
|
||||
<Unit35>
|
||||
<Filename Value="../../../fpc/rtl/objpas/sysutils/sysutilh.inc"/>
|
||||
@ -296,8 +302,8 @@
|
||||
<Unit36>
|
||||
<Filename Value="../../../lazarus/lcl/widgetset/wsstdctrls.pp"/>
|
||||
<UnitName Value="WSStdCtrls"/>
|
||||
<CursorPos X="20" Y="145"/>
|
||||
<TopLine Value="138"/>
|
||||
<CursorPos X="20" Y="144"/>
|
||||
<TopLine Value="131"/>
|
||||
<UsageCount Value="14"/>
|
||||
</Unit36>
|
||||
<Unit37>
|
||||
@ -319,8 +325,8 @@
|
||||
<UnitName Value="Win32RichMemoProc"/>
|
||||
<CursorPos X="35" Y="172"/>
|
||||
<TopLine Value="154"/>
|
||||
<EditorIndex Value="1"/>
|
||||
<UsageCount Value="16"/>
|
||||
<EditorIndex Value="7"/>
|
||||
<UsageCount Value="17"/>
|
||||
<Bookmarks Count="1">
|
||||
<Item0 X="1" Y="121" ID="2"/>
|
||||
</Bookmarks>
|
||||
@ -374,44 +380,122 @@
|
||||
<TopLine Value="1"/>
|
||||
<UsageCount Value="10"/>
|
||||
</Unit46>
|
||||
<Unit47>
|
||||
<Filename Value="../../../lazarus/lcl/interfaces/carbon/carbonedits.pp"/>
|
||||
<UnitName Value="CarbonEdits"/>
|
||||
<CursorPos X="1" Y="1"/>
|
||||
<TopLine Value="1"/>
|
||||
<EditorIndex Value="1"/>
|
||||
<UsageCount Value="11"/>
|
||||
<Bookmarks Count="1">
|
||||
<Item0 X="1" Y="188" ID="3"/>
|
||||
</Bookmarks>
|
||||
<Loaded Value="True"/>
|
||||
</Unit47>
|
||||
<Unit48>
|
||||
<Filename Value="../../../lazarus/lcl/interfaces/carbon/carbonstrings.pp"/>
|
||||
<UnitName Value="CarbonStrings"/>
|
||||
<CursorPos X="25" Y="5"/>
|
||||
<TopLine Value="1"/>
|
||||
<EditorIndex Value="3"/>
|
||||
<UsageCount Value="11"/>
|
||||
<Loaded Value="True"/>
|
||||
</Unit48>
|
||||
<Unit49>
|
||||
<Filename Value="../../../lazarus/lcl/interfaces/carbon/carbondef.pp"/>
|
||||
<UnitName Value="CarbonDef"/>
|
||||
<CursorPos X="5" Y="83"/>
|
||||
<TopLine Value="70"/>
|
||||
<EditorIndex Value="2"/>
|
||||
<UsageCount Value="10"/>
|
||||
<Loaded Value="True"/>
|
||||
</Unit49>
|
||||
</Units>
|
||||
<JumpHistory Count="9" HistoryIndex="8">
|
||||
<JumpHistory Count="21" HistoryIndex="20">
|
||||
<Position1>
|
||||
<Filename Value="unit1.pas"/>
|
||||
<Caret Line="116" Column="21" TopLine="116"/>
|
||||
<Filename Value="../../../lazarus/lcl/interfaces/carbon/carbonedits.pp"/>
|
||||
<Caret Line="1580" Column="5" TopLine="1555"/>
|
||||
</Position1>
|
||||
<Position2>
|
||||
<Filename Value="unit1.pas"/>
|
||||
<Caret Line="130" Column="14" TopLine="125"/>
|
||||
<Filename Value="../../../lazarus/lcl/interfaces/carbon/carbonedits.pp"/>
|
||||
<Caret Line="1592" Column="1" TopLine="1580"/>
|
||||
</Position2>
|
||||
<Position3>
|
||||
<Filename Value="../../win32/win32richmemoproc.pas"/>
|
||||
<Caret Line="5" Column="1" TopLine="1"/>
|
||||
<Filename Value="../../../lazarus/lcl/interfaces/carbon/carbonedits.pp"/>
|
||||
<Caret Line="1600" Column="1" TopLine="1584"/>
|
||||
</Position3>
|
||||
<Position4>
|
||||
<Filename Value="../../win32/win32richmemoproc.pas"/>
|
||||
<Caret Line="168" Column="3" TopLine="157"/>
|
||||
<Filename Value="../../../lazarus/lcl/interfaces/carbon/carbonedits.pp"/>
|
||||
<Caret Line="1880" Column="1" TopLine="1855"/>
|
||||
</Position4>
|
||||
<Position5>
|
||||
<Filename Value="../../win32/win32richmemoproc.pas"/>
|
||||
<Caret Line="169" Column="7" TopLine="157"/>
|
||||
<Filename Value="../../../lazarus/lcl/interfaces/carbon/carbonedits.pp"/>
|
||||
<Caret Line="27" Column="1" TopLine="27"/>
|
||||
</Position5>
|
||||
<Position6>
|
||||
<Filename Value="../../win32/win32richmemoproc.pas"/>
|
||||
<Caret Line="179" Column="13" TopLine="157"/>
|
||||
<Filename Value="../../../lazarus/lcl/interfaces/carbon/carbonedits.pp"/>
|
||||
<Caret Line="1560" Column="5" TopLine="1535"/>
|
||||
</Position6>
|
||||
<Position7>
|
||||
<Filename Value="../../win32/win32richmemoproc.pas"/>
|
||||
<Caret Line="200" Column="11" TopLine="185"/>
|
||||
<Filename Value="../../../lazarus/lcl/interfaces/carbon/carbonedits.pp"/>
|
||||
<Caret Line="1557" Column="61" TopLine="1544"/>
|
||||
</Position7>
|
||||
<Position8>
|
||||
<Filename Value="../../win32/win32richmemoproc.pas"/>
|
||||
<Caret Line="361" Column="23" TopLine="350"/>
|
||||
<Filename Value="../../../lazarus/lcl/interfaces/carbon/carbonedits.pp"/>
|
||||
<Caret Line="178" Column="61" TopLine="163"/>
|
||||
</Position8>
|
||||
<Position9>
|
||||
<Filename Value="../../win32/win32richmemoproc.pas"/>
|
||||
<Caret Line="20" Column="22" TopLine="1"/>
|
||||
<Filename Value="../../../lazarus/lcl/interfaces/carbon/carbonedits.pp"/>
|
||||
<Caret Line="1561" Column="18" TopLine="1556"/>
|
||||
</Position9>
|
||||
<Position10>
|
||||
<Filename Value="../../../lazarus/lcl/interfaces/carbon/carbonedits.pp"/>
|
||||
<Caret Line="178" Column="52" TopLine="178"/>
|
||||
</Position10>
|
||||
<Position11>
|
||||
<Filename Value="../../../lazarus/lcl/interfaces/carbon/carbonedits.pp"/>
|
||||
<Caret Line="1557" Column="61" TopLine="1557"/>
|
||||
</Position11>
|
||||
<Position12>
|
||||
<Filename Value="../../../lazarus/lcl/interfaces/carbon/carbonedits.pp"/>
|
||||
<Caret Line="1601" Column="1" TopLine="1592"/>
|
||||
</Position12>
|
||||
<Position13>
|
||||
<Filename Value="../../../lazarus/lcl/interfaces/carbon/carbonedits.pp"/>
|
||||
<Caret Line="1557" Column="25" TopLine="1544"/>
|
||||
</Position13>
|
||||
<Position14>
|
||||
<Filename Value="../../../lazarus/lcl/interfaces/carbon/carbonedits.pp"/>
|
||||
<Caret Line="178" Column="52" TopLine="178"/>
|
||||
</Position14>
|
||||
<Position15>
|
||||
<Filename Value="../../../lazarus/lcl/interfaces/carbon/carbonedits.pp"/>
|
||||
<Caret Line="190" Column="14" TopLine="176"/>
|
||||
</Position15>
|
||||
<Position16>
|
||||
<Filename Value="../../../lazarus/lcl/interfaces/carbon/carbonedits.pp"/>
|
||||
<Caret Line="1560" Column="51" TopLine="1548"/>
|
||||
</Position16>
|
||||
<Position17>
|
||||
<Filename Value="../../../lazarus/lcl/interfaces/carbon/carbonedits.pp"/>
|
||||
<Caret Line="1591" Column="19" TopLine="1578"/>
|
||||
</Position17>
|
||||
<Position18>
|
||||
<Filename Value="../../../lazarus/lcl/interfaces/carbon/carbonedits.pp"/>
|
||||
<Caret Line="1606" Column="3" TopLine="1588"/>
|
||||
</Position18>
|
||||
<Position19>
|
||||
<Filename Value="../../../lazarus/lcl/interfaces/carbon/carbonedits.pp"/>
|
||||
<Caret Line="1773" Column="1" TopLine="1763"/>
|
||||
</Position19>
|
||||
<Position20>
|
||||
<Filename Value="../../../lazarus/lcl/interfaces/carbon/carbonedits.pp"/>
|
||||
<Caret Line="1" Column="1" TopLine="1"/>
|
||||
</Position20>
|
||||
<Position21>
|
||||
<Filename Value="../../../lazarus/lcl/interfaces/carbon/carbonedits.pp"/>
|
||||
<Caret Line="342" Column="27" TopLine="333"/>
|
||||
</Position21>
|
||||
</JumpHistory>
|
||||
</ProjectOptions>
|
||||
<CompilerOptions>
|
||||
@ -419,6 +503,13 @@
|
||||
<SearchPaths>
|
||||
<IncludeFiles Value="$(ProjOutDir)/"/>
|
||||
</SearchPaths>
|
||||
<Linking>
|
||||
<Options>
|
||||
<Win32>
|
||||
<GraphicApplication Value="True"/>
|
||||
</Win32>
|
||||
</Options>
|
||||
</Linking>
|
||||
<Other>
|
||||
<CompilerPath Value="$(CompPath)"/>
|
||||
</Other>
|
||||
|
||||
@ -4,92 +4,241 @@ object Form1: TForm1
|
||||
Top = 181
|
||||
Width = 634
|
||||
ActiveControl = RichMemo1
|
||||
Align = alNone
|
||||
AllowDropFiles = False
|
||||
AutoScroll = True
|
||||
AutoSize = False
|
||||
BorderIcons = [biSystemMenu, biMinimize, biMaximize]
|
||||
BorderStyle = bsSizeable
|
||||
BorderWidth = 0
|
||||
Caption = 'Form1'
|
||||
ClientHeight = 457
|
||||
ClientWidth = 634
|
||||
DefaultMonitor = dmActiveForm
|
||||
DockSite = False
|
||||
DragKind = dkDrag
|
||||
DragMode = dmManual
|
||||
Enabled = True
|
||||
FormStyle = fsNormal
|
||||
OnCreate = FormCreate
|
||||
ParentBiDiMode = True
|
||||
ParentFont = False
|
||||
Position = poDesigned
|
||||
ShowInTaskBar = stDefault
|
||||
UseDockManager = False
|
||||
LCLVersion = '0.9.27'
|
||||
WindowState = wsNormal
|
||||
object RichMemo1: TRichMemo
|
||||
Left = 15
|
||||
Height = 358
|
||||
Top = 16
|
||||
Width = 619
|
||||
Align = alNone
|
||||
Alignment = taLeftJustify
|
||||
Anchors = [akTop, akLeft, akRight, akBottom]
|
||||
BorderStyle = bsSingle
|
||||
Color = clWindow
|
||||
DragCursor = crDrag
|
||||
DragKind = dkDrag
|
||||
DragMode = dmManual
|
||||
Enabled = True
|
||||
Font.Height = -13
|
||||
Font.Name = 'Tahoma'
|
||||
HideSelection = False
|
||||
Lines.Strings = (
|
||||
'RichMemo1'
|
||||
)
|
||||
MaxLength = 0
|
||||
ParentBidiMode = True
|
||||
ParentColor = False
|
||||
ParentFont = False
|
||||
ParentShowHint = True
|
||||
ReadOnly = False
|
||||
ScrollBars = ssVertical
|
||||
TabOrder = 0
|
||||
TabStop = True
|
||||
Visible = True
|
||||
WantReturns = True
|
||||
WantTabs = False
|
||||
end
|
||||
object Button1: TButton
|
||||
Left = 24
|
||||
Height = 25
|
||||
Top = 382
|
||||
Width = 160
|
||||
Align = alNone
|
||||
Anchors = [akLeft, akBottom]
|
||||
AutoSize = False
|
||||
Cancel = False
|
||||
Caption = 'Make Bold and Red'
|
||||
Color = clBtnFace
|
||||
Default = False
|
||||
DragCursor = crDrag
|
||||
DragKind = dkDrag
|
||||
DragMode = dmManual
|
||||
Enabled = True
|
||||
ParentBidiMode = True
|
||||
ModalResult = 0
|
||||
OnClick = Button1Click
|
||||
ParentFont = True
|
||||
ParentShowHint = True
|
||||
TabOrder = 1
|
||||
TabStop = False
|
||||
Visible = True
|
||||
end
|
||||
object Button2: TButton
|
||||
Left = 192
|
||||
Height = 25
|
||||
Top = 382
|
||||
Width = 97
|
||||
Align = alNone
|
||||
Anchors = [akLeft, akBottom]
|
||||
AutoSize = False
|
||||
Cancel = False
|
||||
Caption = 'Get Attribs'
|
||||
Color = clBtnFace
|
||||
Default = False
|
||||
DragCursor = crDrag
|
||||
DragKind = dkDrag
|
||||
DragMode = dmManual
|
||||
Enabled = True
|
||||
ParentBidiMode = True
|
||||
ModalResult = 0
|
||||
OnClick = Button2Click
|
||||
ParentFont = True
|
||||
ParentShowHint = True
|
||||
TabOrder = 2
|
||||
TabStop = False
|
||||
Visible = True
|
||||
end
|
||||
object Button3: TButton
|
||||
Left = 304
|
||||
Height = 25
|
||||
Top = 382
|
||||
Width = 96
|
||||
Align = alNone
|
||||
Anchors = [akLeft, akBottom]
|
||||
AutoSize = False
|
||||
Cancel = False
|
||||
Caption = 'Select Font'
|
||||
Color = clBtnFace
|
||||
Default = False
|
||||
DragCursor = crDrag
|
||||
DragKind = dkDrag
|
||||
DragMode = dmManual
|
||||
Enabled = True
|
||||
ParentBidiMode = True
|
||||
ModalResult = 0
|
||||
OnClick = Button3Click
|
||||
ParentFont = True
|
||||
ParentShowHint = True
|
||||
TabOrder = 3
|
||||
TabStop = False
|
||||
Visible = True
|
||||
end
|
||||
object Button4: TButton
|
||||
Left = 528
|
||||
Height = 25
|
||||
Top = 382
|
||||
Width = 75
|
||||
Align = alNone
|
||||
Anchors = [akLeft, akBottom]
|
||||
AutoSize = False
|
||||
Cancel = False
|
||||
Caption = 'Save RTF'
|
||||
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 = False
|
||||
Visible = True
|
||||
end
|
||||
object Button5: TButton
|
||||
Left = 440
|
||||
Height = 25
|
||||
Top = 382
|
||||
Width = 75
|
||||
Align = alNone
|
||||
Anchors = [akLeft, akBottom]
|
||||
AutoSize = False
|
||||
Cancel = False
|
||||
Caption = 'Load RTF'
|
||||
Color = clBtnFace
|
||||
Default = False
|
||||
DragCursor = crDrag
|
||||
DragKind = dkDrag
|
||||
DragMode = dmManual
|
||||
Enabled = True
|
||||
ParentBidiMode = True
|
||||
ModalResult = 0
|
||||
OnClick = Button5Click
|
||||
ParentFont = True
|
||||
ParentShowHint = True
|
||||
TabOrder = 5
|
||||
TabStop = False
|
||||
Visible = True
|
||||
end
|
||||
object Button6: TButton
|
||||
Left = 24
|
||||
Height = 25
|
||||
Top = 415
|
||||
Width = 160
|
||||
Align = alNone
|
||||
Anchors = [akLeft, akBottom]
|
||||
AutoSize = False
|
||||
Cancel = False
|
||||
Caption = 'Next Style Range'
|
||||
Color = clBtnFace
|
||||
Default = False
|
||||
DragCursor = crDrag
|
||||
DragKind = dkDrag
|
||||
DragMode = dmManual
|
||||
Enabled = True
|
||||
ParentBidiMode = True
|
||||
ModalResult = 0
|
||||
OnClick = Button6Click
|
||||
ParentFont = True
|
||||
ParentShowHint = True
|
||||
TabOrder = 6
|
||||
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
|
||||
object FontDialog1: TFontDialog
|
||||
MinFontSize = 0
|
||||
|
||||
@ -2,34 +2,73 @@
|
||||
|
||||
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
|
||||
+'Width'#3'z'#2#13'ActiveControl'#7#9'RichMemo1'#7'Caption'#6#5'Form1'#12'Cli'
|
||||
+'entHeight'#3#201#1#11'ClientWidth'#3'z'#2#8'OnCreate'#7#10'FormCreate'#10'L'
|
||||
+'CLVersion'#6#6'0.9.27'#0#9'TRichMemo'#9'RichMemo1'#4'Left'#2#15#6'Height'#3
|
||||
+'f'#1#3'Top'#2#16#5'Width'#3'k'#2#7'Anchors'#11#5'akTop'#6'akLeft'#7'akRight'
|
||||
+#8'akBottom'#0#11'Font.Height'#2#243#9'Font.Name'#6#6'Tahoma'#13'HideSelecti'
|
||||
+'on'#8#13'Lines.Strings'#1#6#9'RichMemo1'#0#10'ParentFont'#8#10'ScrollBars'#7
|
||||
+#10'ssVertical'#8'TabOrder'#2#0#0#0#7'TButton'#7'Button1'#4'Left'#2#24#6'Hei'
|
||||
+'ght'#2#25#3'Top'#3'~'#1#5'Width'#3#160#0#7'Anchors'#11#6'akLeft'#8'akBottom'
|
||||
+#0#7'Caption'#6#17'Make Bold and Red'#7'OnClick'#7#12'Button1Click'#8'TabOrd'
|
||||
+'er'#2#1#7'TabStop'#8#0#0#7'TButton'#7'Button2'#4'Left'#3#192#0#6'Height'#2
|
||||
+#25#3'Top'#3'~'#1#5'Width'#2'a'#7'Anchors'#11#6'akLeft'#8'akBottom'#0#7'Capt'
|
||||
+'ion'#6#11'Get Attribs'#7'OnClick'#7#12'Button2Click'#8'TabOrder'#2#2#7'TabS'
|
||||
+'top'#8#0#0#7'TButton'#7'Button3'#4'Left'#3'0'#1#6'Height'#2#25#3'Top'#3'~'#1
|
||||
+#5'Width'#2'`'#7'Anchors'#11#6'akLeft'#8'akBottom'#0#7'Caption'#6#11'Select '
|
||||
+'Font'#7'OnClick'#7#12'Button3Click'#8'TabOrder'#2#3#7'TabStop'#8#0#0#7'TBut'
|
||||
+'ton'#7'Button4'#4'Left'#3#16#2#6'Height'#2#25#3'Top'#3'~'#1#5'Width'#2'K'#7
|
||||
+'Anchors'#11#6'akLeft'#8'akBottom'#0#7'Caption'#6#8'Save RTF'#7'OnClick'#7#12
|
||||
+'Button4Click'#8'TabOrder'#2#4#7'TabStop'#8#0#0#7'TButton'#7'Button5'#4'Left'
|
||||
+#3#184#1#6'Height'#2#25#3'Top'#3'~'#1#5'Width'#2'K'#7'Anchors'#11#6'akLeft'#8
|
||||
+'akBottom'#0#7'Caption'#6#8'Load RTF'#7'OnClick'#7#12'Button5Click'#8'TabOrd'
|
||||
+'er'#2#5#7'TabStop'#8#0#0#7'TButton'#7'Button6'#4'Left'#2#24#6'Height'#2#25#3
|
||||
+'Top'#3#159#1#5'Width'#3#160#0#7'Anchors'#11#6'akLeft'#8'akBottom'#0#7'Capti'
|
||||
+'on'#6#16'Next Style Range'#7'OnClick'#7#12'Button6Click'#8'TabOrder'#2#6#7
|
||||
+'TabStop'#8#0#0#11'TFontDialog'#11'FontDialog1'#11'MinFontSize'#2#0#11'MaxFo'
|
||||
+'ntSize'#2#0#4'left'#3'`'#1#3'top'#3#173#1#0#0#11'TSaveDialog'#11'SaveDialog'
|
||||
+'1'#10'DefaultExt'#6#4'.rtf'#6'Filter'#6#27'RichText file (*.rtf)|*.rtf'#7'O'
|
||||
+'ptions'#11#17'ofOverwritePrompt'#14'ofEnableSizing'#12'ofViewDetail'#0#4'le'
|
||||
+'ft'#3#24#1#3'top'#3#173#1#0#0#11'TOpenDialog'#11'OpenDialog1'#10'DefaultExt'
|
||||
+#6#4'.rtf'#6'Filter'#6#27'RichText file (*.rtf)|*.rtf'#4'left'#3#208#0#3'top'
|
||||
+#3#173#1#0#0#0
|
||||
+'Width'#3'z'#2#13'ActiveControl'#7#9'RichMemo1'#5'Align'#7#6'alNone'#14'Allo'
|
||||
+'wDropFiles'#8#10'AutoScroll'#9#8'AutoSize'#8#11'BorderIcons'#11#12'biSystem'
|
||||
+'Menu'#10'biMinimize'#10'biMaximize'#0#11'BorderStyle'#7#10'bsSizeable'#11'B'
|
||||
+'orderWidth'#2#0#7'Caption'#6#5'Form1'#12'ClientHeight'#3#201#1#11'ClientWid'
|
||||
+'th'#3'z'#2#14'DefaultMonitor'#7#12'dmActiveForm'#8'DockSite'#8#8'DragKind'#7
|
||||
+#6'dkDrag'#8'DragMode'#7#8'dmManual'#7'Enabled'#9#9'FormStyle'#7#8'fsNormal'
|
||||
+#8'OnCreate'#7#10'FormCreate'#14'ParentBiDiMode'#9#10'ParentFont'#8#8'Positi'
|
||||
+'on'#7#10'poDesigned'#13'ShowInTaskBar'#7#9'stDefault'#14'UseDockManager'#8
|
||||
+#10'LCLVersion'#6#6'0.9.27'#11'WindowState'#7#8'wsNormal'#0#9'TRichMemo'#9'R'
|
||||
+'ichMemo1'#4'Left'#2#15#6'Height'#3'f'#1#3'Top'#2#16#5'Width'#3'k'#2#5'Align'
|
||||
+#7#6'alNone'#9'Alignment'#7#13'taLeftJustify'#7'Anchors'#11#5'akTop'#6'akLef'
|
||||
+'t'#7'akRight'#8'akBottom'#0#11'BorderStyle'#7#8'bsSingle'#5'Color'#7#8'clWi'
|
||||
+'ndow'#10'DragCursor'#7#6'crDrag'#8'DragKind'#7#6'dkDrag'#8'DragMode'#7#8'dm'
|
||||
+'Manual'#7'Enabled'#9#11'Font.Height'#2#243#9'Font.Name'#6#6'Tahoma'#13'Hide'
|
||||
+'Selection'#8#13'Lines.Strings'#1#6#9'RichMemo1'#0#9'MaxLength'#2#0#14'Paren'
|
||||
+'tBidiMode'#9#11'ParentColor'#8#10'ParentFont'#8#14'ParentShowHint'#9#8'Read'
|
||||
+'Only'#8#10'ScrollBars'#7#10'ssVertical'#8'TabOrder'#2#0#7'TabStop'#9#7'Visi'
|
||||
+'ble'#9#11'WantReturns'#9#8'WantTabs'#8#0#0#7'TButton'#7'Button1'#4'Left'#2
|
||||
+#24#6'Height'#2#25#3'Top'#3'~'#1#5'Width'#3#160#0#5'Align'#7#6'alNone'#7'Anc'
|
||||
+'hors'#11#6'akLeft'#8'akBottom'#0#8'AutoSize'#8#6'Cancel'#8#7'Caption'#6#17
|
||||
+'Make Bold and Red'#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'P'
|
||||
+'arentBidiMode'#9#11'ModalResult'#2#0#7'OnClick'#7#12'Button1Click'#10'Paren'
|
||||
+'tFont'#9#14'ParentShowHint'#9#8'TabOrder'#2#1#7'TabStop'#8#7'Visible'#9#0#0
|
||||
+#7'TButton'#7'Button2'#4'Left'#3#192#0#6'Height'#2#25#3'Top'#3'~'#1#5'Width'
|
||||
+#2'a'#5'Align'#7#6'alNone'#7'Anchors'#11#6'akLeft'#8'akBottom'#0#8'AutoSize'
|
||||
+#8#6'Cancel'#8#7'Caption'#6#11'Get Attribs'#5'Color'#7#9'clBtnFace'#7'Defaul'
|
||||
+'t'#8#10'DragCursor'#7#6'crDrag'#8'DragKind'#7#6'dkDrag'#8'DragMode'#7#8'dmM'
|
||||
+'anual'#7'Enabled'#9#14'ParentBidiMode'#9#11'ModalResult'#2#0#7'OnClick'#7#12
|
||||
+'Button2Click'#10'ParentFont'#9#14'ParentShowHint'#9#8'TabOrder'#2#2#7'TabSt'
|
||||
+'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
|
||||
]);
|
||||
|
||||
@ -7,6 +7,7 @@ interface
|
||||
uses
|
||||
Classes, SysUtils, FileUtil, LResources, Forms, Controls, Graphics, Dialogs,
|
||||
StdCtrls, ExtCtrls, ComCtrls,
|
||||
CarbonRichMemo,
|
||||
RichMemo;
|
||||
|
||||
type
|
||||
@ -20,6 +21,7 @@ type
|
||||
Button4: TButton;
|
||||
Button5: TButton;
|
||||
Button6: TButton;
|
||||
Edit1: TEdit;
|
||||
FontDialog1: TFontDialog;
|
||||
OpenDialog1: TOpenDialog;
|
||||
RichMemo1: TRichMemo;
|
||||
@ -80,10 +82,10 @@ procedure TForm1.Button4Click(Sender: TObject);
|
||||
var
|
||||
fs : TFileStream;
|
||||
begin
|
||||
if OpenDialog1.Execute then begin
|
||||
if SaveDialog1.Execute then begin
|
||||
fs := nil;
|
||||
try
|
||||
fs := TFileStream.Create( Utf8ToAnsi(OpenDialog1.FileName), fmCreate);
|
||||
fs := TFileStream.Create( Utf8ToAnsi(SaveDialog1.FileName), fmCreate);
|
||||
RichMemo1.SaveRichText(fs);
|
||||
except
|
||||
end;
|
||||
|
||||
Reference in New Issue
Block a user