paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-09-13 10:39:20 +02:00
Code Issues Packages Projects Releases Wiki Activity

fixed view forms

Browse Source 
git-svn-id: trunk@4234 -
This commit is contained in:
mattias 2003-06-04 16:40:57 +00:00
parent e601180b90
commit 74f714e33b
1 changed files with 0 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
designer/noncontrolforms.pas
View File

@ -111,7 +111,6 @@ begin
FLookupRoot:=AValue;
if FLookupRoot<>nil then begin
Caption:=FLookupRoot.Name;
writeln('TNonControlForm.SetLookupRoot ',FLookupRoot.Name,':',FLookupRoot.ClassName);
end;
DoLoadBounds;
end;
@ -128,12 +127,10 @@ begin
inherited Create(TheOwner);
FFrameWidth:=1;
ControlStyle:=ControlStyle-[csAcceptsControls];
writeln('TNonControlForm.Create ');
end;
destructor TNonControlForm.Destroy;
begin
writeln('TNonControlForm.Destroy ');
inherited Destroy;
end;
@ -199,7 +196,6 @@ begin
NewTop:=CurDataModule.DesignOffset.Y;
NewWidth:=CurDataModule.DesignSize.X;
NewHeight:=CurDataModule.DesignSize.Y;
writeln('TDataModuleForm.DoLoadBounds ',NewLeft,',',NewTop,',',NewWidth,',',NewHeight);
SetBounds(NewLeft,NewTop,NewWidth,NewHeight);
end;
end;
@ -214,7 +210,6 @@ begin
CurDataModule.DesignOffset.Y:=Top;
CurDataModule.DesignSize.X:=Width;
CurDataModule.DesignSize.Y:=Height;
writeln('TDataModuleForm.DoSaveBounds ',Left,',',Top,',',Width,',',Height);
end;
inherited DoSaveBounds;
end;