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

richmemo: added GetParaRange methods and its win32 implementation

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@3783 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
skalogryz
2014-11-26 16:16:54 +00:00
parent 192e1008cc
commit 6dcc6025d4
4 changed files with 119 additions and 3 deletions
Download Patch File Download Diff File Expand all files Collapse all files

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

@ -91,6 +91,8 @@ type
var AMetrics: TIntParaMetric): Boolean; override;
class procedure SetParaMetric(const AWinControl: TWinControl; TextStart, TextLength: Integer;
const AMetrics: TIntParaMetric); override;
class function GetParaRange(const AWinControl: TWinControl; TextStart: Integer;
var ParaRange: TParaRange): Boolean; override;
class function GetParaNumbering(const AWinControl: TWinControl; TextStart: Integer;
var ANumber: TIntParaNumbering): Boolean; override;
@ -519,6 +521,17 @@ begin
RichEditManager.SetPara2(AWinControl.Handle, TextStart, TextLength, para);
end;
class function TWin32WSCustomRichMemo.GetParaRange(const AWinControl: TWinControl;
TextStart: Integer; var ParaRange: TParaRange): Boolean;
begin
if not Assigned(AWinControl) then
Result:=False
else begin
RichEditManager.GetParaRange(AWinControl.Handle, TextStart, ParaRange);
Result:=true;
end;
end;
const
PFN_ARABIC = 2;
PFN_LCLETTER = 3;