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

richmemo: add support for links (via textuiparams), added implementation for win32

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@4071 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
skalogryz
2015-03-31 04:14:22 +00:00
parent 3ba32c21e3
commit 792e773443
4 changed files with 231 additions and 21 deletions
Download Patch File Download Diff File Expand all files Collapse all files

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

@ -165,7 +165,10 @@ type
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;
class procedure SetTextUIStyle(RichEditWnd: Handle; const ui: TTextUIParam); virtual;
class function GetTextUIStyle(RichEditWnd: Handle; var ui: TTextUIParam): Boolean; virtual;
class function GetStyleRange(RichEditWnd: Handle; TextStart: Integer; var RangeStart, RangeLen: Integer): Boolean; virtual;
class procedure GetSelection(RichEditWnd: Handle; var TextStart, TextLen: Integer); virtual;
class procedure SetSelection(RichEditWnd: Handle; TextStart, TextLen: Integer); virtual;
class procedure SetHideSelection(RichEditWnd: Handle; AValue: Boolean); virtual;
@ -193,6 +196,8 @@ const
HardBreak = #13;
const
CFE_PROTECTED = $00000010;
CFE_LINK = $00000020;
CFM_BACKCOLOR = $04000000;
CFE_AUTOBACKCOLOR = CFM_BACKCOLOR;
@ -384,6 +389,46 @@ begin
Result := true;
end;
class procedure TRichEditManager.SetTextUIStyle(RichEditWnd: Handle; const ui: TTextUIParam);
var
w : WPARAM;
fmt : TCHARFORMAT2;
begin
if RichEditWnd = 0 then Exit;
w := SCF_SELECTION;
FillChar(fmt, sizeof(fmt), 0);
fmt.cbSize := sizeof(fmt);
fmt.dwMask := CFM_LINK;
if uiLink in ui.features then fmt.dwEffects := fmt.dwEffects or CFE_LINK;
SendMessage(RichEditWnd, EM_SETCHARFORMAT, w, PtrInt(@fmt));
end;
class function TRichEditManager.GetTextUIStyle(RichEditWnd: Handle; var ui: TTextUIParam): Boolean;
var
w : WPARAM;
fmt : TCHARFORMAT2;
begin
Result:=false;
if RichEditWnd = 0 then Exit;
w := SCF_SELECTION;
FillChar(fmt, sizeof(fmt), 0);
fmt.cbSize := sizeof(fmt);
fmt.dwMask := CFM_LINK;
SendMessage(RichEditWnd, EM_GETCHARFORMAT, w, PtrInt(@fmt));
InitTextUIParams(ui);
if fmt.dwEffects and CFE_LINK > 0 then
Include(ui.features, uiLink);
Result:=true;
end;
type
richedit_gettextlengthex = packed record
flags : DWORD;