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

- fixing drag and drop operations over non TWinControl objects (isuue 0008627)

Browse Source 
git-svn-id: trunk@10894 -
This commit is contained in:
paul 2007-04-06 07:38:26 +00:00
parent cc6f0aad6f
commit 7e91f10c55
2 changed files with 6 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
lcl/controls.pp
View File

@ -1001,6 +1001,7 @@ type
procedure CMParentShowHintChanged(var Message: TLMessage); message CM_PARENTSHOWHINTCHANGED; procedure CMParentShowHintChanged(var Message: TLMessage); message CM_PARENTSHOWHINTCHANGED;
procedure CMVisibleChanged(var Message: TLMessage); message CM_VISIBLECHANGED; procedure CMVisibleChanged(var Message: TLMessage); message CM_VISIBLECHANGED;
procedure CMTextChanged(var Message: TLMessage); message CM_TEXTCHANGED; procedure CMTextChanged(var Message: TLMessage); message CM_TEXTCHANGED;
procedure CMDrag(var Message: TCMDrag); message CM_DRAG;
protected protected
// drag and drop // drag and drop
procedure CalculateDockSizes; procedure CalculateDockSizes;

5
lcl/include/control.inc
View File

@ -716,6 +716,11 @@ begin
TextChanged; TextChanged;
end; end;
procedure TControl.CMDrag(var Message: TCMDrag);
begin
DoDragMsg(Message);
end;
{------------------------------------------------------------------------------ {------------------------------------------------------------------------------
TControl.CMParentColorChanged TControl.CMParentColorChanged