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

ide: add object inspector frame

Browse Source 
git-svn-id: trunk@17028 -
This commit is contained in:
paul 2008-10-17 02:20:39 +00:00
parent 8f1c46ea09
commit 2d6cb6adb9
4 changed files with 347 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
.gitattributes vendored
View File

@ -2396,6 +2396,9 @@ ide/fpdocselectinherited.pas svneol=native#text/plain
ide/fpdocselectlink.lfm svneol=native#text/plain ide/fpdocselectlink.lfm svneol=native#text/plain
ide/fpdocselectlink.lrs svneol=native#text/plain ide/fpdocselectlink.lrs svneol=native#text/plain
ide/fpdocselectlink.pas svneol=native#text/plain ide/fpdocselectlink.pas svneol=native#text/plain
ide/frames/options_oi.lfm svneol=native#text/plain
ide/frames/options_oi.lrs svneol=native#text/pascal
ide/frames/options_oi.pas svneol=native#text/pascal
ide/frmcustomapplicationoptions.lfm svneol=native#text/plain ide/frmcustomapplicationoptions.lfm svneol=native#text/plain
ide/frmcustomapplicationoptions.lrs svneol=native#text/plain ide/frmcustomapplicationoptions.lrs svneol=native#text/plain
ide/frmcustomapplicationoptions.pas svneol=native#text/plain ide/frmcustomapplicationoptions.pas svneol=native#text/plain

204
ide/frames/options_oi.lfm Normal file
View File

@ -0,0 +1,204 @@
object OIOptionsFrame: TOIOptionsFrame
Height = 316
Width = 598
ClientHeight = 316
ClientWidth = 598
TabOrder = 0
Visible = False
DesignLeft = 407
DesignTop = 212
object ObjectInspectorColorsGroupBox: TGroupBox
AnchorSideLeft.Control = Owner
AnchorSideTop.Control = Owner
AnchorSideRight.Control = Owner
AnchorSideRight.Side = asrBottom
Height = 173
Width = 598
Anchors = [akTop, akLeft, akRight]
AutoSize = True
Caption = 'ObjectInspectorColorsGroupBox'
ChildSizing.LeftRightSpacing = 6
ChildSizing.TopBottomSpacing = 6
ChildSizing.HorizontalSpacing = 2
ChildSizing.VerticalSpacing = 2
ClientHeight = 155
ClientWidth = 594
TabOrder = 0
object OIBackgroundColorButton: TColorButton
Left = 6
Height = 23
Top = 6
Width = 50
BorderWidth = 2
ButtonColorSize = 16
Color = clBtnFace
end
object OISubPropsColorButton: TColorButton
Left = 6
Height = 23
Top = 30
Width = 50
BorderWidth = 2
ButtonColorSize = 16
Color = clBtnFace
end
object OIReferencesColorButton: TColorButton
Left = 6
Height = 23
Top = 54
Width = 50
BorderWidth = 2
ButtonColorSize = 16
Color = clBtnFace
end
object OIValueColorButton: TColorButton
Left = 6
Height = 23
Top = 78
Width = 50
BorderWidth = 2
ButtonColorSize = 16
Color = clBtnFace
end
object OIDefaultValueColorButton: TColorButton
Left = 6
Height = 23
Top = 102
Width = 50
BorderWidth = 2
ButtonColorSize = 16
Color = clBtnFace
end
object OIPropNameColorButton: TColorButton
Left = 6
Height = 23
Top = 126
Width = 50
BorderWidth = 2
ButtonColorSize = 16
Color = clBtnFace
end
object OIBackgroundColorLabel: TLabel
Left = 65
Height = 14
Top = 12
Width = 502
Anchors = [akTop, akLeft, akRight]
Caption = 'OIBackgroundColorLabel'
ParentColor = False
end
object OISubPropsColorLabel: TLabel
Left = 65
Height = 14
Top = 36
Width = 502
Anchors = [akTop, akLeft, akRight]
Caption = 'OISubPropsColorLabel'
ParentColor = False
end
object OIReferencesColorLabel: TLabel
Left = 65
Height = 14
Top = 60
Width = 502
Anchors = [akTop, akLeft, akRight]
Caption = 'OIReferencesColorLabel'
ParentColor = False
end
object OIValueColorLabel: TLabel
Left = 65
Height = 14
Top = 84
Width = 502
Anchors = [akTop, akLeft, akRight]
Caption = 'OIValueColorLabel'
ParentColor = False
end
object OIDefaultValueColorLabel: TLabel
Left = 65
Height = 14
Top = 108
Width = 502
Anchors = [akTop, akLeft, akRight]
Caption = 'OIDefaultValueColorLabel'
ParentColor = False
end
object OIPropNameColorLabel: TLabel
Left = 65
Height = 14
Top = 132
Width = 502
Anchors = [akTop, akLeft, akRight]
Caption = 'OIPropNameColorLabel'
ParentColor = False
end
end
object OIMiscGroupBox: TGroupBox
AnchorSideLeft.Control = Owner
AnchorSideTop.Control = ObjectInspectorColorsGroupBox
AnchorSideTop.Side = asrBottom
AnchorSideRight.Control = Owner
AnchorSideRight.Side = asrBottom
Height = 129
Top = 180
Width = 598
Anchors = [akTop, akLeft, akRight]
BorderSpacing.Top = 7
Caption = 'OIMiscGroupBox'
ClientHeight = 111
ClientWidth = 594
TabOrder = 1
object OIDefaultItemHeightLabel: TLabel
AnchorSideLeft.Control = OIMiscGroupBox
Left = 6
Height = 14
Top = 6
Width = 530
Anchors = [akTop, akLeft, akRight]
BorderSpacing.Left = 6
BorderSpacing.Top = 6
Caption = 'OIDefaultItemHeightLabel'
ParentColor = False
end
object OIShowHintCheckBox: TCheckBox
AnchorSideLeft.Control = OIMiscGroupBox
AnchorSideTop.Control = OIDefaultItemHeightSpinEdit
AnchorSideTop.Side = asrBottom
Left = 6
Height = 19
Top = 57
Width = 530
Anchors = [akTop, akLeft, akRight]
BorderSpacing.Left = 6
BorderSpacing.Top = 6
Caption = 'OIShowHintCheckBox'
TabOrder = 0
end
object OIDefaultItemHeightSpinEdit: TSpinEdit
AnchorSideLeft.Control = OIMiscGroupBox
AnchorSideTop.Control = OIDefaultItemHeightLabel
AnchorSideTop.Side = asrBottom
Left = 6
Height = 25
Top = 26
Width = 69
BorderSpacing.Left = 6
BorderSpacing.Top = 6
TabOrder = 1
Value = 1
end
object OIAutoShowCheckBox: TCheckBox
AnchorSideLeft.Control = OIMiscGroupBox
AnchorSideTop.Control = OIShowHintCheckBox
AnchorSideTop.Side = asrBottom
Left = 6
Height = 19
Top = 82
Width = 134
BorderSpacing.Left = 6
BorderSpacing.Top = 6
Caption = 'OIAutoShowCheckBox'
TabOrder = 2
end
end
end

68
ide/frames/options_oi.lrs Normal file
View File

@ -0,0 +1,68 @@
{ This is an automatically generated lazarus resource file }
LazarusResources.Add('TOIOptionsFrame','FORMDATA',[
'TPF0'#15'TOIOptionsFrame'#14'OIOptionsFrame'#6'Height'#3'<'#1#5'Width'#3'V'#2
+#12'ClientHeight'#3'<'#1#11'ClientWidth'#3'V'#2#8'TabOrder'#2#0#7'Visible'#8
+#10'DesignLeft'#3#151#1#9'DesignTop'#3#212#0#0#9'TGroupBox'#29'ObjectInspect'
+'orColorsGroupBox'#22'AnchorSideLeft.Control'#7#5'Owner'#21'AnchorSideTop.Co'
+'ntrol'#7#5'Owner'#23'AnchorSideRight.Control'#7#5'Owner'#20'AnchorSideRight'
+'.Side'#7#9'asrBottom'#6'Height'#3#173#0#5'Width'#3'V'#2#7'Anchors'#11#5'akT'
+'op'#6'akLeft'#7'akRight'#0#8'AutoSize'#9#7'Caption'#6#29'ObjectInspectorCol'
+'orsGroupBox'#28'ChildSizing.LeftRightSpacing'#2#6#28'ChildSizing.TopBottomS'
+'pacing'#2#6#29'ChildSizing.HorizontalSpacing'#2#2#27'ChildSizing.VerticalSp'
+'acing'#2#2#12'ClientHeight'#3#155#0#11'ClientWidth'#3'R'#2#8'TabOrder'#2#0#0
+#12'TColorButton'#23'OIBackgroundColorButton'#4'Left'#2#6#6'Height'#2#23#3'T'
+'op'#2#6#5'Width'#2'2'#11'BorderWidth'#2#2#15'ButtonColorSize'#2#16#5'Color'
+#7#9'clBtnFace'#0#0#12'TColorButton'#21'OISubPropsColorButton'#4'Left'#2#6#6
+'Height'#2#23#3'Top'#2#30#5'Width'#2'2'#11'BorderWidth'#2#2#15'ButtonColorSi'
+'ze'#2#16#5'Color'#7#9'clBtnFace'#0#0#12'TColorButton'#23'OIReferencesColorB'
+'utton'#4'Left'#2#6#6'Height'#2#23#3'Top'#2'6'#5'Width'#2'2'#11'BorderWidth'
+#2#2#15'ButtonColorSize'#2#16#5'Color'#7#9'clBtnFace'#0#0#12'TColorButton'#18
+'OIValueColorButton'#4'Left'#2#6#6'Height'#2#23#3'Top'#2'N'#5'Width'#2'2'#11
+'BorderWidth'#2#2#15'ButtonColorSize'#2#16#5'Color'#7#9'clBtnFace'#0#0#12'TC'
+'olorButton'#25'OIDefaultValueColorButton'#4'Left'#2#6#6'Height'#2#23#3'Top'
+#2'f'#5'Width'#2'2'#11'BorderWidth'#2#2#15'ButtonColorSize'#2#16#5'Color'#7#9
+'clBtnFace'#0#0#12'TColorButton'#21'OIPropNameColorButton'#4'Left'#2#6#6'Hei'
+'ght'#2#23#3'Top'#2'~'#5'Width'#2'2'#11'BorderWidth'#2#2#15'ButtonColorSize'
+#2#16#5'Color'#7#9'clBtnFace'#0#0#6'TLabel'#22'OIBackgroundColorLabel'#4'Lef'
+'t'#2'A'#6'Height'#2#14#3'Top'#2#12#5'Width'#3#246#1#7'Anchors'#11#5'akTop'#6
+'akLeft'#7'akRight'#0#7'Caption'#6#22'OIBackgroundColorLabel'#11'ParentColor'
+#8#0#0#6'TLabel'#20'OISubPropsColorLabel'#4'Left'#2'A'#6'Height'#2#14#3'Top'
+#2'$'#5'Width'#3#246#1#7'Anchors'#11#5'akTop'#6'akLeft'#7'akRight'#0#7'Capti'
+'on'#6#20'OISubPropsColorLabel'#11'ParentColor'#8#0#0#6'TLabel'#22'OIReferen'
+'cesColorLabel'#4'Left'#2'A'#6'Height'#2#14#3'Top'#2'<'#5'Width'#3#246#1#7'A'
+'nchors'#11#5'akTop'#6'akLeft'#7'akRight'#0#7'Caption'#6#22'OIReferencesColo'
+'rLabel'#11'ParentColor'#8#0#0#6'TLabel'#17'OIValueColorLabel'#4'Left'#2'A'#6
+'Height'#2#14#3'Top'#2'T'#5'Width'#3#246#1#7'Anchors'#11#5'akTop'#6'akLeft'#7
+'akRight'#0#7'Caption'#6#17'OIValueColorLabel'#11'ParentColor'#8#0#0#6'TLabe'
+'l'#24'OIDefaultValueColorLabel'#4'Left'#2'A'#6'Height'#2#14#3'Top'#2'l'#5'W'
+'idth'#3#246#1#7'Anchors'#11#5'akTop'#6'akLeft'#7'akRight'#0#7'Caption'#6#24
+'OIDefaultValueColorLabel'#11'ParentColor'#8#0#0#6'TLabel'#20'OIPropNameColo'
+'rLabel'#4'Left'#2'A'#6'Height'#2#14#3'Top'#3#132#0#5'Width'#3#246#1#7'Ancho'
+'rs'#11#5'akTop'#6'akLeft'#7'akRight'#0#7'Caption'#6#20'OIPropNameColorLabel'
+#11'ParentColor'#8#0#0#0#9'TGroupBox'#14'OIMiscGroupBox'#22'AnchorSideLeft.C'
+'ontrol'#7#5'Owner'#21'AnchorSideTop.Control'#7#29'ObjectInspectorColorsGrou'
+'pBox'#18'AnchorSideTop.Side'#7#9'asrBottom'#23'AnchorSideRight.Control'#7#5
+'Owner'#20'AnchorSideRight.Side'#7#9'asrBottom'#6'Height'#3#129#0#3'Top'#3
+#180#0#5'Width'#3'V'#2#7'Anchors'#11#5'akTop'#6'akLeft'#7'akRight'#0#17'Bord'
+'erSpacing.Top'#2#7#7'Caption'#6#14'OIMiscGroupBox'#12'ClientHeight'#2'o'#11
+'ClientWidth'#3'R'#2#8'TabOrder'#2#1#0#6'TLabel'#24'OIDefaultItemHeightLabel'
+#22'AnchorSideLeft.Control'#7#14'OIMiscGroupBox'#4'Left'#2#6#6'Height'#2#14#3
+'Top'#2#6#5'Width'#3#18#2#7'Anchors'#11#5'akTop'#6'akLeft'#7'akRight'#0#18'B'
+'orderSpacing.Left'#2#6#17'BorderSpacing.Top'#2#6#7'Caption'#6#24'OIDefaultI'
+'temHeightLabel'#11'ParentColor'#8#0#0#9'TCheckBox'#18'OIShowHintCheckBox'#22
+'AnchorSideLeft.Control'#7#14'OIMiscGroupBox'#21'AnchorSideTop.Control'#7#27
+'OIDefaultItemHeightSpinEdit'#18'AnchorSideTop.Side'#7#9'asrBottom'#4'Left'#2
+#6#6'Height'#2#19#3'Top'#2'9'#5'Width'#3#18#2#7'Anchors'#11#5'akTop'#6'akLef'
+'t'#7'akRight'#0#18'BorderSpacing.Left'#2#6#17'BorderSpacing.Top'#2#6#7'Capt'
+'ion'#6#18'OIShowHintCheckBox'#8'TabOrder'#2#0#0#0#9'TSpinEdit'#27'OIDefault'
+'ItemHeightSpinEdit'#22'AnchorSideLeft.Control'#7#14'OIMiscGroupBox'#21'Anch'
+'orSideTop.Control'#7#24'OIDefaultItemHeightLabel'#18'AnchorSideTop.Side'#7#9
+'asrBottom'#4'Left'#2#6#6'Height'#2#25#3'Top'#2#26#5'Width'#2'E'#18'BorderSp'
+'acing.Left'#2#6#17'BorderSpacing.Top'#2#6#8'TabOrder'#2#1#5'Value'#2#1#0#0#9
+'TCheckBox'#18'OIAutoShowCheckBox'#22'AnchorSideLeft.Control'#7#14'OIMiscGro'
+'upBox'#21'AnchorSideTop.Control'#7#18'OIShowHintCheckBox'#18'AnchorSideTop.'
+'Side'#7#9'asrBottom'#4'Left'#2#6#6'Height'#2#19#3'Top'#2'R'#5'Width'#3#134#0
+#18'BorderSpacing.Left'#2#6#17'BorderSpacing.Top'#2#6#7'Caption'#6#18'OIAuto'
+'ShowCheckBox'#8'TabOrder'#2#2#0#0#0#0
]);

72
ide/frames/options_oi.pas Normal file
View File

@ -0,0 +1,72 @@
unit options_oi;
{$mode objfpc}{$H+}
interface
uses
Classes, SysUtils, FileUtil, LResources, Forms, StdCtrls,
ObjectInspector, lazarusidestrconsts;
type
{ TOIOptionsFrame }
TOIOptionsFrame = class(TFrame)
ObjectInspectorColorsGroupBox: TGroupBox;
OIAutoShowCheckBox: TCheckBox;
OIBackgroundColorButton: TColorButton;
OIBackgroundColorLabel: TLabel;
OIDefaultItemHeightLabel: TLabel;
OIDefaultItemHeightSpinEdit: TSpinEdit;
OIDefaultValueColorButton: TColorButton;
OIDefaultValueColorLabel: TLabel;
OIMiscGroupBox: TGroupBox;
OIPropNameColorButton: TColorButton;
OIPropNameColorLabel: TLabel;
OIReferencesColorButton: TColorButton;
OIReferencesColorLabel: TLabel;
OIShowHintCheckBox: TCheckBox;
OISubPropsColorButton: TColorButton;
OISubPropsColorLabel: TLabel;
OIValueColorButton: TColorButton;
OIValueColorLabel: TLabel;
private
{ private declarations }
public
procedure Setup;
function GetTitle: String;
end;
var
OIOptionsFrame: TOIOptionsFrame;
implementation
{ TOIOptionsFrame }
procedure TOIOptionsFrame.Setup;
begin
ObjectInspectorColorsGroupBox.Caption := dlgEnvColors;
OIBackgroundColorLabel.Caption := dlgBackColor;
OISubPropsColorLabel.Caption := dlgSubPropColor;
OIReferencesColorLabel.Caption := dlgReferenceColor;
OIValueColorLabel.Caption := dlgValueColor;
OIDefaultValueColorLabel.Caption := dlgDefValueColor;
OIPropNameColorLabel.Caption := dlgPropNameColor;
OIMiscGroupBox.Caption := dlgOIMiscellaneous;
OIDefaultItemHeightLabel.Caption := dlgOIItemHeight;
OIShowHintCheckBox.Caption := lisShowHintsInObjectInspector;
OIAutoShowCheckBox.Caption := lisAutoShowObjectInspector;
end;
function TOIOptionsFrame.GetTitle: String;
begin
Result := dlgObjInsp;
end;
initialization
{$I options_oi.lrs}
end.