paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-09-12 18:20:03 +02:00
Code Issues Packages Projects Releases Wiki Activity

only change "down" state when mouse button released with control area (issue #1859)

Browse Source 
git-svn-id: trunk@9577 -
This commit is contained in:
micha 2006-07-09 14:56:22 +00:00
parent 65c428629e
commit 4067090770
1 changed files with 11 additions and 14 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

25
lcl/include/speedbutton.inc
View File

@ -605,18 +605,15 @@ begin
if FDragging
then begin
Assert(False,'Trace:FDragging is true');
if not FDown then
NewState := bsUp
else
NewState := bsExclusive;
if (X >= 0) and (X < Width)
and (Y >= 0) and (Y < Height)
then begin
if FDown then
NewState := bsExclusive
if FDown then
NewState := bsExclusive
else begin
if (X >= 0) and (X < Width)
and (Y >= 0) and (Y < Height)
then
NewState := bsDown
else
NewState := bsDown;
NewState := bsUp;
end;
if NewState <> FState
@ -649,10 +646,10 @@ begin
then begin
FState := bsUp;
if OldState<>FState then Invalidate;
end
else begin
end
else if (X >= 0) and (X < Width)
and (Y >= 0) and (Y < Height) then
SetDown(not FDown);
end;
end;
inherited MouseUp(Button, Shift, X, Y);
end;