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

IDE: renamed TCompOptBuildVarsFrame

Browse Source 
git-svn-id: trunk@21406 -
This commit is contained in:
mattias 2009-08-22 21:19:09 +00:00
parent a4eeb8c35c
commit 8115d392f9
6 changed files with 98 additions and 79 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
ide/compileroptionsdlg.lfm
View File

@ -1088,7 +1088,7 @@ object frmCompilerOptions: TfrmCompilerOptions
Align = alTop Align = alTop
ResizeAnchor = akTop ResizeAnchor = akTop
end end
inline BuildModesFrame: TCompOptBuildModesFrame inline BuildVarsFrame: TCompOptBuildVarsFrame
Height = 234 Height = 234
Top = 219 Top = 219
Width = 667 Width = 667
@ -1097,12 +1097,12 @@ object frmCompilerOptions: TfrmCompilerOptions
ClientWidth = 667 ClientWidth = 667
TabOrder = 2 TabOrder = 2
Visible = True Visible = True
inherited BuildModesGroupBox: TGroupBox inherited BuildVarsGroupBox: TGroupBox
Height = 234 Height = 234
Width = 667 Width = 667
ClientHeight = 215 ClientHeight = 215
ClientWidth = 663 ClientWidth = 663
inherited BuildModesTreeView: TTreeView inherited BuildVarsTreeView: TTreeView
Height = 230 Height = 230
Width = 663 Width = 663
DefaultItemHeight = 15 DefaultItemHeight = 15

4
ide/compileroptionsdlg.pp
View File

@ -186,7 +186,7 @@ type
ConditionalPage: TPage; ConditionalPage: TPage;
ConditionalOptionsFrame: TCompOptsConditionalsFrame; ConditionalOptionsFrame: TCompOptsConditionalsFrame;
ConditionalsGroupBox: TGroupBox; ConditionalsGroupBox: TGroupBox;
BuildModesFrame: TCompOptBuildModesFrame; BuildVarsFrame: TCompOptBuildVarsFrame;
{ Inherited Options } { Inherited Options }
InheritedPage: TPage; InheritedPage: TPage;
@ -756,7 +756,7 @@ begin
// conditional // conditional
{$IFDEF EnableBuildModes} {$IFDEF EnableBuildModes}
ConditionalOptionsFrame.Conditionals:=Options.Conditionals as TCompOptConditionals; ConditionalOptionsFrame.Conditionals:=Options.Conditionals as TCompOptConditionals;
BuildModesFrame.BuildProperties:=Options.BuildProperties as TIDEBuildProperties; BuildVarsFrame.BuildProperties:=Options.BuildProperties as TIDEBuildProperties;
{$ENDIF} {$ENDIF}
// inherited tab // inherited tab

2
ide/lazarus.lpi
View File

@ -269,7 +269,7 @@
<Unit33> <Unit33>
<Filename Value="../packager/frames/compiler_buildvar_options.pas"/> <Filename Value="../packager/frames/compiler_buildvar_options.pas"/>
<IsPartOfProject Value="True"/> <IsPartOfProject Value="True"/>
<ComponentName Value="CompOptBuildModesFrame"/> <ComponentName Value="CompOptBuildVarsFrame"/>
<HasResources Value="True"/> <HasResources Value="True"/>
<ResourceBaseClass Value="Frame"/> <ResourceBaseClass Value="Frame"/>
<UnitName Value="Compiler_BuildVar_Options"/> <UnitName Value="Compiler_BuildVar_Options"/>

42
packager/frames/compiler_buildvar_options.lfm
View File

@ -1,42 +1,42 @@
object CompOptBuildModesFrame: TCompOptBuildModesFrame object CompOptBuildVarsFrame: TCompOptBuildVarsFrame
Left = 0 Left = 0
Height = 233 Height = 233
Top = 0 Top = 0
Width = 492 Width = 492
ClientHeight = 229 ClientHeight = 233
ClientWidth = 488 ClientWidth = 492
TabOrder = 0 TabOrder = 0
Visible = False Visible = False
DesignLeft = 349 DesignLeft = 349
DesignTop = 520 DesignTop = 520
object BuildModesGroupBox: TGroupBox object BuildVarsGroupBox: TGroupBox
Left = 0 Left = 0
Height = 229 Height = 233
Top = 0
Width = 492
Align = alClient
Caption = 'BuildVarsGroupBox'
ClientHeight = 214
ClientWidth = 488
TabOrder = 0
object BuildVarsTreeView: TTreeView
Left = 0
Height = 214
Top = 0 Top = 0
Width = 488 Width = 488
Align = alClient Align = alClient
Caption = 'BuildModesGroupBox'
ClientHeight = 210
ClientWidth = 484
TabOrder = 0
object BuildModesTreeView: TTreeView
Left = 0
Height = 210
Top = 0
Width = 484
Align = alClient
DefaultItemHeight = 19 DefaultItemHeight = 19
PopupMenu = BuildModeTVPopupMenu PopupMenu = BuildVarsTVPopupMenu
RightClickSelect = True RightClickSelect = True
TabOrder = 0 TabOrder = 0
OnEdited = BuildModesTreeViewEdited OnEdited = BuildVarsTreeViewEdited
OnEditing = BuildModesTreeViewEditing OnEditing = BuildVarsTreeViewEditing
OnStartDrag = BuildModesTreeViewStartDrag OnStartDrag = BuildVarsTreeViewStartDrag
Options = [tvoAutoItemHeight, tvoHideSelection, tvoKeepCollapsedNodes, tvoRightClickSelect, tvoShowButtons, tvoShowLines, tvoShowRoot, tvoToolTips] Options = [tvoAutoItemHeight, tvoHideSelection, tvoKeepCollapsedNodes, tvoRightClickSelect, tvoShowButtons, tvoShowLines, tvoShowRoot, tvoToolTips]
end end
end end
object BuildModeTVPopupMenu: TPopupMenu object BuildVarsTVPopupMenu: TPopupMenu
OnPopup = BuildModeTVPopupMenuPopup OnPopup = BuildVarsTVPopupMenuPopup
left = 99 left = 99
top = 77 top = 77
end end

19
packager/frames/compiler_buildvar_options.lrs
View File

@ -0,0 +1,19 @@
{ This is an automatically generated lazarus resource file }
LazarusResources.Add('TCompOptBuildVarsFrame','FORMDATA',[
'TPF0'#22'TCompOptBuildVarsFrame'#21'CompOptBuildVarsFrame'#4'Left'#2#0#6'Hei'
+'ght'#3#233#0#3'Top'#2#0#5'Width'#3#236#1#12'ClientHeight'#3#233#0#11'Client'
+'Width'#3#236#1#8'TabOrder'#2#0#7'Visible'#8#10'DesignLeft'#3']'#1#9'DesignT'
+'op'#3#8#2#0#9'TGroupBox'#17'BuildVarsGroupBox'#4'Left'#2#0#6'Height'#3#233#0
+#3'Top'#2#0#5'Width'#3#236#1#5'Align'#7#8'alClient'#7'Caption'#6#17'BuildVar'
+'sGroupBox'#12'ClientHeight'#3#214#0#11'ClientWidth'#3#232#1#8'TabOrder'#2#0
+#0#9'TTreeView'#17'BuildVarsTreeView'#4'Left'#2#0#6'Height'#3#214#0#3'Top'#2
+#0#5'Width'#3#232#1#5'Align'#7#8'alClient'#17'DefaultItemHeight'#2#19#9'Popu'
+'pMenu'#7#20'BuildVarsTVPopupMenu'#16'RightClickSelect'#9#8'TabOrder'#2#0#8
+'OnEdited'#7#23'BuildVarsTreeViewEdited'#9'OnEditing'#7#24'BuildVarsTreeView'
+'Editing'#11'OnStartDrag'#7#26'BuildVarsTreeViewStartDrag'#7'Options'#11#17
+'tvoAutoItemHeight'#16'tvoHideSelection'#21'tvoKeepCollapsedNodes'#19'tvoRig'
+'htClickSelect'#14'tvoShowButtons'#12'tvoShowLines'#11'tvoShowRoot'#11'tvoTo'
+'olTips'#0#0#0#0#10'TPopupMenu'#20'BuildVarsTVPopupMenu'#7'OnPopup'#7#25'Bui'
+'ldVarsTVPopupMenuPopup'#4'left'#2'c'#3'top'#2'M'#0#0#0
]);

110
packager/frames/compiler_buildvar_options.pas
View File

@ -39,19 +39,19 @@ type
cbmntDefaultValueEditor cbmntDefaultValueEditor
); );
{ TCompOptBuildModesFrame } { TCompOptBuildVarsFrame }
TCompOptBuildModesFrame = class(TFrame) TCompOptBuildVarsFrame = class(TFrame)
BuildModesGroupBox: TGroupBox; BuildVarsGroupBox: TGroupBox;
BuildModesTreeView: TTreeView; BuildVarsTreeView: TTreeView;
BuildModeTVPopupMenu: TPopupMenu; BuildVarsTVPopupMenu: TPopupMenu;
procedure BuildModesTreeViewEdited(Sender: TObject; Node: TTreeNode; procedure BuildVarsTreeViewEdited(Sender: TObject; Node: TTreeNode;
var S: string); var S: string);
procedure BuildModesTreeViewEditing(Sender: TObject; Node: TTreeNode; procedure BuildVarsTreeViewEditing(Sender: TObject; Node: TTreeNode;
var AllowEdit: Boolean); var AllowEdit: Boolean);
procedure BuildModesTreeViewStartDrag(Sender: TObject; procedure BuildVarsTreeViewStartDrag(Sender: TObject;
var DragObject: TDragObject); var DragObject: TDragObject);
procedure BuildModeTVPopupMenuPopup(Sender: TObject); procedure BuildVarsTVPopupMenuPopup(Sender: TObject);
procedure DeleteBuildModeClick(Sender: TObject); procedure DeleteBuildModeClick(Sender: TObject);
procedure NewBuildModeClick(Sender: TObject); procedure NewBuildModeClick(Sender: TObject);
procedure NewValueClick(Sender: TObject); procedure NewValueClick(Sender: TObject);
@ -82,9 +82,9 @@ type
implementation implementation
{ TCompOptBuildModesFrame } { TCompOptBuildVarsFrame }
procedure TCompOptBuildModesFrame.NewBuildModeClick(Sender: TObject); procedure TCompOptBuildVarsFrame.NewBuildModeClick(Sender: TObject);
var var
NewIdentifier: String; NewIdentifier: String;
NewBuildProperty: TLazBuildProperty; NewBuildProperty: TLazBuildProperty;
@ -98,12 +98,12 @@ begin
SetResultNode.ValueType:=cocvtResult; SetResultNode.ValueType:=cocvtResult;
NewBuildProperty.DefaultValue.Root.AddLast(SetResultNode); NewBuildProperty.DefaultValue.Root.AddLast(SetResultNode);
// add to TreeView // add to TreeView
BuildModesTreeView.BeginUpdate; BuildVarsTreeView.BeginUpdate;
TreeViewAddBuildMode(NewBuildProperty); TreeViewAddBuildMode(NewBuildProperty);
BuildModesTreeView.EndUpdate; BuildVarsTreeView.EndUpdate;
end; end;
procedure TCompOptBuildModesFrame.NewValueClick(Sender: TObject); procedure TCompOptBuildVarsFrame.NewValueClick(Sender: TObject);
var var
BuildProperty: TLazBuildProperty; BuildProperty: TLazBuildProperty;
NodeType: TCBMNodeType; NodeType: TCBMNodeType;
@ -120,14 +120,14 @@ begin
inc(i); inc(i);
until false; until false;
BuildProperty.Values.Add(NewValueStr); BuildProperty.Values.Add(NewValueStr);
BuildModesTreeView.BeginUpdate; BuildVarsTreeView.BeginUpdate;
ValuesTVNode:=GetValuesTVNode(BuildProperty); ValuesTVNode:=GetValuesTVNode(BuildProperty);
TreeViewAddValue(ValuesTVNode,NewValueStr); TreeViewAddValue(ValuesTVNode,NewValueStr);
ValuesTVNode.Expand(true); ValuesTVNode.Expand(true);
BuildModesTreeView.EndUpdate; BuildVarsTreeView.EndUpdate;
end; end;
procedure TCompOptBuildModesFrame.DeleteValueClick(Sender: TObject); procedure TCompOptBuildVarsFrame.DeleteValueClick(Sender: TObject);
var var
BuildProperty: TLazBuildProperty; BuildProperty: TLazBuildProperty;
NodeType: TCBMNodeType; NodeType: TCBMNodeType;
@ -144,12 +144,12 @@ begin
then exit; then exit;
i:=BuildProperty.Values.IndexOf(aValue); i:=BuildProperty.Values.IndexOf(aValue);
if i>=0 then BuildProperty.Values.Delete(i); if i>=0 then BuildProperty.Values.Delete(i);
BuildModesTreeView.BeginUpdate; BuildVarsTreeView.BeginUpdate;
SelTVNode.Delete; SelTVNode.Delete;
BuildModesTreeView.EndUpdate; BuildVarsTreeView.EndUpdate;
end; end;
procedure TCompOptBuildModesFrame.DeleteBuildModeClick(Sender: TObject); procedure TCompOptBuildVarsFrame.DeleteBuildModeClick(Sender: TObject);
var var
BuildProperty: TIDEBuildProperty; BuildProperty: TIDEBuildProperty;
SelTVNode: TTreeNode; SelTVNode: TTreeNode;
@ -168,12 +168,12 @@ begin
FEditors.Remove(Editor); FEditors.Remove(Editor);
Editor.Free; Editor.Free;
BuildProperties.Delete(i); BuildProperties.Delete(i);
BuildModesTreeView.BeginUpdate; BuildVarsTreeView.BeginUpdate;
SelTVNode.Delete; SelTVNode.Delete;
BuildModesTreeView.EndUpdate; BuildVarsTreeView.EndUpdate;
end; end;
procedure TCompOptBuildModesFrame.BuildModeTVPopupMenuPopup(Sender: TObject); procedure TCompOptBuildVarsFrame.BuildVarsTVPopupMenuPopup(Sender: TObject);
var var
BuildProperty: TLazBuildProperty; BuildProperty: TLazBuildProperty;
NodeType: TCBMNodeType; NodeType: TCBMNodeType;
@ -184,20 +184,20 @@ var
Result:=TMenuItem.Create(Self); Result:=TMenuItem.Create(Self);
Result.Caption:=aCaption; Result.Caption:=aCaption;
Result.OnClick:=OnClickEvent; Result.OnClick:=OnClickEvent;
BuildModeTVPopupMenu.Items.Add(Result); BuildVarsTVPopupMenu.Items.Add(Result);
end; end;
function AddSeparator: TMenuItem; function AddSeparator: TMenuItem;
begin begin
Result:=nil; Result:=nil;
if BuildModeTVPopupMenu.Items.Count=0 then exit; if BuildVarsTVPopupMenu.Items.Count=0 then exit;
Result:=TMenuItem.Create(Self); Result:=TMenuItem.Create(Self);
Result.Caption:='-'; Result.Caption:='-';
BuildModeTVPopupMenu.Items.Add(Result); BuildVarsTVPopupMenu.Items.Add(Result);
end; end;
begin begin
BuildModeTVPopupMenu.Items.Clear; BuildVarsTVPopupMenu.Items.Clear;
GetSelectedNode(BuildProperty,NodeType); GetSelectedNode(BuildProperty,NodeType);
if NodeType in [cbmntBuildMode,cbmntValues,cbmntValue] then if NodeType in [cbmntBuildMode,cbmntValues,cbmntValue] then
@ -210,11 +210,11 @@ begin
Add('Delete build mode ...',@DeleteBuildModeClick); Add('Delete build mode ...',@DeleteBuildModeClick);
if NodeType in [cbmntDefaultValue,cbmntDefaultValueEditor] then begin if NodeType in [cbmntDefaultValue,cbmntDefaultValueEditor] then begin
Editor:=GetEditor(BuildProperty); Editor:=GetEditor(BuildProperty);
Editor.FillPopupMenu(BuildModeTVPopupMenu); Editor.FillPopupMenu(BuildVarsTVPopupMenu);
end; end;
end; end;
procedure TCompOptBuildModesFrame.BuildModesTreeViewEditing(Sender: TObject; procedure TCompOptBuildVarsFrame.BuildVarsTreeViewEditing(Sender: TObject;
Node: TTreeNode; var AllowEdit: Boolean); Node: TTreeNode; var AllowEdit: Boolean);
var var
BuildProperty: TLazBuildProperty; BuildProperty: TLazBuildProperty;
@ -224,13 +224,13 @@ begin
AllowEdit:=NodeType in [cbmntBuildMode,cbmntValue]; AllowEdit:=NodeType in [cbmntBuildMode,cbmntValue];
end; end;
procedure TCompOptBuildModesFrame.BuildModesTreeViewStartDrag(Sender: TObject; procedure TCompOptBuildVarsFrame.BuildVarsTreeViewStartDrag(Sender: TObject;
var DragObject: TDragObject); var DragObject: TDragObject);
begin begin
end; end;
procedure TCompOptBuildModesFrame.BuildModesTreeViewEdited(Sender: TObject; procedure TCompOptBuildVarsFrame.BuildVarsTreeViewEdited(Sender: TObject;
Node: TTreeNode; var S: string); Node: TTreeNode; var S: string);
var var
BuildProperty: TLazBuildProperty; BuildProperty: TLazBuildProperty;
@ -281,7 +281,7 @@ begin
end; end;
end; end;
procedure TCompOptBuildModesFrame.SetBuildProperties( procedure TCompOptBuildVarsFrame.SetBuildProperties(
const AValue: TIDEBuildProperties); const AValue: TIDEBuildProperties);
begin begin
if FBuildProperties=AValue then exit; if FBuildProperties=AValue then exit;
@ -289,22 +289,22 @@ begin
RebuildTreeView; RebuildTreeView;
end; end;
procedure TCompOptBuildModesFrame.RebuildTreeView; procedure TCompOptBuildVarsFrame.RebuildTreeView;
var var
i: Integer; i: Integer;
begin begin
BuildModesTreeView.BeginUpdate; BuildVarsTreeView.BeginUpdate;
BuildModesTreeView.Items.Clear; BuildVarsTreeView.Items.Clear;
FreeEditors; FreeEditors;
if BuildProperties<>nil then begin if BuildProperties<>nil then begin
// first level: build modes // first level: build modes
for i:=0 to BuildProperties.Count-1 do for i:=0 to BuildProperties.Count-1 do
TreeViewAddBuildMode(BuildProperties.Items[i]); TreeViewAddBuildMode(BuildProperties.Items[i]);
end; end;
BuildModesTreeView.EndUpdate; BuildVarsTreeView.EndUpdate;
end; end;
procedure TCompOptBuildModesFrame.TreeViewAddBuildMode( procedure TCompOptBuildVarsFrame.TreeViewAddBuildMode(
BuildProperty: TLazBuildProperty); BuildProperty: TLazBuildProperty);
var var
TVNode: TTreeNode; TVNode: TTreeNode;
@ -315,13 +315,13 @@ var
Editor: TCompOptsExprEditor; Editor: TCompOptsExprEditor;
begin begin
// create node for the build mode // create node for the build mode
TVNode:=BuildModesTreeView.Items.AddObject(nil,BuildProperty.Identifier,BuildProperty); TVNode:=BuildVarsTreeView.Items.AddObject(nil,BuildProperty.Identifier,BuildProperty);
TVNode.ImageIndex:=fModeImgID; TVNode.ImageIndex:=fModeImgID;
TVNode.SelectedIndex:=TVNode.ImageIndex; TVNode.SelectedIndex:=TVNode.ImageIndex;
// second level // second level
begin begin
// parent node for values // parent node for values
ValuesTVNode:=BuildModesTreeView.Items.AddChild(TVNode, lisValues); ValuesTVNode:=BuildVarsTreeView.Items.AddChild(TVNode, lisValues);
ValuesTVNode.ImageIndex:=fValuesImgID; ValuesTVNode.ImageIndex:=fValuesImgID;
ValuesTVNode.SelectedIndex:=ValuesTVNode.ImageIndex; ValuesTVNode.SelectedIndex:=ValuesTVNode.ImageIndex;
// a node for each value // a node for each value
@ -329,7 +329,7 @@ begin
for i:=0 to Values.Count-1 do for i:=0 to Values.Count-1 do
TreeViewAddValue(ValuesTVNode,Values[i]); TreeViewAddValue(ValuesTVNode,Values[i]);
// a node for the default value // a node for the default value
DefValueTVNode:=BuildModesTreeView.Items.AddChild(TVNode, DefValueTVNode:=BuildVarsTreeView.Items.AddChild(TVNode,
lisDefaultValue); lisDefaultValue);
DefValueTVNode.ImageIndex:=fDefValueImgID; DefValueTVNode.ImageIndex:=fDefValueImgID;
DefValueTVNode.SelectedIndex:=DefValueTVNode.ImageIndex; DefValueTVNode.SelectedIndex:=DefValueTVNode.ImageIndex;
@ -338,24 +338,24 @@ begin
Editor.DefaultNodeType:=cocntSetValue; Editor.DefaultNodeType:=cocntSetValue;
Editor.DefaultValueType:=cocvtResult; Editor.DefaultValueType:=cocvtResult;
FEditors.Add(Editor); FEditors.Add(Editor);
Editor.Setup(BuildModesTreeView,DefValueTVNode, Editor.Setup(BuildVarsTreeView,DefValueTVNode,
BuildProperty.DefaultValue as TCompOptConditionals,[cocvtResult]); BuildProperty.DefaultValue as TCompOptConditionals,[cocvtResult]);
end; end;
//DebugLn(['TCompOptBuildModesFrame.TreeViewAddBuildMode ',TVNode.Text]); //DebugLn(['TCompOptBuildModesFrame.TreeViewAddBuildMode ',TVNode.Text]);
TVNode.Expand(true); TVNode.Expand(true);
end; end;
procedure TCompOptBuildModesFrame.TreeViewAddValue(ValuesTVNode: TTreeNode; procedure TCompOptBuildVarsFrame.TreeViewAddValue(ValuesTVNode: TTreeNode;
aValue: string); aValue: string);
var var
ValueTVNode: TTreeNode; ValueTVNode: TTreeNode;
begin begin
ValueTVNode:=BuildModesTreeView.Items.AddChild(ValuesTVNode,aValue); ValueTVNode:=BuildVarsTreeView.Items.AddChild(ValuesTVNode,aValue);
ValueTVNode.ImageIndex:=fValueImgID; ValueTVNode.ImageIndex:=fValueImgID;
ValueTVNode.SelectedIndex:=ValueTVNode.ImageIndex; ValueTVNode.SelectedIndex:=ValueTVNode.ImageIndex;
end; end;
function TCompOptBuildModesFrame.GetNodeInfo(Node: TTreeNode; out function TCompOptBuildVarsFrame.GetNodeInfo(Node: TTreeNode; out
BuildProperty: TLazBuildProperty): TCBMNodeType; BuildProperty: TLazBuildProperty): TCBMNodeType;
function GetNodeType(CurNode: TTreeNode): TCBMNodeType; function GetNodeType(CurNode: TTreeNode): TCBMNodeType;
@ -388,22 +388,22 @@ begin
Result:=GetNodeType(Node); Result:=GetNodeType(Node);
end; end;
function TCompOptBuildModesFrame.GetSelectedNode(out function TCompOptBuildVarsFrame.GetSelectedNode(out
BuildProperty: TLazBuildProperty; out NodeType: TCBMNodeType): TTreeNode; BuildProperty: TLazBuildProperty; out NodeType: TCBMNodeType): TTreeNode;
begin begin
Result:=BuildModesTreeView.Selected; Result:=BuildVarsTreeView.Selected;
NodeType:=GetNodeInfo(Result,BuildProperty); NodeType:=GetNodeInfo(Result,BuildProperty);
end; end;
function TCompOptBuildModesFrame.GetBuildModeTVNode(BuildProperty: TLazBuildProperty function TCompOptBuildVarsFrame.GetBuildModeTVNode(BuildProperty: TLazBuildProperty
): TTreeNode; ): TTreeNode;
begin begin
Result:=BuildModesTreeView.Items.GetFirstNode; Result:=BuildVarsTreeView.Items.GetFirstNode;
while (Result<>nil) and (TObject(Result.Data)<>BuildProperty) do while (Result<>nil) and (TObject(Result.Data)<>BuildProperty) do
Result:=Result.GetNextSibling; Result:=Result.GetNextSibling;
end; end;
function TCompOptBuildModesFrame.GetValuesTVNode(BuildProperty: TLazBuildProperty function TCompOptBuildVarsFrame.GetValuesTVNode(BuildProperty: TLazBuildProperty
): TTreeNode; ): TTreeNode;
var var
BuildModeTVNode: TTreeNode; BuildModeTVNode: TTreeNode;
@ -415,7 +415,7 @@ begin
Result:=nil; Result:=nil;
end; end;
procedure TCompOptBuildModesFrame.FreeEditors; procedure TCompOptBuildVarsFrame.FreeEditors;
var var
i: Integer; i: Integer;
begin begin
@ -424,7 +424,7 @@ begin
FEditors.Clear; FEditors.Clear;
end; end;
function TCompOptBuildModesFrame.GetEditor(BuildProperty: TLazBuildProperty function TCompOptBuildVarsFrame.GetEditor(BuildProperty: TLazBuildProperty
): TCompOptsExprEditor; ): TCompOptsExprEditor;
var var
i: Integer; i: Integer;
@ -436,20 +436,20 @@ begin
Result:=nil; Result:=nil;
end; end;
constructor TCompOptBuildModesFrame.Create(TheOwner: TComponent); constructor TCompOptBuildVarsFrame.Create(TheOwner: TComponent);
begin begin
inherited Create(TheOwner); inherited Create(TheOwner);
FEditors:=TFPList.Create; FEditors:=TFPList.Create;
BuildModesTreeView.Images := IDEImages.Images_24; BuildVarsTreeView.Images := IDEImages.Images_24;
fModeImgID:=IDEImages.LoadImage(24,'da_define'); fModeImgID:=IDEImages.LoadImage(24,'da_define');
fValueImgID:=IDEImages.LoadImage(24,'da_define'); fValueImgID:=IDEImages.LoadImage(24,'da_define');
fDefValueImgID:=IDEImages.LoadImage(24,'da_define'); fDefValueImgID:=IDEImages.LoadImage(24,'da_define');
BuildModesGroupBox.Caption:='Build modes'; BuildVarsGroupBox.Caption:='Build modes';
end; end;
destructor TCompOptBuildModesFrame.Destroy; destructor TCompOptBuildVarsFrame.Destroy;
begin begin
FreeEditors; FreeEditors;
FreeAndNil(FEditors); FreeAndNil(FEditors);