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

Added a property for BorderWidth in TForm

Browse Source 
Changed the hint window in the designer to be more picky when it pops up.
Shane

git-svn-id: trunk@423 -
This commit is contained in:
lazarus 2001-11-15 19:16:43 +00:00
parent e7a4c972d5
commit 704da558b2
2 changed files with 6 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
designer/designer.pp
View File

@ -1037,10 +1037,14 @@ var
AHint : String;
Control : TControl;
Position : TPoint;
BW : Integer;
begin
BW := 0;
if (FCustomForm is TForm) then
BW := TForm(FCustomForm).BorderWidth;
FHintTimer.Enabled := False;
Position := Mouse.CursorPos;
if ((Position.X < FCustomForm.LEft) or (Position.X > (FCustomForm.Left+FCustomForm.Width)) or (Position.Y < FCustomForm.Top) or (Position.Y > (FCustomForm.Top+FCustomForm.Height))) then Exit;
if ((Position.X < (FCustomForm.LEft +BW)) or (Position.X > (FCustomForm.Left+FCustomForm.Width - BW)) or (Position.Y < FCustomForm.Top+22) or (Position.Y > (FCustomForm.Top+FCustomForm.Height - BW))) then Exit;
Position := FCustomForm.ScreenToClient(Position);

1
lcl/forms.pp
View File

@ -186,6 +186,7 @@ type
property ActiveCOntrol;
property Align;
property AutoSize;
property BorderWidth;
property Caption;
property Color;
property ClientHeight;