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

More changes

Browse Source 
Shane

git-svn-id: trunk@101 -
This commit is contained in:
lazarus 2001-01-06 06:42:25 +00:00
parent 74f4e66f0f
commit b4e6e2450a
1 changed files with 9 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
designer/designer.pp
View File

@ -142,6 +142,7 @@ var
CurDesigner: TDesigner;
CaptureGrabber:TGrabber;
Begin
Writeln('MouseMoveOnForm');
CaptureGrabber:=GetCaptureGrabber;
if CaptureGrabber<>nil then begin
CaptureGrabber.CaptureMouseMove(TControl(Sender),Shift,X,Y);
@ -161,6 +162,7 @@ var
// CInterface : TComponentInterface;
CaptureGrabber:TGrabber;
Begin
Writeln('MouseUpOnForm');
CaptureGrabber:=GetCaptureGrabber;
if CaptureGrabber<>nil then begin
CaptureGrabber.CaptureMouseUp(TControl(Sender),Button,Shift,X,Y);
@ -220,6 +222,7 @@ end;
procedure TDesigner.MouseDownOnControl(Sender : TControl; Message : TLMessage);
Begin
Writeln('MouseDownOnControl');
if GetCaptureGrabber<>nil then exit;
MouseDownPos.X := TLMMOuse(Message).pos.X;
@ -348,6 +351,8 @@ var
Shift : TShiftState;
X,Y : Integer;
Begin
Writeln('MouseMoveOnControl');
X :=TLMMouse(Message).Pos.x;
Y := TLMMouse(Message).Pos.Y;
if (TLMMouse(Message).keys and MK_LButton) = MK_LButton then
@ -364,11 +369,15 @@ Begin
CaptureGrabber:=GetCaptureGrabber;
if CaptureGrabber<>nil then begin
Writeln('CaptureGrabber is <> nil');
CaptureGrabber.CaptureMouseMove(TControl(Sender),Shift,X,Y);
end else begin
if Assigned(MouseDownControl) then begin
Writeln('MouseDownControl is assigned');
if FMainIDE.SelectedComponent = nil then begin
// mouse pointer button pressed
Writeln('SelectedComponent = nil');
if not (Sender is TCustomForm) then begin
// move selection
ControlSelection.MoveSelection(