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

Resize cursors in designer.

Browse Source 
git-svn-id: trunk@2037 -
This commit is contained in:
lazarus 2002-08-17 23:40:44 +00:00
parent 7db6cc75a8
commit d6946b215c
1 changed files with 17 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

24
designer/designer.pp
View File

@ -250,7 +250,6 @@ begin
FHintWindow := THintWindow.Create(nil);
FHIntWindow.Visible := False;
FHintWindow.Caption := 'This is a hint window'#13#10'Neat huh?';
FHintWindow.HideInterval := 4000;
FHintWindow.AutoHide := True;
@ -789,12 +788,14 @@ Begin
{$ENDIF}
end;
Procedure TDesigner.MouseMoveOnControl(Sender: TControl;
procedure TDesigner.MouseMoveOnControl(Sender: TControl;
var TheMessage: TLMMouse);
var
Shift : TShiftState;
SenderParentForm:TCustomForm;
OldMouseMovePos: TPoint;
Grabber: TGrabber;
ACursor: TCursor;
begin
SetCaptureControl(nil);
if ShowHints then begin
@ -807,12 +808,21 @@ begin
FHintWindow.Visible := False;
end;
SenderParentForm:= GetParentForm(Sender);
if (SenderParentForm = nil) or (SenderParentForm <> Form) then exit;
OldMouseMovePos:= LastMouseMovePos;
LastMouseMovePos:= GetFormRelativeMousePosition(Form);
Grabber:= ControlSelection.GrabberAtPos(LastMouseMovePos.X, LastMouseMovePos.Y);
if Grabber = nil then
ACursor:= crDefault
else begin
ACursor:= Grabber.Cursor;
end;
CNSendMessage(LM_SETCURSOR, Form, Pointer(Integer(ACursor)));
if MouseDownComponent=nil then exit;
SenderParentForm:=GetParentForm(Sender);
if (SenderParentForm=nil) or (SenderParentForm<>Form) then exit;
OldMouseMovePos:=LastMouseMovePos;
LastMouseMovePos:=GetFormRelativeMousePosition(Form);
Shift := [];
if (TheMessage.keys and MK_Shift) = MK_Shift then