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

designer: send client coords to MouseUp, MouseDown, MoveMove (issue )

Browse Source 
git-svn-id: trunk@29207 -
This commit is contained in:
paul 2011-01-26 12:53:58 +00:00
parent a6021ee112
commit 483f4ec94a
1 changed files with 18 additions and 24 deletions

42
designer/designer.pp
View File

@ -173,7 +173,6 @@ type
// procedures for working with components and persistents
function GetDesignControl(AControl: TControl): TControl;
function DoDesignHitTest(AControl: TControl; Keys: PtrInt; Pos: TPoint): LRESULT;
function DoDeleteSelectedPersistents: boolean;
procedure DoSelectAll;
procedure DoDeletePersistent(APersistent: TPersistent; FreeIt: boolean);
@ -1687,14 +1686,6 @@ begin
end;
end;
function TDesigner.DoDesignHitTest(AControl: TControl; Keys: PtrInt; Pos: TPoint): LRESULT;
var
RelativePos: TPoint;
begin
RelativePos := AControl.ScreenToClient(Form.ClientToScreen(Pos));
Result := AControl.Perform(CM_DESIGNHITTEST, Keys, Longint(SmallPoint(RelativePos.X, RelativePos.Y)));
end;
function TDesigner.SizeControl(Sender: TControl; TheMessage: TLMSize): Boolean;
begin
Result := True;
@ -1786,11 +1777,12 @@ begin
if (MouseDownComponent <> nil) and (MouseDownComponent is TControl) then
begin
if DoDesignHitTest(TControl(MouseDownComponent), TheMessage.Keys, MouseDownPos) > 0 then
begin
TControlAccess(MouseDownComponent).MouseDown(Button, Shift, MouseDownPos.X, MouseDownPos.Y);
Exit;
end;
with TControl(MouseDownComponent).ScreenToClient(Form.ClientToScreen(MouseDownPos)) do
if TControl(MouseDownComponent).Perform(CM_DESIGNHITTEST, TheMessage.Keys, Longint(SmallPoint(X, Y))) > 0 then
begin
TControlAccess(MouseDownComponent).MouseDown(Button, Shift, X, Y);
Exit;
end;
end;
if Mediator<>nil then begin
@ -2133,11 +2125,12 @@ begin
if (MouseDownComponent <> nil) and (MouseDownComponent is TControl) then
begin
if DoDesignHitTest(TControl(MouseDownComponent), TheMessage.Keys, MouseUpPos) > 0 then
begin
TControlAccess(MouseDownComponent).MouseUp(Button, Shift, MouseUpPos.X, MouseUpPos.Y);
Exit;
end;
with TControl(MouseDownComponent).ScreenToClient(Form.ClientToScreen(MouseUpPos)) do
if TControl(MouseDownComponent).Perform(CM_DESIGNHITTEST, TheMessage.Keys, Longint(SmallPoint(X, Y))) > 0 then
begin
TControlAccess(MouseDownComponent).MouseUp(Button, Shift, X, Y);
Exit;
end;
end;
if Mediator<>nil then
@ -2244,11 +2237,12 @@ begin
MouseMoveComponent := ComponentAtPos(LastMouseMovePos.X, LastMouseMovePos.Y, True, True);
if (MouseMoveComponent <> nil) and (MouseMoveComponent is TControl) then
begin
if DoDesignHitTest(TControl(MouseMoveComponent), TheMessage.Keys, LastMouseMovePos) > 0 then
begin
TControlAccess(MouseMoveComponent).MouseMove(Shift, LastMouseMovePos.X, LastMouseMovePos.Y);
Exit;
end;
with TControl(MouseMoveComponent).ScreenToClient(Form.ClientToScreen(LastMouseMovePos)) do
if TControl(MouseMoveComponent).Perform(CM_DESIGNHITTEST, TheMessage.Keys, Longint(SmallPoint(X, Y))) > 0 then
begin
TControlAccess(MouseMoveComponent).MouseMove(Shift, X, Y);
Exit;
end;
end;
if Mediator <> nil then