paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-18 17:39:22 +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; FHostDockSite : TWinControl;
FIsControl : Boolean; FIsControl : Boolean;
fLastAlignedBounds: TRect; fLastAlignedBounds: TRect;
FLastChangeboundRect: TRect; FLastChangebounds: TRect;
FLastDoChangeBounds: TRect; FLastDoChangeBounds: TRect;
FLastResizeClientHeight: integer; FLastResizeClientHeight: integer;
FLastResizeClientWidth: integer; FLastResizeClientWidth: integer;
@ -1632,6 +1632,9 @@ end.
{ ============================================================================= { =============================================================================
$Log$ $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 Revision 1.138 2003/07/30 13:03:44 mattias
replaced label with memo replaced label with memo

2
lcl/dirsel.pas
View File

@ -83,7 +83,6 @@ function HasSubDirs(const Dir: string; IgnoreHidden: boolean): Boolean;
var var
//Result of FindFirst, FindNext //Result of FindFirst, FindNext
FileInfo: TSearchRec; FileInfo: TSearchRec;
i: integer;
FCurrentDir: string; FCurrentDir: string;
begin begin
//Assume No //Assume No
@ -92,7 +91,6 @@ begin
begin begin
FCurrentDir:= Dir; FCurrentDir:= Dir;
FileCtrl.AppendPathDelim(FCurrentDir); FileCtrl.AppendPathDelim(FCurrentDir);
i:= length(Dir);
FCurrentDir:= Dir + FindMask; FCurrentDir:= Dir + FindMask;
Try Try
if SysUtils.FindFirst(FCurrentDir, (faAnyFile),FileInfo)=0 then 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); procedure TControl.ChangeBounds(ALeft, ATop, AWidth, AHeight : integer);
var var
SizeChanged, PosChanged : boolean; SizeChanged, PosChanged : boolean;
ARight: Integer;
ABottom: Integer;
OldLeft: Integer; OldLeft: Integer;
OldTop: Integer; OldTop: Integer;
OldWidth: Integer; OldWidth: Integer;
OldHeight: Integer; OldHeight: Integer;
CurBounds: TRect; CurBounds: TRect;
NewBounds: TRect;
function UpdatePosSizeChanged: boolean; function UpdatePosSizeChanged: boolean;
begin begin
@ -151,14 +150,9 @@ begin
DoConstrainedResize(AWidth, AHeight); DoConstrainedResize(AWidth, AHeight);
// check, if we are already processing this bound change // check, if we are already processing this bound change
ARight:=ALeft+AWidth; NewBounds:=Bounds(ALeft,ATop,AWidth,AHeight);
ABottom:=ATop+AHeight; if CompareRect(@FLastChangebounds,@NewBounds) then exit;
if (ALeft=FLastChangeboundRect.Left) FLastChangebounds:=NewBounds;
and (ATop=FLastChangeboundRect.Top)
and (ARight=FLastChangeboundRect.Right)
and (ABottom=FLastChangeboundRect.Bottom)
then exit;
FLastChangeboundRect:=Rect(ALeft,ATop,AWidth,AHeight);
OldLeft:=FLeft; OldLeft:=FLeft;
OldTop:=FTop; OldTop:=FTop;
@ -2462,6 +2456,9 @@ end;
{ ============================================================================= { =============================================================================
$Log$ $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 Revision 1.144 2003/07/31 19:56:50 mattias
fixed double messages SETLabel fixed double messages SETLabel