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

started get style range implementaion for Win32/64

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@847 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
skalogryz
2009-06-15 21:53:45 +00:00
parent 5ce2730604
commit fc539c83ce
2 changed files with 67 additions and 3 deletions
Download Patch File Download Diff File Expand all files Collapse all files

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

@ -178,8 +178,20 @@ end;
class function TWin32WSCustomRichMemo.GetStyleRange(
const AWinControl: TWinControl; TextStart: Integer; var RangeStart,
RangeLen: Integer): Boolean;
var
OrigStart : Integer;
OrigLen : Integer;
begin
Result:=inherited GetStyleRange(AWinControl, TextStart, RangeStart, RangeLen);
if not Assigned(RichEditManager) or not Assigned(AWinControl) then begin
Result := false;
Exit;
end;
RichEditManager.GetSelection(AWinControl.Handle, OrigStart, OrigLen);
LockRedraw(AWinControl.Handle);
RichEditManager.SetSelection(AWinControl.Handle, TextStart, 1);
Result := RichEditManager.GetStyleRange(AWinControl.Handle, TextStart, RangeStart, RangeLen);
RichEditManager.SetSelection(AWinControl.Handle, OrigStart, OrigLen);
UnlockRedraw(AWinControl.Handle);
end;
class function TWin32WSCustomRichMemo.LoadRichText(