paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-05-23 21:24:05 +02:00
Code Issues Packages Projects Releases Wiki Activity

clean up

Browse Source 
git-svn-id: trunk@22002 -
This commit is contained in:
mattias 2009-10-03 21:16:33 +00:00
parent c94627a628
commit e6b5741431
3 changed files with 7 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
ide/lazarusidestrconsts.pas
View File

@ -1801,7 +1801,6 @@ resourcestring
lisRunParamsTheHostApplicationIsNotExecutable = 'The host application %s%s%' lisRunParamsTheHostApplicationIsNotExecutable = 'The host application %s%s%'
+'s is not executable.'; +'s is not executable.';
dlgTheDirectory = 'The directory "'; dlgTheDirectory = 'The directory "';
dlgDoesNotExist = '" does not exist.';
dlgTextToFing = '&Text to Find'; dlgTextToFing = '&Text to Find';
dlgReplaceWith = '&Replace With'; dlgReplaceWith = '&Replace With';
dlgFROpts = 'Options'; dlgFROpts = 'Options';

2
ide/main.pp
View File

@ -1848,6 +1848,7 @@ begin
SourceNotebook.OnShowSearchResultsView := @OnSrcNotebookShowSearchResultsView; SourceNotebook.OnShowSearchResultsView := @OnSrcNotebookShowSearchResultsView;
SourceNotebook.OnPopupMenu := @OnSrcNoteBookPopupMenu; SourceNotebook.OnPopupMenu := @OnSrcNoteBookPopupMenu;
DebugBoss.ConnectSourceNotebookEvents; DebugBoss.ConnectSourceNotebookEvents;
DebugBoss.SetupSourceMenuShortCuts;
// connect search menu to sourcenotebook // connect search menu to sourcenotebook
MainIDEBar.itmSearchFind.OnClick := @SourceNotebook.FindClicked; MainIDEBar.itmSearchFind.OnClick := @SourceNotebook.FindClicked;
@ -2411,7 +2412,6 @@ end;
procedure TMainIDE.LoadMenuShortCuts; procedure TMainIDE.LoadMenuShortCuts;
begin begin
inherited LoadMenuShortCuts; inherited LoadMenuShortCuts;
SourceNotebook.SetupShortCuts;
DebugBoss.SetupMainBarShortCuts; DebugBoss.SetupMainBarShortCuts;
end; end;

5
ide/project.pp
View File

@ -5384,6 +5384,8 @@ begin
+'end.'+le +'end.'+le
+le; +le;
AProject.MainFile.SetSourceText(NewSource); AProject.MainFile.SetSourceText(NewSource);
//AProject.LazCompilerOptions.UnitOutputDirectory:='lib/$(TargetCPU)-$(TargetOS)';
end; end;
function TProjectProgramDescriptor.CreateStartFiles(AProject: TLazProject function TProjectProgramDescriptor.CreateStartFiles(AProject: TLazProject
@ -5449,6 +5451,7 @@ begin
// add lcl pp/pas dirs to source search path // add lcl pp/pas dirs to source search path
AProject.AddPackageDependency('LCL'); AProject.AddPackageDependency('LCL');
AProject.LazCompilerOptions.Win32GraphicApp:=true; AProject.LazCompilerOptions.Win32GraphicApp:=true;
//AProject.LazCompilerOptions.UnitOutputDirectory:='lib/$(TargetCPU)-$(TargetOS)';
end; end;
function TProjectApplicationDescriptor.CreateStartFiles(AProject: TLazProject function TProjectApplicationDescriptor.CreateStartFiles(AProject: TLazProject
@ -5900,6 +5903,8 @@ begin
NewSource.Add(''); NewSource.Add('');
AProject.MainFile.SetSourceText(NewSource.Text); AProject.MainFile.SetSourceText(NewSource.Text);
NewSource.Free; NewSource.Free;
//AProject.LazCompilerOptions.UnitOutputDirectory:='lib/$(TargetCPU)-$(TargetOS)';
end; end;
function TProjectConsoleApplicationDescriptor.CreateStartFiles( function TProjectConsoleApplicationDescriptor.CreateStartFiles(