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

IDE: build modes: clean up

Browse Source 
git-svn-id: trunk@18560 -
This commit is contained in:
mattias 2009-02-04 15:45:39 +00:00
parent c0d727fb3c
commit 1390b6e044
1 changed files with 23 additions and 14 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

37
packager/frames/compiler_buildmodes_options.pas
View File

@ -92,7 +92,6 @@ var
SelTVNode: TTreeNode;
begin
SelTVNode:=BuildModesTreeView.Selected;
BuildModeTVPopupMenu.Items.Clear;
if SelTVNode=nil then begin
// no node selected
@ -126,23 +125,33 @@ begin
// first level: build modes
for i:=0 to BuildModes.Count-1 do begin
BuildMode:=BuildModes.Items[i];
// create node for the build mode
TVNode:=BuildModesTreeView.Items.AddObject(nil,BuildMode.Identifier,BuildMode);
TVNode.ImageIndex:=fModeImgID;
TVNode.StateIndex:=TVNode.ImageIndex;
// second level: values and default values
ValuesTVNode:=BuildModesTreeView.Items.AddChild(TVNode,'Values');
ValuesTVNode.ImageIndex:=fValuesImgID;
ValuesTVNode.StateIndex:=ValuesTVNode.ImageIndex;
Values:=BuildMode.Values;
for j:=0 to Values.Count-1 do begin
ValueTVNode:=BuildModesTreeView.Items.AddChild(ValuesTVNode,Values[j]);
ValueTVNode.ImageIndex:=fValueImgID;
ValueTVNode.StateIndex:=ValueTVNode.ImageIndex;
TVNode.SelectedIndex:=TVNode.ImageIndex;
// second level
begin
// parent node for values
ValuesTVNode:=BuildModesTreeView.Items.AddChild(TVNode,'Values');
ValuesTVNode.ImageIndex:=fValuesImgID;
ValuesTVNode.StateIndex:=ValuesTVNode.ImageIndex;
ValuesTVNode.SelectedIndex:=ValuesTVNode.ImageIndex;
// a node for each value
Values:=BuildMode.Values;
for j:=0 to Values.Count-1 do begin
ValueTVNode:=BuildModesTreeView.Items.AddChild(ValuesTVNode,Values[j]);
ValueTVNode.ImageIndex:=fValueImgID;
ValueTVNode.StateIndex:=ValueTVNode.ImageIndex;
ValueTVNode.SelectedIndex:=ValueTVNode.ImageIndex;
end;
// a node for the default value
DefValueTVNode:=BuildModesTreeView.Items.AddChild(TVNode,'Default value');
DefValueTVNode.ImageIndex:=fDefValueImgID;
DefValueTVNode.StateIndex:=DefValueTVNode.ImageIndex;
DefValueTVNode.SelectedIndex:=DefValueTVNode.ImageIndex;
// ToDo: add default value nodes
end;
DefValueTVNode:=BuildModesTreeView.Items.AddChild(TVNode,'Default value');
DefValueTVNode.ImageIndex:=fDefValueImgID;
DefValueTVNode.StateIndex:=DefValueTVNode.ImageIndex;
// ToDo: add default value nodes
TVNode.Expand(true);
end;
end;