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

win32: pass WM_CANCELMODE to the LCL,

Browse Source 
lcl: stop mouse capture on LM_CANCELMODE (issue #0012813)

git-svn-id: trunk@18393 -
This commit is contained in:
paul 2009-01-23 02:40:28 +00:00
parent 3e5bc24fed
commit 949b2781aa
3 changed files with 10 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
lcl/controls.pp
View File

@ -995,6 +995,7 @@ type
property AutoSizing: Boolean Read FAutoSizing;
protected
// protected messages
procedure WMCancelMode(var Message: TLMessage); message LM_CANCELMODE;
procedure WMContextMenu(var Message: TLMMouse); message LM_CONTEXTMENU;
procedure WMLButtonDown(var Message: TLMLButtonDown); message LM_LBUTTONDOWN;
procedure WMRButtonDown(var Message: TLMRButtonDown); message LM_RBUTTONDOWN;

5
lcl/include/control.inc
View File

@ -2569,6 +2569,11 @@ begin
Result:=false;
end;
procedure TControl.WMCancelMode(var Message: TLMessage);
begin
MouseCapture := False;
end;
function TControl.IsColorStored: Boolean;
begin
Result := not ParentColor;

4
lcl/interfaces/win32/win32callback.inc
View File

@ -1266,6 +1266,10 @@ begin
begin
LMessage.Msg := LM_CHANGED;
end;
WM_CANCELMODE:
begin
LMessage.Msg := LM_CANCELMODE;
end;
WM_CAPTURECHANGED:
begin
LMessage.Msg := LM_CAPTURECHANGED;