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

richmemo: paragraph alignment initialized

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@3719 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
skalogryz
2014-11-12 04:38:24 +00:00
parent 212d56a5ff
commit 38414f3a90
4 changed files with 184 additions and 11 deletions
Download Patch File Download Diff File Expand all files Collapse all files

47
components/richmemo/richmemo.pas
View File

@@ -1,5 +1,5 @@
{
richmemo.pp
richmemo.pas
Author: Dmitry 'skalogryz' Boyarintsev
@@ -29,14 +29,11 @@ uses
type
TFontParams = TIntFontParams;
{TIntFontParams = record // declared at WSRichMemo
Name : String;
Size : Integer;
Color : TColor;
Style : TFontStyles;
end; }
TFontParams = WSRichMemo.TIntFontParams;
TParaAlignment = (paLeft, paRight, paCenter, paJustify);
TParaMetric = WSRichMemo.TIntParaMetric;
TParaNumStyle = WSRichMemo.TParaNumStyle;
TParaNumbering = WSRichMemo.TIntParaNumbering;
TTextModifyMask = set of (tmm_Color, tmm_Name, tmm_Size, tmm_Styles);
@@ -63,6 +60,9 @@ type
function GetTextAttributes(TextStart: Integer; var TextParams: TFontParams): Boolean; virtual;
function GetStyleRange(CharOfs: Integer; var RangeStart, RangeLen: Integer): Boolean; virtual;
function GetParaAllignment(TextStart: Integer; var AAlign: TParaAlignment): Boolean; virtual;
procedure SetParaAlignment(TextStart, TextLen: Integer; AAlign: TParaAlignment); virtual;
procedure SetTextAttributes(TextStart, TextLen: Integer; AFont: TFont);
procedure SetRangeColor(TextStart, TextLength: Integer; FontColor: TColor);
procedure SetRangeParams(TextStart, TextLength: Integer; ModifyMask: TTextModifyMask;
@@ -142,6 +142,9 @@ var
implementation
const
ParaAlignCode : array [TParaAlignment] of Integer = (AL_LEFT, AL_RIGHT, AL_CENTER, AL_JUSTIFY);
function GetFontParams(styles: TFontStyles): TFontParams; overload;
begin
Result := GetFontParams('', 0, 0, styles);
@@ -234,6 +237,32 @@ begin
end;
end;
function TCustomRichMemo.GetParaAllignment(TextStart: Integer;
var AAlign: TParaAlignment): Boolean;
var
ac: Integer;
begin
Result := HandleAllocated and
TWSCustomRichMemoClass(WidgetSetClass).GetParaAlignment(Self, TextStart, ac);
if Result then begin
case ac of
AL_LEFT: AAlign:=paLeft;
AL_RIGHT: AAlign:=paRight;
AL_CENTER: AAlign:=paCenter;
AL_JUSTIFY: AAlign:=paJustify
else
AAlign:=paLeft;
end;
end;
end;
procedure TCustomRichMemo.SetParaAlignment(TextStart, TextLen: Integer;
AAlign: TParaAlignment);
begin
if HandleAllocated then
TWSCustomRichMemoClass(WidgetSetClass).SetParaAlignment(Self, TextStart, TextLen, ParaAlignCode[AAlign]);
end;
function TCustomRichMemo.GetContStyleLength(TextStart: Integer): Integer;
var
ofs, len : Integer;