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

richmemo: correct misspelling of the method name GetParaAlignment

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@3751 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
skalogryz
2014-11-19 19:39:18 +00:00
parent f72590c226
commit e8737dbf66
1 changed files with 2 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
components/richmemo/richmemo.pas
View File

@@ -79,7 +79,7 @@ type
function GetTextAttributes(TextStart: Integer; var TextParams: TFontParams): Boolean; virtual; function GetTextAttributes(TextStart: Integer; var TextParams: TFontParams): Boolean; virtual;
function GetStyleRange(CharOfs: Integer; var RangeStart, RangeLen: Integer): Boolean; virtual; function GetStyleRange(CharOfs: Integer; var RangeStart, RangeLen: Integer): Boolean; virtual;
function GetParaAllignment(TextStart: Integer; var AAlign: TParaAlignment): Boolean; virtual; function GetParaAlignment(TextStart: Integer; var AAlign: TParaAlignment): Boolean; virtual;
procedure SetParaAlignment(TextStart, TextLen: Integer; AAlign: TParaAlignment); virtual; procedure SetParaAlignment(TextStart, TextLen: Integer; AAlign: TParaAlignment); virtual;
function GetParaMetric(TextStart: Integer; var AMetric: TParaMetric): Boolean; virtual; function GetParaMetric(TextStart: Integer; var AMetric: TParaMetric): Boolean; virtual;
procedure SetParaMetric(TextStart, TextLen: Integer; const AMetric: TParaMetric); virtual; procedure SetParaMetric(TextStart, TextLen: Integer; const AMetric: TParaMetric); virtual;
@@ -280,7 +280,7 @@ begin
end; end;
end; end;
function TCustomRichMemo.GetParaAllignment(TextStart: Integer; function TCustomRichMemo.GetParaAlignment(TextStart: Integer;
var AAlign: TParaAlignment): Boolean; var AAlign: TParaAlignment): Boolean;
var var
ac: Integer; ac: Integer;