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

DockedFormEditor: Set hint offset same as in designer

Browse Source 
git-svn-id: trunk@64695 -
This commit is contained in:
michl 2021-02-28 21:39:00 +00:00
parent 24ccec2ea3
commit 4f5681375a
1 changed files with 9 additions and 13 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

22
components/dockedformeditor/source/dockedanchordesigner.pas
View File

@ -914,19 +914,12 @@ begin
then
s := LinedString(s, FSelectedControl.AnchorSideStr(LKind));
LRect := FPreviewHint.CalcHintRect(Screen.Width div 4, s, nil);
LRect.Left := LPos.x;
LRect.Top := LPos.y;
LRect.Right := LRect.Right + LPos.x;
LRect.Bottom := LRect.Bottom + LPos.y;
FPreviewHint.Caption := s;
FPreviewHint.SetBounds(LRect.Left, LRect.Top, LRect.Width, LRect.Height);
if s.IsEmpty then
FPreviewHint.Hide
else begin
FPreviewHint.Show;
FPreviewHint.Invalidate;
end;
LRect := FPreviewHint.CalcHintRect(0, s, nil); //no maxwidth
LRect.Left := LPos.x + 15;
LRect.Top := LPos.y + 15;
LRect.Right := LRect.Left + LRect.Right;
LRect.Bottom := LRect.Top + LRect.Bottom;
FPreviewHint.ActivateHint(LRect, s);
end;
constructor TAnchorDesigner.Create(ADesignForm: TDesignForm; AParent: TWinControl);
@ -939,6 +932,9 @@ begin
FAnchorControls := TAnchorControls.Create;
FBorderControl := TBorderControl.Create(nil);
FPreviewHint := THintWindow.Create(nil);
FPreviewHint.Visible := False;
FPreviewHint.HideInterval := 4000;
FPreviewHint.AutoHide := True;
CreateBackGround;
CreateAnchorGrips;
CreatePopupMenu;