paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-09-06 18:40:33 +02:00
Code Issues Packages Projects Releases Wiki Activity

designer: show resize cursors for the controls with parent <> lookuproot (issue #0014626)

Browse Source 
git-svn-id: trunk@21779 -
This commit is contained in:
paul 2009-09-20 05:45:50 +00:00
parent 0ba7f0ed94
commit 900a8acec8
1 changed files with 23 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

26
designer/designer.pp
View File

@ -193,6 +193,7 @@ type
function ComponentClassAtPos(const AClass: TComponentClass;
const APos: TPoint; const UseRootAsDefault,
IgnoreHidden: boolean): TComponent;
procedure SetTempCursor(ARoot: TWinControl; ACursor: TCursor);
// popup menu
procedure BuildPopupMenu;
@ -496,7 +497,7 @@ begin
FHintWindow.AutoHide := True;
DDC:=TDesignerDeviceContext.Create;
LastFormCursor:=crDefault;
LastFormCursor := crDefault;
DeletingPersistent:=TList.Create;
IgnoreDeletingPersistent:=TList.Create;
end;
@ -1437,7 +1438,7 @@ begin
Result := Lo(TheMessage.LParam) = HTCLIENT;
if Result then
begin
Form.SetTempCursor(LastFormCursor);
SetTempCursor(Form, LastFormCursor);
TheMessage.Result := 1;
end;
end;
@ -2051,7 +2052,7 @@ begin
if ACursor <> LastFormCursor then
begin
LastFormCursor := ACursor;
Form.SetTempCursor(ACursor);
SetTempCursor(Form, ACursor);
end;
Exit;
end;
@ -3143,6 +3144,25 @@ begin
Result := LookupRoot;
end;
procedure TDesigner.SetTempCursor(ARoot: TWinControl; ACursor: TCursor);
procedure Traverse(ARoot: TWinControl);
var
i: integer;
begin
for i := 0 to ARoot.ControlCount - 1 do
begin
ARoot.Controls[i].SetTempCursor(ACursor);
if ARoot.Controls[i] is TWinControl then
Traverse(TWinControl(ARoot.Controls[i]));
end;
end;
begin
Traverse(ARoot);
ARoot.SetTempCursor(ACursor);
end;
function TDesigner.WinControlAtPos(x, y: integer; UseRootAsDefault,
IgnoreHidden: boolean): TWinControl;
begin