paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-04-07 21:18:01 +02:00
Code Issues Packages Projects Releases Wiki Activity

EditButton: implement OnContextPopup.

Browse Source 
git-svn-id: branches/fixes_2_0@64013 -
This commit is contained in:
mattias 2020-10-15 11:23:25 +00:00
parent ebab00eb5b
commit c910891f1b
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
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);
@ -205,6 +207,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;
@ -303,6 +306,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;
@ -436,6 +440,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;
@ -936,6 +946,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);
@ -1203,6 +1218,7 @@ begin
OnChange := @InternalOnEditChange;
OnClick := @InternalOnEditClick;
OnContextPopup := @InternalOnEditContextPopup;
OnDblClick := @InternalOnEditDblClick;
OnDragDrop := @InternalOnEditDragDrop;
OnDragOver := @InternalOnEditDragOver;