mirror of
https://gitlab.com/freepascal.org/lazarus/lazarus.git
synced 2025-11-20 16:59:28 +01:00
IDE: started frame for editing build modes
git-svn-id: trunk@17992 -
This commit is contained in:
parent
8a652e2213
commit
940989a1ae
3
.gitattributes
vendored
3
.gitattributes
vendored
@ -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
|
||||
|
||||
@ -1,7 +1,7 @@
|
||||
object frmCompilerOptions: TfrmCompilerOptions
|
||||
Left = 389
|
||||
Left = 394
|
||||
Height = 528
|
||||
Top = 163
|
||||
Top = 187
|
||||
Width = 669
|
||||
ActiveControl = MainNotebook
|
||||
BorderIcons = [biSystemMenu]
|
||||
|
||||
@ -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'
|
||||
|
||||
163
ide/frames/options_compiler_buildmodes.lfm
Normal file
163
ide/frames/options_compiler_buildmodes.lfm
Normal 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
|
||||
50
ide/frames/options_compiler_buildmodes.lrs
Normal file
50
ide/frames/options_compiler_buildmodes.lrs
Normal 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
|
||||
]);
|
||||
57
ide/frames/options_compiler_buildmodes.pas
Normal file
57
ide/frames/options_compiler_buildmodes.pas
Normal 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.
|
||||
|
||||
@ -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
|
||||
|
||||
Loading…
Reference in New Issue
Block a user