paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-04-22 11:39:28 +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 OnColumnClick;
property OnCompare;
property OnContextPopup;
property OnCustomDraw;
property OnCustomDrawItem;
property OnCustomDrawSubItem;
@ -1193,6 +1194,7 @@ type
property Hint;
property Max;
property Min;
property OnContextPopup;
property OnDragDrop;
property OnDragOver;
property OnEndDrag;
@ -1312,6 +1314,7 @@ type
property Wrap;
property OnChanging;
property OnClick;
property OnContextPopup;
property OnEnter;
property OnExit;
property OnMouseDown;
@ -1457,12 +1460,12 @@ type
property OnContextPopup;
property OnDragDrop;
property OnDragOver;
//property OnEndDock;
property OnEndDock;
property OnEndDrag;
property OnMouseDown;
property OnMouseMove;
property OnMouseUp;
//property OnStartDock;
property OnStartDock;
property OnStartDrag;
end;
@ -1699,6 +1702,7 @@ type
property OnChange;
property OnChangeBounds;
property OnClick;
property OnContextPopup;
property OnDragDrop;
property OnDragOver;
property OnEndDrag;

6
lcl/include/trackbar.inc
View File

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