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

IDE: new form: using default width,height

Browse Source 
git-svn-id: trunk@23187 -
This commit is contained in:
mattias 2009-12-18 15:03:50 +00:00
parent 2445aea5ec
commit d63e8ffbd3
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
ide/main.pp
View File

@ -4382,7 +4382,7 @@ begin
// create jit component // create jit component
CInterface := TComponentInterface( CInterface := TComponentInterface(
FormEditor1.CreateComponent(nil,TComponentClass(AncestorType), FormEditor1.CreateComponent(nil,TComponentClass(AncestorType),
NewUnitInfo.CreateUnitName, new_x, new_y, 400,300)); NewUnitInfo.CreateUnitName, new_x, new_y, 0,0));
if CInterface=nil then begin if CInterface=nil then begin
DebugLn(['TMainIDE.CreateNewForm FormEditor1.CreateComponent failed ',dbgsName(TComponentClass(AncestorType))]); DebugLn(['TMainIDE.CreateNewForm FormEditor1.CreateComponent failed ',dbgsName(TComponentClass(AncestorType))]);
exit(mrCancel); exit(mrCancel);