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

richmemo: added OnSelectionChange event

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@3802 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
skalogryz
2014-11-28 06:11:15 +00:00
parent fc26c9c573
commit cce0084857
1 changed files with 10 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files

11
components/richmemo/richmemo.pas
View File

@ -81,7 +81,9 @@ type
TCustomRichMemo = class(TCustomMemo)
private
fHideSelection : Boolean;
fOnSelectionChange: TNotifyEvent;
protected
procedure DoSelectionChange;
class procedure WSRegisterClass; override;
procedure CreateWnd; override;
procedure UpdateRichMemo; virtual;
@ -89,7 +91,6 @@ type
function GetContStyleLength(TextStart: Integer): Integer;
procedure SetSelText(const SelTextUTF8: string); override;
public
procedure CopyToClipboard; override;
procedure CutToClipboard; override;
@ -126,6 +127,7 @@ type
function Search(const ANiddle: string; Start, Len: Integer; const SearchOpt: TSearchOptions): Integer;
property HideSelection : Boolean read fHideSelection write SetHideSelection;
property OnSelectionChange: TNotifyEvent read fOnSelectionChange write fOnSelectionChange;
end;
TRichMemo = class(TCustomRichMemo)
@ -167,6 +169,7 @@ type
property OnMouseWheel;
property OnMouseWheelDown;
property OnMouseWheelUp;
property OnSelectionChange;
property OnStartDrag;
property OnUTF8KeyPress;
property ParentBidiMode;
@ -252,6 +255,11 @@ begin
fHideSelection := AValue;
end;
procedure TCustomRichMemo.DoSelectionChange;
begin
if Assigned(fOnSelectionChange) then fOnSelectionChange(Self);
end;
class procedure TCustomRichMemo.WSRegisterClass;
begin
inherited;
@ -410,6 +418,7 @@ begin
end;
end;
procedure TCustomRichMemo.CopyToClipboard;
begin
if HandleAllocated then