paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-09-04 07:42:59 +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; SelTVNode: TTreeNode;
begin begin
SelTVNode:=BuildModesTreeView.Selected; SelTVNode:=BuildModesTreeView.Selected;
BuildModeTVPopupMenu.Items.Clear;
if SelTVNode=nil then begin if SelTVNode=nil then begin
// no node selected // no node selected
@ -126,23 +125,33 @@ begin
// first level: build modes // first level: build modes
for i:=0 to BuildModes.Count-1 do begin for i:=0 to BuildModes.Count-1 do begin
BuildMode:=BuildModes.Items[i]; BuildMode:=BuildModes.Items[i];
// create node for the build mode
TVNode:=BuildModesTreeView.Items.AddObject(nil,BuildMode.Identifier,BuildMode); TVNode:=BuildModesTreeView.Items.AddObject(nil,BuildMode.Identifier,BuildMode);
TVNode.ImageIndex:=fModeImgID; TVNode.ImageIndex:=fModeImgID;
TVNode.StateIndex:=TVNode.ImageIndex; TVNode.StateIndex:=TVNode.ImageIndex;
// second level: values and default values TVNode.SelectedIndex:=TVNode.ImageIndex;
ValuesTVNode:=BuildModesTreeView.Items.AddChild(TVNode,'Values'); // second level
ValuesTVNode.ImageIndex:=fValuesImgID; begin
ValuesTVNode.StateIndex:=ValuesTVNode.ImageIndex; // parent node for values
Values:=BuildMode.Values; ValuesTVNode:=BuildModesTreeView.Items.AddChild(TVNode,'Values');
for j:=0 to Values.Count-1 do begin ValuesTVNode.ImageIndex:=fValuesImgID;
ValueTVNode:=BuildModesTreeView.Items.AddChild(ValuesTVNode,Values[j]); ValuesTVNode.StateIndex:=ValuesTVNode.ImageIndex;
ValueTVNode.ImageIndex:=fValueImgID; ValuesTVNode.SelectedIndex:=ValuesTVNode.ImageIndex;
ValueTVNode.StateIndex:=ValueTVNode.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; end;
DefValueTVNode:=BuildModesTreeView.Items.AddChild(TVNode,'Default value');
DefValueTVNode.ImageIndex:=fDefValueImgID;
DefValueTVNode.StateIndex:=DefValueTVNode.ImageIndex;
// ToDo: add default value nodes
TVNode.Expand(true); TVNode.Expand(true);
end; end;
end; end;