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

lcl: publish OnContextPopup for more controls

Browse Source 
git-svn-id: trunk@15446 -
This commit is contained in:
paul 2008-06-17 04:53:06 +00:00
parent a7d97dbc4d
commit fad1936a76
2 changed files with 10 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
lcl/comctrls.pp
View File

@ -1109,6 +1109,7 @@ type
property OnClick; property OnClick;
property OnColumnClick; property OnColumnClick;
property OnCompare; property OnCompare;
property OnContextPopup;
property OnCustomDraw; property OnCustomDraw;
property OnCustomDrawItem; property OnCustomDrawItem;
property OnCustomDrawSubItem; property OnCustomDrawSubItem;
@ -1193,6 +1194,7 @@ type
property Hint; property Hint;
property Max; property Max;
property Min; property Min;
property OnContextPopup;
property OnDragDrop; property OnDragDrop;
property OnDragOver; property OnDragOver;
property OnEndDrag; property OnEndDrag;
@ -1312,6 +1314,7 @@ type
property Wrap; property Wrap;
property OnChanging; property OnChanging;
property OnClick; property OnClick;
property OnContextPopup;
property OnEnter; property OnEnter;
property OnExit; property OnExit;
property OnMouseDown; property OnMouseDown;
@ -1457,12 +1460,12 @@ type
property OnContextPopup; property OnContextPopup;
property OnDragDrop; property OnDragDrop;
property OnDragOver; property OnDragOver;
//property OnEndDock; property OnEndDock;
property OnEndDrag; property OnEndDrag;
property OnMouseDown; property OnMouseDown;
property OnMouseMove; property OnMouseMove;
property OnMouseUp; property OnMouseUp;
//property OnStartDock; property OnStartDock;
property OnStartDrag; property OnStartDrag;
end; end;
@ -1699,6 +1702,7 @@ type
property OnChange; property OnChange;
property OnChangeBounds; property OnChangeBounds;
property OnClick; property OnClick;
property OnContextPopup;
property OnDragDrop; property OnDragDrop;
property OnDragOver; property OnDragOver;
property OnEndDrag; property OnEndDrag;

6
lcl/include/trackbar.inc
View File

@ -308,9 +308,11 @@ procedure TCustomTrackBar.DoChange(var msg);
begin begin
FPosition := TWSTrackBarClass(WidgetSetClass).GetPosition(Self); FPosition := TWSTrackBarClass(WidgetSetClass).GetPosition(Self);
Assert(True, 'Trace:Trackbar received a message -CHANGE'); Assert(True, 'Trace:Trackbar received a message -CHANGE');
if [csLoading,csDestroying,csDesigning]*ComponentState<>[] then exit; if [csLoading,csDestroying,csDesigning]*ComponentState<>[] then
Exit;
EditingDone; EditingDone;
if Assigned (FOnChange) then FOnChange(Self); if Assigned (FOnChange) then
FOnChange(Self);
end; end;
class function TCustomTrackBar.GetControlClassDefaultSize: TPoint; class function TCustomTrackBar.GetControlClassDefaultSize: TPoint;