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

MG: added some IDE menuicons, fixed submenu indicator bug

Browse Source 
git-svn-id: trunk@1844 -
This commit is contained in:
lazarus 2002-08-16 17:47:38 +00:00
parent 802d2dfa9e
commit ef21f8a534
4 changed files with 977 additions and 582 deletions

584
ide/main.pp
View File

@ -246,7 +246,6 @@ type
TheCompiler: TCompiler;
TheOutputFilter: TOutputFilter;
function CreateSeperator : TMenuItem;
procedure SetDefaultsForForm(aForm : TCustomForm);
procedure InvalidateAllDesignerForms;
@ -261,17 +260,17 @@ type
OnClickEvent: TNotifyEvent);
procedure SetRecentFilesMenu;
procedure SetRecentProjectFilesMenu;
procedure SetupFileMenu;
procedure SetupEditMenu;
procedure SetupSearchMenu;
procedure SetupViewMenu;
procedure SetupProjectMenu;
procedure SetupRunMenu;
procedure SetupToolsMenu;
procedure SetupEnvironmentMenu;
procedure SetupHelpMenu;
procedure SetupFileMenu; override;
procedure SetupEditMenu; override;
procedure SetupSearchMenu; override;
procedure SetupViewMenu; override;
procedure SetupProjectMenu; override;
procedure SetupRunMenu; override;
procedure SetupToolsMenu; override;
procedure SetupEnvironmentMenu; override;
procedure SetupHelpMenu; override;
procedure LoadMenuShortCuts; override;
procedure ConnectMainBarEvents;
procedure LoadMenuShortCuts;
procedure SetupSpeedButtons;
procedure SetupComponentNoteBook;
procedure SetupComponentTabs;
@ -1217,533 +1216,116 @@ end;
procedure TMainIDE.SetupFileMenu;
begin
itmFileNewUnit := TMenuItem.Create(Self);
itmFileNewUnit.Name:='itmFileNewUnit';
itmFileNewUnit.Caption := lisMenuNewUnit;
itmFileNewUnit.OnClick := @mnuNewUnitClicked; // ToDo: new dialog
mnuFile.Add(itmFileNewUnit);
itmFileNewForm := TMenuItem.Create(Self);
itmFileNewForm.Name:='itmFileNewForm';
itmFileNewForm.Caption := lisMenuNewForm;
inherited;
itmFileNewUnit.OnClick := @mnuNewUnitClicked;
itmFileNewForm.OnClick := @mnuNewFormClicked;
mnuFile.Add(itmFileNewForm);
mnuFile.Add(CreateSeperator);
itmFileOpen := TMenuItem.Create(Self);
itmFileOpen.Name:='itmFileOpen';
itmFileOpen.Caption := lisMenuOpen;
itmFileOpen.OnClick := @mnuOpenClicked;
mnuFile.Add(itmFileOpen);
itmFileRevert := TMenuItem.Create(Self);
itmFileRevert.Name:='itmFileRevert';
itmFileRevert.Caption := lisMenuRevert;
itmFileRevert.OnClick := @mnuRevertClicked;
mnuFile.Add(itmFileRevert);
itmFileRecentOpen := TMenuItem.Create(Self);
itmFileRecentOpen.Name:='itmFileRecentOpen';
itmFileRecentOpen.Caption := lisMenuOpenRecent;
mnuFile.Add(itmFileRecentOpen);
SetRecentFilesMenu;
itmFileSave := TMenuItem.Create(Self);
itmFileSave.Name:='itmFileSave';
itmFileSave.Caption := lisMenuSave;
itmFileSave.OnClick := @mnuSaveClicked;
mnuFile.Add(itmFileSave);
itmFileSaveAs := TMenuItem.Create(Self);
itmFileSaveAs.Name:='itmFileSaveAs';
itmFileSaveAs.Caption := lisMenuSaveAs;
itmFileSaveAs.OnClick := @mnuSaveAsClicked;
mnuFile.Add(itmFileSaveAs);
itmFileSaveAll := TMenuItem.Create(Self);
itmFileSaveAll.Name:='itmFileSaveAll';
itmFileSaveAll.Caption := lisMenuSaveAll;
itmFileSaveAll.OnClick := @mnuSaveAllClicked;
mnuFile.Add(itmFileSaveAll);
itmFileClose := TMenuItem.Create(Self);
itmFileClose.Name:='itmFileClose';
itmFileClose.Caption := lisMenuClose;
itmFileClose.Enabled := False;
itmFileClose.OnClick := @mnuCloseClicked;
mnuFile.Add(itmFileClose);
itmFileCloseAll := TMenuItem.Create(Self);
itmFileCloseAll.Name:='itmFileCloseAll';
itmFileCloseAll.Caption := lisMenuCloseAll;
itmFileCloseAll.Enabled := False;
itmFileCloseAll.OnClick := @mnuCloseAllClicked;
mnuFile.Add(itmFileCloseAll);
mnuFile.Add(CreateSeperator);
itmFileQuit := TMenuItem.Create(Self);
itmFileQuit.Name:='itmFileQuit';
itmFileQuit.Caption := lisMenuQuit;
itmFileQuit.OnClick := @mnuQuitClicked;
mnuFile.Add(itmFileQuit);
end;
procedure TMainIDE.SetupEditMenu;
begin
itmEditUndo := TMenuItem.Create(Self);
itmEditUndo.Name:='itmEditUndo';
itmEditUndo.Caption := lisMenuUndo;
inherited;
itmEditUndo.OnClick:=@mnuEditUndoClicked;
mnuEdit.Add(itmEditUndo);
itmEditRedo := TMenuItem.Create(Self);
itmEditRedo.Name:='itmEditRedo';
itmEditRedo.Caption := lisMenuRedo;
itmEditRedo.OnClick:=@mnuEditRedoClicked;
mnuEdit.Add(itmEditRedo);
mnuEdit.Add(CreateSeperator);
itmEditCut := TMenuItem.Create(Self);
itmEditCut.Name:='itmEditCut';
itmEditCut.Caption := lisMenuCut;
itmEditCut.OnClick:=@mnuEditCutClicked;
mnuEdit.Add(itmEditCut);
itmEditCopy := TMenuItem.Create(Self);
itmEditCopy.Name:='itmEditCopy';
itmEditCopy.Caption := lisMenuCopy;
itmEditCopy.OnClick:=@mnuEditCopyClicked;
mnuEdit.Add(itmEditCopy);
itmEditPaste := TMenuItem.Create(Self);
itmEditPaste.Name:='itmEditPaste';
itmEditPaste.Caption := lisMenuPaste;
itmEditPaste.OnClick:=@mnuEditPasteClicked;
mnuEdit.Add(itmEditPaste);
mnuEdit.Add(CreateSeperator);
itmEditIndentBlock := TMenuItem.Create(Self);
itmEditIndentBlock.Name:='itmEditIndentBlock';
itmEditIndentBlock.Caption := lisMenuIndentSelection;
itmEditIndentBlock.OnClick:=@mnuEditIndentBlockClicked;
mnuEdit.Add(itmEditIndentBlock);
itmEditUnindentBlock := TMenuItem.Create(Self);
itmEditUnindentBlock.Name:='itmEditUnindentBlock';
itmEditUnindentBlock.Caption := lisMenuUnindentSelection;
itmEditUnindentBlock.OnClick:=@mnuEditUnindentBlockClicked;
mnuEdit.Add(itmEditUnindentBlock);
itmEditUpperCaseBlock := TMenuItem.Create(Self);
itmEditUpperCaseBlock.Name:='itmEditUpperCaseBlock';
itmEditUpperCaseBlock.Caption := lisMenuUpperCaseSelection;
itmEditUpperCaseBlock.OnClick:=@mnuEditUpperCaseBlockClicked;
mnuEdit.Add(itmEditUpperCaseBlock);
itmEditLowerCaseBlock := TMenuItem.Create(Self);
itmEditLowerCaseBlock.Name:='itmEditLowerCaseBlock';
itmEditLowerCaseBlock.Caption := lisMenuLowerCaseSelection;
itmEditLowerCaseBlock.OnClick:=@mnuEditLowerCaseBlockClicked;
mnuEdit.Add(itmEditLowerCaseBlock);
itmEditTabsToSpacesBlock := TMenuItem.Create(Self);
itmEditTabsToSpacesBlock.Name:='itmEditTabsToSpacesBlock';
itmEditTabsToSpacesBlock.Caption := lisMenuTabsToSpacesSelection;
itmEditTabsToSpacesBlock.OnClick:=@mnuEditTabsToSpacesBlockClicked;
mnuEdit.Add(itmEditTabsToSpacesBlock);
mnuEdit.Add(CreateSeperator);
itmEditCompleteCode := TMenuItem.Create(Self);
itmEditCompleteCode.Name:='itmEditCompleteCode';
itmEditCompleteCode.Caption := lisMenuCompleteCode;
itmEditCompleteCode.OnClick:=@mnuEditCompleteCodeClicked;
mnuEdit.Add(itmEditCompleteCode);
end;
procedure TMainIDE.SetupSearchMenu;
begin
itmSearchFind := TMenuItem.Create(Self);
itmSearchFind.Name:='itmSearchFind';
itmSearchFind.Caption := lisMenuFind;
mnuSearch.add(itmSearchFind);
itmSearchFindNext := TMenuItem.Create(Self);
itmSearchFindNext.Name:='itmSearchFindNext';
itmSearchFindNext.Caption := lisMenuFindNext;
mnuSearch.add(itmSearchFindNext);
itmSearchFindPrevious := TMenuItem.Create(Self);
itmSearchFindPrevious.Name:='itmSearchFindPrevious';
itmSearchFindPrevious.Caption := lisMenuFindPrevious;
mnuSearch.add(itmSearchFindPrevious);
itmSearchFindInFiles := TMenuItem.Create(Self);
itmSearchFindInFiles.Name:='itmSearchFindInFiles';
itmSearchFindInFiles.Caption := lisMenuFindInFiles;
mnuSearch.add(itmSearchFindInFiles);
itmSearchReplace := TMenuItem.Create(Self);
itmSearchReplace.Name:='itmSearchReplace';
itmSearchReplace.Caption := lisMenuReplace;
mnuSearch.add(itmSearchReplace);
mnuSearch.Add(CreateSeperator);
itmGotoLine := TMenuItem.Create(Self);
itmGotoLine.Name:='itmGotoLine';
itmGotoLine.Caption := lisMenuGotoLine;
mnuSearch.add(itmGotoLine);
mnuSearch.Add(CreateSeperator);
itmJumpBack := TMenuItem.Create(Self);
itmJumpBack.Name:='itmJumpBack';
itmJumpBack.Caption := lisMenuJumpBack;
mnuSearch.add(itmJumpBack);
itmJumpForward := TMenuItem.Create(Self);
itmJumpForward.Name:='itmJumpForward';
itmJumpForward.Caption := lisMenuJumpForward;
mnuSearch.add(itmJumpForward);
itmAddJumpPoint := TMenuItem.Create(Self);
itmAddJumpPoint.Name:='itmAddJumpPoint';
itmAddJumpPoint.Caption := lisMenuAddJumpPointToHistory;
mnuSearch.add(itmAddJumpPoint);
itmJumpHistory := TMenuItem.Create(Self);
itmJumpHistory.Name:='itmJumpHistory';
itmJumpHistory.Caption := lisMenuViewJumpHistory;
mnuSearch.add(itmJumpHistory);
mnuSearch.Add(CreateSeperator);
itmFindBlockOtherEnd := TMenuItem.Create(Self);
itmFindBlockOtherEnd.Name:='itmFindBlockOtherEnd';
itmFindBlockOtherEnd.Caption := lisMenuFindBlockOtherEndOfCodeBlock;
mnuSearch.add(itmFindBlockOtherEnd);
itmFindBlockStart := TMenuItem.Create(Self);
itmFindBlockStart.Name:='itmFindBlockStart';
itmFindBlockStart.Caption := lisMenuFindCodeBlockStart;
mnuSearch.add(itmFindBlockStart);
itmFindDeclaration := TMenuItem.Create(Self);
itmFindDeclaration.Name:='itmFindDeclaration';
itmFindDeclaration.Caption := lisMenuFindDeclarationAtCursor;
mnuSearch.add(itmFindDeclaration);
itmOpenFileAtCursor := TMenuItem.Create(Self);
itmOpenFileAtCursor.Name:='itmOpenFileAtCursor';
itmOpenFileAtCursor.Caption := lisMenuOpenFilenameAtCursor;
mnuSearch.add(itmOpenFileAtCursor);
itmGotoIncludeDirective := TMenuItem.Create(Self);
itmGotoIncludeDirective.Name:='itmGotoIncludeDirective';
itmGotoIncludeDirective.Caption := lisMenuGotoIncludeDirective;
inherited;
itmGotoIncludeDirective.OnClick:=@mnuGotoIncludeDirectiveClicked;
mnuSearch.add(itmGotoIncludeDirective);
end;
procedure TMainIDE.SetupViewMenu;
begin
itmViewInspector := TMenuItem.Create(Self);
itmViewInspector.Name:='itmViewInspector';
itmViewInspector.Caption := lisMenuViewObjectInspector;
inherited;
itmViewInspector.OnClick := @mnuViewInspectorClicked;
mnuView.Add(itmViewInspector);
itmViewProject := TMenuItem.Create(Self);
itmViewProject.Name:='itmViewProject';
itmViewProject.Caption := lisMenuViewProjectExplorer;
mnuView.Add(itmViewProject);
mnuView.Add(CreateSeperator);
itmViewCodeExplorer := TMenuItem.Create(Self);
itmViewCodeExplorer.Name:='itmViewCodeExplorer';
itmViewCodeExplorer.Caption := lisMenuViewCodeExplorer;
itmViewCodeExplorer.OnClick := @mnuViewCodeExplorerClick;
mnuView.Add(itmViewCodeExplorer);
mnuView.Add(CreateSeperator);
itmViewUnits := TMenuItem.Create(Self);
itmViewUnits.Name:='itmViewUnits';
itmViewUnits.Caption := lisMenuViewUnits;
itmViewUnits.OnClick := @mnuViewUnitsClicked;
mnuView.Add(itmViewUnits);
itmViewForms := TMenuItem.Create(Self);
itmViewForms.Name:='itmViewForms';
itmViewForms.Caption := lisMenuViewForms;
itmViewForms.OnClick := @mnuViewFormsClicked;
mnuView.Add(itmViewForms);
mnuView.Add(CreateSeperator);
itmViewToggleFormUnit := TMenuItem.Create(Self);
itmViewToggleFormUnit.Name:='itmViewToggleFormUnit';
itmViewToggleFormUnit.Caption := lisMenuViewToggleFormUnit;
itmViewToggleFormUnit.OnClick := @mnuToggleFormUnitClicked;
mnuView.Add(itmViewToggleFormUnit);
mnuView.Add(CreateSeperator);
itmViewMessage := TMenuItem.Create(Self);
itmViewMessage.Name:='itmViewMessage';
itmViewMessage.Caption := lisMenuViewMessages;
itmViewMessage.OnClick := @mnuViewMessagesClick;
mnuView.Add(itmViewMessage);
itmViewDebugWindows := TMenuItem.Create(Self);
itmViewDebugWindows.Name := 'itmViewDebugWindows';
itmViewDebugWindows.Caption := lisMenuDebugWindows;
mnuView.Add(itmViewDebugWindows);
itmViewWatches := TMenuItem.Create(Self);
itmViewWatches.Name:='itmViewWatches';
itmViewWatches.Caption := lisMenuViewWatches;
itmViewDebugWindows.Add(itmViewWatches);
itmViewBreakPoints := TMenuItem.Create(Self);
itmViewBreakPoints.Name:='itmViewBreakPoints';
itmViewBreakPoints.Caption := lisMenuViewBreakPoints;
itmViewDebugWindows.Add(itmViewBreakPoints);
itmViewLocals := TMenuItem.Create(Self);
itmViewLocals.Name:='itmViewLocals';
itmViewLocals.Caption := lisMenuViewLocalVariables;
itmViewDebugWindows.Add(itmViewLocals);
itmViewCallStack := TMenuItem.Create(Self);
itmViewCallStack.Name:='itmViewCallStack';
itmViewCallStack.Caption := lisMenuViewCallStack;
itmViewDebugWindows.Add(itmViewCallStack);
itmViewDebugOutput := TMenuItem.Create(Self);
itmViewDebugOutput.Name:='itmViewDebugOutput';
itmViewDebugOutput.Caption := lisMenuViewDebugOutput;
itmViewDebugWindows.Add(itmViewDebugOutput);
end;
procedure TMainIDE.SetupProjectMenu;
begin
itmProjectNew := TMenuItem.Create(Self);
itmProjectNew.Name:='itmProjectNew';
itmProjectNew.Caption := lisMenuNewProject;
inherited;
itmProjectNew.OnClick := @mnuNewProjectClicked;
mnuProject.Add(itmProjectNew);
itmProjectOpen := TMenuItem.Create(Self);
itmProjectOpen.Name:='itmProjectOpen';
itmProjectOpen.Caption := lisMenuOpenProject;
itmProjectOpen.OnClick := @mnuOpenProjectClicked;
mnuProject.Add(itmProjectOpen);
itmProjectRecentOpen := TMenuItem.Create(Self);
itmProjectRecentOpen.Name:='itmProjectRecentOpen';
itmProjectRecentOpen.Caption := lisMenuOpenRecentProject;
mnuProject.Add(itmProjectRecentOpen);
SetRecentProjectFilesMenu;
itmProjectSave := TMenuItem.Create(Self);
itmProjectSave.Name:='itmProjectSave';
itmProjectSave.Caption := lisMenuSaveProject;
itmProjectSave.OnClick := @mnuSaveProjectClicked;
mnuProject.Add(itmProjectSave);
itmProjectSaveAs := TMenuItem.Create(Self);
itmProjectSaveAs.Name:='itmProjectSaveAs';
itmProjectSaveAs.Caption := lisMenuSaveProjectAs;
itmProjectSaveAs.OnClick := @mnuSaveProjectAsClicked;
mnuProject.Add(itmProjectSaveAs);
mnuProject.Add(CreateSeperator);
itmProjectAddTo := TMenuItem.Create(Self);
itmProjectAddTo.Name:='itmProjectAddTo';
itmProjectAddTo.Caption := lisMenuAddUnitToProject;
itmProjectAddTo.OnClick := @mnuAddToProjectClicked;
mnuProject.Add(itmProjectAddTo);
itmProjectRemoveFrom := TMenuItem.Create(Self);
itmProjectRemoveFrom.Name:='itmProjectRemoveFrom';
itmProjectRemoveFrom.Caption := lisMenuRemoveUnitFromProject;
itmProjectRemoveFrom.OnClick := @mnuRemoveFromProjectClicked;
mnuProject.Add(itmProjectRemoveFrom);
mnuProject.Add(CreateSeperator);
itmProjectViewSource := TMenuItem.Create(Self);
itmProjectViewSource.Name:='itmProjectViewSource';
itmProjectViewSource.Caption := lisMenuViewSource;
itmProjectViewSource.OnClick := @mnuViewProjectSourceClicked;
mnuProject.Add(itmProjectViewSource);
mnuProject.Add(CreateSeperator);
itmProjectOptions := TMenuItem.Create(Self);
itmProjectOptions.Name:='itmProjectOptions';
itmProjectOptions.Caption := lisMenuProjectOptions;
itmProjectOptions.OnClick := @mnuProjectOptionsClicked;
mnuProject.Add(itmProjectOptions);
end;
procedure TMainIDE.SetupRunMenu;
begin
itmProjectBuild := TMenuItem.Create(Self);
itmProjectBuild.Name:='itmProjectBuild';
itmProjectBuild.Caption := lisMenuBuild;
inherited;
itmProjectBuild.OnClick := @mnuBuildProjectClicked;
mnuRun.Add(itmProjectBuild);
itmProjectBuildAll := TMenuItem.Create(Self);
itmProjectBuildAll.Name:='itmProjectBuildAll';
itmProjectBuildAll.Caption := lisMenuBuildAll;
itmProjectBuildAll.OnClick := @mnuBuildAllProjectClicked;
mnuRun.Add(itmProjectBuildAll);
mnuRun.Add(CreateSeperator);
itmProjectRun := TMenuItem.Create(Self);
itmProjectRun.Name:='itmProjectRun';
itmProjectRun.Caption := lisMenuProjectRun;
itmProjectRun.OnClick := @mnuRunProjectClicked;
mnuRun.Add(itmProjectRun);
itmProjectPause := TMenuItem.Create(Self);
itmProjectPause.Name:='itmProjectPause';
itmProjectPause.Caption := lisMenuPause;
itmProjectPause.OnClick := @mnuPauseProjectClicked;
itmProjectPause.Enabled := false;
mnuRun.Add(itmProjectPause);
itmProjectStepInto := TMenuItem.Create(Self);
itmProjectStepInto.Name:='itmProjectStepInto';
itmProjectStepInto.Caption := lisMenuStepInto;
itmProjectPause.OnClick := @mnuPauseProjectClicked;
itmProjectStepInto.OnClick := @mnuStepIntoProjectClicked;
mnuRun.Add(itmProjectStepInto);
itmProjectStepOver := TMenuItem.Create(Self);
itmProjectStepOver.Name:='itmProjectStepOver';
itmProjectStepOver.Caption := lisMenuStepOver;
itmProjectStepOver.OnClick := @mnuStepOverProjectClicked;
mnuRun.Add(itmProjectStepOver);
itmProjectRunToCursor := TMenuItem.Create(Self);
itmProjectRunToCursor.Name:='itmProjectRunToCursor';
itmProjectRunToCursor.Caption := lisMenuRunToCursor;
itmProjectRunToCursor.OnClick := @mnuRunToCursorProjectClicked;
mnuRun.Add(itmProjectRunToCursor);
itmProjectStop := TMenuItem.Create(Self);
itmProjectStop.Name:='itmProjectStop';
itmProjectStop.Caption := lisMenuStop;
itmProjectStop.OnClick := @mnuStopProjectClicked;
mnuRun.Add(itmProjectStop);
mnuRun.Add(CreateSeperator);
itmProjectCompilerSettings := TMenuItem.Create(Self);
itmProjectCompilerSettings.Name:='itmProjectCompilerSettings';
itmProjectCompilerSettings.Caption := lisMenuCompilerOptions;
itmProjectCompilerSettings.OnClick := @mnuProjectCompilerSettingsClicked;
mnuRun.Add(itmProjectCompilerSettings);
itmProjectRunParameters := TMenuItem.Create(Self);
itmProjectRunParameters.Name:='itmProjectRunParameters';
itmProjectRunParameters.Caption := lisMenuRunParameters;
itmProjectRunParameters.OnClick := @mnuRunParametersClicked;
mnuRun.Add(itmProjectRunParameters);
end;
procedure TMainIDE.SetupToolsMenu;
begin
itmToolConfigure := TMenuItem.Create(Self);
itmToolConfigure.Name:='itmToolConfigure';
itmToolConfigure.Caption := lisMenuSettings;
inherited;
itmToolConfigure.OnClick := @mnuToolConfigureClicked;
mnuTools.Add(itmToolConfigure);
itmToolSyntaxCheck := TMenuItem.Create(Self);
itmToolSyntaxCheck.Name:='itmToolSyntaxCheck';
itmToolSyntaxCheck.Caption := lisMenuQuickSyntaxCheck;
itmToolSyntaxCheck.OnClick := @mnuToolSyntaxCheckClicked;
mnuTools.Add(itmToolSyntaxCheck);
itmToolGuessUnclosedBlock := TMenuItem.Create(Self);
itmToolGuessUnclosedBlock.Name:='itmToolGuessUnclosedBlock';
itmToolGuessUnclosedBlock.Caption := lisMenuGuessUnclosedBlock;
itmToolGuessUnclosedBlock.OnClick := @mnuToolGuessUnclosedBlockClicked;
mnuTools.Add(itmToolGuessUnclosedBlock);
itmToolGuessMisplacedIFDEF := TMenuItem.Create(Self);
itmToolGuessMisplacedIFDEF.Name:='itmToolGuessMisplacedIFDEF';
itmToolGuessMisplacedIFDEF.Caption := lisMenuGuessMisplacedIFDEF;
itmToolGuessMisplacedIFDEF.OnClick := @mnuToolGuessMisplacedIFDEFClicked;
mnuTools.Add(itmToolGuessMisplacedIFDEF);
itmToolConvertDFMtoLFM := TMenuItem.Create(Self);
itmToolConvertDFMtoLFM.Name:='itmToolConvertDFMtoLFM';
itmToolConvertDFMtoLFM.Caption := lisMenuConvertDFMtoLFM;
itmToolConvertDFMtoLFM.OnClick := @mnuToolConvertDFMtoLFMClicked;
mnuTools.Add(itmToolConvertDFMtoLFM);
itmToolBuildLazarus := TMenuItem.Create(Self);
itmToolBuildLazarus.Name:='itmToolBuildLazarus';
itmToolBuildLazarus.Caption := lisMenuBuildLazarus;
itmToolBuildLazarus.OnClick := @mnuToolBuildLazarusClicked;
mnuTools.Add(itmToolBuildLazarus);
itmToolConfigureBuildLazarus := TMenuItem.Create(Self);
itmToolConfigureBuildLazarus.Name:='itmToolConfigureBuildLazarus';
itmToolConfigureBuildLazarus.Caption := lisMenuConfigureBuildLazarus;
itmToolConfigureBuildLazarus.OnClick := @mnuToolConfigBuildLazClicked;
mnuTools.Add(itmToolConfigureBuildLazarus);
end;
procedure TMainIDE.SetupEnvironmentMenu;
begin
itmEnvGeneralOptions := TMenuItem.Create(Self);
itmEnvGeneralOptions.Name:='itmEnvGeneralOptions';
itmEnvGeneralOptions.Caption := lisMenuGeneralOptions;
itmEnvGeneralOptions.OnCLick := @mnuEnvGeneralOptionsClicked;
mnuEnvironment.Add(itmEnvGeneralOptions);
itmEnvEditorOptions := TMenuItem.Create(Self);
itmEnvEditorOptions.Name:='itmEnvEditorOptions';
itmEnvEditorOptions.Caption := lisMenuEditorOptions;
itmEnvEditorOptions.OnCLick := @mnuEnvEditorOptionsClicked;
mnuEnvironment.Add(itmEnvEditorOptions);
itmEnvCodeToolsOptions := TMenuItem.Create(Self);
itmEnvCodeToolsOptions.Name:='itmEnvCodeToolsOptions';
itmEnvCodeToolsOptions.Caption := lisMenuCodeToolsOptions;
itmEnvCodeToolsOptions.OnCLick := @mnuEnvCodeToolsOptionsClicked;
mnuEnvironment.Add(itmEnvCodeToolsOptions);
itmEnvCodeToolsDefinesEditor := TMenuItem.Create(Self);
itmEnvCodeToolsDefinesEditor.Name:='itmEnvCodeToolsDefinesEditor';
itmEnvCodeToolsDefinesEditor.Caption := lisMenuCodeToolsDefinesEditor;
itmEnvCodeToolsDefinesEditor.OnCLick := @mnuEnvCodeToolsDefinesEditorClicked;
mnuEnvironment.Add(itmEnvCodeToolsDefinesEditor);
inherited;
itmEnvGeneralOptions.OnClick := @mnuEnvGeneralOptionsClicked;
itmEnvEditorOptions.OnClick := @mnuEnvEditorOptionsClicked;
itmEnvCodeToolsOptions.OnClick := @mnuEnvCodeToolsOptionsClicked;
itmEnvCodeToolsDefinesEditor.OnClick := @mnuEnvCodeToolsDefinesEditorClicked;
end;
procedure TMainIDE.SetupHelpMenu;
begin
itmHelpAboutLazarus := TMenuItem.Create(Self);
itmHelpAboutLazarus.Name:='itmHelpAboutLazarus';
itmHelpAboutLazarus.Caption := lisMenuAboutLazarus;
itmHelpAboutLazarus.OnCLick := @mnuHelpAboutLazarusClicked;
mnuHelp.Add(itmHelpAboutLazarus);
inherited;
itmHelpAboutLazarus.OnClick := @mnuHelpAboutLazarusClicked;
end;
procedure TMainIDE.LoadMenuShortCuts;
begin
inherited LoadMenuShortCuts;
DebugBoss.SetupMainBarShortCuts;
end;
procedure TMainIDE.ConnectMainBarEvents;
@ -1759,15 +1341,6 @@ end;
{------------------------------------------------------------------------------}
function TMainIDE.CreateSeperator : TMenuItem;
begin
itmSeperator := TMenuItem.Create(Self);
itmSeperator.Caption := '-';
Result := itmSeperator;
end;
{------------------------------------------------------------------------------}
Procedure TMainIDE.mnuToggleFormUnitClicked(Sender : TObject);
Begin
FCodeLastActivated:=not FCodeLastActivated;
@ -6884,96 +6457,6 @@ begin
end;
end;
procedure TMainIDE.LoadMenuShortCuts;
begin
with EditorOpts.KeyMap do begin
itmFileNewUnit.ShortCut:=CommandToShortCut(ecNewUnit);
itmFileNewForm.ShortCut:=CommandToShortCut(ecNewForm);
itmFileOpen.ShortCut:=CommandToShortCut(ecOpen);
itmFileRevert.ShortCut:=CommandToShortCut(ecRevert);
//itmFileRecentOpen.ShortCut:=CommandToShortCut(ec);
itmFileSave.ShortCut:=CommandToShortCut(ecSave);
itmFileSaveAs.ShortCut:=CommandToShortCut(ecSaveAs);
itmFileSaveAll.ShortCut:=CommandToShortCut(ecSaveAll);
itmFileClose.ShortCut:=CommandToShortCut(ecClose);
itmFileCloseAll.ShortCut:=CommandToShortCut(ecCloseAll);
itmFileQuit.ShortCut:=CommandToShortCut(ecQuit);
itmEditUndo.ShortCut:=CommandToShortCut(ecUndo);
itmEditRedo.ShortCut:=CommandToShortCut(ecRedo);
itmEditCut.ShortCut:=CommandToShortCut(ecCut);
itmEditCopy.ShortCut:=CommandToShortCut(ecCopy);
itmEditPaste.ShortCut:=CommandToShortCut(ecPaste);
itmEditIndentBlock.ShortCut:=CommandToShortCut(ecBlockIndent);
itmEditUnindentBlock.ShortCut:=CommandToShortCut(ecBlockUnindent);
itmEditUpperCaseBlock.ShortCut:=CommandToShortCut(ecSelectionUpperCase);
itmEditLowerCaseBlock.ShortCut:=CommandToShortCut(ecSelectionLowerCase);
itmEditTabsToSpacesBlock.ShortCut:=CommandToShortCut(ecSelectionTabs2Spaces);
itmEditCompleteCode.ShortCut:=CommandToShortCut(ecCompleteCode);
itmSearchFind.ShortCut:=CommandToShortCut(ecFind);
itmSearchFindNext.ShortCut:=CommandToShortCut(ecFindNext);
itmSearchFindPrevious.ShortCut:=CommandToShortCut(ecFindPrevious);
itmSearchFindInFiles.ShortCut:=CommandToShortCut(ecFindInFiles);
itmSearchReplace.ShortCut:=CommandToShortCut(ecReplace);
itmGotoLine.ShortCut:=CommandToShortCut(ecGotoLineNumber);
itmJumpBack.ShortCut:=CommandToShortCut(ecJumpBack);
itmJumpForward.ShortCut:=CommandToShortCut(ecJumpForward);
itmAddJumpPoint.ShortCut:=CommandToShortCut(ecAddJumpPoint);
itmJumpHistory.ShortCut:=CommandToShortCut(ecViewJumpHistory);
itmFindBlockOtherEnd.ShortCut:=CommandToShortCut(ecFindBlockOtherEnd);
itmFindBlockStart.ShortCut:=CommandToShortCut(ecFindBlockStart);
itmFindDeclaration.ShortCut:=CommandToShortCut(ecFindDeclaration);
itmOpenFileAtCursor.ShortCut:=CommandToShortCut(ecOpenFileAtCursor);
itmGotoIncludeDirective.ShortCut:=CommandToShortCut(ecGotoIncludeDirective);
itmViewInspector.ShortCut:=CommandToShortCut(ecToggleObjectInsp);
itmViewProject.ShortCut:=CommandToShortCut(ecToggleProjectExpl);
itmViewUnits.ShortCut:=CommandToShortCut(ecViewUnits);
itmViewCodeExplorer.ShortCut:=CommandToShortCut(ecToggleCodeExpl);
itmViewForms.ShortCut:=CommandToShortCut(ecViewForms);
itmViewToggleFormUnit.ShortCut:=CommandToShortCut(ecToggleFormUnit);
itmViewMessage.ShortCut:=CommandToShortCut(ecToggleMessages);
itmProjectNew.ShortCut:=CommandToShortCut(ecNewProject);
itmProjectOpen.ShortCut:=CommandToShortCut(ecOpenProject);
//itmProjectRecentOpen.ShortCut:=CommandToShortCut(ec);
itmProjectSave.ShortCut:=CommandToShortCut(ecSaveProject);
itmProjectSaveAs.ShortCut:=CommandToShortCut(ecSaveProjectAs);
itmProjectAddTo.ShortCut:=CommandToShortCut(ecAddCurUnitToProj);
itmProjectRemoveFrom.ShortCut:=CommandToShortCut(ecRemoveFromProj);
itmProjectViewSource.ShortCut:=CommandToShortCut(ecViewProjectSource);
itmProjectOptions.ShortCut:=CommandToShortCut(ecProjectOptions);
itmProjectBuild.ShortCut:=CommandToShortCut(ecBuild);
itmProjectBuildAll.ShortCut:=CommandToShortCut(ecBuildAll);
itmProjectRun.ShortCut:=CommandToShortCut(ecRun);
itmProjectPause.ShortCut:=CommandToShortCut(ecPause);
itmProjectStepInto.ShortCut:=CommandToShortCut(ecStepInto);
itmProjectStepOver.ShortCut:=CommandToShortCut(ecStepOver);
itmProjectRunToCursor.ShortCut:=CommandToShortCut(ecRunToCursor);
itmProjectStop.ShortCut:=CommandToShortCut(ecStopProgram);
itmProjectCompilerSettings.ShortCut:=CommandToShortCut(ecCompilerOptions);
itmProjectRunParameters.ShortCut:=CommandToShortCut(ecRunParameters);
itmToolConfigure.ShortCut:=CommandToShortCut(ecExtToolSettings);
itmToolSyntaxCheck.ShortCut:=CommandToShortCut(ecSyntaxCheck);
itmToolGuessUnclosedBlock.ShortCut:=CommandToShortCut(ecGuessUnclosedBlock);
itmToolGuessMisplacedIFDEF.ShortCut:=CommandToShortCut(ecGuessMisplacedIFDEF);
itmToolConvertDFMtoLFM.ShortCut:=CommandToShortCut(ecConvertDFM2LFM);
itmToolBuildLazarus.ShortCut:=CommandToShortCut(ecBuildLazarus);
itmToolConfigureBuildLazarus.ShortCut:=CommandToShortCut(ecConfigBuildLazarus);
itmEnvGeneralOptions.ShortCut:=CommandToShortCut(ecEnvironmentOptions);
itmEnvEditorOptions.ShortCut:=CommandToShortCut(ecEditorOptions);
itmEnvCodeToolsOptions.ShortCut:=CommandToShortCut(ecCodeToolsOptions);
itmEnvCodeToolsDefinesEditor.ShortCut:=CommandToShortCut(ecCodeToolsDefinesEd);
itmHelpAboutLazarus.ShortCut:=CommandToShortCut(ecAboutLazarus);
end;
DebugBoss.SetupMainBarShortCuts;
end;
procedure TMainIDE.mnuSearchFindBlockOtherEnd(Sender: TObject);
begin
DoGoToPascalBlockOtherEnd;
@ -7004,6 +6487,9 @@ end.
{ =============================================================================
$Log$
Revision 1.340 2002/08/16 17:47:37 lazarus
MG: added some IDE menuicons, fixed submenu indicator bug
Revision 1.339 2002/08/09 19:48:12 lazarus
MG: Open File at cursor now checks for include directive

626
ide/mainbar.pas
View File

@ -40,17 +40,12 @@ uses
{$IFDEF IDE_MEM_CHECK}
MemCheck,
{$ENDIF}
Classes, LCLType, LclLinux, Compiler, StdCtrls, Forms, Buttons, Menus,
ComCtrls, Spin, Project, SysUtils, FileCtrl, Controls, Graphics, ExtCtrls,
Dialogs, LazConf, CompReg, CodeToolManager, CodeCache, DefineTemplates,
MsgView, NewProjectDlg, IDEComp, AbstractFormEditor, FormEditor,
CustomFormEditor, ObjectInspector, PropEdits, ControlSelection, UnitEditor,
CompilerOptions, EditorOptions, EnvironmentOpts, TransferMacros,
SynEditKeyCmds, KeyMapping, ProjectOpts, IDEProcs, Process, UnitInfoDlg,
Debugger, DBGOutputForm, GDBMIDebugger, RunParamsOpts, ExtToolDialog,
MacroPromptDlg, LMessages, ProjectDefs, Watchesdlg, BreakPointsdlg, ColumnDlg,
OutputFilter, BuildLazDialog, MiscOptions, EditDefineTree, CodeToolsOptions,
TypInfo, IDEOptionDefs, CodeToolsDefines, LocalsDlg, DebuggerDlg;
Classes, LazarusIDEStrConsts, LCLType, LclLinux, Compiler, StdCtrls, Forms,
Buttons, Menus, ComCtrls, Spin, Project, SysUtils, FileCtrl, Controls,
Graphics, ExtCtrls, Dialogs, LazConf, CompReg, CodeToolManager,
ObjectInspector, PropEdits, SynEditKeyCmds,
MsgView, EditorOptions, IDEComp, FormEditor,
KeyMapping, IDEProcs, UnitEditor, Debugger, IDEOptionDefs, CodeToolsDefines;
const
Version_String = '0.8.3 alpha';
@ -66,18 +61,26 @@ type
}
TIDEToolStatus = (itNone, itBuilder, itDebugger, itCustom);
TSaveFlag = (sfSaveAs, sfSaveToTestDir, sfProjectSaving);
TSaveFlags = set of TSaveFlag;
TOpenFlag = (ofProjectLoading, ofOnlyIfExists, ofRevert, ofQuiet,
ofAddToRecent);
TOpenFlags = set of TOpenFlag;
TRevertFlag = (rfQuiet);
TRevertFlags = set of TRevertFlag;
TCloseFlag = (cfSaveFirst, cfProjectClosing);
TCloseFlags = set of TCloseFlag;
TLoadBufferFlag = (lbfUpdateFromDisk, lbfRevert, lbfCheckIfText);
TLoadBufferFlags = set of TLoadBufferFlag;
{ TMainIDEBar }
TMainIDEBar = class(TForm)
// the speedbuttons panel for frequently used IDE functions
@ -110,8 +113,6 @@ type
mnuEnvironment: TMenuItem;
mnuHelp: TMenuItem;
itmSeperator: TMenuItem;
itmFileNewUnit : TMenuItem;
itmFileNewForm : TMenuItem;
itmFileOpen: TMenuItem;
@ -209,6 +210,19 @@ type
// hints. Note/ToDo: hints should be controlled by the lcl, this is a workaround
HintTimer1 : TTimer;
HintWindow1 : THintWindow;
protected
function CreateMenuSeparator : TMenuItem;
procedure SetupFileMenu; virtual;
procedure SetupEditMenu; virtual;
procedure SetupSearchMenu; virtual;
procedure SetupViewMenu; virtual;
procedure SetupProjectMenu; virtual;
procedure SetupRunMenu; virtual;
procedure SetupToolsMenu; virtual;
procedure SetupEnvironmentMenu; virtual;
procedure SetupHelpMenu; virtual;
procedure LoadMenuShortCuts; virtual;
public
ToolStatus: TIDEToolStatus;
function FindUnitFile(const AFilename: string): string; virtual; abstract;
@ -237,6 +251,592 @@ var
implementation
function LoadPixmap(const ResourceName:string): TPixmap;
begin
Result:=TPixmap.Create;
Result.LoadFromLazarusResource(ResourceName);
end;
{ TMainIDEBar }
function TMainIDEBar.CreateMenuSeparator : TMenuItem;
begin
Result := TMenuItem.Create(Self);
Result.Caption := '-';
end;
procedure TMainIDEBar.SetupFileMenu;
begin
itmFileNewUnit := TMenuItem.Create(Self);
itmFileNewUnit.Name:='itmFileNewUnit';
itmFileNewUnit.Caption := lisMenuNewUnit;
itmFileNewUnit.Graphic:=LoadPixmap('menu_new');
mnuFile.Add(itmFileNewUnit);
itmFileNewForm := TMenuItem.Create(Self);
itmFileNewForm.Name:='itmFileNewForm';
itmFileNewForm.Caption := lisMenuNewForm;
itmFileNewForm.Graphic:=LoadPixmap('menu_new');
mnuFile.Add(itmFileNewForm);
mnuFile.Add(CreateMenuSeparator);
itmFileOpen := TMenuItem.Create(Self);
itmFileOpen.Name:='itmFileOpen';
itmFileOpen.Caption := lisMenuOpen;
itmFileOpen.Graphic:=LoadPixmap('menu_open');
mnuFile.Add(itmFileOpen);
itmFileRevert := TMenuItem.Create(Self);
itmFileRevert.Name:='itmFileRevert';
itmFileRevert.Caption := lisMenuRevert;
itmFileRevert.Graphic:=LoadPixmap('menu_undo');
mnuFile.Add(itmFileRevert);
itmFileRecentOpen := TMenuItem.Create(Self);
itmFileRecentOpen.Name:='itmFileRecentOpen';
itmFileRecentOpen.Caption := lisMenuOpenRecent;
mnuFile.Add(itmFileRecentOpen);
itmFileSave := TMenuItem.Create(Self);
itmFileSave.Name:='itmFileSave';
itmFileSave.Caption := lisMenuSave;
itmFileSave.Graphic:=LoadPixmap('menu_save');
mnuFile.Add(itmFileSave);
itmFileSaveAs := TMenuItem.Create(Self);
itmFileSaveAs.Name:='itmFileSaveAs';
itmFileSaveAs.Caption := lisMenuSaveAs;
itmFileSaveAs.Graphic:=LoadPixmap('menu_save');
mnuFile.Add(itmFileSaveAs);
itmFileSaveAll := TMenuItem.Create(Self);
itmFileSaveAll.Name:='itmFileSaveAll';
itmFileSaveAll.Caption := lisMenuSaveAll;
itmFileSaveAll.Graphic:=LoadPixmap('menu_save');
mnuFile.Add(itmFileSaveAll);
itmFileClose := TMenuItem.Create(Self);
itmFileClose.Name:='itmFileClose';
itmFileClose.Caption := lisMenuClose;
itmFileClose.Enabled := False;
mnuFile.Add(itmFileClose);
itmFileCloseAll := TMenuItem.Create(Self);
itmFileCloseAll.Name:='itmFileCloseAll';
itmFileCloseAll.Caption := lisMenuCloseAll;
itmFileCloseAll.Enabled := False;
mnuFile.Add(itmFileCloseAll);
mnuFile.Add(CreateMenuSeparator);
itmFileQuit := TMenuItem.Create(Self);
itmFileQuit.Name:='itmFileQuit';
itmFileQuit.Caption := lisMenuQuit;
mnuFile.Add(itmFileQuit);
end;
procedure TMainIDEBar.SetupEditMenu;
begin
itmEditUndo := TMenuItem.Create(Self);
itmEditUndo.Name:='itmEditUndo';
itmEditUndo.Caption := lisMenuUndo;
itmEditUndo.Graphic:=LoadPixmap('menu_undo');
mnuEdit.Add(itmEditUndo);
itmEditRedo := TMenuItem.Create(Self);
itmEditRedo.Name:='itmEditRedo';
itmEditRedo.Caption := lisMenuRedo;
itmEditRedo.Graphic:=LoadPixmap('menu_redo');
mnuEdit.Add(itmEditRedo);
mnuEdit.Add(CreateMenuSeparator);
itmEditCut := TMenuItem.Create(Self);
itmEditCut.Name:='itmEditCut';
itmEditCut.Caption := lisMenuCut;
itmEditCut.Graphic:=LoadPixmap('menu_cut');
mnuEdit.Add(itmEditCut);
itmEditCopy := TMenuItem.Create(Self);
itmEditCopy.Name:='itmEditCopy';
itmEditCopy.Caption := lisMenuCopy;
itmEditCopy.Graphic:=LoadPixmap('menu_copy');
mnuEdit.Add(itmEditCopy);
itmEditPaste := TMenuItem.Create(Self);
itmEditPaste.Name:='itmEditPaste';
itmEditPaste.Caption := lisMenuPaste;
itmEditPaste.Graphic:=LoadPixmap('menu_paste');
mnuEdit.Add(itmEditPaste);
mnuEdit.Add(CreateMenuSeparator);
itmEditIndentBlock := TMenuItem.Create(Self);
itmEditIndentBlock.Name:='itmEditIndentBlock';
itmEditIndentBlock.Caption := lisMenuIndentSelection;
itmEditIndentBlock.Graphic:=LoadPixmap('menu_indent');
mnuEdit.Add(itmEditIndentBlock);
itmEditUnindentBlock := TMenuItem.Create(Self);
itmEditUnindentBlock.Name:='itmEditUnindentBlock';
itmEditUnindentBlock.Caption := lisMenuUnindentSelection;
itmEditUnindentBlock.Graphic:=LoadPixmap('menu_unindent');
mnuEdit.Add(itmEditUnindentBlock);
itmEditUpperCaseBlock := TMenuItem.Create(Self);
itmEditUpperCaseBlock.Name:='itmEditUpperCaseBlock';
itmEditUpperCaseBlock.Caption := lisMenuUpperCaseSelection;
mnuEdit.Add(itmEditUpperCaseBlock);
itmEditLowerCaseBlock := TMenuItem.Create(Self);
itmEditLowerCaseBlock.Name:='itmEditLowerCaseBlock';
itmEditLowerCaseBlock.Caption := lisMenuLowerCaseSelection;
mnuEdit.Add(itmEditLowerCaseBlock);
itmEditTabsToSpacesBlock := TMenuItem.Create(Self);
itmEditTabsToSpacesBlock.Name:='itmEditTabsToSpacesBlock';
itmEditTabsToSpacesBlock.Caption := lisMenuTabsToSpacesSelection;
mnuEdit.Add(itmEditTabsToSpacesBlock);
mnuEdit.Add(CreateMenuSeparator);
itmEditCompleteCode := TMenuItem.Create(Self);
itmEditCompleteCode.Name:='itmEditCompleteCode';
itmEditCompleteCode.Caption := lisMenuCompleteCode;
mnuEdit.Add(itmEditCompleteCode);
end;
procedure TMainIDEBar.SetupSearchMenu;
begin
itmSearchFind := TMenuItem.Create(Self);
itmSearchFind.Name:='itmSearchFind';
itmSearchFind.Caption := lisMenuFind;
mnuSearch.add(itmSearchFind);
itmSearchFindNext := TMenuItem.Create(Self);
itmSearchFindNext.Name:='itmSearchFindNext';
itmSearchFindNext.Caption := lisMenuFindNext;
mnuSearch.add(itmSearchFindNext);
itmSearchFindPrevious := TMenuItem.Create(Self);
itmSearchFindPrevious.Name:='itmSearchFindPrevious';
itmSearchFindPrevious.Caption := lisMenuFindPrevious;
mnuSearch.add(itmSearchFindPrevious);
itmSearchFindInFiles := TMenuItem.Create(Self);
itmSearchFindInFiles.Name:='itmSearchFindInFiles';
itmSearchFindInFiles.Caption := lisMenuFindInFiles;
mnuSearch.add(itmSearchFindInFiles);
itmSearchReplace := TMenuItem.Create(Self);
itmSearchReplace.Name:='itmSearchReplace';
itmSearchReplace.Caption := lisMenuReplace;
mnuSearch.add(itmSearchReplace);
mnuSearch.Add(CreateMenuSeparator);
itmGotoLine := TMenuItem.Create(Self);
itmGotoLine.Name:='itmGotoLine';
itmGotoLine.Caption := lisMenuGotoLine;
mnuSearch.add(itmGotoLine);
mnuSearch.Add(CreateMenuSeparator);
itmJumpBack := TMenuItem.Create(Self);
itmJumpBack.Name:='itmJumpBack';
itmJumpBack.Caption := lisMenuJumpBack;
mnuSearch.add(itmJumpBack);
itmJumpForward := TMenuItem.Create(Self);
itmJumpForward.Name:='itmJumpForward';
itmJumpForward.Caption := lisMenuJumpForward;
mnuSearch.add(itmJumpForward);
itmAddJumpPoint := TMenuItem.Create(Self);
itmAddJumpPoint.Name:='itmAddJumpPoint';
itmAddJumpPoint.Caption := lisMenuAddJumpPointToHistory;
mnuSearch.add(itmAddJumpPoint);
itmJumpHistory := TMenuItem.Create(Self);
itmJumpHistory.Name:='itmJumpHistory';
itmJumpHistory.Caption := lisMenuViewJumpHistory;
mnuSearch.add(itmJumpHistory);
mnuSearch.Add(CreateMenuSeparator);
itmFindBlockOtherEnd := TMenuItem.Create(Self);
itmFindBlockOtherEnd.Name:='itmFindBlockOtherEnd';
itmFindBlockOtherEnd.Caption := lisMenuFindBlockOtherEndOfCodeBlock;
mnuSearch.add(itmFindBlockOtherEnd);
itmFindBlockStart := TMenuItem.Create(Self);
itmFindBlockStart.Name:='itmFindBlockStart';
itmFindBlockStart.Caption := lisMenuFindCodeBlockStart;
mnuSearch.add(itmFindBlockStart);
itmFindDeclaration := TMenuItem.Create(Self);
itmFindDeclaration.Name:='itmFindDeclaration';
itmFindDeclaration.Caption := lisMenuFindDeclarationAtCursor;
mnuSearch.add(itmFindDeclaration);
itmOpenFileAtCursor := TMenuItem.Create(Self);
itmOpenFileAtCursor.Name:='itmOpenFileAtCursor';
itmOpenFileAtCursor.Caption := lisMenuOpenFilenameAtCursor;
mnuSearch.add(itmOpenFileAtCursor);
itmGotoIncludeDirective := TMenuItem.Create(Self);
itmGotoIncludeDirective.Name:='itmGotoIncludeDirective';
itmGotoIncludeDirective.Caption := lisMenuGotoIncludeDirective;
mnuSearch.add(itmGotoIncludeDirective);
end;
procedure TMainIDEBar.SetupViewMenu;
begin
itmViewInspector := TMenuItem.Create(Self);
itmViewInspector.Name:='itmViewInspector';
itmViewInspector.Caption := lisMenuViewObjectInspector;
mnuView.Add(itmViewInspector);
itmViewProject := TMenuItem.Create(Self);
itmViewProject.Name:='itmViewProject';
itmViewProject.Caption := lisMenuViewProjectExplorer;
mnuView.Add(itmViewProject);
mnuView.Add(CreateMenuSeparator);
itmViewCodeExplorer := TMenuItem.Create(Self);
itmViewCodeExplorer.Name:='itmViewCodeExplorer';
itmViewCodeExplorer.Caption := lisMenuViewCodeExplorer;
mnuView.Add(itmViewCodeExplorer);
mnuView.Add(CreateMenuSeparator);
itmViewUnits := TMenuItem.Create(Self);
itmViewUnits.Name:='itmViewUnits';
itmViewUnits.Caption := lisMenuViewUnits;
mnuView.Add(itmViewUnits);
itmViewForms := TMenuItem.Create(Self);
itmViewForms.Name:='itmViewForms';
itmViewForms.Caption := lisMenuViewForms;
mnuView.Add(itmViewForms);
mnuView.Add(CreateMenuSeparator);
itmViewToggleFormUnit := TMenuItem.Create(Self);
itmViewToggleFormUnit.Name:='itmViewToggleFormUnit';
itmViewToggleFormUnit.Caption := lisMenuViewToggleFormUnit;
mnuView.Add(itmViewToggleFormUnit);
mnuView.Add(CreateMenuSeparator);
itmViewMessage := TMenuItem.Create(Self);
itmViewMessage.Name:='itmViewMessage';
itmViewMessage.Caption := lisMenuViewMessages;
mnuView.Add(itmViewMessage);
itmViewDebugWindows := TMenuItem.Create(Self);
itmViewDebugWindows.Name := 'itmViewDebugWindows';
itmViewDebugWindows.Caption := lisMenuDebugWindows;
mnuView.Add(itmViewDebugWindows);
itmViewWatches := TMenuItem.Create(Self);
itmViewWatches.Name:='itmViewWatches';
itmViewWatches.Caption := lisMenuViewWatches;
itmViewDebugWindows.Add(itmViewWatches);
itmViewBreakPoints := TMenuItem.Create(Self);
itmViewBreakPoints.Name:='itmViewBreakPoints';
itmViewBreakPoints.Caption := lisMenuViewBreakPoints;
itmViewDebugWindows.Add(itmViewBreakPoints);
itmViewLocals := TMenuItem.Create(Self);
itmViewLocals.Name:='itmViewLocals';
itmViewLocals.Caption := lisMenuViewLocalVariables;
itmViewDebugWindows.Add(itmViewLocals);
itmViewCallStack := TMenuItem.Create(Self);
itmViewCallStack.Name:='itmViewCallStack';
itmViewCallStack.Caption := lisMenuViewCallStack;
itmViewDebugWindows.Add(itmViewCallStack);
itmViewDebugOutput := TMenuItem.Create(Self);
itmViewDebugOutput.Name:='itmViewDebugOutput';
itmViewDebugOutput.Caption := lisMenuViewDebugOutput;
itmViewDebugWindows.Add(itmViewDebugOutput);
end;
procedure TMainIDEBar.SetupProjectMenu;
begin
itmProjectNew := TMenuItem.Create(Self);
itmProjectNew.Name:='itmProjectNew';
itmProjectNew.Caption := lisMenuNewProject;
mnuProject.Add(itmProjectNew);
itmProjectOpen := TMenuItem.Create(Self);
itmProjectOpen.Name:='itmProjectOpen';
itmProjectOpen.Caption := lisMenuOpenProject;
mnuProject.Add(itmProjectOpen);
itmProjectRecentOpen := TMenuItem.Create(Self);
itmProjectRecentOpen.Name:='itmProjectRecentOpen';
itmProjectRecentOpen.Caption := lisMenuOpenRecentProject;
mnuProject.Add(itmProjectRecentOpen);
itmProjectSave := TMenuItem.Create(Self);
itmProjectSave.Name:='itmProjectSave';
itmProjectSave.Caption := lisMenuSaveProject;
mnuProject.Add(itmProjectSave);
itmProjectSaveAs := TMenuItem.Create(Self);
itmProjectSaveAs.Name:='itmProjectSaveAs';
itmProjectSaveAs.Caption := lisMenuSaveProjectAs;
mnuProject.Add(itmProjectSaveAs);
mnuProject.Add(CreateMenuSeparator);
itmProjectAddTo := TMenuItem.Create(Self);
itmProjectAddTo.Name:='itmProjectAddTo';
itmProjectAddTo.Caption := lisMenuAddUnitToProject;
mnuProject.Add(itmProjectAddTo);
itmProjectRemoveFrom := TMenuItem.Create(Self);
itmProjectRemoveFrom.Name:='itmProjectRemoveFrom';
itmProjectRemoveFrom.Caption := lisMenuRemoveUnitFromProject;
mnuProject.Add(itmProjectRemoveFrom);
mnuProject.Add(CreateMenuSeparator);
itmProjectViewSource := TMenuItem.Create(Self);
itmProjectViewSource.Name:='itmProjectViewSource';
itmProjectViewSource.Caption := lisMenuViewSource;
mnuProject.Add(itmProjectViewSource);
mnuProject.Add(CreateMenuSeparator);
itmProjectOptions := TMenuItem.Create(Self);
itmProjectOptions.Name:='itmProjectOptions';
itmProjectOptions.Caption := lisMenuProjectOptions;
mnuProject.Add(itmProjectOptions);
end;
procedure TMainIDEBar.SetupRunMenu;
begin
itmProjectBuild := TMenuItem.Create(Self);
itmProjectBuild.Name:='itmProjectBuild';
itmProjectBuild.Caption := lisMenuBuild;
mnuRun.Add(itmProjectBuild);
itmProjectBuildAll := TMenuItem.Create(Self);
itmProjectBuildAll.Name:='itmProjectBuildAll';
itmProjectBuildAll.Caption := lisMenuBuildAll;
mnuRun.Add(itmProjectBuildAll);
mnuRun.Add(CreateMenuSeparator);
itmProjectRun := TMenuItem.Create(Self);
itmProjectRun.Name:='itmProjectRun';
itmProjectRun.Caption := lisMenuProjectRun;
mnuRun.Add(itmProjectRun);
itmProjectPause := TMenuItem.Create(Self);
itmProjectPause.Name:='itmProjectPause';
itmProjectPause.Caption := lisMenuPause;
itmProjectPause.Enabled := false;
mnuRun.Add(itmProjectPause);
itmProjectStepInto := TMenuItem.Create(Self);
itmProjectStepInto.Name:='itmProjectStepInto';
itmProjectStepInto.Caption := lisMenuStepInto;
mnuRun.Add(itmProjectStepInto);
itmProjectStepOver := TMenuItem.Create(Self);
itmProjectStepOver.Name:='itmProjectStepOver';
itmProjectStepOver.Caption := lisMenuStepOver;
mnuRun.Add(itmProjectStepOver);
itmProjectRunToCursor := TMenuItem.Create(Self);
itmProjectRunToCursor.Name:='itmProjectRunToCursor';
itmProjectRunToCursor.Caption := lisMenuRunToCursor;
mnuRun.Add(itmProjectRunToCursor);
itmProjectStop := TMenuItem.Create(Self);
itmProjectStop.Name:='itmProjectStop';
itmProjectStop.Caption := lisMenuStop;
mnuRun.Add(itmProjectStop);
mnuRun.Add(CreateMenuSeparator);
itmProjectCompilerSettings := TMenuItem.Create(Self);
itmProjectCompilerSettings.Name:='itmProjectCompilerSettings';
itmProjectCompilerSettings.Caption := lisMenuCompilerOptions;
mnuRun.Add(itmProjectCompilerSettings);
itmProjectRunParameters := TMenuItem.Create(Self);
itmProjectRunParameters.Name:='itmProjectRunParameters';
itmProjectRunParameters.Caption := lisMenuRunParameters;
mnuRun.Add(itmProjectRunParameters);
end;
procedure TMainIDEBar.SetupToolsMenu;
begin
itmToolConfigure := TMenuItem.Create(Self);
itmToolConfigure.Name:='itmToolConfigure';
itmToolConfigure.Caption := lisMenuSettings;
mnuTools.Add(itmToolConfigure);
itmToolSyntaxCheck := TMenuItem.Create(Self);
itmToolSyntaxCheck.Name:='itmToolSyntaxCheck';
itmToolSyntaxCheck.Caption := lisMenuQuickSyntaxCheck;
mnuTools.Add(itmToolSyntaxCheck);
itmToolGuessUnclosedBlock := TMenuItem.Create(Self);
itmToolGuessUnclosedBlock.Name:='itmToolGuessUnclosedBlock';
itmToolGuessUnclosedBlock.Caption := lisMenuGuessUnclosedBlock;
mnuTools.Add(itmToolGuessUnclosedBlock);
itmToolGuessMisplacedIFDEF := TMenuItem.Create(Self);
itmToolGuessMisplacedIFDEF.Name:='itmToolGuessMisplacedIFDEF';
itmToolGuessMisplacedIFDEF.Caption := lisMenuGuessMisplacedIFDEF;
mnuTools.Add(itmToolGuessMisplacedIFDEF);
itmToolConvertDFMtoLFM := TMenuItem.Create(Self);
itmToolConvertDFMtoLFM.Name:='itmToolConvertDFMtoLFM';
itmToolConvertDFMtoLFM.Caption := lisMenuConvertDFMtoLFM;
mnuTools.Add(itmToolConvertDFMtoLFM);
itmToolBuildLazarus := TMenuItem.Create(Self);
itmToolBuildLazarus.Name:='itmToolBuildLazarus';
itmToolBuildLazarus.Caption := lisMenuBuildLazarus;
mnuTools.Add(itmToolBuildLazarus);
itmToolConfigureBuildLazarus := TMenuItem.Create(Self);
itmToolConfigureBuildLazarus.Name:='itmToolConfigureBuildLazarus';
itmToolConfigureBuildLazarus.Caption := lisMenuConfigureBuildLazarus;
mnuTools.Add(itmToolConfigureBuildLazarus);
end;
procedure TMainIDEBar.SetupEnvironmentMenu;
begin
itmEnvGeneralOptions := TMenuItem.Create(Self);
itmEnvGeneralOptions.Name:='itmEnvGeneralOptions';
itmEnvGeneralOptions.Caption := lisMenuGeneralOptions;
mnuEnvironment.Add(itmEnvGeneralOptions);
itmEnvEditorOptions := TMenuItem.Create(Self);
itmEnvEditorOptions.Name:='itmEnvEditorOptions';
itmEnvEditorOptions.Caption := lisMenuEditorOptions;
mnuEnvironment.Add(itmEnvEditorOptions);
itmEnvCodeToolsOptions := TMenuItem.Create(Self);
itmEnvCodeToolsOptions.Name:='itmEnvCodeToolsOptions';
itmEnvCodeToolsOptions.Caption := lisMenuCodeToolsOptions;
mnuEnvironment.Add(itmEnvCodeToolsOptions);
itmEnvCodeToolsDefinesEditor := TMenuItem.Create(Self);
itmEnvCodeToolsDefinesEditor.Name:='itmEnvCodeToolsDefinesEditor';
itmEnvCodeToolsDefinesEditor.Caption := lisMenuCodeToolsDefinesEditor;
mnuEnvironment.Add(itmEnvCodeToolsDefinesEditor);
end;
procedure TMainIDEBar.SetupHelpMenu;
begin
itmHelpAboutLazarus := TMenuItem.Create(Self);
itmHelpAboutLazarus.Name:='itmHelpAboutLazarus';
itmHelpAboutLazarus.Caption := lisMenuAboutLazarus;
mnuHelp.Add(itmHelpAboutLazarus);
end;
procedure TMainIDEBar.LoadMenuShortCuts;
begin
with EditorOpts.KeyMap do begin
itmFileNewUnit.ShortCut:=CommandToShortCut(ecNewUnit);
itmFileNewForm.ShortCut:=CommandToShortCut(ecNewForm);
itmFileOpen.ShortCut:=CommandToShortCut(ecOpen);
itmFileRevert.ShortCut:=CommandToShortCut(ecRevert);
//itmFileRecentOpen.ShortCut:=CommandToShortCut(ec);
itmFileSave.ShortCut:=CommandToShortCut(ecSave);
itmFileSaveAs.ShortCut:=CommandToShortCut(ecSaveAs);
itmFileSaveAll.ShortCut:=CommandToShortCut(ecSaveAll);
itmFileClose.ShortCut:=CommandToShortCut(ecClose);
itmFileCloseAll.ShortCut:=CommandToShortCut(ecCloseAll);
itmFileQuit.ShortCut:=CommandToShortCut(ecQuit);
itmEditUndo.ShortCut:=CommandToShortCut(ecUndo);
itmEditRedo.ShortCut:=CommandToShortCut(ecRedo);
itmEditCut.ShortCut:=CommandToShortCut(ecCut);
itmEditCopy.ShortCut:=CommandToShortCut(ecCopy);
itmEditPaste.ShortCut:=CommandToShortCut(ecPaste);
itmEditIndentBlock.ShortCut:=CommandToShortCut(ecBlockIndent);
itmEditUnindentBlock.ShortCut:=CommandToShortCut(ecBlockUnindent);
itmEditUpperCaseBlock.ShortCut:=CommandToShortCut(ecSelectionUpperCase);
itmEditLowerCaseBlock.ShortCut:=CommandToShortCut(ecSelectionLowerCase);
itmEditTabsToSpacesBlock.ShortCut:=CommandToShortCut(ecSelectionTabs2Spaces);
itmEditCompleteCode.ShortCut:=CommandToShortCut(ecCompleteCode);
itmSearchFind.ShortCut:=CommandToShortCut(ecFind);
itmSearchFindNext.ShortCut:=CommandToShortCut(ecFindNext);
itmSearchFindPrevious.ShortCut:=CommandToShortCut(ecFindPrevious);
itmSearchFindInFiles.ShortCut:=CommandToShortCut(ecFindInFiles);
itmSearchReplace.ShortCut:=CommandToShortCut(ecReplace);
itmGotoLine.ShortCut:=CommandToShortCut(ecGotoLineNumber);
itmJumpBack.ShortCut:=CommandToShortCut(ecJumpBack);
itmJumpForward.ShortCut:=CommandToShortCut(ecJumpForward);
itmAddJumpPoint.ShortCut:=CommandToShortCut(ecAddJumpPoint);
itmJumpHistory.ShortCut:=CommandToShortCut(ecViewJumpHistory);
itmFindBlockOtherEnd.ShortCut:=CommandToShortCut(ecFindBlockOtherEnd);
itmFindBlockStart.ShortCut:=CommandToShortCut(ecFindBlockStart);
itmFindDeclaration.ShortCut:=CommandToShortCut(ecFindDeclaration);
itmOpenFileAtCursor.ShortCut:=CommandToShortCut(ecOpenFileAtCursor);
itmGotoIncludeDirective.ShortCut:=CommandToShortCut(ecGotoIncludeDirective);
itmViewInspector.ShortCut:=CommandToShortCut(ecToggleObjectInsp);
itmViewProject.ShortCut:=CommandToShortCut(ecToggleProjectExpl);
itmViewUnits.ShortCut:=CommandToShortCut(ecViewUnits);
itmViewCodeExplorer.ShortCut:=CommandToShortCut(ecToggleCodeExpl);
itmViewForms.ShortCut:=CommandToShortCut(ecViewForms);
itmViewToggleFormUnit.ShortCut:=CommandToShortCut(ecToggleFormUnit);
itmViewMessage.ShortCut:=CommandToShortCut(ecToggleMessages);
itmProjectNew.ShortCut:=CommandToShortCut(ecNewProject);
itmProjectOpen.ShortCut:=CommandToShortCut(ecOpenProject);
//itmProjectRecentOpen.ShortCut:=CommandToShortCut(ec);
itmProjectSave.ShortCut:=CommandToShortCut(ecSaveProject);
itmProjectSaveAs.ShortCut:=CommandToShortCut(ecSaveProjectAs);
itmProjectAddTo.ShortCut:=CommandToShortCut(ecAddCurUnitToProj);
itmProjectRemoveFrom.ShortCut:=CommandToShortCut(ecRemoveFromProj);
itmProjectViewSource.ShortCut:=CommandToShortCut(ecViewProjectSource);
itmProjectOptions.ShortCut:=CommandToShortCut(ecProjectOptions);
itmProjectBuild.ShortCut:=CommandToShortCut(ecBuild);
itmProjectBuildAll.ShortCut:=CommandToShortCut(ecBuildAll);
itmProjectRun.ShortCut:=CommandToShortCut(ecRun);
itmProjectPause.ShortCut:=CommandToShortCut(ecPause);
itmProjectStepInto.ShortCut:=CommandToShortCut(ecStepInto);
itmProjectStepOver.ShortCut:=CommandToShortCut(ecStepOver);
itmProjectRunToCursor.ShortCut:=CommandToShortCut(ecRunToCursor);
itmProjectStop.ShortCut:=CommandToShortCut(ecStopProgram);
itmProjectCompilerSettings.ShortCut:=CommandToShortCut(ecCompilerOptions);
itmProjectRunParameters.ShortCut:=CommandToShortCut(ecRunParameters);
itmToolConfigure.ShortCut:=CommandToShortCut(ecExtToolSettings);
itmToolSyntaxCheck.ShortCut:=CommandToShortCut(ecSyntaxCheck);
itmToolGuessUnclosedBlock.ShortCut:=CommandToShortCut(ecGuessUnclosedBlock);
itmToolGuessMisplacedIFDEF.ShortCut:=CommandToShortCut(ecGuessMisplacedIFDEF);
itmToolConvertDFMtoLFM.ShortCut:=CommandToShortCut(ecConvertDFM2LFM);
itmToolBuildLazarus.ShortCut:=CommandToShortCut(ecBuildLazarus);
itmToolConfigureBuildLazarus.ShortCut:=CommandToShortCut(ecConfigBuildLazarus);
itmEnvGeneralOptions.ShortCut:=CommandToShortCut(ecEnvironmentOptions);
itmEnvEditorOptions.ShortCut:=CommandToShortCut(ecEditorOptions);
itmEnvCodeToolsOptions.ShortCut:=CommandToShortCut(ecCodeToolsOptions);
itmEnvCodeToolsDefinesEditor.ShortCut:=CommandToShortCut(ecCodeToolsDefinesEd);
itmHelpAboutLazarus.ShortCut:=CommandToShortCut(ecAboutLazarus);
end;
end;
end.

40
images/README
View File

@ -2,12 +2,12 @@ This directory contains all images needed by the IDE.
Images are stored in lazarus resource files (.lrs). Each icon is stored
in xpm format.
mainicon.lrs - This is the IDE program icon.
laz_images.lrs - The icons for the speedbuttons (Open, Save, Run,...)
components_images.lrs - Icons and pics for lcl components
bookmark.lrs - Icons for bookmarks
editoroptions.lrs - Icons for editor options
codetoolsdefines.lrs - Icons for CodeTools Defines Editor
components_images.lrs - Icons and pics for lcl components
editoroptions.lrs - Icons for editor options
mainicon.lrs - This is the IDE program icon.
laz_images.lrs - The icons for the speedbuttons and the menu (Open, Save,...)
splash.lrs - the lazarus logo at IDE start
@ -20,16 +20,16 @@ cd <lazarusdir>/tools/
ppc386 -Fu../lcl/units -Fu../lcl/units/gtk lazres.pp
1. mainicon.lrs
1. bookmark.lrs
cd <lazarusdir>/images/
../tools/lazres mainicon.lrs mainicon.xpm
cd <lazarusdir>/images/sourceeditor/
../../tools/lazres ../bookmark.lrs *.xpm
2. laz_images.lrs
2. codetoolsdefines.lrs
cd <lazarusdir>/images/
../tools/lazres laz_images.lrs btn_*.xpm
cd <lazarusdir>/images/codetoolsdefines
../../tools/lazres ../../codetoolsdefines.lrs *.xpm
3. components_images.lrs
@ -38,22 +38,22 @@ cd <lazarusdir>/images/components/
../../tools/lazres ../components_images.lrs *.xpm
4. bookmark.lrs
cd <lazarusdir>/images/sourceeditor/
../../tools/lazres ../bookmark.lrs *.xpm
5. editoroptions.lrs
4. editoroptions.lrs
cd <lazarusdir>/images/
../tools/lazres ../editoroptions.lrs keymaprelation.xpm keymapcategory.xpm
6. codetoolsdefines.lrs
5. mainicon.lrs
cd <lazarusdir>/images/codetoolsdefines
../../tools/lazres ../../codetoolsdefines.lrs *.xpm
cd <lazarusdir>/images/
../tools/lazres mainicon.lrs mainicon.xpm
6. laz_images.lrs
cd <lazarusdir>/images/
../tools/lazres laz_images.lrs btn_*.xpm menu/menu_*.xpm
7. splash.lrs

309
images/laz_images.lrs
View File

@ -401,3 +401,312 @@ LazarusResources.Add('btn_viewunits','XPM',[
+#10'".+++++.+. ",'#10'".+++++... ",'#10'".+++++. ",'#10'".+++++. ",'
+#10'"....... "};'#10
]);
LazarusResources.Add('menu_copy','XPM',[
'/* XPM */'#10'static char * menu_copy_xpm[] = {'#10'"22 23 94 2",'#10'" '#9
+'c None",'#10'". '#9'c #010101",'#10'"+ '#9'c #B9B9B9",'#10'"@ '#9'c #FEFEFE'
+'",'#10'"# '#9'c #F9F9F9",'#10'"$ '#9'c #757575",'#10'"% '#9'c #F5F5E8",'#10
+'"& '#9'c #575752",'#10'"* '#9'c #FFFFFF",'#10'"= '#9'c #A0A0A0",'#10'"- '#9
+'c #939393",'#10'"; '#9'c #7C7C7C",'#10'"> '#9'c #CFC6A0",'#10'", '#9'c #D7C'
+'EAA",'#10'"'' '#9'c #4C493D",'#10'") '#9'c #6D6D6D",'#10'"! '#9'c #6C6C6C",'
+#10'"~ '#9'c #A9A9A9",'#10'"{ '#9'c #3E3B31",'#10'"] '#9'c #979178",'#10'"^ '
+#9'c #8A793E",'#10'"/ '#9'c #C3BB9A",'#10'"( '#9'c #454337",'#10'"_ '#9'c #F'
+'AFAFA",'#10'": '#9'c #EFEFEF",'#10'"< '#9'c #C7C7C7",'#10'"[ '#9'c #D8D8D8"'
+','#10'"} '#9'c #D2D2D2",'#10'"| '#9'c #7B7B7B",'#10'"1 '#9'c #312F27",'#10
+'"2 '#9'c #89846C",'#10'"3 '#9'c #C4BC9A",'#10'"4 '#9'c #847236",'#10'"5 '#9
+'c #555143",'#10'"6 '#9'c #181713",'#10'"7 '#9'c #C5C5C5",'#10'"8 '#9'c #A7A'
+'7A7",'#10'"9 '#9'c #ADADAD",'#10'"0 '#9'c #9A9A9A",'#10'"a '#9'c #9B9B9B",'
+#10'"b '#9'c #868686",'#10'"c '#9'c #434343",'#10'"d '#9'c #13120F",'#10'"e '
+#9'c #22211B",'#10'"f '#9'c #847034",'#10'"g '#9'c #444135",'#10'"h '#9'c #B'
+'3B3B3",'#10'"i '#9'c #B4B4B4",'#10'"j '#9'c #5D5D5D",'#10'"k '#9'c #474747"'
+','#10'"l '#9'c #3C3C3C",'#10'"m '#9'c #404040",'#10'"n '#9'c #D6D6D6",'#10
+'"o '#9'c #191814",'#10'"p '#9'c #826F34",'#10'"q '#9'c #444136",'#10'"r '#9
+'c #161511",'#10'"s '#9'c #141310",'#10'"t '#9'c #8F8F8F",'#10'"u '#9'c #989'
+'898",'#10'"v '#9'c #C6C6C6",'#10'"w '#9'c #020202",'#10'"x '#9'c #806F34",'
+#10'"y '#9'c #7F6C33",'#10'"z '#9'c #3A372E",'#10'"A '#9'c #636363",'#10'"B '
+#9'c #767676",'#10'"C '#9'c #7F6E33",'#10'"D '#9'c #424035",'#10'"E '#9'c #1'
+'51411",'#10'"F '#9'c #4D4D49",'#10'"G '#9'c #515151",'#10'"H '#9'c #353535"'
+','#10'"I '#9'c #202020",'#10'"J '#9'c #2D2D2D",'#10'"K '#9'c #3E3E3E",'#10
+'"L '#9'c #171717",'#10'"M '#9'c #7D692F",'#10'"N '#9'c #1A1A1A",'#10'"O '#9
+'c #1D1C17",'#10'"P '#9'c #26251F",'#10'"Q '#9'c #292721",'#10'"R '#9'c #7F6'
+'B2F",'#10'"S '#9'c #020201",'#10'"T '#9'c #A19A7F",'#10'"U '#9'c #A39D81",'
+#10'"V '#9'c #806C30",'#10'"W '#9'c #100F0C",'#10'"X '#9'c #A9A186",'#10'"Y '
+#9'c #0D0B05",'#10'"Z '#9'c #89783D",'#10'"` '#9'c #7A672E",'#10'" .'#9'c #7'
+'6652A",'#10'"..'#9'c #78672C",'#10'" . . . . '
+' ",'#10'" . . . . . . + @ # $ . . . . . . ",'#10'" . '
+'% % % % % & * = - ; & % % % % > . ",'#10'" . % , , , , '' * ) ! ~ { '
+'] , , , ^ . ",'#10'" . % / / / ( _ : < [ } | 1 2 / 3 4 . ",'#10'" '
+' . % , 5 6 7 8 8 9 0 a b c d e , f . ",'#10'" . % g h i j k l l '
+'l l l m i n o p . ",'#10'" . % q * * i i i i i i i i * * r p . ",'#10
+'" . % s * 8 t t u * v t * t v * w x . ",'#10'" . % r * * * * '
+'* * * * * * * * w y . ",'#10'" . % z * ) A * B t v * v t * * d C . "'
+','#10'" . % D * * * * * * * * * * * * E p . ",'#10'" . . . . F d G '
+'H I J K L t v * u t * d x . ",'#10'". h * * * * * * * * * * n I * * * * * r'
+' M . ",'#10'". * * * * * * * * * * * * N * * * * n O M . ",'#10'". * 8 t t '
+'u * v t * t v * . P P P P Q , R . ",'#10'". * * * * * * * * * * * * S T T T'
+' T T U V . ",'#10'". * ) A * B t v * v t * * r , , , , , , y . ",'#10'". * '
+'* * * * * * * * * * * W T T T T T X y . ",'#10'". * 8 t t * t t v * u t * r'
+' , , , , , , V . ",'#10'". * * * * * * * * * * * * Y V Z p p ` .... ",'#10
+'". n * * * * * * * * * * n . . . . . . . . ",'#10'" . . . . . . . . . . '
+'. . "};'#10
]);
LazarusResources.Add('menu_cut','XPM',[
'/* XPM */'#10'static char * menu_cut_xpm[] = {'#10'"22 23 131 2",'#10'" '#9
+'c None",'#10'". '#9'c #010101",'#10'"+ '#9'c #B9B9B9",'#10'"@ '#9'c #FEFEFE'
+'",'#10'"# '#9'c #F9F9F9",'#10'"$ '#9'c #757575",'#10'"% '#9'c #F5F5E8",'#10
+'"& '#9'c #575752",'#10'"* '#9'c #FFFFFF",'#10'"= '#9'c #A0A0A0",'#10'"- '#9
+'c #939393",'#10'"; '#9'c #7C7C7C",'#10'"> '#9'c #CFC6A0",'#10'", '#9'c #D7C'
+'EAA",'#10'"'' '#9'c #4C493D",'#10'") '#9'c #6D6D6D",'#10'"! '#9'c #6C6C6C",'
+#10'"~ '#9'c #A9A9A9",'#10'"{ '#9'c #3E3B31",'#10'"] '#9'c #979178",'#10'"^ '
+#9'c #8A793E",'#10'"/ '#9'c #C3BB9A",'#10'"( '#9'c #454337",'#10'"_ '#9'c #F'
+'AFAFA",'#10'": '#9'c #EFEFEF",'#10'"< '#9'c #C7C7C7",'#10'"[ '#9'c #D8D8D8"'
+','#10'"} '#9'c #D2D2D2",'#10'"| '#9'c #7B7B7B",'#10'"1 '#9'c #312F27",'#10
+'"2 '#9'c #89846C",'#10'"3 '#9'c #C4BC9A",'#10'"4 '#9'c #847236",'#10'"5 '#9
+'c #C5C5C5",'#10'"6 '#9'c #A7A7A7",'#10'"7 '#9'c #ADADAD",'#10'"8 '#9'c #9A9'
+'A9A",'#10'"9 '#9'c #9B9B9B",'#10'"0 '#9'c #868686",'#10'"a '#9'c #434343",'
+#10'"b '#9'c #847034",'#10'"c '#9'c #C9C09E",'#10'"d '#9'c #474438",'#10'"e '
+#9'c #36342B",'#10'"f '#9'c #2E2C24",'#10'"g '#9'c #C6BE9D",'#10'"h '#9'c #8'
+'26F34",'#10'"i '#9'c #191917",'#10'"j '#9'c #141310",'#10'"k '#9'c #323027"'
+','#10'"l '#9'c #2B2A22",'#10'"m '#9'c #2F2D25",'#10'"n '#9'c #1F1E19",'#10
+'"o '#9'c #806F34",'#10'"p '#9'c #B3B3B3",'#10'"q '#9'c #D6D6D6",'#10'"r '#9
+'c #1B1A15",'#10'"s '#9'c #7F6C33",'#10'"t '#9'c #393939",'#10'"u '#9'c #CFC'
+'FCF",'#10'"v '#9'c #12110E",'#10'"w '#9'c #B1AA8C",'#10'"x '#9'c #BBB394",'
+#10'"y '#9'c #7F6E33",'#10'"z '#9'c #878787",'#10'"A '#9'c #848484",'#10'"B '
+#9'c #969696",'#10'"C '#9'c #E7E7E7",'#10'"D '#9'c #494949",'#10'"E '#9'c #D'
+'48B44",'#10'"F '#9'c #303030",'#10'"G '#9'c #BABABA",'#10'"H '#9'c #7A7A7A"'
+','#10'"I '#9'c #AAAAAA",'#10'"J '#9'c #020202",'#10'"K '#9'c #F1DD8E",'#10
+'"L '#9'c #D68A40",'#10'"M '#9'c #984722",'#10'"N '#9'c #222222",'#10'"O '#9
+'c #E2E2E2",'#10'"P '#9'c #EFDE90",'#10'"Q '#9'c #F5E186",'#10'"R '#9'c #AC6'
+'32E",'#10'"S '#9'c #A45C30",'#10'"T '#9'c #232323",'#10'"U '#9'c #161511",'
+#10'"V '#9'c #7D692F",'#10'"W '#9'c #3E3E3E",'#10'"X '#9'c #F1E28C",'#10'"Y '
+#9'c #EDE094",'#10'"Z '#9'c #F1DF8C",'#10'"` '#9'c #B46E36",'#10'" .'#9'c #B'
+'B6633",'#10'"..'#9'c #C37B55",'#10'"+.'#9'c #474747",'#10'"@.'#9'c #100F0C"'
+','#10'"#.'#9'c #A19A7F",'#10'"$.'#9'c #A7A083",'#10'"%.'#9'c #BEBEBE",'#10
+'"&.'#9'c #262626",'#10'"*.'#9'c #1E1E1E",'#10'"=.'#9'c #3F3F3F",'#10'"-.'#9
+'c #A66134",'#10'";.'#9'c #555555",'#10'">.'#9'c #7F6B2F",'#10'",.'#9'c #2F2'
+'F2F",'#10'"''.'#9'c #F3E08A",'#10'").'#9'c #A65F30",'#10'"!.'#9'c #A8A8A8",'
+#10'"~.'#9'c #E4E4E4",'#10'"{.'#9'c #A39D81",'#10'"].'#9'c #806C30",'#10'"^.'
+#9'c #8D8D8D",'#10'"/.'#9'c #B4B4B4",'#10'"(.'#9'c #9D9D9D",'#10'"_.'#9'c #8'
+'F8F8F",'#10'":.'#9'c #040403",'#10'"<.'#9'c #323232",'#10'"[.'#9'c #D18C49"'
+','#10'"}.'#9'c #A56033",'#10'"|.'#9'c #A9A186",'#10'"1.'#9'c #A3A3A3",'#10
+'"2.'#9'c #EAEAEA",'#10'"3.'#9'c #9F9F9F",'#10'"4.'#9'c #8E8E8E",'#10'"5.'#9
+'c #F1F1F1",'#10'"6.'#9'c #0D0B05",'#10'"7.'#9'c #89783D",'#10'"8.'#9'c #7A6'
+'72E",'#10'"9.'#9'c #76652A",'#10'"0.'#9'c #78672C",'#10'" '
+' . . . . ",'#10'" . . . . . . + @ # $ . . . . . .'
+' ",'#10'" . % % % % % & * = - ; & % % % % > . ",'#10'" . % '
+', , , , '' * ) ! ~ { ] , , , ^ . ",'#10'" . % / / / ( _ : < [ } | 1 '
+'2 / 3 4 . ",'#10'" . % , , '' 5 6 6 7 8 9 0 a '' , , b . ",'#10'" '
+' . % c / 2 d e f f f f f 1 2 / g h . ",'#10'" . % , , , ] ] ] ] '
+'] ] ] ] , , , h . ",'#10'" . . . . i j k { { l { m n / / / / / g o . ",'#10
+'". p * * * * * * * * * * * q r , , , , , s . ",'#10'". * * * * * * t u * * '
+'* * * v w w w w x y . ",'#10'". * z A B C D E F G * H I * J , , , , , h . "'
+','#10'". * * * * D K L M N u * * * J w w w w x o . ",'#10'". * B O D P Q L '
+'R S T G * * U , , , , , V . ",'#10'". * * W X Y Z L ` ...+.u * @.#.#.#.#.$'
+'.V . ",'#10'". * %.&.*.=.X L -.. ;.t B * U , , , , , >.. ",'#10'". * * * * '
+',.''.L ).. !.!.~.* . #.#.#.#.{.].. ",'#10'". * ^./.* ,.Z E -.. (._.* * :., '
+', , , , s . ",'#10'". * * * * <.Y [.}.. !.~.* * @.#.#.#.#.|.s . ",'#10'". *'
+' 6 1.2.. . . . . 3.4._.* U , , , , , ].. ",'#10'". * * * * u !.!.!.!.!.5.* '
+'* 6.7.h h 8.9.0.. ",'#10'". q * * * * 5.5.5.5.5.5.* q . . . . . . . ",'#10
+'" . . . . . . . . . . . . . "};'#10
]);
LazarusResources.Add('menu_indent','XPM',[
'/* XPM */'#10'static char * menu_indent_xpm[] = {'#10'"18 15 3 1",'#10'" '#9
+'c None",'#10'".'#9'c #010101",'#10'"+'#9'c #000000",'#10'"........... '
+' ",'#10'" ",'#10'". . . . . . . . . ",'#10'" '
+' ",'#10'" + ..........",'#10'" +.... ..........",'#10'" ...... '
+' ",'#10'" +.... ........ ",'#10'" + ........ ",'#10'" '
+' ",'#10'". . . . . . . . . ",'#10'" ",'#10'".....'
+'........ ",'#10'" ",'#10'"........... "};'#10
]);
LazarusResources.Add('menu_new','XPM',[
'/* XPM */'#10'static char * menu_new_xpm[] = {'#10'"18 21 89 1",'#10'" '#9'c'
+' None",'#10'".'#9'c #010101",'#10'"+'#9'c #ADAD9C",'#10'"@'#9'c #959585",'
+#10'"#'#9'c #DCDCC5",'#10'"$'#9'c #DFDFC8",'#10'"%'#9'c #252525",'#10'"&'#9
+'c #A7A796",'#10'"*'#9'c #D7D7C1",'#10'"='#9'c #D9D9C3",'#10'"-'#9'c #DCDCC4'
+'",'#10'";'#9'c #DDDDC7",'#10'">'#9'c #E1E1CA",'#10'",'#9'c #A6A694",'#10'"'
+''''#9'c #D6D6BF",'#10'")'#9'c #D8D8C2",'#10'"!'#9'c #DBDBC4",'#10'"~'#9'c #'
+'DFDFC7",'#10'"{'#9'c #E3E3CB",'#10'"]'#9'c #B2B29F",'#10'"^'#9'c #7C7C7C",'
+#10'"/'#9'c #646464",'#10'"('#9'c #D5D5BD",'#10'"_'#9'c #D5D5BF",'#10'":'#9
+'c #D7D7C0",'#10'"<'#9'c #DADAC3",'#10'"['#9'c #DEDEC6",'#10'"}'#9'c #E1E1C9'
+'",'#10'"|'#9'c #E5E5CD",'#10'"1'#9'c #E9E9D1",'#10'"2'#9'c #353535",'#10'"3'
+#9'c #E7E7E7",'#10'"4'#9'c #383837",'#10'"5'#9'c #B8B8A6",'#10'"6'#9'c #D3D3'
+'BC",'#10'"7'#9'c #D9D9C2",'#10'"8'#9'c #DDDDC5",'#10'"9'#9'c #E0E0C8",'#10
+'"0'#9'c #E8E8D0",'#10'"a'#9'c #ECECD4",'#10'"b'#9'c #EEEED5",'#10'"c'#9'c #'
+'ECECEC",'#10'"d'#9'c #EDEDED",'#10'"e'#9'c #3E3E38",'#10'"f'#9'c #CECEB7",'
+#10'"g'#9'c #E6E6CE",'#10'"h'#9'c #EAEAD2",'#10'"i'#9'c #F1F1D8",'#10'"j'#9
+'c #A5A594",'#10'"k'#9'c #EEEEE5",'#10'"l'#9'c #3D3D3D",'#10'"m'#9'c #8F8F80'
+'",'#10'"n'#9'c #D0D0B9",'#10'"o'#9'c #E4E4CB",'#10'"p'#9'c #EAEAD1",'#10'"q'
+#9'c #ECECD3",'#10'"r'#9'c #EFEFD6",'#10'"s'#9'c #F2F2D9",'#10'"t'#9'c #F3F3'
+'DA",'#10'"u'#9'c #EEEEE6",'#10'"v'#9'c #515151",'#10'"w'#9'c #929282",'#10
+'"x'#9'c #D1D1B9",'#10'"y'#9'c #E7E7CF",'#10'"z'#9'c #EBEBD2",'#10'"A'#9'c #'
+'F4F4DB",'#10'"B'#9'c #F5F5DC",'#10'"C'#9'c #969686",'#10'"D'#9'c #D2D2BC",'
+#10'"E'#9'c #E0E0C9",'#10'"F'#9'c #E9E9D0",'#10'"G'#9'c #EDEDD4",'#10'"H'#9
+'c #F0F0D7",'#10'"I'#9'c #BEBEAB",'#10'"J'#9'c #797973",'#10'"K'#9'c #D8D8C1'
+'",'#10'"L'#9'c #DDDDC6",'#10'"M'#9'c #98988F",'#10'"N'#9'c #E4E4CC",'#10'"O'
+#9'c #818174",'#10'"P'#9'c #E2E2CA",'#10'"Q'#9'c #BEBEAE",'#10'"R'#9'c #4F4F'
+'4F",'#10'"S'#9'c #828274",'#10'"T'#9'c #EBEBD3",'#10'"U'#9'c #BBBBA8",'#10
+'"V'#9'c #CDCDB8",'#10'"W'#9'c #4E4E46",'#10'"X'#9'c #A6A696",'#10'" '
+' . ",'#10'" ..+. ",'#10'" ..@#$% ",'#10'" ..'
+'&*=-;>. ",'#10'" ..,''**)!~{]. ",'#10'".^/''(_:<[}|12 ",'#10'"'
+'.3456*789|0ab. ",'#10'".cdef_!9g0hbij. ",'#10'".kklmn9opqrist. ",'#10
+'".uvwx-}yzbittAB. ",'#10'"..CD!E{FGHtAABBI. ",'#10'".JK7L>ypbitBBBBB).",'
+#10'".M!#$NyzbitBBBBBO.",'#10'" .~9P|1qrsABBBB.. ",'#10'" .Q||0hGHtABB<. "'
+','#10'" R01hGrstAsS. ",'#10'" .TaGriss<. ",'#10'" .rHis1j. '
+' ",'#10'" .UstVW. ",'#10'" .tX. ",'#10'" .. '
+' "};'#10
]);
LazarusResources.Add('menu_open','XPM',[
'/* XPM */'#10'static char * menu_open_xpm[] = {'#10'"18 16 5 1",'#10'" '#9'c'
+' None",'#10'".'#9'c #010101",'#10'"+'#9'c #99907B",'#10'"@'#9'c #FFFEF7",'
+#10'"#'#9'c #FFFFFF",'#10'" .. ",'#10'" ...++. ",'#10
+'" .. ...++++@@#...",'#10'".++..++++@@@@..++.",'#10'".+++++@@@@@..++++.",'
+#10'" .++@@@@@..++++++.",'#10'" .++@@@..++++++++.",'#10'" .+@@.++++++++++."'
+','#10'" .++@.++++++++++.",'#10'" .+@.++++++++++.",'#10'" .++.++++++++.'
+'. ",'#10'" .+.++++++.. ",'#10'" .+.+++++. ",'#10'" ..+++.. '
+' ",'#10'" ..+.. ",'#10'" .. "};'#10
]);
LazarusResources.Add('menu_paste','XPM',[
'/* XPM */'#10'static char * menu_paste_xpm[] = {'#10'"22 23 125 2",'#10'" '
+#9'c None",'#10'". '#9'c #010101",'#10'"+ '#9'c #B9B9B9",'#10'"@ '#9'c #FEFE'
+'FE",'#10'"# '#9'c #F9F9F9",'#10'"$ '#9'c #757575",'#10'"% '#9'c #F5F5E8",'
+#10'"& '#9'c #575752",'#10'"* '#9'c #FFFFFF",'#10'"= '#9'c #A0A0A0",'#10'"- '
+#9'c #939393",'#10'"; '#9'c #7C7C7C",'#10'"> '#9'c #CFC6A0",'#10'", '#9'c #D'
+'7CEAA",'#10'"'' '#9'c #4C493D",'#10'") '#9'c #6D6D6D",'#10'"! '#9'c #6C6C6C'
+'",'#10'"~ '#9'c #A9A9A9",'#10'"{ '#9'c #3E3B31",'#10'"] '#9'c #979178",'#10
+'"^ '#9'c #8A793E",'#10'"/ '#9'c #C3BB9A",'#10'"( '#9'c #454337",'#10'"_ '#9
+'c #FAFAFA",'#10'": '#9'c #EFEFEF",'#10'"< '#9'c #C7C7C7",'#10'"[ '#9'c #D8D'
+'8D8",'#10'"} '#9'c #D2D2D2",'#10'"| '#9'c #7B7B7B",'#10'"1 '#9'c #312F27",'
+#10'"2 '#9'c #89846C",'#10'"3 '#9'c #C4BC9A",'#10'"4 '#9'c #847236",'#10'"5 '
+#9'c #C5C5C5",'#10'"6 '#9'c #A7A7A7",'#10'"7 '#9'c #ADADAD",'#10'"8 '#9'c #9'
+'A9A9A",'#10'"9 '#9'c #9B9B9B",'#10'"0 '#9'c #868686",'#10'"a '#9'c #434343"'
+','#10'"b '#9'c #847034",'#10'"c '#9'c #C9C09E",'#10'"d '#9'c #474438",'#10
+'"e '#9'c #36342B",'#10'"f '#9'c #2E2C24",'#10'"g '#9'c #C6BE9D",'#10'"h '#9
+'c #826F34",'#10'"i '#9'c #9E977D",'#10'"j '#9'c #4D4A3D",'#10'"k '#9'c #181'
+'713",'#10'"l '#9'c #141310",'#10'"m '#9'c #3F3C32",'#10'"n '#9'c #292311",'
+#10'"o '#9'c #484539",'#10'"p '#9'c #B3B3B3",'#10'"q '#9'c #D6D6D6",'#10'"r '
+#9'c #B7AE90",'#10'"s '#9'c #B1AA8C",'#10'"t '#9'c #38362C",'#10'"u '#9'c #1'
+'61511",'#10'"v '#9'c #C9C9C9",'#10'"w '#9'c #E5E5E5",'#10'"x '#9'c #C6C6C6"'
+','#10'"y '#9'c #B9B293",'#10'"z '#9'c #12110E",'#10'"A '#9'c #323232",'#10
+'"B '#9'c #B3D2BA",'#10'"C '#9'c #7BA676",'#10'"D '#9'c #61815A",'#10'"E '#9
+'c #444136",'#10'"F '#9'c #8D8D8D",'#10'"G '#9'c #B4B4B4",'#10'"H '#9'c #2F2'
+'F2F",'#10'"I '#9'c #AFD2B6",'#10'"J '#9'c #79A674",'#10'"K '#9'c #62825B",'
+#10'"L '#9'c #888888",'#10'"M '#9'c #BABABA",'#10'"N '#9'c #AAA48B",'#10'"O '
+#9'c #A5A086",'#10'"P '#9'c #A19A7F",'#10'"Q '#9'c #323027",'#10'"R '#9'c #A'
+'ED2B6",'#10'"S '#9'c #78A672",'#10'"T '#9'c #608159",'#10'"U '#9'c #DEDEDE"'
+','#10'"V '#9'c #262626",'#10'"W '#9'c #1E1E1E",'#10'"X '#9'c #3F3F3F",'#10
+'"Y '#9'c #AFD2B7",'#10'"Z '#9'c #555555",'#10'"` '#9'c #393939",'#10'" .'#9
+'c #AFA88C",'#10'"..'#9'c #060504",'#10'"+.'#9'c #3E3E3E",'#10'"@.'#9'c #688'
+'C60",'#10'"#.'#9'c #6B9061",'#10'"$.'#9'c #83A07A",'#10'"%.'#9'c #474747",'
+#10'"&.'#9'c #13120F",'#10'"*.'#9'c #ABABAB",'#10'"=.'#9'c #494949",'#10'"-.'
+#9'c #B1D2B8",'#10'";.'#9'c #ACD2B4",'#10'">.'#9'c #618459",'#10'",.'#9'c #6'
+'18058",'#10'"''.'#9'c #2C2C2C",'#10'").'#9'c #A9A489",'#10'"!.'#9'c #A39E85'
+'",'#10'"~.'#9'c #B0D2B7",'#10'"{.'#9'c #58734B",'#10'"].'#9'c #222222",'#10
+'"^.'#9'c #797979",'#10'"/.'#9'c #EBE7D0",'#10'"(.'#9'c #292929",'#10'"_.'#9
+'c #7AA674",'#10'":.'#9'c #232323",'#10'"<.'#9'c #C0C0C0",'#10'"[.'#9'c #D2C'
+'9A5",'#10'"}.'#9'c #A29054",'#10'"|.'#9'c #8E7C3E",'#10'"1.'#9'c #88793C",'
+#10'"2.'#9'c #806C30",'#10'"3.'#9'c #78652C",'#10'"4.'#9'c #26200D",'#10'" '
+' . . . . ",'#10'" . . . . . . + @ # $ . .'
+' . . . . ",'#10'". % % % % % & * = - ; & % % % % > . ",'
+#10'". % , , , , '' * ) ! ~ { ] , , , ^ . ",'#10'". % / / / ( _ : < '
+'[ } | 1 2 / 3 4 . ",'#10'". % , , '' 5 6 6 7 8 9 0 a '' , , b . '
+' ",'#10'". % c / 2 d e f f f f f 1 2 / g h . ",'#10'". % , , , '
+'] ] ] ] ] ] ] ] , , , h . ",'#10'". % c / / / / i j k l l l l { m n'
+' . . . . ",'#10'". % , , , , , o p * * * * * * * * * * * q . ",'#10'". % '
+'r s s s s t * * * * * * * * * * * * * . ",'#10'". % , , , , , u * 6 v w . .'
+' . . . * v x * . ",'#10'". % y s s s s z * * * * A B C D . < * * * . ",'#10
+'". % , , , , , E * F G * H I J K . L M * * . ",'#10'". % N O P P P Q * * * '
+'* H R S T . 9 * * * . ",'#10'". % , , , , , E * U V W X Y S K . Z ` v * . "'
+','#10'". % .O P P P ..* * +.Y B I S @.#.$.%.9 * . ",'#10'". % , , , , , &.'
+'* + *.=.-.;.S >.,.''.0 < * . ",'#10'". % ).!.P P P Q * * * < =.~.S {.].^.< '
+'* * . ",'#10'". /., , , , , E * 6 v w < (._.:.L x <.6 * . ",'#10'". [.}.|.1'
+'.2.3.4.* * * * * < ` 9 < * * * * . ",'#10'" . . . . . . . q * * * * * * * '
+'* * * * q . ",'#10'" . . . . . . . . . . . . . "};'#10
]);
LazarusResources.Add('menu_redo','XPM',[
'/* XPM */'#10'static char * menu_redo_xpm[] = {'#10'"14 18 39 1",'#10'" '#9
+'c None",'#10'".'#9'c #7F7F7F",'#10'"+'#9'c #C9CCC6",'#10'"@'#9'c #DCE7CE",'
+#10'"#'#9'c #C8CCC5",'#10'"$'#9'c #B9C0B0",'#10'"%'#9'c #CED8C2",'#10'"&'#9
+'c #E0EAD4",'#10'"*'#9'c #E8EFDE",'#10'"='#9'c #DEE8D1",'#10'"-'#9'c #CCD0C7'
+'",'#10'";'#9'c #C3CBB9",'#10'">'#9'c #EAF0E2",'#10'",'#9'c #E6EDDD",'#10'"'
+''''#9'c #E8EFDF",'#10'")'#9'c #E2EBD6",'#10'"!'#9'c #C8CBC4",'#10'"~'#9'c #'
+'E9EFE2",'#10'"{'#9'c #E9EFE0",'#10'"]'#9'c #DFE9D2",'#10'"^'#9'c #CDD4C3",'
+#10'"/'#9'c #D5DDCA",'#10'"('#9'c #C8D6B0",'#10'"_'#9'c #BDCD9F",'#10'":'#9
+'c #ACB796",'#10'"<'#9'c #BFC6B5",'#10'"['#9'c #E3ECD8",'#10'"}'#9'c #C2D0A6'
+'",'#10'"|'#9'c #A9B494",'#10'"1'#9'c #CDDAB8",'#10'"2'#9'c #B6C39C",'#10'"3'
+#9'c #CAD3BE",'#10'"4'#9'c #C5D3AC",'#10'"5'#9'c #B2B8AA",'#10'"6'#9'c #CBD7'
+'B9",'#10'"7'#9'c #D7E1C9",'#10'"8'#9'c #B6BCAD",'#10'"9'#9'c #CDD7C1",'#10
+'"0'#9'c #C3CBB8",'#10'" . ",'#10'" .. ",'#10'" .'
+'+. ",'#10'" ....@#. ",'#10'" .$%&*=@-. ",'#10'" .;>,'')@@@!. ",'
+#10'" .$~{*]@@@@@^.",'#10'" ./>(______:. ",'#10'".<[}______|. ",'#10'".%1_:'
+'..._|. ",'#10'".@_2. .:. ",'#10'".@_. .. ",'#10'".34. . '
+'",'#10'".56. ",'#10'" .7. ",'#10'" .89. ",'#10'" '
+' .$0. ",'#10'" .. "};'#10
]);
LazarusResources.Add('menu_save','XPM',[
'/* XPM */'#10'static char * menu_save_xpm[] = {'#10'"18 18 94 2",'#10'" '#9
+'c None",'#10'". '#9'c #010101",'#10'"+ '#9'c #F6F9FF",'#10'"@ '#9'c #ABD5FF'
+'",'#10'"# '#9'c #DEA69C",'#10'"$ '#9'c #E1B3AB",'#10'"% '#9'c #E0B2AB",'#10
+'"& '#9'c #E0B2AA",'#10'"* '#9'c #DDACA3",'#10'"= '#9'c #DAA299",'#10'"- '#9
+'c #DBA59C",'#10'"; '#9'c #D6958A",'#10'"> '#9'c #99CCFF",'#10'", '#9'c #C5E'
+'1FF",'#10'"'' '#9'c #6699CC",'#10'") '#9'c #CC8376",'#10'"! '#9'c #C97362",'
+#10'"~ '#9'c #C97261",'#10'"{ '#9'c #C97061",'#10'"] '#9'c #C97364",'#10'"^ '
+#9'c #C87060",'#10'"/ '#9'c #CC7464",'#10'"( '#9'c #CC7F73",'#10'"_ '#9'c #4'
+'16080",'#10'": '#9'c #B4D9FF",'#10'"< '#9'c #FFFFFF",'#10'"[ '#9'c #426283"'
+','#10'"} '#9'c #F7F7F7",'#10'"| '#9'c #6090C0",'#10'"1 '#9'c #3E5D7B",'#10
+'"2 '#9'c #CCCCCC",'#10'"3 '#9'c #CACACA",'#10'"4 '#9'c #BDBDBD",'#10'"5 '#9
+'c #E7E7E7",'#10'"6 '#9'c #5D8AB8",'#10'"7 '#9'c #3B5976",'#10'"8 '#9'c #F9F'
+'9F9",'#10'"9 '#9'c #EBEBEB",'#10'"0 '#9'c #FCFCFC",'#10'"a '#9'c #F2F2F2",'
+#10'"b '#9'c #C8C8C8",'#10'"c '#9'c #C0C0C0",'#10'"d '#9'c #B8B8B8",'#10'"e '
+#9'c #EFEFEF",'#10'"f '#9'c #EBF1F8",'#10'"g '#9'c #F5F5F5",'#10'"h '#9'c #B'
+'BCAD7",'#10'"i '#9'c #6496C8",'#10'"j '#9'c #5D8BB9",'#10'"k '#9'c #5C89B7"'
+','#10'"l '#9'c #5B87B5",'#10'"m '#9'c #6598CB",'#10'"n '#9'c #8EA4BC",'#10
+'"o '#9'c #C2C2C2",'#10'"p '#9'c #DFDFDF",'#10'"q '#9'c #72787D",'#10'"r '#9
+'c #2F475F",'#10'"s '#9'c #446587",'#10'"t '#9'c #273B50",'#10'"u '#9'c #314'
+'A61",'#10'"v '#9'c #CBCBCB",'#10'"w '#9'c #AAAAAA",'#10'"x '#9'c #263A4D",'
+#10'"y '#9'c #4B7095",'#10'"z '#9'c #436385",'#10'"A '#9'c #6294C5",'#10'"B '
+#9'c #C1C1C1",'#10'"C '#9'c #2F465D",'#10'"D '#9'c #446688",'#10'"E '#9'c #B'
+'3B3B3",'#10'"F '#9'c #243749",'#10'"G '#9'c #496D91",'#10'"H '#9'c #566B81"'
+','#10'"I '#9'c #5E8EBD",'#10'"J '#9'c #2A3F55",'#10'"K '#9'c #476A8E",'#10
+'"L '#9'c #B4B4B4",'#10'"M '#9'c #9F9F9F",'#10'"N '#9'c #24374A",'#10'"O '#9
+'c #4A6E93",'#10'"P '#9'c #3B5A77",'#10'"Q '#9'c #4B5C6C",'#10'"R '#9'c #3D5'
+'C7A",'#10'"S '#9'c #919191",'#10'"T '#9'c #B2B2B2",'#10'"U '#9'c #808080",'
+#10'"V '#9'c #7D7D7D",'#10'"W '#9'c #777777",'#10'"X '#9'c #626262",'#10'"Y '
+#9'c #585858",'#10'"Z '#9'c #1A2836",'#10'"` '#9'c #354F69",'#10'" .'#9'c #3'
+'7526D",'#10'"..'#9'c #273B4F",'#10'" . . . . . . . . . . . . . . . . ",'
+#10'". + @ # $ % & & & & & * = - ; > > . ",'#10'". , '' ) ! ~ { { { { { ] ^ '
+'/ ( '' _ . ",'#10'". : '' < < < < < < < < < < < < '' [ . ",'#10'". : '' < <'
+' < < < < < < < < < } | 1 . ",'#10'". : '' < 2 2 2 2 2 2 2 2 3 4 5 6 7 . ",'
+#10'". : '' < < < < < < < < 8 9 5 5 6 7 . ",'#10'". : '' < < < < < < 0 a 5 5'
+' 5 5 6 7 . ",'#10'". : '' < 2 2 2 b c d d d d d 5 6 7 . ",'#10'". : '' < < '
+'< e 5 5 5 5 5 5 5 5 6 7 . ",'#10'". : '' f < g 5 5 5 5 5 5 5 5 h 6 7 . ",'
+#10'". : '' '' i j 6 6 6 6 6 k l 6 6 6 7 . ",'#10'". : '' m n d d o p 5 2 q '
+'r s 6 6 7 . ",'#10'". : '' | d d t u 5 v d w x y z 6 7 . ",'#10'". : A 6 d '
+'B C D B d d E F G D 6 7 . ",'#10'". H I 6 c p J K d d L M N O D 6 P . ",'#10
+'" . Q R S T U U V W X Y Z u ` .... ",'#10'" . . . . . . . . . . . . . '
+'. . "};'#10
]);
LazarusResources.Add('menu_undo','XPM',[
'/* XPM */'#10'static char * menu_undo_xpm[] = {'#10'"14 19 26 1",'#10'" '#9
+'c None",'#10'".'#9'c #7F7F7F",'#10'"+'#9'c #F7F2DC",'#10'"@'#9'c #F7F3E0",'
+#10'"#'#9'c #F6EABF",'#10'"$'#9'c #F7F1DA",'#10'"%'#9'c #E5DBB6",'#10'"&'#9
+'c #CAC2A7",'#10'"*'#9'c #D7CEAE",'#10'"='#9'c #DFD7B9",'#10'"-'#9'c #CBB583'
+'",'#10'";'#9'c #E8C985",'#10'">'#9'c #EDD59A",'#10'",'#9'c #C7B182",'#10'"'
+''''#9'c #EACE8D",'#10'")'#9'c #D1C9AB",'#10'"!'#9'c #EFDBA4",'#10'"~'#9'c #'
+'DBC084",'#10'"{'#9'c #EBD295",'#10'"]'#9'c #DFD5B2",'#10'"^'#9'c #E9D8A7",'
+#10'"/'#9'c #C1BAA2",'#10'"('#9'c #EFE4BB",'#10'"_'#9'c #E4D9B5",'#10'":'#9
+'c #C6BEA4",'#10'"<'#9'c #D6CDAD",'#10'" ",'#10'" . '
+'",'#10'" .. ",'#10'" .+. ",'#10'" .@#.... ",'#10'" '
+' .$####%&. ",'#10'" .+#######*. ",'#10'".=#########&. ",'#10'" .-;;;;;;>'
+'#%. ",'#10'" .,;;;;;;''#).",'#10'" .,;...-;!%.",'#10'" .-. .~;#.",'
+#10'" .. .;#.",'#10'" . .{].",'#10'" .^/.",'#10'" '
+' .(. ",'#10'" ._:. ",'#10'" .<&. ",'#10'" .. '
+'"};'#10
]);
LazarusResources.Add('menu_unindent','XPM',[
'/* XPM */'#10'static char * menu_unindent_xpm[] = {'#10'"18 15 2 1",'#10'" '
+#9'c None",'#10'".'#9'c #010101",'#10'"........... ",'#10'" '
+' ",'#10'". . . . . . . . . ",'#10'" ",'#10'" . '
+'..........",'#10'" ..... ..........",'#10'"...... ",'#10'" ....'
+'. ........ ",'#10'" . ........ ",'#10'" ",'#10'". '
+'. . . . . . . . ",'#10'" ",'#10'"............. ",'#10
+'" ",'#10'"........... "};'#10
]);