IDE: started frame for editing build modes

git-svn-id: trunk@17992 -
This commit is contained in:
mattias 2008-12-30 10:40:24 +00:00
parent 8a652e2213
commit 940989a1ae
7 changed files with 277 additions and 6 deletions

3
.gitattributes vendored
View File

@ -2565,6 +2565,9 @@ ide/frames/options_codetools_space.pas svneol=native#text/pascal
ide/frames/options_codetools_wordpolicy.lfm svneol=native#text/plain
ide/frames/options_codetools_wordpolicy.lrs svneol=native#text/pascal
ide/frames/options_codetools_wordpolicy.pas svneol=native#text/pascal
ide/frames/options_compiler_buildmodes.lfm svneol=native#text/plain
ide/frames/options_compiler_buildmodes.lrs svneol=native#text/plain
ide/frames/options_compiler_buildmodes.pas svneol=native#text/plain
ide/frames/options_compiler_conditionals.lfm svneol=native#text/plain
ide/frames/options_compiler_conditionals.lrs svneol=native#text/plain
ide/frames/options_compiler_conditionals.pas svneol=native#text/plain

View File

@ -1,7 +1,7 @@
object frmCompilerOptions: TfrmCompilerOptions
Left = 389
Left = 394
Height = 528
Top = 163
Top = 187
Width = 669
ActiveControl = MainNotebook
BorderIcons = [biSystemMenu]

View File

@ -1,8 +1,8 @@
{ This is an automatically generated lazarus resource file }
LazarusResources.Add('TfrmCompilerOptions','FORMDATA',[
'TPF0'#19'TfrmCompilerOptions'#18'frmCompilerOptions'#4'Left'#3#133#1#6'Heigh'
+'t'#3#16#2#3'Top'#3#163#0#5'Width'#3#157#2#13'ActiveControl'#7#12'MainNotebo'
'TPF0'#19'TfrmCompilerOptions'#18'frmCompilerOptions'#4'Left'#3#138#1#6'Heigh'
+'t'#3#16#2#3'Top'#3#187#0#5'Width'#3#157#2#13'ActiveControl'#7#12'MainNotebo'
+'ok'#11'BorderIcons'#11#12'biSystemMenu'#0#7'Caption'#6#18'frmCompilerOption'
+'s'#12'ClientHeight'#3#16#2#11'ClientWidth'#3#157#2#21'Constraints.MinHeight'
+#3#244#1#20'Constraints.MinWidth'#3'X'#2#7'OnClose'#7#23'frmCompilerOptionsC'

View File

@ -0,0 +1,163 @@
object CompOptBuildModesFrame: TCompOptBuildModesFrame
Left = 0
Height = 233
Top = 0
Width = 492
ClientHeight = 229
ClientWidth = 488
Ctl3D = False
TabOrder = 0
Visible = False
DesignLeft = 294
DesignTop = 256
object ModesGroupBox: TGroupBox
Left = 0
Height = 229
Top = 0
Width = 186
Align = alLeft
Caption = 'ModesGroupBox'
ClientHeight = 210
ClientWidth = 182
Ctl3D = False
TabOrder = 0
object NewSpeedButton: TSpeedButton
AnchorSideLeft.Control = ModesGroupBox
AnchorSideBottom.Control = ModesGroupBox
AnchorSideBottom.Side = asrBottom
Left = 0
Height = 22
Top = 188
Width = 23
Anchors = [akLeft, akBottom]
Color = clBtnFace
NumGlyphs = 0
end
object DeleteSpeedButton: TSpeedButton
AnchorSideLeft.Control = NewSpeedButton
AnchorSideLeft.Side = asrBottom
AnchorSideTop.Control = NewSpeedButton
Left = 23
Height = 22
Top = 188
Width = 23
Color = clBtnFace
NumGlyphs = 0
end
object MoveDownSpeedButton: TSpeedButton
AnchorSideLeft.Control = DeleteSpeedButton
AnchorSideLeft.Side = asrBottom
AnchorSideTop.Control = NewSpeedButton
Left = 46
Height = 22
Top = 188
Width = 23
Color = clBtnFace
NumGlyphs = 0
end
object MoveUpSpeedButton: TSpeedButton
AnchorSideLeft.Control = MoveDownSpeedButton
AnchorSideLeft.Side = asrBottom
AnchorSideTop.Control = NewSpeedButton
Left = 69
Height = 22
Top = 188
Width = 23
Color = clBtnFace
NumGlyphs = 0
end
object ModesListBox: TListBox
AnchorSideBottom.Control = NewSpeedButton
Left = 0
Height = 188
Top = 0
Width = 182
Align = alTop
Anchors = [akTop, akLeft, akRight, akBottom]
ItemHeight = 0
TabOrder = 0
TopIndex = -1
end
end
object ValuesGroupBox: TGroupBox
Left = 191
Height = 229
Top = 0
Width = 297
Align = alClient
Caption = 'ValuesGroupBox'
ClientHeight = 210
ClientWidth = 293
Ctl3D = False
TabOrder = 1
object ValuesStringGrid: TStringGrid
Left = 0
Height = 95
Top = 0
Width = 293
Align = alClient
ColCount = 2
FixedCols = 0
TabOrder = 0
end
object DefaultValueGroupBox: TGroupBox
Left = 0
Height = 109
Top = 101
Width = 293
Align = alBottom
Caption = 'DefaultValueGroupBox'
ClientHeight = 90
ClientWidth = 289
Ctl3D = False
TabOrder = 1
inline CompOptsConditionalsFrame1: TCompOptsConditionalsFrame
Height = 90
Width = 289
Align = alClient
ClientHeight = 86
ClientWidth = 285
Visible = True
inherited COCTreeView: TTreeView
Height = 86
Width = 285
end
inherited COCPopupMenu: TPopupMenu
inherited InsertAboveMenuItem: TMenuItem
end
inherited InsertBelowMenuItem: TMenuItem
end
inherited InsertChildMenuItem: TMenuItem
end
inherited DeleteMenuItem: TMenuItem
end
inherited MoveUpMenuItem: TMenuItem
end
inherited MoveDownMenuItem: TMenuItem
end
inherited MoveLvlUpMenuItem: TMenuItem
end
inherited MoveLvlDownMenuItem: TMenuItem
end
inherited PropertiesMenuItem: TMenuItem
end
end
end
end
object ValuesSplitter: TSplitter
Cursor = crVSplit
Left = 0
Height = 6
Top = 95
Width = 293
Align = alBottom
ResizeAnchor = akBottom
end
end
object MainSplitter: TSplitter
Left = 186
Height = 229
Top = 0
Width = 5
end
end

View File

@ -0,0 +1,50 @@
{ 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'&'
+#1#9'DesignTop'#3#0#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'
+'ol'#7#13'ModesGroupBox'#24'AnchorSideBottom.Control'#7#13'ModesGroupBox'#21
+'AnchorSideBottom.Side'#7#9'asrBottom'#4'Left'#2#0#6'Height'#2#22#3'Top'#3
+#188#0#5'Width'#2#23#7'Anchors'#11#6'akLeft'#8'akBottom'#0#5'Color'#7#9'clBt'
+'nFace'#9'NumGlyphs'#2#0#0#0#12'TSpeedButton'#17'DeleteSpeedButton'#22'Ancho'
+'rSideLeft.Control'#7#14'NewSpeedButton'#19'AnchorSideLeft.Side'#7#9'asrBott'
+'om'#21'AnchorSideTop.Control'#7#14'NewSpeedButton'#4'Left'#2#23#6'Height'#2
+#22#3'Top'#3#188#0#5'Width'#2#23#5'Color'#7#9'clBtnFace'#9'NumGlyphs'#2#0#0#0
+#12'TSpeedButton'#19'MoveDownSpeedButton'#22'AnchorSideLeft.Control'#7#17'De'
+'leteSpeedButton'#19'AnchorSideLeft.Side'#7#9'asrBottom'#21'AnchorSideTop.Co'
+'ntrol'#7#14'NewSpeedButton'#4'Left'#2'.'#6'Height'#2#22#3'Top'#3#188#0#5'Wi'
+'dth'#2#23#5'Color'#7#9'clBtnFace'#9'NumGlyphs'#2#0#0#0#12'TSpeedButton'#17
+'MoveUpSpeedButton'#22'AnchorSideLeft.Control'#7#19'MoveDownSpeedButton'#19
+'AnchorSideLeft.Side'#7#9'asrBottom'#21'AnchorSideTop.Control'#7#14'NewSpeed'
+'Button'#4'Left'#2'E'#6'Height'#2#22#3'Top'#3#188#0#5'Width'#2#23#5'Color'#7
+#9'clBtnFace'#9'NumGlyphs'#2#0#0#0#8'TListBox'#12'ModesListBox'#24'AnchorSid'
+'eBottom.Control'#7#14'NewSpeedButton'#4'Left'#2#0#6'Height'#3#188#0#3'Top'#2
+#0#5'Width'#3#182#0#5'Align'#7#5'alTop'#7'Anchors'#11#5'akTop'#6'akLeft'#7'a'
+'kRight'#8'akBottom'#0#10'ItemHeight'#2#0#8'TabOrder'#2#0#8'TopIndex'#2#255#0
+#0#0#9'TGroupBox'#14'ValuesGroupBox'#4'Left'#3#191#0#6'Height'#3#229#0#3'Top'
+#2#0#5'Width'#3')'#1#5'Align'#7#8'alClient'#7'Caption'#6#14'ValuesGroupBox'
+#12'ClientHeight'#3#210#0#11'ClientWidth'#3'%'#1#5'Ctl3D'#8#8'TabOrder'#2#1#0
+#11'TStringGrid'#16'ValuesStringGrid'#4'Left'#2#0#6'Height'#2'_'#3'Top'#2#0#5
+'Width'#3'%'#1#5'Align'#7#8'alClient'#8'ColCount'#2#2#9'FixedCols'#2#0#8'Tab'
+'Order'#2#0#0#0#9'TGroupBox'#20'DefaultValueGroupBox'#4'Left'#2#0#6'Height'#2
+'m'#3'Top'#2'e'#5'Width'#3'%'#1#5'Align'#7#8'alBottom'#7'Caption'#6#20'Defau'
+'ltValueGroupBox'#12'ClientHeight'#2'Z'#11'ClientWidth'#3'!'#1#5'Ctl3D'#8#8
+'TabOrder'#2#1#0#244#26'TCompOptsConditionalsFrame'#26'CompOptsConditionalsF'
+'rame1'#6'Height'#2'Z'#5'Width'#3'!'#1#5'Align'#7#8'alClient'#12'ClientHeigh'
+'t'#2'V'#11'ClientWidth'#3#29#1#7'Visible'#9#0#241#9'TTreeView'#11'COCTreeVi'
+'ew'#6'Height'#2'V'#5'Width'#3#29#1#0#0#241#10'TPopupMenu'#12'COCPopupMenu'#0
+#241#9'TMenuItem'#19'InsertAboveMenuItem'#0#0#241#9'TMenuItem'#19'InsertBelo'
+'wMenuItem'#0#0#241#9'TMenuItem'#19'InsertChildMenuItem'#0#0#241#9'TMenuItem'
+#14'DeleteMenuItem'#0#0#241#9'TMenuItem'#14'MoveUpMenuItem'#0#0#241#9'TMenuI'
+'tem'#16'MoveDownMenuItem'#0#0#241#9'TMenuItem'#17'MoveLvlUpMenuItem'#0#0#241
+#9'TMenuItem'#19'MoveLvlDownMenuItem'#0#0#241#9'TMenuItem'#18'PropertiesMenu'
+'Item'#0#0#0#0#0#9'TSplitter'#14'ValuesSplitter'#6'Cursor'#7#8'crVSplit'#4'L'
+'eft'#2#0#6'Height'#2#6#3'Top'#2'_'#5'Width'#3'%'#1#5'Align'#7#8'alBottom'#12
+'ResizeAnchor'#7#8'akBottom'#0#0#0#9'TSplitter'#12'MainSplitter'#4'Left'#3
+#186#0#6'Height'#3#229#0#3'Top'#2#0#5'Width'#2#5#0#0#0
]);

View File

@ -0,0 +1,57 @@
{***************************************************************************
* *
* This source is free software; you can redistribute it and/or modify *
* it under the terms of the GNU General Public License as published by *
* the Free Software Foundation; either version 2 of the License, or *
* (at your option) any later version. *
* *
* This code is distributed in the hope that it will be useful, but *
* WITHOUT ANY WARRANTY; without even the implied warranty of *
* MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU *
* General Public License for more details. *
* *
* A copy of the GNU General Public License is available on the World *
* Wide Web at <http://www.gnu.org/copyleft/gpl.html>. You can also *
* obtain it by writing to the Free Software Foundation, *
* Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA. *
* *
***************************************************************************
}
unit options_compiler_buildmodes;
{$mode objfpc}{$H+}
interface
uses
Classes, SysUtils, FileUtil, LResources, Forms, StdCtrls, Grids, Buttons,
ExtCtrls, Options_Compiler_Conditionals;
type
{ TCompOptBuildModesFrame }
TCompOptBuildModesFrame = class(TFrame)
CompOptsConditionalsFrame1: TCompOptsConditionalsFrame;
DefaultValueGroupBox: TGroupBox;
ValuesGroupBox: TGroupBox;
ModesGroupBox: TGroupBox;
ModesListBox: TListBox;
NewSpeedButton: TSpeedButton;
DeleteSpeedButton: TSpeedButton;
MoveDownSpeedButton: TSpeedButton;
MoveUpSpeedButton: TSpeedButton;
MainSplitter: TSplitter;
ValuesSplitter: TSplitter;
ValuesStringGrid: TStringGrid;
private
public
end;
implementation
initialization
{$I options_compiler_buildmodes.lrs}
end.

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