From 61030f96a951eeb5ed0c48ce4a3d48b52f351d28 Mon Sep 17 00:00:00 2001 From: skalogryz Date: Sat, 22 Nov 2014 04:37:32 +0000 Subject: [PATCH] richmemo: added convenience method getparaalignment git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@3763 8e941d3f-bd1b-0410-a28a-d453659cc2b4 --- components/richmemo/richmemo.pas | 8 +++++++- 1 file changed, 7 insertions(+), 1 deletion(-) diff --git a/components/richmemo/richmemo.pas b/components/richmemo/richmemo.pas index 6271b2503..ebd2fda02 100644 --- a/components/richmemo/richmemo.pas +++ b/components/richmemo/richmemo.pas @@ -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