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

richmemo: fix for win32 OnChange event after GetAttributes proc. Removed debug out from sample project

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@961 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
skalogryz
2009-09-19 18:11:58 +00:00
parent 06f6bd2021
commit 6a5ffd2533
5 changed files with 89 additions and 151 deletions
Download Patch File Download Diff File Expand all files Collapse all files

172
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="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>

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

@ -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

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

@ -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
]); ]);

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

@ -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}

6
components/richmemo/win32/win32richmemo.pas
View File

@ -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;