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

richmemo: * added tabstops support for the RichMemo and Win32Implementation

Browse Source 
* added initialization to factory unit to prevent a warning on package compilation 
* clean up uses for richedit helpers
* code cleanup (removing empty lines)

git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@4040 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
skalogryz
2015-03-16 17:41:08 +00:00
parent d1a80fc98f
commit 3f1fc5e502
6 changed files with 171 additions and 31 deletions
Download Patch File Download Diff File Expand all files Collapse all files

30
components/richmemo/wsrichmemo.pas
View File

@@ -37,18 +37,6 @@ type
TIntParaMetric = RichMemo.TParaMetric;
TIntParaNumbering = RichMemo.TParaNumbering;
TTabAlignment = (taLeft, taCenter, taRight, taDecimal, taWordBar);
TTabInfo = record
Offset : Double;
Align : TTabAlignment;
end;
TIntParaTabs = record
Count : Integer;
Tabs : array of TTabInfo;
end;
TIntSearchOpt = record
start : Integer;
len : Integer;
@@ -84,6 +72,12 @@ type
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 SetParaTabs(const AWinControl: TWinControl; TextStart, TextLen: Integer;
const AStopList: TTabStopList); virtual;
class function GetParaTabs(const AWinControl: TWinControl; TextStart: integer;
var AStopList: TTabStopList): Boolean; virtual;
class procedure InDelText(const AWinControl: TWinControl; const TextUTF8: String; DstStart, DstLen: Integer); virtual;
//class procedure SetHideSelection(const ACustomEdit: TCustomEdit; AHideSelection: Boolean); override;
class function LoadRichText(const AWinControl: TWinControl; Source: TStream): Boolean; virtual;
@@ -194,6 +188,18 @@ begin
end;
class procedure TWSCustomRichMemo.SetParaTabs(const AWinControl: TWinControl;
TextStart, TextLen: Integer; const AStopList: TTabStopList);
begin
end;
class function TWSCustomRichMemo.GetParaTabs(const AWinControl: TWinControl;
TextStart: integer; var AStopList: TTabStopList): Boolean;
begin
Result:=False;
end;
class procedure TWSCustomRichMemo.InDelText(const AWinControl: TWinControl; const TextUTF8: String; DstStart, DstLen: Integer);
begin