From da9be87c615519b096cae3362897c21b55409596 Mon Sep 17 00:00:00 2001
From: skalogryz <skalogryz@8e941d3f-bd1b-0410-a28a-d453659cc2b4>
Date: Wed, 17 Jun 2009 06:07:10 +0000
Subject: [PATCH] * finished getstylerange win32 implementation (yet, too slow)
 * fixed getstylerange test

git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@851 8e941d3f-bd1b-0410-a28a-d453659cc2b4
---
 .../richmemo/samples/testsimple/project1.lpi  | 176 +++++++++---------
 .../richmemo/samples/testsimple/unit1.lfm     |  16 +-
 .../richmemo/samples/testsimple/unit1.lrs     |  45 ++---
 .../richmemo/samples/testsimple/unit1.pas     |   2 +-
 .../richmemo/win32/win32richmemoproc.pas      |  50 ++++-
 5 files changed, 168 insertions(+), 121 deletions(-)

diff --git a/components/richmemo/samples/testsimple/project1.lpi b/components/richmemo/samples/testsimple/project1.lpi
index 04f617c3c..c67f0c692 100644
--- a/components/richmemo/samples/testsimple/project1.lpi
+++ b/components/richmemo/samples/testsimple/project1.lpi
@@ -6,7 +6,7 @@
       <MainUnit Value="0"/>
       <TargetFileExt Value=""/>
       <UseXPManifest Value="True"/>
-      <ActiveEditorIndexAtStart Value="0"/>
+      <ActiveEditorIndexAtStart Value="2"/>
     </General>
     <VersionInfo>
       <ProjectVersion Value=""/>
@@ -32,14 +32,16 @@
         <PackageName Value="LCL"/>
       </Item2>
     </RequiredPackages>
-    <Units Count="44">
+    <Units Count="45">
       <Unit0>
         <Filename Value="project1.lpr"/>
         <IsPartOfProject Value="True"/>
         <UnitName Value="project1"/>
-        <CursorPos X="32" Y="12"/>
-        <TopLine Value="1"/>
-        <UsageCount Value="56"/>
+        <CursorPos X="12" Y="6"/>
+        <TopLine Value="3"/>
+        <EditorIndex Value="3"/>
+        <UsageCount Value="61"/>
+        <Loaded Value="True"/>
       </Unit0>
       <Unit1>
         <Filename Value="unit1.pas"/>
@@ -47,10 +49,10 @@
         <IsPartOfProject Value="True"/>
         <ResourceBaseClass Value="Form"/>
         <UnitName Value="Unit1"/>
-        <CursorPos X="1" Y="98"/>
-        <TopLine Value="94"/>
+        <CursorPos X="21" Y="116"/>
+        <TopLine Value="103"/>
         <EditorIndex Value="0"/>
-        <UsageCount Value="56"/>
+        <UsageCount Value="61"/>
         <Loaded Value="True"/>
       </Unit1>
       <Unit2>
@@ -135,7 +137,7 @@
         <UnitName Value="CarbonGDIObjects"/>
         <CursorPos X="3" Y="1109"/>
         <TopLine Value="1100"/>
-        <UsageCount Value="28"/>
+        <UsageCount Value="30"/>
         <Bookmarks Count="1">
           <Item0 X="25" Y="150" ID="1"/>
         </Bookmarks>
@@ -190,7 +192,7 @@
         <UnitName Value="CarbonPrivate"/>
         <CursorPos X="17" Y="649"/>
         <TopLine Value="640"/>
-        <UsageCount Value="27"/>
+        <UsageCount Value="29"/>
         <Loaded Value="True"/>
       </Unit20>
       <Unit21>
@@ -238,17 +240,17 @@
         <UnitName Value="RichMemo"/>
         <CursorPos X="3" Y="249"/>
         <TopLine Value="247"/>
-        <EditorIndex Value="8"/>
-        <UsageCount Value="24"/>
+        <EditorIndex Value="7"/>
+        <UsageCount Value="26"/>
         <Loaded Value="True"/>
       </Unit27>
       <Unit28>
         <Filename Value="../../wsrichmemo.pas"/>
         <UnitName Value="WSRichMemo"/>
         <CursorPos X="1" Y="36"/>
-        <TopLine Value="11"/>
-        <EditorIndex Value="7"/>
-        <UsageCount Value="24"/>
+        <TopLine Value="18"/>
+        <EditorIndex Value="6"/>
+        <UsageCount Value="26"/>
         <Loaded Value="True"/>
       </Unit28>
       <Unit29>
@@ -292,7 +294,7 @@
         <UnitName Value="CarbonPaste"/>
         <CursorPos X="43" Y="9"/>
         <TopLine Value="1"/>
-        <UsageCount Value="40"/>
+        <UsageCount Value="45"/>
       </Unit34>
       <Unit35>
         <Filename Value="../../../fpc/rtl/objpas/sysutils/sysutilh.inc"/>
@@ -317,19 +319,19 @@
       <Unit38>
         <Filename Value="../../win32/win32richmemo.pas"/>
         <UnitName Value="Win32RichMemo"/>
-        <CursorPos X="21" Y="190"/>
-        <TopLine Value="185"/>
-        <EditorIndex Value="3"/>
-        <UsageCount Value="14"/>
+        <CursorPos X="63" Y="179"/>
+        <TopLine Value="177"/>
+        <EditorIndex Value="1"/>
+        <UsageCount Value="16"/>
         <Loaded Value="True"/>
       </Unit38>
       <Unit39>
         <Filename Value="../../win32/win32richmemoproc.pas"/>
         <UnitName Value="Win32RichMemoProc"/>
-        <CursorPos X="23" Y="230"/>
-        <TopLine Value="215"/>
-        <EditorIndex Value="4"/>
-        <UsageCount Value="14"/>
+        <CursorPos X="33" Y="214"/>
+        <TopLine Value="191"/>
+        <EditorIndex Value="2"/>
+        <UsageCount Value="16"/>
         <Bookmarks Count="1">
           <Item0 X="1" Y="102" ID="2"/>
         </Bookmarks>
@@ -338,10 +340,10 @@
       <Unit40>
         <Filename Value="../../../../../fpc/packages/winunits-base/src/richedit.pp"/>
         <UnitName Value="richedit"/>
-        <CursorPos X="1" Y="372"/>
-        <TopLine Value="359"/>
-        <EditorIndex Value="6"/>
-        <UsageCount Value="10"/>
+        <CursorPos X="1" Y="41"/>
+        <TopLine Value="26"/>
+        <EditorIndex Value="5"/>
+        <UsageCount Value="12"/>
         <Bookmarks Count="1">
           <Item0 X="98" Y="366" ID="3"/>
         </Bookmarks>
@@ -351,147 +353,149 @@
         <Filename Value="../../../../../fpc/rtl/win/wininc/base.inc"/>
         <CursorPos X="6" Y="211"/>
         <TopLine Value="197"/>
-        <EditorIndex Value="5"/>
-        <UsageCount Value="10"/>
+        <EditorIndex Value="4"/>
+        <UsageCount Value="12"/>
         <Loaded Value="True"/>
       </Unit41>
       <Unit42>
         <Filename Value="../../../../../fpc/rtl/objpas/classes/classesh.inc"/>
         <CursorPos X="1" Y="791"/>
         <TopLine Value="782"/>
-        <EditorIndex Value="1"/>
         <UsageCount Value="10"/>
-        <Loaded Value="True"/>
       </Unit42>
       <Unit43>
         <Filename Value="../../../../../fpc/rtl/objpas/classes/streams.inc"/>
         <CursorPos X="3" Y="465"/>
         <TopLine Value="462"/>
-        <EditorIndex Value="2"/>
         <UsageCount Value="10"/>
-        <Loaded Value="True"/>
       </Unit43>
+      <Unit44>
+        <Filename Value="../../../../../fpc/rtl/win/wininc/ascdef.inc"/>
+        <CursorPos X="120" Y="182"/>
+        <TopLine Value="167"/>
+        <UsageCount Value="10"/>
+      </Unit44>
     </Units>
     <JumpHistory Count="30" HistoryIndex="29">
       <Position1>
-        <Filename Value="../../win32/win32richmemo.pas"/>
-        <Caret Line="189" Column="11" TopLine="164"/>
+        <Filename Value="../../win32/win32richmemoproc.pas"/>
+        <Caret Line="238" Column="59" TopLine="220"/>
       </Position1>
       <Position2>
-        <Filename Value="../../win32/win32richmemoproc.pas"/>
-        <Caret Line="30" Column="20" TopLine="15"/>
+        <Filename Value="../../win32/win32richmemo.pas"/>
+        <Caret Line="193" Column="36" TopLine="186"/>
       </Position2>
       <Position3>
-        <Filename Value="../../win32/win32richmemoproc.pas"/>
-        <Caret Line="29" Column="33" TopLine="15"/>
+        <Filename Value="unit1.pas"/>
+        <Caret Line="102" Column="23" TopLine="94"/>
       </Position3>
       <Position4>
-        <Filename Value="../../win32/win32richmemoproc.pas"/>
-        <Caret Line="197" Column="5" TopLine="167"/>
+        <Filename Value="unit1.pas"/>
+        <Caret Line="99" Column="3" TopLine="94"/>
       </Position4>
       <Position5>
-        <Filename Value="../../win32/win32richmemoproc.pas"/>
-        <Caret Line="30" Column="58" TopLine="15"/>
+        <Filename Value="unit1.pas"/>
+        <Caret Line="105" Column="21" TopLine="96"/>
       </Position5>
       <Position6>
-        <Filename Value="../../win32/win32richmemoproc.pas"/>
-        <Caret Line="200" Column="17" TopLine="187"/>
+        <Filename Value="unit1.pas"/>
+        <Caret Line="40" Column="35" TopLine="33"/>
       </Position6>
       <Position7>
-        <Filename Value="../../../../../fpc/packages/winunits-base/src/richedit.pp"/>
-        <Caret Line="366" Column="98" TopLine="356"/>
+        <Filename Value="unit1.pas"/>
+        <Caret Line="42" Column="3" TopLine="33"/>
       </Position7>
       <Position8>
-        <Filename Value="../../../../../fpc/packages/winunits-base/src/richedit.pp"/>
-        <Caret Line="1" Column="1" TopLine="1"/>
+        <Filename Value="unit1.pas"/>
+        <Caret Line="139" Column="1" TopLine="138"/>
       </Position8>
       <Position9>
-        <Filename Value="../../win32/win32richmemoproc.pas"/>
-        <Caret Line="194" Column="36" TopLine="187"/>
+        <Filename Value="unit1.pas"/>
+        <Caret Line="39" Column="1" TopLine="33"/>
       </Position9>
       <Position10>
-        <Filename Value="../../win32/win32richmemoproc.pas"/>
-        <Caret Line="203" Column="15" TopLine="187"/>
+        <Filename Value="unit1.pas"/>
+        <Caret Line="112" Column="1" TopLine="112"/>
       </Position10>
       <Position11>
-        <Filename Value="../../win32/win32richmemoproc.pas"/>
-        <Caret Line="246" Column="32" TopLine="218"/>
+        <Filename Value="../../win32/win32richmemo.pas"/>
+        <Caret Line="164" Column="2" TopLine="153"/>
       </Position11>
       <Position12>
-        <Filename Value="../../win32/win32richmemoproc.pas"/>
-        <Caret Line="237" Column="1" TopLine="210"/>
+        <Filename Value="../../win32/win32richmemo.pas"/>
+        <Caret Line="20" Column="1" TopLine="9"/>
       </Position12>
       <Position13>
         <Filename Value="../../win32/win32richmemoproc.pas"/>
-        <Caret Line="206" Column="23" TopLine="191"/>
+        <Caret Line="26" Column="139" TopLine="17"/>
       </Position13>
       <Position14>
         <Filename Value="../../win32/win32richmemoproc.pas"/>
-        <Caret Line="207" Column="21" TopLine="192"/>
+        <Caret Line="151" Column="3" TopLine="143"/>
       </Position14>
       <Position15>
         <Filename Value="../../win32/win32richmemoproc.pas"/>
-        <Caret Line="214" Column="72" TopLine="203"/>
+        <Caret Line="26" Column="55" TopLine="11"/>
       </Position15>
       <Position16>
         <Filename Value="../../win32/win32richmemoproc.pas"/>
-        <Caret Line="31" Column="58" TopLine="30"/>
+        <Caret Line="168" Column="3" TopLine="166"/>
       </Position16>
       <Position17>
         <Filename Value="../../win32/win32richmemoproc.pas"/>
-        <Caret Line="196" Column="19" TopLine="182"/>
+        <Caret Line="179" Column="14" TopLine="166"/>
       </Position17>
       <Position18>
         <Filename Value="../../win32/win32richmemoproc.pas"/>
-        <Caret Line="218" Column="31" TopLine="203"/>
+        <Caret Line="184" Column="71" TopLine="164"/>
       </Position18>
       <Position19>
         <Filename Value="../../win32/win32richmemoproc.pas"/>
-        <Caret Line="242" Column="31" TopLine="217"/>
+        <Caret Line="178" Column="27" TopLine="157"/>
       </Position19>
       <Position20>
         <Filename Value="../../win32/win32richmemoproc.pas"/>
-        <Caret Line="238" Column="59" TopLine="220"/>
+        <Caret Line="177" Column="26" TopLine="167"/>
       </Position20>
       <Position21>
-        <Filename Value="../../win32/win32richmemo.pas"/>
-        <Caret Line="193" Column="36" TopLine="186"/>
+        <Filename Value="../../win32/win32richmemoproc.pas"/>
+        <Caret Line="178" Column="12" TopLine="167"/>
       </Position21>
       <Position22>
-        <Filename Value="unit1.pas"/>
-        <Caret Line="53" Column="26" TopLine="77"/>
+        <Filename Value="../../win32/win32richmemoproc.pas"/>
+        <Caret Line="211" Column="37" TopLine="188"/>
       </Position22>
       <Position23>
-        <Filename Value="unit1.pas"/>
-        <Caret Line="102" Column="23" TopLine="94"/>
+        <Filename Value="../../win32/win32richmemo.pas"/>
+        <Caret Line="188" Column="72" TopLine="178"/>
       </Position23>
       <Position24>
-        <Filename Value="unit1.pas"/>
-        <Caret Line="99" Column="3" TopLine="94"/>
+        <Filename Value="../../win32/win32richmemo.pas"/>
+        <Caret Line="185" Column="75" TopLine="173"/>
       </Position24>
       <Position25>
-        <Filename Value="unit1.pas"/>
-        <Caret Line="105" Column="21" TopLine="96"/>
+        <Filename Value="project1.lpr"/>
+        <Caret Line="12" Column="32" TopLine="1"/>
       </Position25>
       <Position26>
-        <Filename Value="unit1.pas"/>
-        <Caret Line="40" Column="35" TopLine="33"/>
+        <Filename Value="project1.lpr"/>
+        <Caret Line="17" Column="1" TopLine="3"/>
       </Position26>
       <Position27>
-        <Filename Value="unit1.pas"/>
-        <Caret Line="42" Column="3" TopLine="33"/>
+        <Filename Value="project1.lpr"/>
+        <Caret Line="18" Column="1" TopLine="3"/>
       </Position27>
       <Position28>
-        <Filename Value="unit1.pas"/>
-        <Caret Line="139" Column="1" TopLine="138"/>
+        <Filename Value="project1.lpr"/>
+        <Caret Line="16" Column="30" TopLine="3"/>
       </Position28>
       <Position29>
-        <Filename Value="unit1.pas"/>
-        <Caret Line="39" Column="1" TopLine="33"/>
+        <Filename Value="../../win32/win32richmemoproc.pas"/>
+        <Caret Line="222" Column="12" TopLine="208"/>
       </Position29>
       <Position30>
-        <Filename Value="unit1.pas"/>
-        <Caret Line="112" Column="1" TopLine="112"/>
+        <Filename Value="../../win32/win32richmemoproc.pas"/>
+        <Caret Line="219" Column="45" TopLine="209"/>
       </Position30>
     </JumpHistory>
   </ProjectOptions>
diff --git a/components/richmemo/samples/testsimple/unit1.lfm b/components/richmemo/samples/testsimple/unit1.lfm
index 90070bc92..4954267d4 100644
--- a/components/richmemo/samples/testsimple/unit1.lfm
+++ b/components/richmemo/samples/testsimple/unit1.lfm
@@ -10,8 +10,8 @@ object Form1: TForm1
   OnCreate = FormCreate
   LCLVersion = '0.9.27'
   object RichMemo1: TRichMemo
-    Left = 16
-    Height = 366
+    Left = 15
+    Height = 358
     Top = 16
     Width = 619
     Anchors = [akTop, akLeft, akRight, akBottom]
@@ -34,6 +34,7 @@ object Form1: TForm1
     Caption = 'Make Bold and Red'
     OnClick = Button1Click
     TabOrder = 1
+    TabStop = False
   end
   object Button2: TButton
     Left = 192
@@ -44,6 +45,7 @@ object Form1: TForm1
     Caption = 'Get Attribs'
     OnClick = Button2Click
     TabOrder = 2
+    TabStop = False
   end
   object Button3: TButton
     Left = 304
@@ -54,6 +56,7 @@ object Form1: TForm1
     Caption = 'Select Font'
     OnClick = Button3Click
     TabOrder = 3
+    TabStop = False
   end
   object Button4: TButton
     Left = 528
@@ -64,6 +67,7 @@ object Form1: TForm1
     Caption = 'Save RTF'
     OnClick = Button4Click
     TabOrder = 4
+    TabStop = False
   end
   object Button5: TButton
     Left = 440
@@ -74,6 +78,7 @@ object Form1: TForm1
     Caption = 'Load RTF'
     OnClick = Button5Click
     TabOrder = 5
+    TabStop = False
   end
   object Button6: TButton
     Left = 24
@@ -84,24 +89,25 @@ object Form1: TForm1
     Caption = 'Next Style Range'
     OnClick = Button6Click
     TabOrder = 6
+    TabStop = False
   end
   object FontDialog1: TFontDialog
     MinFontSize = 0
     MaxFontSize = 0
     left = 352
-    top = 552
+    top = 429
   end
   object SaveDialog1: TSaveDialog
     DefaultExt = '.rtf'
     Filter = 'RichText file (*.rtf)|*.rtf'
     Options = [ofOverwritePrompt, ofEnableSizing, ofViewDetail]
     left = 280
-    top = 552
+    top = 429
   end
   object OpenDialog1: TOpenDialog
     DefaultExt = '.rtf'
     Filter = 'RichText file (*.rtf)|*.rtf'
     left = 208
-    top = 552
+    top = 429
   end
 end
diff --git a/components/richmemo/samples/testsimple/unit1.lrs b/components/richmemo/samples/testsimple/unit1.lrs
index 31459c3ed..eb58f889a 100644
--- a/components/richmemo/samples/testsimple/unit1.lrs
+++ b/components/richmemo/samples/testsimple/unit1.lrs
@@ -4,31 +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#16#6'Height'#3
-  +'n'#1#3'Top'#2#16#5'Width'#3'k'#2#7'Anchors'#11#5'akTop'#6'akLeft'#7'akRight'
+  +'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#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'Caption'#6#11'Get A'
-  +'ttribs'#7'OnClick'#7#12'Button2Click'#8'TabOrder'#2#2#0#0#7'TButton'#7'Butt'
-  +'on3'#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'Button'
-  +'3Click'#8'TabOrder'#2#3#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#0#0#7'TBut'
-  +'ton'#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#0#0#7'TButton'#7'Button6'#4'Left'#2#24#6'Heig'
-  +'ht'#2#25#3'Top'#3#159#1#5'Width'#3#160#0#7'Anchors'#11#6'akLeft'#8'akBottom'
-  +#0#7'Caption'#6#16'Next Style Range'#7'OnClick'#7#12'Button6Click'#8'TabOrde'
-  +'r'#2#6#0#0#11'TFontDialog'#11'FontDialog1'#11'MinFontSize'#2#0#11'MaxFontSi'
-  +'ze'#2#0#4'left'#3'`'#1#3'top'#3'('#2#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'ofEnableSizing'#12'ofViewDetail'#0#4'left'#3#24
-  +#1#3'top'#3'('#2#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'('#2#0
-  +#0#0
+  +'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
 ]);
diff --git a/components/richmemo/samples/testsimple/unit1.pas b/components/richmemo/samples/testsimple/unit1.pas
index c34fdcf3f..d6122f695 100644
--- a/components/richmemo/samples/testsimple/unit1.pas
+++ b/components/richmemo/samples/testsimple/unit1.pas
@@ -113,7 +113,7 @@ var
 begin
   RichMemo1.GetStyleRange( RichMemo1.SelStart, ofs, len );
   if (ofs = RichMEmo1.SelStart) and (len = RichMemo1.SelLength) then begin
-    ofs := ofs + len + 1;
+    ofs := ofs + len;
     RichMemo1.GetStyleRange( ofs, ofs, len );
   end;
   RichMemo1.SelStart := ofs;
diff --git a/components/richmemo/win32/win32richmemoproc.pas b/components/richmemo/win32/win32richmemoproc.pas
index 2428b32db..321f77e35 100644
--- a/components/richmemo/win32/win32richmemoproc.pas
+++ b/components/richmemo/win32/win32richmemoproc.pas
@@ -172,8 +172,8 @@ var
   mask    : LongWord;
   textlen : TGETTEXTEX;
   sel     : TCHARRANGE;
-  rngend  : Integer;
   d       : Integer;
+  last    : Integer;
 const
   CP_UNICODE = 1200;  
   ALL_MASK = CFM_BOLD or CFM_ITALIC or CFM_STRIKEOUT or CFM_UNDERLINE or 
@@ -185,6 +185,8 @@ begin
   textlen.flags := GTL_DEFAULT or GTL_NUMCHARS;
   textlen.codepage := CP_UNICODE;
   len := SendMessage(RichEditWnd, EM_GETTEXTLENGTHEX, WPARAM(@textlen), 0);
+  writeln('TextStart  = ', TextStart);
+  writeln('TextLength = ', len);
     
   sel.cpMin := TextStart;
   sel.cpMax := len;
@@ -192,13 +194,31 @@ begin
     
   FillChar(fmt, sizeof(fmt), 0);
   fmt.cbSize := sizeof(fmt);
-  SendMessage(RichEditWnd, EM_GETCHARFORMAT, SCF_SELECTION, PtrInt(@fmt));
+  
+  //todo: BOOST PERFORMANCE!!!
+  sel.cpMax := TextStart;
+  repeat
+    inc(sel.cpMax);
+    SendMessage(RichEditWnd, EM_EXSETSEL, 0, LPARAM(@sel));
+    SendMessage(RichEditWnd, EM_GETCHARFORMAT, SCF_SELECTION, PtrInt(@fmt));
+  until (sel.cpMax > len) or ((fmt.dwMask and ALL_MASK) <> ALL_MASK);
+
+  last := sel.cpMax;  
+  sel.cpMin := TextStart;
+  sel.cpMax := TextStart+1;
+  repeat
+    dec(sel.cpMin);
+    SendMessage(RichEditWnd, EM_EXSETSEL, 0, LPARAM(@sel));
+    SendMessage(RichEditWnd, EM_GETCHARFORMAT, SCF_SELECTION, PtrInt(@fmt));
+  until ((fmt.dwMask and ALL_MASK) <> ALL_MASK) or (sel.cpMin < 0);
+  inc(sel.cpMin);
+  
+{  SendMessage(RichEditWnd, EM_GETCHARFORMAT, SCF_SELECTION, PtrInt(@fmt));
  
   
   if fmt.dwMask and ALL_MASK <> ALL_MASK then begin
-    rngend := len;
-    d := rngend - sel.cpMin;
-    sel.cpMax := sel.cpMin + d div 2;
+    d := (len - sel.cpMin) div 2;
+    sel.cpMax := sel.cpMin + d;
     while d > 1 do begin
       SendMessage(RichEditWnd, EM_EXSETSEL, 0, LPARAM(@sel));
       SendMessage(RichEditWnd, EM_GETCHARFORMAT, SCF_SELECTION, PtrInt(@fmt));
@@ -208,10 +228,26 @@ begin
       else
         sel.cpMax := sel.cpMax - d;
     end;
-  end;
+    
+    if (fmt.dwMask and ALL_MASK) = ALL_MASK then begin
+      repeat
+        inc(sel.cpMax);
+        SendMessage(RichEditWnd, EM_EXSETSEL, 0, LPARAM(@sel));
+        SendMessage(RichEditWnd, EM_GETCHARFORMAT, SCF_SELECTION, PtrInt(@fmt));
+        writeln(sel.cpMax, ' ', (fmt.dwMask and ALL_MASK) <> ALL_MASK);
+      until (sel.cpMax = len) or ((fmt.dwMask and ALL_MASK) <> ALL_MASK);
+    end else begin
+      repeat
+        dec(sel.cpMax);
+        SendMessage(RichEditWnd, EM_EXSETSEL, 0, LPARAM(@sel));
+        SendMessage(RichEditWnd, EM_GETCHARFORMAT, SCF_SELECTION, PtrInt(@fmt));
+      until (sel.cpMax <= sel.cpMin) or ((fmt.dwMask and ALL_MASK) = ALL_MASK);
+    end;
+  end;}
 
   RangeStart := sel.cpMin;
-  RangeLen := sel.cpMax - sel.cpMin;
+  RangeLen := last - sel.cpMin - 1;
+  writeln('Range Start = ', RangeStart, '  Len = ', RangeLen);
   Result := true;  
 end;