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

richmemo: add support for links (via textuiparams), added implementation for win32

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@4071 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
skalogryz
2015-03-31 04:14:22 +00:00
parent 3ba32c21e3
commit 792e773443
4 changed files with 231 additions and 21 deletions
Download Patch File Download Diff File Expand all files Collapse all files

19
components/richmemo/wsrichmemo.pas
View File

@@ -26,7 +26,7 @@ interface
uses
Types, Classes, SysUtils,
LCLType,
Graphics, Controls, StdCtrls, Printers,
Graphics, Controls, Printers,
WSStdCtrls, RichMemo;
type
@@ -78,6 +78,11 @@ type
class function GetParaTabs(const AWinControl: TWinControl; TextStart: integer;
var AStopList: TTabStopList): Boolean; virtual;
class procedure SetTextUIParams(const AWinControl: TWinControl; TextStart, TextLen: Integer;
const ui: TTextUIParam); virtual;
class function GetTextUIParams(const AWinControl: TWinControl; TextStart: Integer;
var ui: TTextUIParam): 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;
@@ -202,6 +207,18 @@ begin
Result:=False;
end;
class procedure TWSCustomRichMemo.SetTextUIParams(const AWinControl: TWinControl;
TextStart, TextLen: Integer; const ui: TTextUIParam);
begin
end;
class function TWSCustomRichMemo.GetTextUIParams(const AWinControl: TWinControl;
TextStart: Integer; var ui: TTextUIParam): Boolean;
begin
Result:=false;
end;
class procedure TWSCustomRichMemo.InDelText(const AWinControl: TWinControl; const TextUTF8: String; DstStart, DstLen: Integer);
begin