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

richmemo: added convenience method getparaalignment

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@3763 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
skalogryz
2014-11-22 04:37:32 +00:00
parent 03f96d6674
commit 61030f96a9
1 changed files with 7 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files

8
components/richmemo/richmemo.pas
View File

@ -79,7 +79,8 @@ type
function GetTextAttributes(TextStart: Integer; var TextParams: TFontParams): Boolean; virtual;
function GetStyleRange(CharOfs: Integer; var RangeStart, RangeLen: Integer): Boolean; virtual;
function GetParaAlignment(TextStart: Integer; var AAlign: TParaAlignment): Boolean; virtual;
function GetParaAlignment(TextStart: Integer; var AAlign: TParaAlignment): Boolean; overload; virtual;
function GetParaAlignment(TextStart: Integer): TParaAlignment; overload;
procedure SetParaAlignment(TextStart, TextLen: Integer; AAlign: TParaAlignment); virtual;
function GetParaMetric(TextStart: Integer; var AMetric: TParaMetric): Boolean; virtual;
procedure SetParaMetric(TextStart, TextLen: Integer; const AMetric: TParaMetric); virtual;
@ -290,6 +291,11 @@ begin
TWSCustomRichMemoClass(WidgetSetClass).GetParaAlignment(Self, TextStart, AAlign);
end;
function TCustomRichMemo.GetParaAlignment(TextStart: Integer): TParaAlignment;
begin
GetParaAlignment(TextStart, Result);
end;
procedure TCustomRichMemo.SetParaAlignment(TextStart, TextLen: Integer;
AAlign: TParaAlignment);
begin