formatting

git-svn-id: trunk@16697 -
This commit is contained in:
paul 2008-09-24 08:21:32 +00:00
parent bc6266096a
commit fc8281fe7f

View File

@ -66,17 +66,17 @@ var
begin
result:=tpws_closeIDE;
ProjectWizardDialog:=TProjectWizardDialog.create(nil);
with ProjectWizardDialog do begin
btnNewProject.caption:=lisPWNewProject;
btnOpenProject.caption:=lisPWOpenProject;
btnConvertProject.caption:=lisPWConvertProject;
btnCloseIDE.caption:=lisQuitLazarus;
btnNewProject.LoadGlyphFromLazarusResource('item_project');
btnOpenProject.LoadGlyphFromLazarusResource('menu_project_open');
btnCloseIDE.LoadGlyphFromLazarusResource('menu_exit');
with ProjectWizardDialog do
begin
btnNewProject.caption:=lisPWNewProject;
btnOpenProject.caption:=lisPWOpenProject;
btnConvertProject.caption:=lisPWConvertProject;
btnCloseIDE.caption:=lisQuitLazarus;
btnNewProject.LoadGlyphFromLazarusResource('item_project');
btnOpenProject.LoadGlyphFromLazarusResource('menu_project_open');
btnCloseIDE.LoadGlyphFromLazarusResource('menu_exit');
end;
try
if ProjectWizardDialog.showmodal<>mrOk then exit;
result:=ProjectWizardDialog.result;