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"/>
|
<MainUnit Value="0"/>
|
||||||
<TargetFileExt Value=""/>
|
<TargetFileExt Value=""/>
|
||||||
<UseXPManifest Value="True"/>
|
<UseXPManifest Value="True"/>
|
||||||
<ActiveEditorIndexAtStart Value="0"/>
|
<ActiveEditorIndexAtStart Value="1"/>
|
||||||
</General>
|
</General>
|
||||||
<VersionInfo>
|
<VersionInfo>
|
||||||
<ProjectVersion Value=""/>
|
<ProjectVersion Value=""/>
|
||||||
@ -47,8 +47,8 @@
|
|||||||
<ComponentName Value="Form1"/>
|
<ComponentName Value="Form1"/>
|
||||||
<ResourceBaseClass Value="Form"/>
|
<ResourceBaseClass Value="Form"/>
|
||||||
<UnitName Value="Unit1"/>
|
<UnitName Value="Unit1"/>
|
||||||
<CursorPos X="44" Y="126"/>
|
<CursorPos X="19" Y="56"/>
|
||||||
<TopLine Value="123"/>
|
<TopLine Value="48"/>
|
||||||
<EditorIndex Value="0"/>
|
<EditorIndex Value="0"/>
|
||||||
<UsageCount Value="70"/>
|
<UsageCount Value="70"/>
|
||||||
<Loaded Value="True"/>
|
<Loaded Value="True"/>
|
||||||
@ -236,11 +236,9 @@
|
|||||||
<Unit27>
|
<Unit27>
|
||||||
<Filename Value="../../richmemo.pas"/>
|
<Filename Value="../../richmemo.pas"/>
|
||||||
<UnitName Value="RichMemo"/>
|
<UnitName Value="RichMemo"/>
|
||||||
<CursorPos X="1" Y="44"/>
|
<CursorPos X="15" Y="57"/>
|
||||||
<TopLine Value="44"/>
|
<TopLine Value="48"/>
|
||||||
<EditorIndex Value="10"/>
|
|
||||||
<UsageCount Value="31"/>
|
<UsageCount Value="31"/>
|
||||||
<Loaded Value="True"/>
|
|
||||||
</Unit27>
|
</Unit27>
|
||||||
<Unit28>
|
<Unit28>
|
||||||
<Filename Value="../../wsrichmemo.pas"/>
|
<Filename Value="../../wsrichmemo.pas"/>
|
||||||
@ -312,8 +310,8 @@
|
|||||||
<Unit38>
|
<Unit38>
|
||||||
<Filename Value="../../win32/win32richmemo.pas"/>
|
<Filename Value="../../win32/win32richmemo.pas"/>
|
||||||
<UnitName Value="Win32RichMemo"/>
|
<UnitName Value="Win32RichMemo"/>
|
||||||
<CursorPos X="11" Y="288"/>
|
<CursorPos X="1" Y="231"/>
|
||||||
<TopLine Value="280"/>
|
<TopLine Value="216"/>
|
||||||
<EditorIndex Value="1"/>
|
<EditorIndex Value="1"/>
|
||||||
<UsageCount Value="15"/>
|
<UsageCount Value="15"/>
|
||||||
<Loaded Value="True"/>
|
<Loaded Value="True"/>
|
||||||
@ -321,14 +319,12 @@
|
|||||||
<Unit39>
|
<Unit39>
|
||||||
<Filename Value="../../win32/win32richmemoproc.pas"/>
|
<Filename Value="../../win32/win32richmemoproc.pas"/>
|
||||||
<UnitName Value="Win32RichMemoProc"/>
|
<UnitName Value="Win32RichMemoProc"/>
|
||||||
<CursorPos X="27" Y="84"/>
|
<CursorPos X="1" Y="1"/>
|
||||||
<TopLine Value="70"/>
|
<TopLine Value="1"/>
|
||||||
<EditorIndex Value="11"/>
|
|
||||||
<UsageCount Value="21"/>
|
<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>
|
||||||
<Loaded Value="True"/>
|
|
||||||
</Unit39>
|
</Unit39>
|
||||||
<Unit40>
|
<Unit40>
|
||||||
<Filename Value="../../../../../fpc/packages/winunits-base/src/richedit.pp"/>
|
<Filename Value="../../../../../fpc/packages/winunits-base/src/richedit.pp"/>
|
||||||
@ -365,13 +361,11 @@
|
|||||||
<UsageCount Value="9"/>
|
<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="33" Y="677"/>
|
<CursorPos X="33" Y="677"/>
|
||||||
<TopLine Value="662"/>
|
<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"/>
|
||||||
@ -381,180 +375,118 @@
|
|||||||
<UsageCount Value="9"/>
|
<UsageCount Value="9"/>
|
||||||
</Unit46>
|
</Unit46>
|
||||||
<Unit47>
|
<Unit47>
|
||||||
<Filename Value="../../../../../lazarus/lcl/interfaces/win32/win32wsstdctrls.pp"/>
|
<Filename Value="../../../../../Lazarus/lcl/interfaces/win32/win32wsstdctrls.pp"/>
|
||||||
<UnitName Value="Win32WSStdCtrls"/>
|
<UnitName Value="Win32WSStdCtrls"/>
|
||||||
<CursorPos X="26" Y="83"/>
|
<CursorPos X="26" Y="83"/>
|
||||||
<TopLine Value="67"/>
|
<TopLine Value="67"/>
|
||||||
<EditorIndex Value="6"/>
|
|
||||||
<UsageCount Value="10"/>
|
<UsageCount Value="10"/>
|
||||||
<Loaded Value="True"/>
|
|
||||||
</Unit47>
|
</Unit47>
|
||||||
<Unit48>
|
<Unit48>
|
||||||
<Filename Value="../../../../../lazarus/lcl/widgetset/wsstdctrls.pp"/>
|
<Filename Value="../../../../../Lazarus/lcl/widgetset/wsstdctrls.pp"/>
|
||||||
<UnitName Value="WSStdCtrls"/>
|
<UnitName Value="WSStdCtrls"/>
|
||||||
<CursorPos X="36" Y="53"/>
|
<CursorPos X="36" Y="53"/>
|
||||||
<TopLine Value="39"/>
|
<TopLine Value="39"/>
|
||||||
<EditorIndex Value="8"/>
|
|
||||||
<UsageCount Value="10"/>
|
<UsageCount Value="10"/>
|
||||||
<Loaded Value="True"/>
|
|
||||||
</Unit48>
|
</Unit48>
|
||||||
<Unit49>
|
<Unit49>
|
||||||
<Filename Value="../../../../../lazarus/lcl/widgetset/wscontrols.pp"/>
|
<Filename Value="../../../../../Lazarus/lcl/widgetset/wscontrols.pp"/>
|
||||||
<UnitName Value="WSControls"/>
|
<UnitName Value="WSControls"/>
|
||||||
<CursorPos X="30" Y="100"/>
|
<CursorPos X="30" Y="100"/>
|
||||||
<TopLine Value="85"/>
|
<TopLine Value="85"/>
|
||||||
<EditorIndex Value="9"/>
|
|
||||||
<UsageCount Value="10"/>
|
<UsageCount Value="10"/>
|
||||||
<Loaded Value="True"/>
|
|
||||||
</Unit49>
|
</Unit49>
|
||||||
<Unit50>
|
<Unit50>
|
||||||
<Filename Value="../../../../../lazarus/lcl/interfaces/win32/win32wscontrols.pp"/>
|
<Filename Value="../../../../../Lazarus/lcl/interfaces/win32/win32wscontrols.pp"/>
|
||||||
<UnitName Value="Win32WSControls"/>
|
<UnitName Value="Win32WSControls"/>
|
||||||
<CursorPos X="1" Y="450"/>
|
<CursorPos X="1" Y="450"/>
|
||||||
<TopLine Value="434"/>
|
<TopLine Value="434"/>
|
||||||
<EditorIndex Value="7"/>
|
|
||||||
<UsageCount Value="10"/>
|
<UsageCount Value="10"/>
|
||||||
<Loaded Value="True"/>
|
|
||||||
</Unit50>
|
</Unit50>
|
||||||
<Unit51>
|
<Unit51>
|
||||||
<Filename Value="../../../../../lazarus/lcl/include/customlabel.inc"/>
|
<Filename Value="../../../../../Lazarus/lcl/include/customlabel.inc"/>
|
||||||
<CursorPos X="3" Y="229"/>
|
<CursorPos X="3" Y="229"/>
|
||||||
<TopLine Value="227"/>
|
<TopLine Value="227"/>
|
||||||
<EditorIndex Value="5"/>
|
|
||||||
<UsageCount Value="10"/>
|
<UsageCount Value="10"/>
|
||||||
<Loaded Value="True"/>
|
|
||||||
</Unit51>
|
</Unit51>
|
||||||
<Unit52>
|
<Unit52>
|
||||||
<Filename Value="../../../../../lazarus/lcl/controls.pp"/>
|
<Filename Value="../../../../../Lazarus/lcl/controls.pp"/>
|
||||||
<UnitName Value="Controls"/>
|
<UnitName Value="Controls"/>
|
||||||
<CursorPos X="24" Y="1784"/>
|
<CursorPos X="24" Y="1784"/>
|
||||||
<TopLine Value="1769"/>
|
<TopLine Value="1769"/>
|
||||||
<EditorIndex Value="3"/>
|
|
||||||
<UsageCount Value="10"/>
|
<UsageCount Value="10"/>
|
||||||
<Loaded Value="True"/>
|
|
||||||
</Unit52>
|
</Unit52>
|
||||||
<Unit53>
|
<Unit53>
|
||||||
<Filename Value="../../../../../lazarus/lcl/include/wincontrol.inc"/>
|
<Filename Value="../../../../../Lazarus/lcl/include/wincontrol.inc"/>
|
||||||
<CursorPos X="5" Y="4342"/>
|
<CursorPos X="5" Y="4342"/>
|
||||||
<TopLine Value="4334"/>
|
<TopLine Value="4334"/>
|
||||||
<EditorIndex Value="4"/>
|
|
||||||
<UsageCount Value="10"/>
|
<UsageCount Value="10"/>
|
||||||
<Loaded Value="True"/>
|
|
||||||
</Unit53>
|
</Unit53>
|
||||||
</Units>
|
</Units>
|
||||||
<JumpHistory Count="28" HistoryIndex="27">
|
<JumpHistory Count="16" HistoryIndex="15">
|
||||||
<Position1>
|
<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"/>
|
<Filename Value="unit1.pas"/>
|
||||||
<Caret Line="24" Column="16" TopLine="1"/>
|
<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>
|
</Position4>
|
||||||
<Position5>
|
<Position5>
|
||||||
<Filename Value="../../../../../Lazarus/lcl/stdctrls.pp"/>
|
<Filename Value="../../win32/win32richmemo.pas"/>
|
||||||
<Caret Line="830" Column="17" TopLine="815"/>
|
<Caret Line="1" Column="1" TopLine="1"/>
|
||||||
</Position5>
|
</Position5>
|
||||||
<Position6>
|
<Position6>
|
||||||
<Filename Value="../../../../../Lazarus/lcl/stdctrls.pp"/>
|
<Filename Value="unit1.pas"/>
|
||||||
<Caret Line="1" Column="1" TopLine="1"/>
|
<Caret Line="1" Column="1" TopLine="1"/>
|
||||||
</Position6>
|
</Position6>
|
||||||
<Position7>
|
<Position7>
|
||||||
<Filename Value="../../../../../Lazarus/lcl/stdctrls.pp"/>
|
<Filename Value="unit1.pas"/>
|
||||||
<Caret Line="38" Column="16" TopLine="23"/>
|
<Caret Line="1" Column="1" TopLine="1"/>
|
||||||
</Position7>
|
</Position7>
|
||||||
<Position8>
|
<Position8>
|
||||||
<Filename Value="../../../../../Lazarus/lcl/stdctrls.pp"/>
|
<Filename Value="unit1.pas"/>
|
||||||
<Caret Line="790" Column="16" TopLine="775"/>
|
<Caret Line="22" Column="22" TopLine="22"/>
|
||||||
</Position8>
|
</Position8>
|
||||||
<Position9>
|
<Position9>
|
||||||
<Filename Value="../../../../../Lazarus/lcl/stdctrls.pp"/>
|
<Filename Value="unit1.pas"/>
|
||||||
<Caret Line="1363" Column="24" TopLine="1348"/>
|
<Caret Line="34" Column="48" TopLine="34"/>
|
||||||
</Position9>
|
</Position9>
|
||||||
<Position10>
|
<Position10>
|
||||||
<Filename Value="../../../../../Lazarus/lcl/stdctrls.pp"/>
|
<Filename Value="unit1.pas"/>
|
||||||
<Caret Line="1391" Column="24" TopLine="1376"/>
|
<Caret Line="136" Column="25" TopLine="128"/>
|
||||||
</Position10>
|
</Position10>
|
||||||
<Position11>
|
<Position11>
|
||||||
<Filename Value="../../../../../Lazarus/lcl/stdctrls.pp"/>
|
<Filename Value="unit1.pas"/>
|
||||||
<Caret Line="1" Column="1" TopLine="1"/>
|
<Caret Line="34" Column="48" TopLine="23"/>
|
||||||
</Position11>
|
</Position11>
|
||||||
<Position12>
|
<Position12>
|
||||||
<Filename Value="../../../../../Lazarus/lcl/stdctrls.pp"/>
|
<Filename Value="unit1.pas"/>
|
||||||
<Caret Line="1391" Column="15" TopLine="1376"/>
|
<Caret Line="132" Column="19" TopLine="107"/>
|
||||||
</Position12>
|
</Position12>
|
||||||
<Position13>
|
<Position13>
|
||||||
<Filename Value="../../../../../Lazarus/lcl/stdctrls.pp"/>
|
<Filename Value="unit1.pas"/>
|
||||||
<Caret Line="1" Column="1" TopLine="1"/>
|
<Caret Line="56" Column="19" TopLine="48"/>
|
||||||
</Position13>
|
</Position13>
|
||||||
<Position14>
|
<Position14>
|
||||||
<Filename Value="../../../../../Lazarus/lcl/stdctrls.pp"/>
|
<Filename Value="../../win32/win32richmemo.pas"/>
|
||||||
<Caret Line="1391" Column="24" TopLine="1376"/>
|
<Caret Line="288" Column="11" TopLine="280"/>
|
||||||
</Position14>
|
</Position14>
|
||||||
<Position15>
|
<Position15>
|
||||||
<Filename Value="../../../../../Lazarus/lcl/stdctrls.pp"/>
|
<Filename Value="../../win32/win32richmemo.pas"/>
|
||||||
<Caret Line="1" Column="1" TopLine="1"/>
|
<Caret Line="1" Column="1" TopLine="1"/>
|
||||||
</Position15>
|
</Position15>
|
||||||
<Position16>
|
<Position16>
|
||||||
<Filename Value="../../../../../Lazarus/lcl/stdctrls.pp"/>
|
<Filename Value="../../win32/win32richmemo.pas"/>
|
||||||
<Caret Line="1289" Column="24" TopLine="1278"/>
|
<Caret Line="207" Column="1" TopLine="192"/>
|
||||||
</Position16>
|
</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>
|
</JumpHistory>
|
||||||
</ProjectOptions>
|
</ProjectOptions>
|
||||||
<CompilerOptions>
|
<CompilerOptions>
|
||||||
|
@ -8,7 +8,7 @@ object Form1: TForm1
|
|||||||
ClientHeight = 457
|
ClientHeight = 457
|
||||||
ClientWidth = 634
|
ClientWidth = 634
|
||||||
OnCreate = FormCreate
|
OnCreate = FormCreate
|
||||||
LCLVersion = '0.9.27'
|
LCLVersion = '0.9.29'
|
||||||
object RichMemo1: TRichMemo
|
object RichMemo1: TRichMemo
|
||||||
Left = 15
|
Left = 15
|
||||||
Height = 358
|
Height = 358
|
||||||
@ -21,6 +21,7 @@ object Form1: TForm1
|
|||||||
Lines.Strings = (
|
Lines.Strings = (
|
||||||
'RichMemo1'
|
'RichMemo1'
|
||||||
)
|
)
|
||||||
|
OnChange = RichMemo1Change
|
||||||
ParentFont = False
|
ParentFont = False
|
||||||
ScrollBars = ssVertical
|
ScrollBars = ssVertical
|
||||||
TabOrder = 0
|
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
|
'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'
|
+'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'
|
+'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'
|
+'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'
|
+#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
|
+'on'#8#13'Lines.Strings'#1#6#9'RichMemo1'#0#8'OnChange'#7#15'RichMemo1Change'
|
||||||
+#10'ssVertical'#8'TabOrder'#2#0#0#0#7'TButton'#7'Button1'#4'Left'#2#24#6'Hei'
|
+#10'ParentFont'#8#10'ScrollBars'#7#10'ssVertical'#8'TabOrder'#2#0#0#0#7'TBut'
|
||||||
+'ght'#2#25#3'Top'#3'~'#1#5'Width'#3#160#0#7'Anchors'#11#6'akLeft'#8'akBottom'
|
+'ton'#7'Button1'#4'Left'#2#24#6'Height'#2#25#3'Top'#3'~'#1#5'Width'#3#160#0#7
|
||||||
+#0#7'Caption'#6#17'Make Bold and Red'#7'OnClick'#7#12'Button1Click'#8'TabOrd'
|
+'Anchors'#11#6'akLeft'#8'akBottom'#0#7'Caption'#6#17'Make Bold and Red'#7'On'
|
||||||
+'er'#2#1#7'TabStop'#8#0#0#7'TButton'#7'Button2'#4'Left'#3#192#0#6'Height'#2
|
+'Click'#7#12'Button1Click'#8'TabOrder'#2#1#7'TabStop'#8#0#0#7'TButton'#7'But'
|
||||||
+#25#3'Top'#3'~'#1#5'Width'#2'a'#7'Anchors'#11#6'akLeft'#8'akBottom'#0#7'Capt'
|
+'ton2'#4'Left'#3#192#0#6'Height'#2#25#3'Top'#3'~'#1#5'Width'#2'a'#7'Anchors'
|
||||||
+'ion'#6#11'Get Attribs'#7'OnClick'#7#12'Button2Click'#8'TabOrder'#2#2#7'TabS'
|
+#11#6'akLeft'#8'akBottom'#0#7'Caption'#6#11'Get Attribs'#7'OnClick'#7#12'But'
|
||||||
+'top'#8#0#0#7'TButton'#7'Button3'#4'Left'#3'0'#1#6'Height'#2#25#3'Top'#3'~'#1
|
+'ton2Click'#8'TabOrder'#2#2#7'TabStop'#8#0#0#7'TButton'#7'Button3'#4'Left'#3
|
||||||
+#5'Width'#2'`'#7'Anchors'#11#6'akLeft'#8'akBottom'#0#7'Caption'#6#11'Select '
|
+'0'#1#6'Height'#2#25#3'Top'#3'~'#1#5'Width'#2'`'#7'Anchors'#11#6'akLeft'#8'a'
|
||||||
+'Font'#7'OnClick'#7#12'Button3Click'#8'TabOrder'#2#3#7'TabStop'#8#0#0#7'TBut'
|
+'kBottom'#0#7'Caption'#6#11'Select Font'#7'OnClick'#7#12'Button3Click'#8'Tab'
|
||||||
+'ton'#7'Button4'#4'Left'#3#16#2#6'Height'#2#25#3'Top'#3'~'#1#5'Width'#2'K'#7
|
+'Order'#2#3#7'TabStop'#8#0#0#7'TButton'#7'Button4'#4'Left'#3#16#2#6'Height'#2
|
||||||
+'Anchors'#11#6'akLeft'#8'akBottom'#0#7'Caption'#6#8'Save RTF'#7'OnClick'#7#12
|
+#25#3'Top'#3'~'#1#5'Width'#2'K'#7'Anchors'#11#6'akLeft'#8'akBottom'#0#7'Capt'
|
||||||
+'Button4Click'#8'TabOrder'#2#4#7'TabStop'#8#0#0#7'TButton'#7'Button5'#4'Left'
|
+'ion'#6#8'Save RTF'#7'OnClick'#7#12'Button4Click'#8'TabOrder'#2#4#7'TabStop'
|
||||||
+#3#184#1#6'Height'#2#25#3'Top'#3'~'#1#5'Width'#2'K'#7'Anchors'#11#6'akLeft'#8
|
+#8#0#0#7'TButton'#7'Button5'#4'Left'#3#184#1#6'Height'#2#25#3'Top'#3'~'#1#5
|
||||||
+'akBottom'#0#7'Caption'#6#8'Load RTF'#7'OnClick'#7#12'Button5Click'#8'TabOrd'
|
+'Width'#2'K'#7'Anchors'#11#6'akLeft'#8'akBottom'#0#7'Caption'#6#8'Load RTF'#7
|
||||||
+'er'#2#5#7'TabStop'#8#0#0#7'TButton'#7'Button6'#4'Left'#2#24#6'Height'#2#25#3
|
+'OnClick'#7#12'Button5Click'#8'TabOrder'#2#5#7'TabStop'#8#0#0#7'TButton'#7'B'
|
||||||
+'Top'#3#159#1#5'Width'#3#160#0#7'Anchors'#11#6'akLeft'#8'akBottom'#0#7'Capti'
|
+'utton6'#4'Left'#2#24#6'Height'#2#25#3'Top'#3#159#1#5'Width'#3#160#0#7'Ancho'
|
||||||
+'on'#6#16'Next Style Range'#7'OnClick'#7#12'Button6Click'#8'TabOrder'#2#6#7
|
+'rs'#11#6'akLeft'#8'akBottom'#0#7'Caption'#6#16'Next Style Range'#7'OnClick'
|
||||||
+'TabStop'#8#0#0#11'TFontDialog'#11'FontDialog1'#11'MinFontSize'#2#0#11'MaxFo'
|
+#7#12'Button6Click'#8'TabOrder'#2#6#7'TabStop'#8#0#0#11'TFontDialog'#11'Font'
|
||||||
+'ntSize'#2#0#4'left'#3'`'#1#3'top'#3#173#1#0#0#11'TSaveDialog'#11'SaveDialog'
|
+'Dialog1'#11'MinFontSize'#2#0#11'MaxFontSize'#2#0#4'left'#3'`'#1#3'top'#3#173
|
||||||
+'1'#10'DefaultExt'#6#4'.rtf'#6'Filter'#6#27'RichText file (*.rtf)|*.rtf'#7'O'
|
+#1#0#0#11'TSaveDialog'#11'SaveDialog1'#10'DefaultExt'#6#4'.rtf'#6'Filter'#6
|
||||||
+'ptions'#11#17'ofOverwritePrompt'#14'ofEnableSizing'#12'ofViewDetail'#0#4'le'
|
+#27'RichText file (*.rtf)|*.rtf'#7'Options'#11#17'ofOverwritePrompt'#14'ofEn'
|
||||||
+'ft'#3#24#1#3'top'#3#173#1#0#0#11'TOpenDialog'#11'OpenDialog1'#10'DefaultExt'
|
+'ableSizing'#12'ofViewDetail'#0#4'left'#3#24#1#3'top'#3#173#1#0#0#11'TOpenDi'
|
||||||
+#6#4'.rtf'#6'Filter'#6#27'RichText file (*.rtf)|*.rtf'#4'left'#3#208#0#3'top'
|
+'alog'#11'OpenDialog1'#10'DefaultExt'#6#4'.rtf'#6'Filter'#6#27'RichText file'
|
||||||
+#3#173#1#0#0#0
|
+' (*.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 Button5Click(Sender: TObject);
|
||||||
procedure Button6Click(Sender: TObject);
|
procedure Button6Click(Sender: TObject);
|
||||||
procedure FormCreate(Sender: TObject);
|
procedure FormCreate(Sender: TObject);
|
||||||
|
procedure RichMemo1Change(Sender: TObject);
|
||||||
private
|
private
|
||||||
{ private declarations }
|
{ private declarations }
|
||||||
public
|
public
|
||||||
@ -124,6 +125,12 @@ procedure TForm1.FormCreate(Sender: TObject);
|
|||||||
begin
|
begin
|
||||||
end;
|
end;
|
||||||
|
|
||||||
|
procedure TForm1.RichMemo1Change(Sender: TObject);
|
||||||
|
begin
|
||||||
|
Caption := Caption + '.';
|
||||||
|
if length(CAption)>20 then Caption:='';
|
||||||
|
end;
|
||||||
|
|
||||||
initialization
|
initialization
|
||||||
{$I unit1.lrs}
|
{$I unit1.lrs}
|
||||||
|
|
||||||
|
@ -204,7 +204,6 @@ var
|
|||||||
NeedLock : Boolean;
|
NeedLock : Boolean;
|
||||||
eventmask : LongWord;
|
eventmask : LongWord;
|
||||||
begin
|
begin
|
||||||
writeln('[GetTextAttributes] begin');
|
|
||||||
if not Assigned(RichEditManager) or not Assigned(AWinControl) then begin
|
if not Assigned(RichEditManager) or not Assigned(AWinControl) then begin
|
||||||
Result := false;
|
Result := false;
|
||||||
Exit;
|
Exit;
|
||||||
@ -221,15 +220,14 @@ begin
|
|||||||
RichEditManager.SetSelection(AWinControl.Handle, TextStart, 1);
|
RichEditManager.SetSelection(AWinControl.Handle, TextStart, 1);
|
||||||
Result := RichEditManager.GetSelectedTextStyle(AWinControl.Handle, Params );
|
Result := RichEditManager.GetSelectedTextStyle(AWinControl.Handle, Params );
|
||||||
RichEditManager.SetSelection(AWinControl.Handle, OrigStart, OrigLen);
|
RichEditManager.SetSelection(AWinControl.Handle, OrigStart, OrigLen);
|
||||||
UnlockRedraw(AWinControl.Handle);
|
UnlockRedraw(AWinControl.Handle, false);
|
||||||
end else begin
|
end else begin
|
||||||
LockRedraw(AWinControl.Handle);
|
LockRedraw(AWinControl.Handle);
|
||||||
Result := RichEditManager.GetSelectedTextStyle(AWinControl.Handle, Params);
|
Result := RichEditManager.GetSelectedTextStyle(AWinControl.Handle, Params);
|
||||||
UnlockRedraw(AWinControl.Handle);
|
UnlockRedraw(AWinControl.Handle, false);
|
||||||
end;
|
end;
|
||||||
|
|
||||||
SendMessage(AWinControl.Handle, EM_SETEVENTMASK, 0, eventmask);
|
SendMessage(AWinControl.Handle, EM_SETEVENTMASK, 0, eventmask);
|
||||||
writeln('[GetTextAttributes] end');
|
|
||||||
end;
|
end;
|
||||||
|
|
||||||
|
|
||||||
|
Reference in New Issue
Block a user