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