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

IDE: build modes: delete build mode

Browse Source 
git-svn-id: trunk@18564 -
This commit is contained in:
mattias 2009-02-04 16:37:07 +00:00
parent 9adb2fad96
commit e1a8cc2434
2 changed files with 18 additions and 14 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
ide/lazarusidestrconsts.pas
View File

@ -4034,6 +4034,8 @@ resourcestring
lisValue = 'Value:';
lisValues = 'Values';
lisDefaultValue = 'Default value';
lisConfirmDelete = 'Confirm delete';
lisDeleteBuildMode = 'Delete build mode %s%s%s?';
implementation

30
packager/frames/compiler_buildmodes_options.pas
View File

@ -45,7 +45,7 @@ type
BuildModesTreeView: TTreeView;
BuildModeTVPopupMenu: TPopupMenu;
procedure BuildModeTVPopupMenuPopup(Sender: TObject);
procedure DeleteSpeedButtonClick(Sender: TObject);
procedure DeleteBuildModeClick(Sender: TObject);
procedure NewBuildModeClick(Sender: TObject);
private
FBuildModes: TIDEBuildModes;
@ -80,22 +80,24 @@ begin
BuildModesTreeView.EndUpdate;
end;
procedure TCompOptBuildModesFrame.DeleteSpeedButtonClick(Sender: TObject);
{var
procedure TCompOptBuildModesFrame.DeleteBuildModeClick(Sender: TObject);
var
BuildMode: TIDEBuildMode;
i: LongInt;}
SelTVNode: TTreeNode;
NodeType: TCBMNodeType;
i: LongInt;
begin
{ if not GetSelectedBuildMode(BuildMode) then exit;
i:=ModesGrid.Row;
if MessageDlg('Confirm delete',
'Delete build mode "'+BuildMode.Identifier+'"?',
SelTVNode:=GetSelectedNode(BuildMode,NodeType);
if BuildMode=nil then exit;
if MessageDlg(lisConfirmDelete,
Format(lisDeleteBuildMode, ['"', BuildMode.Identifier, '"']),
mtConfirmation,[mbYes,mbCancel],0)<>mrYes
then exit;
i:=BuildModes.IndexOfIdentifier(BuildMode.Identifier);
BuildModes.Delete(i);
ModesGrid.DeleteColRow(false,i);
if i=ModesGrid.RowCount then
dec(i);
ModesGrid.Row:=i;}
BuildModesTreeView.BeginUpdate;
SelTVNode.Delete;
BuildModesTreeView.EndUpdate;
end;
procedure TCompOptBuildModesFrame.BuildModeTVPopupMenuPopup(Sender: TObject);
@ -131,7 +133,7 @@ begin
AddSeparator;
Add('New build mode',@NewBuildModeClick);
if NodeType in [cbmntBuildMode] then
Add('Delete build mode ...',nil);
Add('Delete build mode ...',@DeleteBuildModeClick);
end;
procedure TCompOptBuildModesFrame.SetBuildModes(const AValue: TIDEBuildModes);
@ -163,7 +165,7 @@ var
Values: TStrings;
i: Integer;
DefValueTVNode: TTreeNode;
ValueTVNode: TTreeNode;
ValueTVNode: TTreeNode;
begin
// create node for the build mode
TVNode:=BuildModesTreeView.Items.AddObject(nil,BuildMode.Identifier,BuildMode);