ide: add object inspector frame

git-svn-id: trunk@17028 -
2025-04-17 02:49:30 +02:00 · 2008-10-17 02:20:39 +00:00 · 2008-10-17 02:20:39 +00:00 · 2d6cb6adb9
commit 2d6cb6adb9
parent 8f1c46ea09
4 changed files with 347 additions and 0 deletions
--- a/.gitattributes
+++ b/.gitattributes
@ -2396,6 +2396,9 @@ ide/fpdocselectinherited.pas svneol=native#text/plain
 ide/fpdocselectlink.lfm svneol=native#text/plain
 ide/fpdocselectlink.lrs 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.lrs svneol=native#text/plain
 ide/frmcustomapplicationoptions.pas svneol=native#text/plain
--- a/ide/frames/options_oi.lfm
+++ b/ide/frames/options_oi.lfm
@ -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
--- a/ide/frames/options_oi.lrs
+++ b/ide/frames/options_oi.lrs
@ -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
+]);
--- a/ide/frames/options_oi.pas
+++ b/ide/frames/options_oi.pas
@ -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.
+