paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-14 20:59:06 +02:00
Code Issues Packages Projects Releases Wiki Activity

build mode: started default value editors

Browse Source 
git-svn-id: trunk@18589 -
This commit is contained in:
mattias 2009-02-05 16:21:43 +00:00
parent 83abb54780
commit 321c976935
2 changed files with 28 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

30
packager/frames/compiler_buildmodes_options.pas
View File

@ -25,7 +25,7 @@ interface
uses uses
Classes, SysUtils, FileUtil, Controls, LResources, Forms, StdCtrls, Grids, Classes, SysUtils, FileUtil, Controls, LResources, Forms, StdCtrls, Grids,
Buttons, ExtCtrls, Dialogs, ComCtrls, Menus, Buttons, ExtCtrls, Dialogs, ComCtrls, Menus, AvgLvlTree,
IDEImagesIntf, ProjectIntf, CompilerOptions, IDEImagesIntf, ProjectIntf, CompilerOptions,
Compiler_Conditionals_Options, LazarusIDEStrConsts, CompOptsModes; Compiler_Conditionals_Options, LazarusIDEStrConsts, CompOptsModes;
@ -61,6 +61,7 @@ type
fValuesImgID: LongInt; fValuesImgID: LongInt;
fValueImgID: LongInt; fValueImgID: LongInt;
fDefValueImgID: LongInt; fDefValueImgID: LongInt;
FEditors: TFPList;
procedure SetBuildModes(const AValue: TIDEBuildModes); procedure SetBuildModes(const AValue: TIDEBuildModes);
procedure RebuildTreeView; procedure RebuildTreeView;
procedure TreeViewAddBuildMode(BuildMode: TLazBuildMode); procedure TreeViewAddBuildMode(BuildMode: TLazBuildMode);
@ -70,6 +71,8 @@ type
out NodeType: TCBMNodeType): TTreeNode; out NodeType: TCBMNodeType): TTreeNode;
function GetBuildModeTVNode(BuildMode: TLazBuildMode): TTreeNode; function GetBuildModeTVNode(BuildMode: TLazBuildMode): TTreeNode;
function GetValuesTVNode(BuildMode: TLazBuildMode): TTreeNode; function GetValuesTVNode(BuildMode: TLazBuildMode): TTreeNode;
procedure FreeEditors;
function GetEditor(BuildMode: TLazBuildMode): TCompOptsExprEditor;
public public
constructor Create(TheOwner: TComponent); override; constructor Create(TheOwner: TComponent); override;
destructor Destroy; override; destructor Destroy; override;
@ -385,10 +388,32 @@ begin
Result:=nil; Result:=nil;
end; end;
procedure TCompOptBuildModesFrame.FreeEditors;
var
i: Integer;
begin
for i:=0 to FEditors.Count-1 do
TObject(FEditors[i]).Free;
FEditors.Clear;
end;
function TCompOptBuildModesFrame.GetEditor(BuildMode: TLazBuildMode
): TCompOptsExprEditor;
var
i: Integer;
begin
for i:=0 to FEditors.Count-1 do begin
Result:=TCompOptsExprEditor(FEditors[i]);
if Result.Conditionals=BuildMode.DefaultValue then exit;
end;
Result:=nil;
end;
constructor TCompOptBuildModesFrame.Create(TheOwner: TComponent); constructor TCompOptBuildModesFrame.Create(TheOwner: TComponent);
begin begin
inherited Create(TheOwner); inherited Create(TheOwner);
FEditors:=TFPList.Create;
BuildModesTreeView.Images := IDEImages.Images_24; BuildModesTreeView.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');
@ -399,7 +424,8 @@ end;
destructor TCompOptBuildModesFrame.Destroy; destructor TCompOptBuildModesFrame.Destroy;
begin begin
FreeEditors;
FreeAndNil(FEditors);
inherited Destroy; inherited Destroy;
end; end;

2
packager/frames/compiler_conditionals_options.lrs
View File

@ -1,5 +1,3 @@
{ This is an automatically generated lazarus resource file }
LazarusResources.Add('TCompOptsConditionalsFrame','FORMDATA',[ LazarusResources.Add('TCompOptsConditionalsFrame','FORMDATA',[
'TPF0'#26'TCompOptsConditionalsFrame'#25'CompOptsConditionalsFrame'#4'Left'#2 'TPF0'#26'TCompOptsConditionalsFrame'#25'CompOptsConditionalsFrame'#4'Left'#2
+#0#6'Height'#3#170#0#3'Top'#2#0#5'Width'#3#129#1#12'ClientHeight'#3#166#0#11 +#0#6'Height'#3#170#0#3'Top'#2#0#5'Width'#3#129#1#12'ClientHeight'#3#166#0#11