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

* finished getstylerange win32 implementation (yet, too slow)

Browse Source 
* fixed getstylerange test

git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@851 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
skalogryz
2009-06-17 06:07:10 +00:00
parent 8ff7c73715
commit da9be87c61
5 changed files with 168 additions and 121 deletions
Download Patch File Download Diff File Expand all files Collapse all files

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

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