paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-04-09 23:08:05 +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
Classes, SysUtils, FileUtil, Controls, LResources, Forms, StdCtrls, Grids,
Buttons, ExtCtrls, Dialogs, ComCtrls, Menus,
Buttons, ExtCtrls, Dialogs, ComCtrls, Menus, AvgLvlTree,
IDEImagesIntf, ProjectIntf, CompilerOptions,
Compiler_Conditionals_Options, LazarusIDEStrConsts, CompOptsModes;
@ -61,6 +61,7 @@ type
fValuesImgID: LongInt;
fValueImgID: LongInt;
fDefValueImgID: LongInt;
FEditors: TFPList;
procedure SetBuildModes(const AValue: TIDEBuildModes);
procedure RebuildTreeView;
procedure TreeViewAddBuildMode(BuildMode: TLazBuildMode);
@ -70,6 +71,8 @@ type
out NodeType: TCBMNodeType): TTreeNode;
function GetBuildModeTVNode(BuildMode: TLazBuildMode): TTreeNode;
function GetValuesTVNode(BuildMode: TLazBuildMode): TTreeNode;
procedure FreeEditors;
function GetEditor(BuildMode: TLazBuildMode): TCompOptsExprEditor;
public
constructor Create(TheOwner: TComponent); override;
destructor Destroy; override;
@ -385,10 +388,32 @@ begin
Result:=nil;
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);
begin
inherited Create(TheOwner);
FEditors:=TFPList.Create;
BuildModesTreeView.Images := IDEImages.Images_24;
fModeImgID:=IDEImages.LoadImage(24,'da_define');
fValueImgID:=IDEImages.LoadImage(24,'da_define');
@ -399,7 +424,8 @@ end;
destructor TCompOptBuildModesFrame.Destroy;
begin
FreeEditors;
FreeAndNil(FEditors);
inherited Destroy;
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',[
'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