clean up

git-svn-id: trunk@17993 -

examples/openglcontrol/openglcontrol_demo.lpi

@@ -2,15 +2,15 @@
 <CONFIG>
   <ProjectOptions>
     <PathDelim Value="/"/>
-    <Version Value="6"/>
+    <Version Value="7"/>
     <General>
       <Flags>
         <MainUnitHasCreateFormStatements Value="False"/>
         <MainUnitHasTitleStatement Value="False"/>
+        <LRSInOutputDirectory Value="False"/>
       </Flags>
       <SessionStorage Value="InProjectDir"/>
       <MainUnit Value="0"/>
-      <IconPath Value="./"/>
       <TargetFileExt Value=""/>
       <Title Value="openglcontrol_demo"/>
     </General>

ide/frames/options_compiler_buildmodes.lfm

@@ -8,8 +8,8 @@ object CompOptBuildModesFrame: TCompOptBuildModesFrame
   Ctl3D = False
   TabOrder = 0
   Visible = False
-  DesignLeft = 294
+  DesignLeft = 299
-  DesignTop = 256
+  DesignTop = 280
   object ModesGroupBox: TGroupBox
     Left = 0
     Height = 229

ide/frames/options_compiler_buildmodes.lrs

@@ -1,10 +1,8 @@
-{ This is an automatically generated lazarus resource file }
-
 LazarusResources.Add('TCompOptBuildModesFrame','FORMDATA',[
   'TPF0'#23'TCompOptBuildModesFrame'#22'CompOptBuildModesFrame'#4'Left'#2#0#6'H'
   +'eight'#3#233#0#3'Top'#2#0#5'Width'#3#236#1#12'ClientHeight'#3#229#0#11'Clie'
-  +'ntWidth'#3#232#1#5'Ctl3D'#8#8'TabOrder'#2#0#7'Visible'#8#10'DesignLeft'#3'&'
+  +'ntWidth'#3#232#1#5'Ctl3D'#8#8'TabOrder'#2#0#7'Visible'#8#10'DesignLeft'#3'+'
-  +#1#9'DesignTop'#3#0#1#0#9'TGroupBox'#13'ModesGroupBox'#4'Left'#2#0#6'Height'
+  +#1#9'DesignTop'#3#24#1#0#9'TGroupBox'#13'ModesGroupBox'#4'Left'#2#0#6'Height'
   +#3#229#0#3'Top'#2#0#5'Width'#3#186#0#5'Align'#7#6'alLeft'#7'Caption'#6#13'Mo'
   +'desGroupBox'#12'ClientHeight'#3#210#0#11'ClientWidth'#3#182#0#5'Ctl3D'#8#8
   +'TabOrder'#2#0#0#12'TSpeedButton'#14'NewSpeedButton'#22'AnchorSideLeft.Contr'

ide/frames/options_compiler_buildmodes.pas

@@ -25,7 +25,9 @@ interface
 
 uses
   Classes, SysUtils, FileUtil, LResources, Forms, StdCtrls, Grids, Buttons,
-  ExtCtrls, Options_Compiler_Conditionals;
+  ExtCtrls,
+  IDEImagesIntf, ProjectIntf, CompilerOptions,
+  Options_Compiler_Conditionals, LazarusIDEStrConsts;
 
 type
 
@@ -45,11 +47,77 @@ type
     ValuesSplitter: TSplitter;
     ValuesStringGrid: TStringGrid;
   private
+    FBuildModes: TIDEBuildModes;
+    procedure SetBuildModes(const AValue: TIDEBuildModes);
+    procedure UpdateModes;
+    procedure UpdateValues;
+    procedure UpdateDefaultValue;
+    procedure UpdateButtons;
   public
+    constructor Create(TheOwner: TComponent); override;
+    destructor Destroy; override;
+    property BuildModes: TIDEBuildModes read FBuildModes write SetBuildModes;
   end;
 
 implementation
 
+{ TCompOptBuildModesFrame }
+
+procedure TCompOptBuildModesFrame.SetBuildModes(const AValue: TIDEBuildModes);
+begin
+  if FBuildModes=AValue then exit;
+  FBuildModes:=AValue;
+  UpdateModes;
+end;
+
+procedure TCompOptBuildModesFrame.UpdateModes;
+begin
+
+  UpdateValues;
+end;
+
+procedure TCompOptBuildModesFrame.UpdateValues;
+begin
+  UpdateDefaultValue;
+end;
+
+procedure TCompOptBuildModesFrame.UpdateDefaultValue;
+begin
+
+end;
+
+procedure TCompOptBuildModesFrame.UpdateButtons;
+begin
+
+end;
+
+constructor TCompOptBuildModesFrame.Create(TheOwner: TComponent);
+begin
+  inherited Create(TheOwner);
+
+  DefaultValueGroupBox.Caption:='Default value';
+  ValuesGroupBox.Caption:='Values';
+  ModesGroupBox.Caption:='Build modes';
+  NewSpeedButton.LoadGlyphFromLazarusResource('menu_new');
+  NewSpeedButton.ShowHint:=true;
+  NewSpeedButton.Hint:='Create new build mode';
+  DeleteSpeedButton.LoadGlyphFromLazarusResource('menu_project_remove');
+  DeleteSpeedButton.ShowHint:=true;
+  DeleteSpeedButton.Hint:='Delete ...';
+  MoveDownSpeedButton.LoadGlyphFromLazarusResource('arrow_down');
+  MoveDownSpeedButton.ShowHint:=true;
+  MoveDownSpeedButton.Hint:='Move down';
+  MoveUpSpeedButton.LoadGlyphFromLazarusResource('arrow_up');
+  MoveUpSpeedButton.ShowHint:=true;
+  MoveUpSpeedButton.Hint:='Move up';
+end;
+
+destructor TCompOptBuildModesFrame.Destroy;
+begin
+
+  inherited Destroy;
+end;
+
 initialization
   {$I options_compiler_buildmodes.lrs}
 

ide/lazarus.lpi

@@ -41,7 +41,7 @@
         <PackageName Value="SynEdit"/>
       </Item4>
     </RequiredPackages>
-    <Units Count="33">
+    <Units Count="34">
       <Unit0>
         <Filename Value="lazarus.pp"/>
         <IsPartOfProject Value="True"/>
@@ -267,6 +267,14 @@
         <ResourceBaseClass Value="Frame"/>
         <UnitName Value="Options_Compiler_Conditionals"/>
       </Unit32>
+      <Unit33>
+        <Filename Value="frames/options_compiler_buildmodes.pas"/>
+        <ComponentName Value="CompOptBuildModesFrame"/>
+        <HasResources Value="True"/>
+        <IsPartOfProject Value="True"/>
+        <ResourceBaseClass Value="Frame"/>
+        <UnitName Value="options_compiler_buildmodes"/>
+      </Unit33>
     </Units>
   </ProjectOptions>
   <CompilerOptions>