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

ide: add delete all button in resource options

Browse Source 
git-svn-id: trunk@43229 -
This commit is contained in:
paul 2013-10-13 07:06:04 +00:00
parent a616abdfe9
commit 86a162998f
3 changed files with 38 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
ide/frames/project_resources_options.lfm
View File

@ -31,11 +31,12 @@ object ResourcesOptionsFrame: TResourcesOptionsFrame
end
item
Caption = 'Resource'
Width = 658
Width = 508
end>
RowSelect = True
TabOrder = 0
ViewStyle = vsReport
OnInsert = lbResourcesInsert
OnSelectItem = lbResourcesSelectItem
end
object ToolBar1: TToolBar
@ -61,6 +62,13 @@ object ResourcesOptionsFrame: TResourcesOptionsFrame
Enabled = False
OnClick = btnDeleteClick
end
object btnClear: TToolButton
Left = 108
Top = 0
Caption = 'btnClear'
Enabled = False
OnClick = btnClearClick
end
end
object dlgOpen: TOpenDialog
left = 146

31
ide/frames/project_resources_options.pas
View File

@ -6,7 +6,7 @@ interface
uses
Classes, SysUtils, FileUtil, Graphics, Forms, Controls, ComCtrls, Dialogs, LCLProc,
IDEOptionsIntf, IDEImagesIntf,
IDEOptionsIntf, IDEImagesIntf, IDEDialogs,
Project, ProjectUserResources, LCLStrConsts, LazarusIDEStrConsts;
type
@ -19,8 +19,11 @@ type
ToolBar1: TToolBar;
btnAdd: TToolButton;
btnDelete: TToolButton;
btnClear: TToolButton;
procedure btnAddClick(Sender: TObject);
procedure btnClearClick(Sender: TObject);
procedure btnDeleteClick(Sender: TObject);
procedure lbResourcesInsert(Sender: TObject; Item: TListItem);
procedure lbResourcesSelectItem(Sender: TObject; Item: TListItem;
Selected: Boolean);
private
@ -46,6 +49,13 @@ begin
AddResource(dlgOpen.FileName);
end;
procedure TResourcesOptionsFrame.btnClearClick(Sender: TObject);
begin
if IDEMessageDialog(lisConfirmDelete, rsResourceClear, mtConfirmation, [mbYes, mbNo]) = mrYes then
lbResources.Items.Clear;
btnClear.Enabled := lbResources.Items.Count > 0;
end;
procedure TResourcesOptionsFrame.btnDeleteClick(Sender: TObject);
var
Index: Integer;
@ -53,6 +63,13 @@ begin
Index := lbResources.ItemIndex;
if (Index <> -1) then
lbResources.Items.Delete(Index);
btnClear.Enabled := lbResources.Items.Count > 0;
end;
procedure TResourcesOptionsFrame.lbResourcesInsert(Sender: TObject;
Item: TListItem);
begin
btnClear.Enabled := lbResources.Items.Count > 0;
end;
procedure TResourcesOptionsFrame.lbResourcesSelectItem(Sender: TObject; Item: TListItem; Selected: Boolean);
@ -102,6 +119,8 @@ begin
btnDelete.Caption := lisBtnDelete;
btnAdd.ImageIndex := IDEImages.LoadImage(16, 'laz_add');
btnDelete.ImageIndex := IDEImages.LoadImage(16, 'laz_delete');
btnClear.Caption := lisDeleteAll;
btnClear.ImageIndex := IDEImages.LoadImage(16, 'menu_clean');
// system resources can be:
// 1. Graphic files
// 2. Font files
@ -117,8 +136,14 @@ var
begin
lbResources.Items.Clear;
List := Project.ProjResources.UserResources.List;
for I := 0 to List.Count - 1 do
AddResourceItem(List[I]^.FileName, List[I]^.ResType, List[I]^.ResName);
lbResources.Items.BeginUpdate;
try
for I := 0 to List.Count - 1 do
AddResourceItem(List[I]^.FileName, List[I]^.ResType, List[I]^.ResName);
finally
lbResources.Items.EndUpdate;
end;
btnClear.Enabled := lbResources.Items.Count > 0;
end;
procedure TResourcesOptionsFrame.WriteSettings(AOptions: TAbstractIDEOptions);

1
ide/lazarusidestrconsts.pas
View File

@ -2281,6 +2281,7 @@ resourcestring
rsResourceFileName = 'File name';
rsResourceType = 'Type';
rsResource = 'Resource';
rsResourceClear = 'Delete all resources?';
dlgPOMisc = 'Miscellaneous';
dlgPOI18n = 'i18n';
rsEnableI18n = 'Enable i18n';