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

fixed breaking circle in ChangeBounds

Browse Source 
git-svn-id: trunk@4453 -
This commit is contained in:
mattias 2003-08-04 08:43:20 +00:00
parent 6324fe978a
commit aa42e02ef4
3 changed files with 11 additions and 13 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
lcl/controls.pp
View File

@ -578,7 +578,7 @@ type
FHostDockSite : TWinControl;
FIsControl : Boolean;
fLastAlignedBounds: TRect;
FLastChangeboundRect: TRect;
FLastChangebounds: TRect;
FLastDoChangeBounds: TRect;
FLastResizeClientHeight: integer;
FLastResizeClientWidth: integer;
@ -1632,6 +1632,9 @@ end.
{ =============================================================================
$Log$
Revision 1.139 2003/08/04 08:43:20 mattias
fixed breaking circle in ChangeBounds
Revision 1.138 2003/07/30 13:03:44 mattias
replaced label with memo

2
lcl/dirsel.pas
View File

@ -83,7 +83,6 @@ function HasSubDirs(const Dir: string; IgnoreHidden: boolean): Boolean;
var
//Result of FindFirst, FindNext
FileInfo: TSearchRec;
i: integer;
FCurrentDir: string;
begin
//Assume No
@ -92,7 +91,6 @@ begin
begin
FCurrentDir:= Dir;
FileCtrl.AppendPathDelim(FCurrentDir);
i:= length(Dir);
FCurrentDir:= Dir + FindMask;
Try
if SysUtils.FindFirst(FCurrentDir, (faAnyFile),FileInfo)=0 then

17
lcl/include/control.inc
View File

@ -128,13 +128,12 @@ End;
procedure TControl.ChangeBounds(ALeft, ATop, AWidth, AHeight : integer);
var
SizeChanged, PosChanged : boolean;
ARight: Integer;
ABottom: Integer;
OldLeft: Integer;
OldTop: Integer;
OldWidth: Integer;
OldHeight: Integer;
CurBounds: TRect;
NewBounds: TRect;
function UpdatePosSizeChanged: boolean;
begin
@ -151,14 +150,9 @@ begin
DoConstrainedResize(AWidth, AHeight);
// check, if we are already processing this bound change
ARight:=ALeft+AWidth;
ABottom:=ATop+AHeight;
if (ALeft=FLastChangeboundRect.Left)
and (ATop=FLastChangeboundRect.Top)
and (ARight=FLastChangeboundRect.Right)
and (ABottom=FLastChangeboundRect.Bottom)
then exit;
FLastChangeboundRect:=Rect(ALeft,ATop,AWidth,AHeight);
NewBounds:=Bounds(ALeft,ATop,AWidth,AHeight);
if CompareRect(@FLastChangebounds,@NewBounds) then exit;
FLastChangebounds:=NewBounds;
OldLeft:=FLeft;
OldTop:=FTop;
@ -2462,6 +2456,9 @@ end;
{ =============================================================================
$Log$
Revision 1.145 2003/08/04 08:43:20 mattias
fixed breaking circle in ChangeBounds
Revision 1.144 2003/07/31 19:56:50 mattias
fixed double messages SETLabel