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

IDE: designer: implemented csDesignInteractive

Browse Source 
git-svn-id: trunk@49803 -
This commit is contained in:
mattias 2015-09-09 22:34:53 +00:00
parent bf21367723
commit 2d873789da
1 changed files with 15 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

21
designer/designer.pp
View File

@ -1999,6 +1999,7 @@ var
DesignSender: TControl;
Button: TMouseButton;
Handled: Boolean;
MouseDownControl: TControl;
begin
FHintTimer.Enabled := False;
FHintWindow.Visible := False;
@ -2058,8 +2059,10 @@ begin
if (MouseDownComponent <> nil) and (MouseDownComponent is TControl) then
begin
with TControl(MouseDownComponent).ScreenToClient(Form.ClientToScreen(MouseDownPos)) do
if TControl(MouseDownComponent).Perform(CM_DESIGNHITTEST, TheMessage.Keys, Longint(SmallPoint(X, Y))) > 0 then
MouseDownControl:=TControl(MouseDownComponent);
with MouseDownControl.ScreenToClient(Form.ClientToScreen(MouseDownPos)) do
if (csDesignInteractive in MouseDownControl.ControlStyle)
or (MouseDownControl.Perform(CM_DESIGNHITTEST, TheMessage.Keys, Longint(SmallPoint(X, Y))) > 0) then
begin
TControlAccess(MouseDownComponent).MouseDown(Button, Shift, X, Y);
Exit;
@ -2376,6 +2379,7 @@ var
Handled: Boolean;
i, j: Integer;
SelectedPersistent: TSelectedControl;
MouseDownControl: TControl;
begin
FHintTimer.Enabled := False;
FHintWindow.Visible := False;
@ -2413,8 +2417,10 @@ begin
if (MouseDownComponent <> nil) and (MouseDownComponent is TControl) then
begin
with TControl(MouseDownComponent).ScreenToClient(Form.ClientToScreen(MouseUpPos)) do
if TControl(MouseDownComponent).Perform(CM_DESIGNHITTEST, TheMessage.Keys, Longint(SmallPoint(X, Y))) > 0 then
MouseDownControl:=TControl(MouseDownComponent);
with MouseDownControl.ScreenToClient(Form.ClientToScreen(MouseUpPos)) do
if (csDesignInteractive in MouseDownControl.ControlStyle)
or (MouseDownControl.Perform(CM_DESIGNHITTEST, TheMessage.Keys, Longint(SmallPoint(X, Y))) > 0) then
begin
TControlAccess(MouseDownComponent).MouseUp(Button, Shift, X, Y);
Exit;
@ -2538,6 +2544,7 @@ var
DesignSender: TControl;
Handled: Boolean;
MouseMoveComponent: TComponent;
MouseMoveControl: TControl;
begin
GetMouseMsgShift(TheMessage, Shift, Button);
@ -2565,8 +2572,10 @@ begin
MouseMoveComponent := ComponentAtPos(LastMouseMovePos.X, LastMouseMovePos.Y, True, True);
if (MouseMoveComponent <> nil) and (MouseMoveComponent is TControl) then
begin
with TControl(MouseMoveComponent).ScreenToClient(Form.ClientToScreen(LastMouseMovePos)) do
if TControl(MouseMoveComponent).Perform(CM_DESIGNHITTEST, TheMessage.Keys, Longint(SmallPoint(X, Y))) > 0 then
MouseMoveControl:=TControl(MouseMoveComponent);
with MouseMoveControl.ScreenToClient(Form.ClientToScreen(LastMouseMovePos)) do
if (csDesignInteractive in MouseMoveControl.ControlStyle)
or (MouseMoveControl.Perform(CM_DESIGNHITTEST, TheMessage.Keys, Longint(SmallPoint(X, Y))) > 0) then
begin
TControlAccess(MouseMoveComponent).MouseMove(Shift, X, Y);
Exit;