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

components/richmemo/samples/testsimple/project1.lpi

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

components/richmemo/samples/testsimple/unit1.lfm

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

components/richmemo/samples/testsimple/unit1.lrs

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

components/richmemo/samples/testsimple/unit1.pas

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

components/richmemo/win32/win32richmemo.pas

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