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

added style-range selection (carbon-only for now), updated test for the new feature

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@839 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
skalogryz
2009-06-12 20:46:34 +00:00
parent 8b838af59f
commit b39665794f
7 changed files with 430 additions and 238 deletions
Download Patch File Download Diff File Expand all files Collapse all files

11
components/richmemo/wsrichmemo.pas
View File

@ -18,7 +18,8 @@ type
TWSCustomRichMemo = class(TWSCustomMemo)
published
class function GetTextAttributes(const AWinControl: TWinControl; TextStart: Integer;
class function GetStyleRange(const AWinControl: TWinControl; TextStart: Integer; var RangeStart, RangeLen: Integer): Boolean; virtual;
class function GetTextAttributes(const AWinControl: TWinControl; TextStart: Integer;
var Params: TFontParams): Boolean; virtual;
class procedure SetTextAttributes(const AWinControl: TWinControl; TextStart, TextLen: Integer;
Mask: TTextStyleMask; const Params: TFontParams); virtual;
@ -37,6 +38,14 @@ implementation
{ TWSCustomRichMemo }
class function TWSCustomRichMemo.GetStyleRange(const AWinControl: TWinControl;
TextStart: Integer; var RangeStart, RangeLen: Integer): Boolean;
begin
RangeStart :=-1;
RangeLen := -1;
Result := false;
end;
class function TWSCustomRichMemo.GetTextAttributes(const AWinControl: TWinControl;
TextStart: Integer; var Params: TFontParams): Boolean;
begin