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

7
components/richmemo/wsrichmemo.pas
View File

@@ -80,6 +80,7 @@ type
const AMetric: TIntParaMetric); virtual;
class function GetParaNumbering(const AWinControl: TWinControl; TextStart: Integer;
var ANumber: TIntParaNumbering): Boolean; virtual;
class function GetParaRange(const AWinControl: TWinControl; TextStart: Integer; var rng: TParaRange): Boolean; virtual;
class procedure SetParaNumbering(const AWinControl: TWinControl; TextStart, TextLen: Integer;
const ANumber: TIntParaNumbering); virtual;
class procedure InDelText(const AWinControl: TWinControl; const TextUTF8: String; DstStart, DstLen: Integer); virtual;
@@ -167,6 +168,12 @@ begin
Result := false;
end;
class function TWSCustomRichMemo.GetParaRange(const AWinControl: TWinControl;
TextStart: Integer; var rng: TParaRange): Boolean;
begin
Result:=False;
end;
class procedure TWSCustomRichMemo.SetParaNumbering(
const AWinControl: TWinControl; TextStart, TextLen: Integer;
const ANumber: TIntParaNumbering);