paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-04-16 08:49:31 +02:00
Code Issues Packages Projects Releases Wiki Activity

EditButton: implement OnContextPopup.

Browse Source 
git-svn-id: trunk@63934 -
This commit is contained in:
bart 2020-09-28 19:58:25 +00:00
parent 7b162a47aa
commit fb7a943fef
1 changed files with 16 additions and 0 deletions

16
lcl/groupededit.pp
View File

@ -75,6 +75,7 @@ type
//Forwarded events from FEdit
FOnEditClick: TNotifyEvent;
FOnEditChange: TNotifyEvent;
FOnEditContextPopup:TContextPopupEvent;
FOnEditDblClick: TNotifyEvent;
FOnEditDragDrop: TDragDropEvent;
FOnEditDragOver: TDragOverEvent;
@ -125,6 +126,7 @@ type
procedure InternalOnEditClick(Sender: TObject);
procedure InternalOnEditDblClick(Sender: TObject);
procedure InternalOnEditChange(Sender: TObject);
procedure InternalOnEditContextPopup(Sender: TObject; MousePos: TPoint; var Handled: Boolean);
procedure InternalOnEditDragDrop(Sender, Source: TObject; X,Y: Integer);
procedure InternalOnEditDragOver(Sender, Source: TObject; X,Y: Integer; State: TDragState; var Accept: Boolean);
procedure InternalOnEditEditingDone(Sender: TObject);
@ -206,6 +208,7 @@ type
procedure EditChange; virtual;
procedure EditClick; virtual;
procedure EditContextPopup(MousePos: TPoint; var Handled: Boolean); virtual;
procedure EditDblClick; virtual;
procedure EditDragDrop(Source: TObject; X,Y: Integer); virtual;
procedure EditDragOver(Source: TObject; X,Y: Integer; State: TDragState; var Accept: Boolean); virtual;
@ -304,6 +307,7 @@ type
property OnChange: TNotifyEvent read FOnEditChange write FOnEditChange;
property OnClick: TNotifyEvent read FOnEditClick write FOnEditClick;
property OnContextPopup: TContextPopupEvent read FOnEditContextPopup write FOnEditContextPopup;
property OnDblClick: TNotifyEvent read FOnEditDblClick write FOnEditDblClick;
property OnDragDrop: TDragDropEvent read FOnEditDragDrop write FOnEditDragDrop;
property OnDragOver: TDragOverEvent read FOnEditDragOver write FOnEditDragOver;
@ -437,6 +441,12 @@ begin
EditChange;
end;
procedure TCustomAbstractGroupedEdit.InternalOnEditContextPopup(
Sender: TObject; MousePos: TPoint; var Handled: Boolean);
begin
EditContextPopup(MousePos, Handled);
end;
procedure TCustomAbstractGroupedEdit.InternalOnEditClick(Sender: TObject);
begin
EditClick;
@ -937,6 +947,11 @@ begin
if Assigned(FOnEditClick) then FOnEditClick(Self);
end;
procedure TCustomAbstractGroupedEdit.EditContextPopup(MousePos: TPoint; var Handled: Boolean);
begin
if Assigned(FOnEditContextPopup) then FOnEditContextPopup(Self, MousePos, Handled);
end;
procedure TCustomAbstractGroupedEdit.EditDblClick;
begin
if Assigned(FOnEditDblClick) then FOnEditDblClick(Self);
@ -1211,6 +1226,7 @@ begin
OnChange := @InternalOnEditChange;
OnClick := @InternalOnEditClick;
OnContextPopup := @InternalOnEditContextPopup;
OnDblClick := @InternalOnEditDblClick;
OnDragDrop := @InternalOnEditDragDrop;
OnDragOver := @InternalOnEditDragOver;