paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-09-01 17:40:22 +02:00
Code Issues Packages Projects Releases Wiki Activity

MG: fixed show designed form on new project

Browse Source 
git-svn-id: trunk@1789 -
This commit is contained in:
lazarus 2002-07-20 13:54:13 +00:00
parent 37fdb2af44
commit 5fa8b85fd8
1 changed files with 13 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

19
ide/main.pp
View File

@ -2526,6 +2526,7 @@ begin
// select the new form (object inspector, formeditor, control selection)
PropertyEditorHook1.LookupRoot := AForm;
TDesigner(AForm.Designer).SelectOnlyThisComponent(AForm);
BringWindowToTop(AForm.Handle);
end;
function TMainIDE.DoLoadResourceFile(AnUnitInfo: TUnitInfo;
@ -3523,6 +3524,8 @@ begin
end;
Project1.AddUnit(NewUnitInfo,(NewUnitType in [nuForm, nuUnit])
and NewUnitInfo.IsPartOfProject);
// syntax highlighter type
if NewUnitType in [nuForm, nuUnit] then begin
NewUnitInfo.SyntaxHighlighter:=lshFreePascal;
end else begin
@ -3530,12 +3533,6 @@ begin
ExtensionToLazSyntaxHighlighter(ExtractFileExt(NewFilename))
end;
if NewUnitType in [nuForm] then begin
Result:=CreateNewForm(NewUnitInfo);
if Result<>mrOk then exit;
Result:=mrCancel;
end;
// create a new sourceeditor
SourceNotebook.NewFile(CreateSrcEditPageName(NewUnitInfo.UnitName,
NewUnitInfo.Filename,-1),
@ -3545,6 +3542,13 @@ begin
Project1.InsertEditorIndex(SourceNotebook.NoteBook.PageIndex);
NewUnitInfo.EditorIndex:=SourceNotebook.NoteBook.PageIndex;
// create form
if NewUnitType in [nuForm] then begin
Result:=CreateNewForm(NewUnitInfo);
if Result<>mrOk then exit;
Result:=mrCancel;
end;
// show form and select form
if NewUnitType in [nuForm] then begin
// show form
@ -6652,6 +6656,9 @@ end.
{ =============================================================================
$Log$
Revision 1.325 2002/07/20 13:54:13 lazarus
MG: fixed show designed form on new project
Revision 1.324 2002/07/06 06:37:04 lazarus
MG: added Revert