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

richmemo: added GetParaRange methods and its win32 implementation

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@3783 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
skalogryz
2014-11-26 16:16:54 +00:00
parent 192e1008cc
commit 6dcc6025d4
4 changed files with 119 additions and 3 deletions
Download Patch File Download Diff File Expand all files Collapse all files

29
components/richmemo/richmemo.pas
View File

@ -63,6 +63,14 @@ type
TSearchOption = (soMatchCase, soWholeWord, soBackward);
TSearchOptions = set of TSearchOption;
TParaRange = record
start : Integer; // the first character in the paragraph
lenghtNoBr : Integer; // the length of the paragraph, excluding the line break character
length : Integer; // the length of the paragrpah, including the line break, if present
// the last line in the control doesn't contain a line break character,
// thus length = lengthNoBr
end;
type
TRichMemoObject = class(TObject);
@ -97,6 +105,8 @@ type
procedure SetParaMetric(TextStart, TextLen: Integer; const AMetric: TParaMetric); virtual;
function GetParaNumbering(TextStart: Integer; var ANumber: TParaNumbering): Boolean; virtual;
procedure SetParaNumbering(TextStart, TextLen: Integer; const ANumber: TParaNumbering); virtual;
function GetParaRange(CharOfs: Integer; var ParaRange: TParaRange): Boolean; virtual;
function GetParaRange(CharOfs: Integer; var TextStart, TextLength: Integer): Boolean;
procedure SetTextAttributes(TextStart, TextLen: Integer; AFont: TFont);
procedure SetRangeColor(TextStart, TextLength: Integer; FontColor: TColor);
@ -350,6 +360,25 @@ begin
TWSCustomRichMemoClass(WidgetSetClass).SetParaNumbering(Self, TextStart, TextLen, ANumber);
end;
function TCustomRichMemo.GetParaRange(CharOfs: Integer;
var ParaRange: TParaRange): Boolean;
begin
Result:=false;
if not HandleAllocated then HandleNeeded;
if HandleAllocated then
Result:=TWSCustomRichMemoClass(WidgetSetClass).GetParaRange(Self, CharOfs, ParaRange);
end;
function TCustomRichMemo.GetParaRange(CharOfs: Integer; var TextStart,
TextLength: Integer): Boolean;
var
p : TParaRange;
begin
Result:=GetParaRange(CharOfs, p);
TextStart:=p.start;
TextLength:=p.length;
end;
function TCustomRichMemo.GetContStyleLength(TextStart: Integer): Integer;
var
ofs, len : Integer;

13
components/richmemo/win32/win32richmemo.pas
View File

@ -91,6 +91,8 @@ type
var AMetrics: TIntParaMetric): Boolean; override;
class procedure SetParaMetric(const AWinControl: TWinControl; TextStart, TextLength: Integer;
const AMetrics: TIntParaMetric); override;
class function GetParaRange(const AWinControl: TWinControl; TextStart: Integer;
var ParaRange: TParaRange): Boolean; override;
class function GetParaNumbering(const AWinControl: TWinControl; TextStart: Integer;
var ANumber: TIntParaNumbering): Boolean; override;
@ -519,6 +521,17 @@ begin
RichEditManager.SetPara2(AWinControl.Handle, TextStart, TextLength, para);
end;
class function TWin32WSCustomRichMemo.GetParaRange(const AWinControl: TWinControl;
TextStart: Integer; var ParaRange: TParaRange): Boolean;
begin
if not Assigned(AWinControl) then
Result:=False
else begin
RichEditManager.GetParaRange(AWinControl.Handle, TextStart, ParaRange);
Result:=true;
end;
end;
const
PFN_ARABIC = 2;
PFN_LCLETTER = 3;

73
components/richmemo/win32/win32richmemoproc.pas
View File

@ -33,7 +33,7 @@ uses
// RichMemoUnits
RichMemo, WSRichMemo, RichMemoUtils,
// Win32 widgetset units
win32proc,ActiveX, ComObj;
win32proc, ActiveX, ComObj;
const
IID_IRichEditOle: TGUID = '{00020D00-0000-0000-C000-000000000046}';
@ -148,6 +148,7 @@ type
TRichEditManager = class(TObject)
public
class function GetTextLength(RichEditWnd: Handle): Integer;
class function SetSelectedTextStyle(RichEditWnd: Handle; Params: TIntFontParams): Boolean; virtual;
class function GetSelectedTextStyle(RichEditWnd: Handle; var Params: TIntFontParams): Boolean; virtual;
class function GetStyleRange(RichEditWnd: Handle; TextStart: Integer; var RangeStart, RangeLen: Integer): Boolean; virtual;
@ -160,6 +161,7 @@ type
class procedure GetPara2(RichEditWnd: Handle; TextStart: Integer; var para: PARAFORMAT2); virtual;
class procedure SetPara2(RichEditWnd: Handle; TextStart, TextLen: Integer; const para: PARAFORMAT2); virtual;
class function Find(RichEditWnd: THandle; const ANiddle: WideString; const ASearch: TIntSearchOpt): Integer; virtual;
class procedure GetParaRange(RichEditWnd: Handle; TextStart: integer; var para: TParaRange); virtual;
end;
TRichManagerClass = class of TRichEditManager;
@ -172,6 +174,10 @@ procedure CopyStringToCharArray(const s: String; var Chrs: array of Char; ChrsSi
function FontStylesToEffects(Styles: TFontStyles): LongWord;
function EffectsToFontStyles(Effects: LongWord): TFontStyles;
const
CP_UNICODE = 1200;
HardBreak = #13;
implementation
const
@ -240,6 +246,16 @@ end;
{ TRichEditManager }
class function TRichEditManager.GetTextLength(RichEditWnd: Handle): Integer;
var
textlen : TGETTEXTEX;
begin
FillChar(textlen, sizeof(textlen), 0);
textlen.flags := GTL_NUMCHARS or GTL_PRECISE;
textlen.codepage := CP_UNICODE;
Result := SendMessage(RichEditWnd, EM_GETTEXTLENGTHEX, WPARAM(@textlen), 0);
end;
class function TRichEditManager.SetSelectedTextStyle(RichEditWnd: Handle;
Params: TIntFontParams): Boolean;
var
@ -314,7 +330,6 @@ var
last : Integer;
const
CP_UNICODE = 1200;
ALL_MASK = CFM_BOLD or CFM_ITALIC or CFM_STRIKEOUT or CFM_UNDERLINE or
CFM_SIZE or CFM_COLOR or CFM_FACE;
begin
@ -322,7 +337,7 @@ begin
if (RichEditWnd = 0) then Exit;
FillChar(textlen, sizeof(textlen), 0);
textlen.flags := GTL_NUMCHARS or GTL_USECRLF or GTL_PRECISE;
textlen.flags := GTL_NUMCHARS or GTL_PRECISE;
textlen.codepage := CP_UNICODE;
len := SendMessage(RichEditWnd, EM_GETTEXTLENGTHEX, WPARAM(@textlen), 0);
Result := TextStart < len;
@ -584,6 +599,58 @@ begin
end;
end;
class procedure TRichEditManager.GetParaRange(RichEditWnd: Handle; TextStart: integer;
var para: TParaRange);
var
line: Integer;
txtlen: Integer;
st: Integer;
ln: Integer;
toend: Integer;
tost: Integer;
buf : string[16];
rng : TTEXTRANGEA;
res : Integer;
begin
txtlen:=GetTextLength(RichEditWnd);
// lines are NOT paragraphs, but wordwrapped lines
line:=SendMessage(RichEditWnd, EM_EXLINEFROMCHAR, 0, TextStart);
st:=SendMessage(RichEditWnd, EM_LINEINDEX, line, 0);
tost:=st;
toend:=0;
while tost>0 do begin
rng.lpstrText:=@buf[1];
rng.chrg.cpMin:=tost-1;
rng.chrg.cpMax:=tost;
buf[1]:=#0;
res:=SendMessageA(RichEditWnd, EM_GETTEXTRANGE, 0, LPARAM(@rng));
if (buf[1]=HardBreak) then
Break // found the beggining of the paragraph
else begin
line:=SendMessage(RichEditWnd, EM_EXLINEFROMCHAR, 0, tost-2); // getting the line before the linebreak
tost:=SendMessage(RichEditWnd, EM_LINEINDEX, line, 0);
inc(toend, SendMessage(RichEditWnd, EM_LINELENGTH, line, 0));
end;
end;
repeat
ln:=SendMessage(RichEditWnd, EM_LINELENGTH, st, 0);
inc(toend, ln);
inc(st, ln);
rng.lpstrText:=@buf[1];
rng.chrg.cpMin:=st;
rng.chrg.cpMax:=st+1;
buf[1]:=#0;
res:=SendMessage(RichEditWnd, EM_GETTEXTRANGE, 0, LPARAM(@rng));
until (res=0) or (buf[1] = HardBreak);
para.start:=tost;
para.lenghtNoBr:=toend;
if res>0 then inc(toend); // there's a line break character - add it to the range
para.length:=toend;
end;
function WinInsertImageFromFile (const ARichMemo: TCustomRichMemo; APos: Integer;
const FileNameUTF8: string;
const AImgSize: TSize): Boolean;

7
components/richmemo/wsrichmemo.pas
View File

@ -80,6 +80,7 @@ type
const AMetric: TIntParaMetric); virtual;
class function GetParaNumbering(const AWinControl: TWinControl; TextStart: Integer;
var ANumber: TIntParaNumbering): Boolean; virtual;
class function GetParaRange(const AWinControl: TWinControl; TextStart: Integer; var rng: TParaRange): Boolean; virtual;
class procedure SetParaNumbering(const AWinControl: TWinControl; TextStart, TextLen: Integer;
const ANumber: TIntParaNumbering); virtual;
class procedure InDelText(const AWinControl: TWinControl; const TextUTF8: String; DstStart, DstLen: Integer); virtual;
@ -167,6 +168,12 @@ begin
Result := false;
end;
class function TWSCustomRichMemo.GetParaRange(const AWinControl: TWinControl;
TextStart: Integer; var rng: TParaRange): Boolean;
begin
Result:=False;
end;
class procedure TWSCustomRichMemo.SetParaNumbering(
const AWinControl: TWinControl; TextStart, TextLen: Integer;
const ANumber: TIntParaNumbering);