You've already forked lazarus-ccr
richmemo: fix for win32 OnChange event after GetAttributes proc. Removed debug out from sample project
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@961 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
@ -6,7 +6,7 @@
|
||||
<MainUnit Value="0"/>
|
||||
<TargetFileExt Value=""/>
|
||||
<UseXPManifest Value="True"/>
|
||||
<ActiveEditorIndexAtStart Value="0"/>
|
||||
<ActiveEditorIndexAtStart Value="1"/>
|
||||
</General>
|
||||
<VersionInfo>
|
||||
<ProjectVersion Value=""/>
|
||||
@ -47,8 +47,8 @@
|
||||
<ComponentName Value="Form1"/>
|
||||
<ResourceBaseClass Value="Form"/>
|
||||
<UnitName Value="Unit1"/>
|
||||
<CursorPos X="44" Y="126"/>
|
||||
<TopLine Value="123"/>
|
||||
<CursorPos X="19" Y="56"/>
|
||||
<TopLine Value="48"/>
|
||||
<EditorIndex Value="0"/>
|
||||
<UsageCount Value="70"/>
|
||||
<Loaded Value="True"/>
|
||||
@ -236,11 +236,9 @@
|
||||
<Unit27>
|
||||
<Filename Value="../../richmemo.pas"/>
|
||||
<UnitName Value="RichMemo"/>
|
||||
<CursorPos X="1" Y="44"/>
|
||||
<TopLine Value="44"/>
|
||||
<EditorIndex Value="10"/>
|
||||
<CursorPos X="15" Y="57"/>
|
||||
<TopLine Value="48"/>
|
||||
<UsageCount Value="31"/>
|
||||
<Loaded Value="True"/>
|
||||
</Unit27>
|
||||
<Unit28>
|
||||
<Filename Value="../../wsrichmemo.pas"/>
|
||||
@ -312,8 +310,8 @@
|
||||
<Unit38>
|
||||
<Filename Value="../../win32/win32richmemo.pas"/>
|
||||
<UnitName Value="Win32RichMemo"/>
|
||||
<CursorPos X="11" Y="288"/>
|
||||
<TopLine Value="280"/>
|
||||
<CursorPos X="1" Y="231"/>
|
||||
<TopLine Value="216"/>
|
||||
<EditorIndex Value="1"/>
|
||||
<UsageCount Value="15"/>
|
||||
<Loaded Value="True"/>
|
||||
@ -321,14 +319,12 @@
|
||||
<Unit39>
|
||||
<Filename Value="../../win32/win32richmemoproc.pas"/>
|
||||
<UnitName Value="Win32RichMemoProc"/>
|
||||
<CursorPos X="27" Y="84"/>
|
||||
<TopLine Value="70"/>
|
||||
<EditorIndex Value="11"/>
|
||||
<CursorPos X="1" Y="1"/>
|
||||
<TopLine Value="1"/>
|
||||
<UsageCount Value="21"/>
|
||||
<Bookmarks Count="1">
|
||||
<Item0 X="1" Y="121" ID="2"/>
|
||||
</Bookmarks>
|
||||
<Loaded Value="True"/>
|
||||
</Unit39>
|
||||
<Unit40>
|
||||
<Filename Value="../../../../../fpc/packages/winunits-base/src/richedit.pp"/>
|
||||
@ -365,13 +361,11 @@
|
||||
<UsageCount Value="9"/>
|
||||
</Unit44>
|
||||
<Unit45>
|
||||
<Filename Value="../../../../../lazarus/lcl/stdctrls.pp"/>
|
||||
<Filename Value="../../../../../Lazarus/lcl/stdctrls.pp"/>
|
||||
<UnitName Value="StdCtrls"/>
|
||||
<CursorPos X="33" Y="677"/>
|
||||
<TopLine Value="662"/>
|
||||
<EditorIndex Value="2"/>
|
||||
<UsageCount Value="10"/>
|
||||
<Loaded Value="True"/>
|
||||
</Unit45>
|
||||
<Unit46>
|
||||
<Filename Value="../../../../../Lazarus/lcl/interfaces/win32/win32def.pp"/>
|
||||
@ -381,180 +375,118 @@
|
||||
<UsageCount Value="9"/>
|
||||
</Unit46>
|
||||
<Unit47>
|
||||
<Filename Value="../../../../../lazarus/lcl/interfaces/win32/win32wsstdctrls.pp"/>
|
||||
<Filename Value="../../../../../Lazarus/lcl/interfaces/win32/win32wsstdctrls.pp"/>
|
||||
<UnitName Value="Win32WSStdCtrls"/>
|
||||
<CursorPos X="26" Y="83"/>
|
||||
<TopLine Value="67"/>
|
||||
<EditorIndex Value="6"/>
|
||||
<UsageCount Value="10"/>
|
||||
<Loaded Value="True"/>
|
||||
</Unit47>
|
||||
<Unit48>
|
||||
<Filename Value="../../../../../lazarus/lcl/widgetset/wsstdctrls.pp"/>
|
||||
<Filename Value="../../../../../Lazarus/lcl/widgetset/wsstdctrls.pp"/>
|
||||
<UnitName Value="WSStdCtrls"/>
|
||||
<CursorPos X="36" Y="53"/>
|
||||
<TopLine Value="39"/>
|
||||
<EditorIndex Value="8"/>
|
||||
<UsageCount Value="10"/>
|
||||
<Loaded Value="True"/>
|
||||
</Unit48>
|
||||
<Unit49>
|
||||
<Filename Value="../../../../../lazarus/lcl/widgetset/wscontrols.pp"/>
|
||||
<Filename Value="../../../../../Lazarus/lcl/widgetset/wscontrols.pp"/>
|
||||
<UnitName Value="WSControls"/>
|
||||
<CursorPos X="30" Y="100"/>
|
||||
<TopLine Value="85"/>
|
||||
<EditorIndex Value="9"/>
|
||||
<UsageCount Value="10"/>
|
||||
<Loaded Value="True"/>
|
||||
</Unit49>
|
||||
<Unit50>
|
||||
<Filename Value="../../../../../lazarus/lcl/interfaces/win32/win32wscontrols.pp"/>
|
||||
<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"/>
|
||||
<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"/>
|
||||
<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"/>
|
||||
<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>
|
||||
<JumpHistory Count="28" HistoryIndex="27">
|
||||
<JumpHistory Count="16" HistoryIndex="15">
|
||||
<Position1>
|
||||
<Filename Value="../../../../../Lazarus/lcl/interfaces/win32/win32wscontrols.pp"/>
|
||||
<Caret Line="29" Column="1" TopLine="29"/>
|
||||
</Position1>
|
||||
<Position2>
|
||||
<Filename Value="../../../../../Lazarus/lcl/interfaces/win32/win32wscontrols.pp"/>
|
||||
<Caret Line="77" Column="30" TopLine="62"/>
|
||||
</Position2>
|
||||
<Position3>
|
||||
<Filename Value="unit1.pas"/>
|
||||
<Caret Line="40" Column="17" TopLine="38"/>
|
||||
</Position3>
|
||||
<Position4>
|
||||
<Filename Value="unit1.pas"/>
|
||||
<Caret Line="24" Column="16" TopLine="1"/>
|
||||
</Position1>
|
||||
<Position2>
|
||||
<Filename Value="../../win32/win32richmemo.pas"/>
|
||||
<Caret Line="45" Column="90" TopLine="43"/>
|
||||
</Position2>
|
||||
<Position3>
|
||||
<Filename Value="../../win32/win32richmemo.pas"/>
|
||||
<Caret Line="102" Column="1" TopLine="72"/>
|
||||
</Position3>
|
||||
<Position4>
|
||||
<Filename Value="../../win32/win32richmemo.pas"/>
|
||||
<Caret Line="97" Column="32" TopLine="73"/>
|
||||
</Position4>
|
||||
<Position5>
|
||||
<Filename Value="../../../../../Lazarus/lcl/stdctrls.pp"/>
|
||||
<Caret Line="830" Column="17" TopLine="815"/>
|
||||
<Filename Value="../../win32/win32richmemo.pas"/>
|
||||
<Caret Line="1" Column="1" TopLine="1"/>
|
||||
</Position5>
|
||||
<Position6>
|
||||
<Filename Value="../../../../../Lazarus/lcl/stdctrls.pp"/>
|
||||
<Filename Value="unit1.pas"/>
|
||||
<Caret Line="1" Column="1" TopLine="1"/>
|
||||
</Position6>
|
||||
<Position7>
|
||||
<Filename Value="../../../../../Lazarus/lcl/stdctrls.pp"/>
|
||||
<Caret Line="38" Column="16" TopLine="23"/>
|
||||
<Filename Value="unit1.pas"/>
|
||||
<Caret Line="1" Column="1" TopLine="1"/>
|
||||
</Position7>
|
||||
<Position8>
|
||||
<Filename Value="../../../../../Lazarus/lcl/stdctrls.pp"/>
|
||||
<Caret Line="790" Column="16" TopLine="775"/>
|
||||
<Filename Value="unit1.pas"/>
|
||||
<Caret Line="22" Column="22" TopLine="22"/>
|
||||
</Position8>
|
||||
<Position9>
|
||||
<Filename Value="../../../../../Lazarus/lcl/stdctrls.pp"/>
|
||||
<Caret Line="1363" Column="24" TopLine="1348"/>
|
||||
<Filename Value="unit1.pas"/>
|
||||
<Caret Line="34" Column="48" TopLine="34"/>
|
||||
</Position9>
|
||||
<Position10>
|
||||
<Filename Value="../../../../../Lazarus/lcl/stdctrls.pp"/>
|
||||
<Caret Line="1391" Column="24" TopLine="1376"/>
|
||||
<Filename Value="unit1.pas"/>
|
||||
<Caret Line="136" Column="25" TopLine="128"/>
|
||||
</Position10>
|
||||
<Position11>
|
||||
<Filename Value="../../../../../Lazarus/lcl/stdctrls.pp"/>
|
||||
<Caret Line="1" Column="1" TopLine="1"/>
|
||||
<Filename Value="unit1.pas"/>
|
||||
<Caret Line="34" Column="48" TopLine="23"/>
|
||||
</Position11>
|
||||
<Position12>
|
||||
<Filename Value="../../../../../Lazarus/lcl/stdctrls.pp"/>
|
||||
<Caret Line="1391" Column="15" TopLine="1376"/>
|
||||
<Filename Value="unit1.pas"/>
|
||||
<Caret Line="132" Column="19" TopLine="107"/>
|
||||
</Position12>
|
||||
<Position13>
|
||||
<Filename Value="../../../../../Lazarus/lcl/stdctrls.pp"/>
|
||||
<Caret Line="1" Column="1" TopLine="1"/>
|
||||
<Filename Value="unit1.pas"/>
|
||||
<Caret Line="56" Column="19" TopLine="48"/>
|
||||
</Position13>
|
||||
<Position14>
|
||||
<Filename Value="../../../../../Lazarus/lcl/stdctrls.pp"/>
|
||||
<Caret Line="1391" Column="24" TopLine="1376"/>
|
||||
<Filename Value="../../win32/win32richmemo.pas"/>
|
||||
<Caret Line="288" Column="11" TopLine="280"/>
|
||||
</Position14>
|
||||
<Position15>
|
||||
<Filename Value="../../../../../Lazarus/lcl/stdctrls.pp"/>
|
||||
<Filename Value="../../win32/win32richmemo.pas"/>
|
||||
<Caret Line="1" Column="1" TopLine="1"/>
|
||||
</Position15>
|
||||
<Position16>
|
||||
<Filename Value="../../../../../Lazarus/lcl/stdctrls.pp"/>
|
||||
<Caret Line="1289" Column="24" TopLine="1278"/>
|
||||
<Filename Value="../../win32/win32richmemo.pas"/>
|
||||
<Caret Line="207" Column="1" TopLine="192"/>
|
||||
</Position16>
|
||||
<Position17>
|
||||
<Filename Value="../../../../../Lazarus/lcl/stdctrls.pp"/>
|
||||
<Caret Line="1" Column="1" TopLine="1"/>
|
||||
</Position17>
|
||||
<Position18>
|
||||
<Filename Value="../../../../../Lazarus/lcl/stdctrls.pp"/>
|
||||
<Caret Line="778" Column="33" TopLine="761"/>
|
||||
</Position18>
|
||||
<Position19>
|
||||
<Filename Value="../../../../../Lazarus/lcl/stdctrls.pp"/>
|
||||
<Caret Line="677" Column="33" TopLine="662"/>
|
||||
</Position19>
|
||||
<Position20>
|
||||
<Filename Value="../../../../../Lazarus/lcl/controls.pp"/>
|
||||
<Caret Line="1576" Column="3" TopLine="1561"/>
|
||||
</Position20>
|
||||
<Position21>
|
||||
<Filename Value="unit1.pas"/>
|
||||
<Caret Line="24" Column="16" TopLine="1"/>
|
||||
</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="1" Column="1" TopLine="1"/>
|
||||
</Position27>
|
||||
<Position28>
|
||||
<Filename Value="unit1.pas"/>
|
||||
<Caret Line="22" Column="22" TopLine="22"/>
|
||||
</Position28>
|
||||
</JumpHistory>
|
||||
</ProjectOptions>
|
||||
<CompilerOptions>
|
||||
|
@ -8,7 +8,7 @@ object Form1: TForm1
|
||||
ClientHeight = 457
|
||||
ClientWidth = 634
|
||||
OnCreate = FormCreate
|
||||
LCLVersion = '0.9.27'
|
||||
LCLVersion = '0.9.29'
|
||||
object RichMemo1: TRichMemo
|
||||
Left = 15
|
||||
Height = 358
|
||||
@ -21,6 +21,7 @@ object Form1: TForm1
|
||||
Lines.Strings = (
|
||||
'RichMemo1'
|
||||
)
|
||||
OnChange = RichMemo1Change
|
||||
ParentFont = False
|
||||
ScrollBars = ssVertical
|
||||
TabOrder = 0
|
||||
|
@ -4,32 +4,32 @@ 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
|
||||
+'CLVersion'#6#6'0.9.29'#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
|
||||
+'on'#8#13'Lines.Strings'#1#6#9'RichMemo1'#0#8'OnChange'#7#15'RichMemo1Change'
|
||||
+#10'ParentFont'#8#10'ScrollBars'#7#10'ssVertical'#8'TabOrder'#2#0#0#0#7'TBut'
|
||||
+'ton'#7'Button1'#4'Left'#2#24#6'Height'#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'On'
|
||||
+'Click'#7#12'Button1Click'#8'TabOrder'#2#1#7'TabStop'#8#0#0#7'TButton'#7'But'
|
||||
+'ton2'#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'Caption'#6#11'Get Attribs'#7'OnClick'#7#12'But'
|
||||
+'ton2Click'#8'TabOrder'#2#2#7'TabStop'#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'a'
|
||||
+'kBottom'#0#7'Caption'#6#11'Select Font'#7'OnClick'#7#12'Button3Click'#8'Tab'
|
||||
+'Order'#2#3#7'TabStop'#8#0#0#7'TButton'#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'Capt'
|
||||
+'ion'#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'TabOrder'#2#5#7'TabStop'#8#0#0#7'TButton'#7'B'
|
||||
+'utton6'#4'Left'#2#24#6'Height'#2#25#3'Top'#3#159#1#5'Width'#3#160#0#7'Ancho'
|
||||
+'rs'#11#6'akLeft'#8'akBottom'#0#7'Caption'#6#16'Next Style Range'#7'OnClick'
|
||||
+#7#12'Button6Click'#8'TabOrder'#2#6#7'TabStop'#8#0#0#11'TFontDialog'#11'Font'
|
||||
+'Dialog1'#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'ofOverwritePrompt'#14'ofEn'
|
||||
+'ableSizing'#12'ofViewDetail'#0#4'left'#3#24#1#3'top'#3#173#1#0#0#11'TOpenDi'
|
||||
+'alog'#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
|
||||
]);
|
||||
|
@ -31,6 +31,7 @@ type
|
||||
procedure Button5Click(Sender: TObject);
|
||||
procedure Button6Click(Sender: TObject);
|
||||
procedure FormCreate(Sender: TObject);
|
||||
procedure RichMemo1Change(Sender: TObject);
|
||||
private
|
||||
{ private declarations }
|
||||
public
|
||||
@ -124,6 +125,12 @@ procedure TForm1.FormCreate(Sender: TObject);
|
||||
begin
|
||||
end;
|
||||
|
||||
procedure TForm1.RichMemo1Change(Sender: TObject);
|
||||
begin
|
||||
Caption := Caption + '.';
|
||||
if length(CAption)>20 then Caption:='';
|
||||
end;
|
||||
|
||||
initialization
|
||||
{$I unit1.lrs}
|
||||
|
||||
|
@ -204,7 +204,6 @@ var
|
||||
NeedLock : Boolean;
|
||||
eventmask : LongWord;
|
||||
begin
|
||||
writeln('[GetTextAttributes] begin');
|
||||
if not Assigned(RichEditManager) or not Assigned(AWinControl) then begin
|
||||
Result := false;
|
||||
Exit;
|
||||
@ -221,15 +220,14 @@ begin
|
||||
RichEditManager.SetSelection(AWinControl.Handle, TextStart, 1);
|
||||
Result := RichEditManager.GetSelectedTextStyle(AWinControl.Handle, Params );
|
||||
RichEditManager.SetSelection(AWinControl.Handle, OrigStart, OrigLen);
|
||||
UnlockRedraw(AWinControl.Handle);
|
||||
UnlockRedraw(AWinControl.Handle, false);
|
||||
end else begin
|
||||
LockRedraw(AWinControl.Handle);
|
||||
Result := RichEditManager.GetSelectedTextStyle(AWinControl.Handle, Params);
|
||||
UnlockRedraw(AWinControl.Handle);
|
||||
UnlockRedraw(AWinControl.Handle, false);
|
||||
end;
|
||||
|
||||
SendMessage(AWinControl.Handle, EM_SETEVENTMASK, 0, eventmask);
|
||||
writeln('[GetTextAttributes] end');
|
||||
end;
|
||||
|
||||
|
||||
|
Reference in New Issue
Block a user