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

IDE: Fix bugs in EditorFileManager, make the popupmenu functional.

Browse Source 
git-svn-id: trunk@35419 -
This commit is contained in:
juha 2012-02-17 14:51:32 +00:00
parent 63cc0a9ac2
commit 088114e24b
4 changed files with 23 additions and 13 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
ide/editorfilemanager.lfm
View File

@ -121,6 +121,7 @@ object EditorFileManagerForm: TEditorFileManagerForm
end end
end end
object PopupMenu1: TPopupMenu object PopupMenu1: TPopupMenu
OnPopup = PopupMenu1Popup
left = 304 left = 304
top = 8 top = 8
object ActivateMenuItem: TMenuItem object ActivateMenuItem: TMenuItem

25
ide/editorfilemanager.pas
View File

@ -29,6 +29,7 @@ type
procedure CheckListBox1Click(Sender: TObject); procedure CheckListBox1Click(Sender: TObject);
procedure CheckListBox1ItemClick(Sender: TObject; Index: integer); procedure CheckListBox1ItemClick(Sender: TObject; Index: integer);
procedure CloseCheckedButtonClick(Sender: TObject); procedure CloseCheckedButtonClick(Sender: TObject);
procedure PopupMenu1Popup(Sender: TObject);
procedure SaveCheckedButtonClick(Sender: TObject); procedure SaveCheckedButtonClick(Sender: TObject);
procedure CloseMenuItemClick(Sender: TObject); procedure CloseMenuItemClick(Sender: TObject);
procedure FormCreate(Sender: TObject); procedure FormCreate(Sender: TObject);
@ -74,29 +75,26 @@ begin
end; end;
FilterEdit.InvalidateFilter; FilterEdit.InvalidateFilter;
// Captions // Captions
ActivateMenuItem.Caption:=lisActivateSelected; Caption:=lisEditorFileManager;
ActivateMenuItem.Caption:=lisActivate;
CloseMenuItem.Caption:=lisMenuClose; CloseMenuItem.Caption:=lisMenuClose;
SelectAllCheckBox.Caption:=lisCheckAll; SelectAllCheckBox.Caption:=lisCheckAll;
ActivateButton.Caption:=lisActivateSelected; ActivateButton.Caption:=lisActivateSelected;
SaveCheckedButton.Caption:=lisSaveAllChecked; SaveCheckedButton.Caption:=lisSaveAllChecked;
CloseCheckedButton.Caption:=lisCloseAllChecked; CloseCheckedButton.Caption:=lisCloseAllChecked;
// Icons // Icons
PopupMenu1.Images:=IDEImages.Images_16;
ActivateMenuItem.ImageIndex:=IDEImages.LoadImage(16, 'laz_open'); ActivateMenuItem.ImageIndex:=IDEImages.LoadImage(16, 'laz_open');
CloseMenuItem.ImageIndex:=IDEImages.LoadImage(16, 'laz_close'); CloseMenuItem.ImageIndex:=IDEImages.LoadImage(16, 'menu_close');
ActivateButton.LoadGlyphFromLazarusResource('laz_open'); ActivateButton.LoadGlyphFromLazarusResource('laz_open');
CloseCheckedButton.LoadGlyphFromLazarusResource('menu_close_all'); CloseCheckedButton.LoadGlyphFromLazarusResource('menu_close_all');
SaveCheckedButton.LoadGlyphFromLazarusResource('menu_save_all'); SaveCheckedButton.LoadGlyphFromLazarusResource('menu_save_all');
end; end;
procedure TEditorFileManagerForm.CheckListBox1Click(Sender: TObject); procedure TEditorFileManagerForm.CheckListBox1Click(Sender: TObject);
var
clb: TCheckListBox;
HasSelected: Boolean;
begin begin
HasSelected:=(Sender as TCheckListBox).SelCount>0;
// Enable ActivateButton when there is a selected item. // Enable ActivateButton when there is a selected item.
ActivateButton.Enabled:=HasSelected; ActivateButton.Enabled:=(Sender as TCheckListBox).SelCount>0;
ActivateMenuItem.Enabled:=HasSelected;
end; end;
procedure TEditorFileManagerForm.CheckListBox1ItemClick(Sender: TObject; Index: integer); procedure TEditorFileManagerForm.CheckListBox1ItemClick(Sender: TObject; Index: integer);
@ -128,7 +126,7 @@ var
i: Integer; i: Integer;
begin begin
cb:=Sender as TCheckBox; cb:=Sender as TCheckBox;
// Caption text : select all / unselect all // Caption text : check all / uncheck all
if cb.Checked then if cb.Checked then
cb.Caption:=lisUncheckAll cb.Caption:=lisUncheckAll
else else
@ -167,6 +165,15 @@ begin
UpdateButtons; UpdateButtons;
end; end;
procedure TEditorFileManagerForm.PopupMenu1Popup(Sender: TObject);
var
HasSelected: Boolean;
begin
HasSelected:=CheckListBox1.SelCount>0;
ActivateMenuItem.Enabled:=HasSelected;
CloseMenuItem.Enabled:=HasSelected;
end;
procedure TEditorFileManagerForm.CloseMenuItemClick(Sender: TObject); procedure TEditorFileManagerForm.CloseMenuItemClick(Sender: TObject);
begin begin
CloseListItem(CheckListBox1.ItemIndex); CloseListItem(CheckListBox1.ItemIndex);

8
ide/lazarusidestrconsts.pas
View File

@ -451,7 +451,8 @@ resourcestring
lisMenuBuildLazarus = 'Build Lazarus with Current Profile'; lisMenuBuildLazarus = 'Build Lazarus with Current Profile';
lisMenuBuildLazarusProf = 'Build Lazarus with Profile: %s'; lisMenuBuildLazarusProf = 'Build Lazarus with Profile: %s';
lisMenuConfigureBuildLazarus = 'Configure "Build Lazarus" ...'; lisMenuConfigureBuildLazarus = 'Configure "Build Lazarus" ...';
lisEditorFileManager = 'Editor File Manager ...'; lisDlgEditorFileManager = 'Editor File Manager ...';
lisEditorFileManager = 'Editor File Manager';
lisSearchProjectsFrom = 'Search projects from'; lisSearchProjectsFrom = 'Search projects from';
lisMEOther = 'Other'; lisMEOther = 'Other';
@ -925,9 +926,10 @@ resourcestring
lisCloseAllTabsQuestion = 'Closing a Source Editor Window. Do you want close all files or hide the window?'; lisCloseAllTabsQuestion = 'Closing a Source Editor Window. Do you want close all files or hide the window?';
lisCloseAllTabsClose = 'Close files'; lisCloseAllTabsClose = 'Close files';
lisCloseAllChecked = 'Close All Checked'; lisCloseAllChecked = 'Close All Checked';
lisSaveAllChecked = 'Save All Checked';
lisActivateSelected = 'Activate Selected';
lisCloseAllTabsHide = 'Hide window'; lisCloseAllTabsHide = 'Hide window';
lisSaveAllChecked = 'Save All Checked';
lisActivate = 'Activate';
lisActivateSelected = 'Activate Selected';
// hints // hints
lisHintOpen = 'Open'; lisHintOpen = 'Open';

2
ide/mainbase.pas
View File

@ -782,7 +782,7 @@ begin
with MainIDEBar do begin with MainIDEBar do begin
CreateMenuSeparatorSection(mnuWindow,itmWindowManagers,'itmWindowManagers'); CreateMenuSeparatorSection(mnuWindow,itmWindowManagers,'itmWindowManagers');
ParentMI:=itmWindowManagers; ParentMI:=itmWindowManagers;
CreateMenuItem(ParentMI,itmWindowManager,'itmWindowManager', lisEditorFileManager, 'pkg_files'); CreateMenuItem(ParentMI,itmWindowManager,'itmWindowManager', lisDlgEditorFileManager, 'pkg_files');
// Populated later with a list of editor names // Populated later with a list of editor names
CreateMenuSeparatorSection(mnuWindow,itmWindowLists,'itmWindowLists'); CreateMenuSeparatorSection(mnuWindow,itmWindowLists,'itmWindowLists');
end; end;