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

IDE: fixed endless loop

Browse Source 
git-svn-id: trunk@10862 -
This commit is contained in:
mattias 2007-04-03 22:33:24 +00:00
parent 08761b6cee
commit ccb0b4e1ea
2 changed files with 8 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
designer/designer.pp
View File

@ -2729,12 +2729,13 @@ var
while j>=0 do begin
CurSelected:=ControlSelection[j];
//DebugLn(['UpdateChangeParentMenu ',CurSelected.IsTControl,' ',DbgSName(CurSelected.Persistent),' ',CurSelected.IsTWinControl]);
if not CurSelected.IsTControl then continue;
if CurSelected.IsTControl then begin
if CurSelected.Persistent=Candidate then break;
if CurSelected.IsTWinControl
and TWinControl(CurSelected.Persistent).IsParentOf(Candidate)
then
break;
end;
dec(j);
end;
//DebugLn(['UpdateChangeParentMenu j=',j,' ',dbgsName(Candidate)]);

2
lcl/graphtype.pp
View File

@ -252,7 +252,7 @@ var
UnusedByteMask: Byte; // Alpha Bits should be all set. The Byte at line end
// can contain some unused bits. This mask OR byte at
// line end makes the unsused bits all true.
UsedBytesPerLine: cardinal;
UsedBytesPerLine: integer;
begin
Result:=true;
//DebugLn('RawImageMaskIsEmpty Quicktest: empty ',dbgs(RawImage^.Description.Width),'x',dbgs(RawImage^.Description.Height));