paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-09-04 13:43:05 +02:00
Code Issues Packages Projects Releases Wiki Activity

fixed appliaction lastmouse cache

Browse Source 
git-svn-id: trunk@9169 -
This commit is contained in:
mattias 2006-04-23 20:49:01 +00:00
parent 3eb80d8d6e
commit 560cd8d9a1
3 changed files with 13 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
lcl/forms.pp
View File

@ -915,8 +915,9 @@ type
FAsyncCallQueue: PAsyncCallQueueItem;
FShowHint: Boolean;
FShowMainForm: Boolean;
FLastMousePos : TPoint;
FLastMouseControl : tControl;
FLastMousePos: TPoint;
FLastMouseControl: TControl;
FLastMouseControlValid: Boolean;
procedure DoOnIdleEnd;
function GetCurrentHelpFile: string;
function GetExename: String;

11
lcl/include/application.inc
View File

@ -192,6 +192,7 @@ procedure TApplication.Notification(AComponent : TComponent;
Operation : TOperation);
begin
if Operation = opRemove then begin
FLastMouseControlValid:=false;
if AComponent=FMouseControl then FMouseControl:=nil;
if AComponent = MainForm then begin
FMainForm:= nil;
@ -215,6 +216,7 @@ end;
------------------------------------------------------------------------------}
procedure TApplication.ControlDestroyed(AControl: TControl);
begin
FLastMouseControlValid:=false;
if AControl=FMouseControl then FMouseControl:=nil;
if AControl = MainForm then FMainForm:= nil;
if Screen.FActiveControl = AControl then Screen.FActiveControl := nil;
@ -407,12 +409,16 @@ var
P: TPoint;
begin
GetCursorPos(P);
if (P.X=FLastMousePos.x) and (P.Y=FLastMousePos.Y) then Result:=FLastMouseControl
else Result := FindControlAtPosition(P, True);
if FLastMouseControlValid and (P.X=FLastMousePos.x) and (P.Y=FLastMousePos.Y)
then
Result := FLastMouseControl
else
Result := FindControlAtPosition(P, True);
if (Result <> nil) and (csDesigning in Result.ComponentState) then
Result := nil;
if Result<> nil then begin
FLastMouseControlValid:=true;
FLastMousePos:=p;
FLastMouseControl:=Result;
end;
@ -1222,6 +1228,7 @@ procedure TApplication.NotifyUserInputHandler(Msg: Cardinal);
var
i: integer;
begin
FLastMouseControlValid:=false;
case Msg of
LM_MOUSEMOVE: DoOnMouseMove;
else CancelHint;

1
lcl/include/controlscrollbar.inc
View File

@ -231,6 +231,7 @@ begin
else
AutoCalcHRange;
end;
ControlUpdateScrollBars;
end;
procedure TControlScrollBar.UpdateScrollBar;