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

IDE: build modes: delete mode value

Browse Source 
git-svn-id: trunk@18567 -
This commit is contained in:
mattias 2009-02-04 17:25:19 +00:00
parent c794cce2e4
commit 549fd5b435
2 changed files with 27 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
ide/lazarusidestrconsts.pas
View File

@ -4036,6 +4036,8 @@ resourcestring
lisDefaultValue = 'Default value'; lisDefaultValue = 'Default value';
lisConfirmDelete = 'Confirm delete'; lisConfirmDelete = 'Confirm delete';
lisDeleteBuildMode = 'Delete build mode %s%s%s?'; lisDeleteBuildMode = 'Delete build mode %s%s%s?';
lisValue2 = 'Value%s';
lisDeleteValue = 'Delete value %s%s%s';
implementation implementation

27
packager/frames/compiler_buildmodes_options.pas
View File

@ -48,6 +48,7 @@ type
procedure DeleteBuildModeClick(Sender: TObject); procedure DeleteBuildModeClick(Sender: TObject);
procedure NewBuildModeClick(Sender: TObject); procedure NewBuildModeClick(Sender: TObject);
procedure NewValueClick(Sender: TObject); procedure NewValueClick(Sender: TObject);
procedure DeleteValueClick(Sender: TObject);
private private
FBuildModes: TIDEBuildModes; FBuildModes: TIDEBuildModes;
fModeImgID: LongInt; fModeImgID: LongInt;
@ -96,7 +97,7 @@ begin
if BuildMode=nil then exit; if BuildMode=nil then exit;
i:=1; i:=1;
repeat repeat
NewValueStr:='Value'+IntToStr(i); NewValueStr:=Format(lisValue2, [IntToStr(i)]);
if BuildMode.Values.IndexOf(NewValueStr)<0 then break; if BuildMode.Values.IndexOf(NewValueStr)<0 then break;
inc(i); inc(i);
until false; until false;
@ -108,6 +109,28 @@ begin
BuildModesTreeView.EndUpdate; BuildModesTreeView.EndUpdate;
end; end;
procedure TCompOptBuildModesFrame.DeleteValueClick(Sender: TObject);
var
BuildMode: TLazBuildMode;
NodeType: TCBMNodeType;
SelTVNode: TTreeNode;
aValue: String;
i: LongInt;
begin
SelTVNode:=GetSelectedNode(BuildMode,NodeType);
if NodeType<>cbmntValue then exit;
aValue:=SelTVNode.Text;
if MessageDlg(lisConfirmDelete,
Format(lisDeleteValue, ['"', aValue, '"']),
mtConfirmation,[mbYes,mbCancel],0)<>mrYes
then exit;
i:=BuildMode.Values.IndexOf(aValue);
if i>=0 then BuildMode.Values.Delete(i);
BuildModesTreeView.BeginUpdate;
SelTVNode.Delete;
BuildModesTreeView.EndUpdate;
end;
procedure TCompOptBuildModesFrame.DeleteBuildModeClick(Sender: TObject); procedure TCompOptBuildModesFrame.DeleteBuildModeClick(Sender: TObject);
var var
BuildMode: TIDEBuildMode; BuildMode: TIDEBuildMode;
@ -157,7 +180,7 @@ begin
if NodeType in [cbmntBuildMode,cbmntValues,cbmntValue] then if NodeType in [cbmntBuildMode,cbmntValues,cbmntValue] then
Add('New value',@NewValueClick); Add('New value',@NewValueClick);
if NodeType in [cbmntValue] then if NodeType in [cbmntValue] then
Add('Delete value ...',nil); Add('Delete value ...',@DeleteValueClick);
AddSeparator; AddSeparator;
Add('New build mode',@NewBuildModeClick); Add('New build mode',@NewBuildModeClick);
if NodeType in [cbmntBuildMode] then if NodeType in [cbmntBuildMode] then