paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-20 13:19:21 +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
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

16
lcl/groupededit.pp
View File

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