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

richmemo: improve win32 numbering

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@3842 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
skalogryz
2014-12-17 03:32:59 +00:00
parent 42b8235d52
commit 4cae993724
3 changed files with 45 additions and 7 deletions
Download Patch File Download Diff File Expand all files Collapse all files

25
components/richmemo/richmemo.pas
View File

@@ -62,14 +62,15 @@ type
Style : TParaNumStyle;
Indent : Double;
CustomChar : WideChar;
NumberStart : Integer; // must be negative one to continue numbering, used for pnNumber only
NumberStart : Integer; // used for pnNumber only
SepChar : WideChar;
ForceNewNum : Boolean; // if true and Style is pnNumber, NumberStart is used for the new numbering
end;
const
SepNone : WideChar = #0;
SepPar : WideChar = ')';
SepDot : WideChar = '.';
SepNone = #0;
SepPar = ')';
SepDot = '.';
type
@@ -228,6 +229,8 @@ function GetFontParams(const Name: String; Size: Integer; color: TColor; styles:
procedure InitParaMetric(var m: TParaMetric);
procedure InitParaNumbering(var n: TParaNumbering);
procedure InitParaNumber(var n: TParaNumbering; ASepChar: WideChar = SepPar; StartNum: Integer = 1);
procedure InitParaBullet(var n: TParaNumbering);
var
RTFLoadStream : function (AMemo: TCustomRichMemo; Source: TStream): Boolean = nil;
@@ -278,6 +281,20 @@ begin
FillChar(n, sizeof(n), 0);
end;
procedure InitParaNumber(var n: TParaNumbering; ASepChar: WideChar; StartNum: Integer);
begin
InitParaNumbering(n);
n.Style:=pnNumber;
n.NumberStart:=StartNum;
n.SepChar:=ASepChar;
end;
procedure InitParaBullet(var n: TParaNumbering);
begin
InitParaNumbering(n);
n.Style:=pnBullet;
end;
{ TRichMemo }
function TRichMemo.GetRTF: string;