ide: use TSpeedButton instead of TBitBtn in project inspector dialog

git-svn-id: trunk@19951 -
2025-08-17 17:39:20 +02:00 · 2009-05-13 08:33:19 +00:00 · 2009-05-13 08:33:19 +00:00 · d17b0c2c63
commit d17b0c2c63
parent a4200ebb10
3 changed files with 88 additions and 85 deletions
--- a/ide/projectinspector.lfm
+++ b/ide/projectinspector.lfm
@ -10,9 +10,64 @@ object ProjectInspectorForm: TProjectInspectorForm
  ClientWidth = 433
  OnShow = ProjectInspectorFormShow
  LCLVersion = '0.9.27'
+  object OpenBitBtn: TSpeedButton
+    AnchorSideLeft.Control = Owner
+    AnchorSideTop.Control = Owner
+    Left = 0
+    Height = 23
+    Top = 0
+    Width = 60
+    Color = clBtnFace
+    NumGlyphs = 0
+    OnClick = OpenBitBtnClick
+    ShowHint = True
+    ParentShowHint = False
+  end
+  object AddBitBtn: TSpeedButton
+    AnchorSideLeft.Control = OpenBitBtn
+    AnchorSideLeft.Side = asrBottom
+    AnchorSideTop.Control = Owner
+    Left = 60
+    Height = 23
+    Top = 0
+    Width = 60
+    Color = clBtnFace
+    NumGlyphs = 0
+    OnClick = AddBitBtnClick
+    ShowHint = True
+    ParentShowHint = False
+  end
+  object RemoveBitBtn: TSpeedButton
+    AnchorSideLeft.Control = AddBitBtn
+    AnchorSideLeft.Side = asrBottom
+    AnchorSideTop.Control = Owner
+    Left = 120
+    Height = 23
+    Top = 0
+    Width = 60
+    Color = clBtnFace
+    NumGlyphs = 0
+    OnClick = RemoveBitBtnClick
+    ShowHint = True
+    ParentShowHint = False
+  end
+  object OptionsBitBtn: TSpeedButton
+    AnchorSideLeft.Control = RemoveBitBtn
+    AnchorSideLeft.Side = asrBottom
+    AnchorSideTop.Control = Owner
+    Left = 180
+    Height = 23
+    Top = 0
+    Width = 60
+    Color = clBtnFace
+    NumGlyphs = 0
+    OnClick = OptionsBitBtnClick
+    ShowHint = True
+    ParentShowHint = False
+  end
  object ItemsTreeView: TTreeView
-    AnchorSideTop.Control = OpenBitBtn
    AnchorSideTop.Side = asrBottom
+    Left = 0
    Height = 284
    Top = 25
    Width = 433
@ -29,58 +84,6 @@ object ProjectInspectorForm: TProjectInspectorForm
    OnSelectionChanged = ItemsTreeViewSelectionChanged
    Options = [tvoAutoItemHeight, tvoHideSelection, tvoKeepCollapsedNodes, tvoReadOnly, tvoRightClickSelect, tvoShowButtons, tvoShowLines, tvoShowRoot, tvoToolTips]
  end
-  object OpenBitBtn: TBitBtn
-    Height = 23
-    Width = 80
-    AutoSize = True
-    Caption = 'OpenBitBtn'
-    OnClick = OpenBitBtnClick
-    ParentShowHint = False
-    ShowHint = True
-    TabOrder = 1
-  end
-  object AddBitBtn: TBitBtn
-    AnchorSideLeft.Control = OpenBitBtn
-    AnchorSideLeft.Side = asrBottom
-    AnchorSideTop.Control = OpenBitBtn
-    Left = 80
-    Height = 23
-    Width = 73
-    AutoSize = True
-    Caption = 'AddBitBtn'
-    OnClick = AddBitBtnClick
-    ParentShowHint = False
-    ShowHint = True
-    TabOrder = 2
-  end
-  object RemoveBitBtn: TBitBtn
-    AnchorSideLeft.Control = AddBitBtn
-    AnchorSideLeft.Side = asrBottom
-    AnchorSideTop.Control = OpenBitBtn
-    Left = 153
-    Height = 23
-    Width = 93
-    AutoSize = True
-    Caption = 'RemoveBitBtn'
-    OnClick = RemoveBitBtnClick
-    ParentShowHint = False
-    ShowHint = True
-    TabOrder = 3
-  end
-  object OptionsBitBtn: TBitBtn
-    AnchorSideLeft.Control = RemoveBitBtn
-    AnchorSideLeft.Side = asrBottom
-    AnchorSideTop.Control = OpenBitBtn
-    Left = 246
-    Height = 23
-    Width = 91
-    AutoSize = True
-    Caption = 'OptionsBitBtn'
-    OnClick = OptionsBitBtnClick
-    ParentShowHint = False
-    ShowHint = True
-    TabOrder = 4
-  end
  object ItemsPopupMenu: TPopupMenu
    OnPopup = ItemsPopupMenuPopup
    left = 40
--- a/ide/projectinspector.lrs
+++ b/ide/projectinspector.lrs
@ -5,32 +5,32 @@ LazarusResources.Add('TProjectInspectorForm','FORMDATA',[
  +'eight'#3'5'#1#3'Top'#3#143#1#5'Width'#3#177#1#13'ActiveControl'#7#13'ItemsT'
  +'reeView'#11'BorderIcons'#11#12'biSystemMenu'#0#7'Caption'#6#20'ProjectInspe'
  +'ctorForm'#12'ClientHeight'#3'5'#1#11'ClientWidth'#3#177#1#6'OnShow'#7#24'Pr'
-  +'ojectInspectorFormShow'#10'LCLVersion'#6#6'0.9.27'#0#9'TTreeView'#13'ItemsT'
-  +'reeView'#21'AnchorSideTop.Control'#7#10'OpenBitBtn'#18'AnchorSideTop.Side'#7
-  +#9'asrBottom'#6'Height'#3#28#1#3'Top'#2#25#5'Width'#3#177#1#5'Align'#7#8'alB'
-  +'ottom'#7'Anchors'#11#5'akTop'#6'akLeft'#7'akRight'#8'akBottom'#0#17'BorderS'
-  +'pacing.Top'#2#2#17'DefaultItemHeight'#2#15#9'PopupMenu'#7#14'ItemsPopupMenu'
-  +#8'ReadOnly'#9#16'RightClickSelect'#9#8'TabOrder'#2#0#10'OnDblClick'#7#21'It'
-  +'emsTreeViewDblClick'#9'OnKeyDown'#7#20'ItemsTreeViewKeyDown'#18'OnSelection'
-  +'Changed'#7#29'ItemsTreeViewSelectionChanged'#7'Options'#11#17'tvoAutoItemHe'
-  +'ight'#16'tvoHideSelection'#21'tvoKeepCollapsedNodes'#11'tvoReadOnly'#19'tvo'
-  +'RightClickSelect'#14'tvoShowButtons'#12'tvoShowLines'#11'tvoShowRoot'#11'tv'
-  +'oToolTips'#0#0#0#7'TBitBtn'#10'OpenBitBtn'#6'Height'#2#23#5'Width'#2'P'#8'A'
-  +'utoSize'#9#7'Caption'#6#10'OpenBitBtn'#7'OnClick'#7#15'OpenBitBtnClick'#14
-  +'ParentShowHint'#8#8'ShowHint'#9#8'TabOrder'#2#1#0#0#7'TBitBtn'#9'AddBitBtn'
-  +#22'AnchorSideLeft.Control'#7#10'OpenBitBtn'#19'AnchorSideLeft.Side'#7#9'asr'
-  +'Bottom'#21'AnchorSideTop.Control'#7#10'OpenBitBtn'#4'Left'#2'P'#6'Height'#2
-  +#23#5'Width'#2'I'#8'AutoSize'#9#7'Caption'#6#9'AddBitBtn'#7'OnClick'#7#14'Ad'
-  +'dBitBtnClick'#14'ParentShowHint'#8#8'ShowHint'#9#8'TabOrder'#2#2#0#0#7'TBit'
-  +'Btn'#12'RemoveBitBtn'#22'AnchorSideLeft.Control'#7#9'AddBitBtn'#19'AnchorSi'
-  +'deLeft.Side'#7#9'asrBottom'#21'AnchorSideTop.Control'#7#10'OpenBitBtn'#4'Le'
-  +'ft'#3#153#0#6'Height'#2#23#5'Width'#2']'#8'AutoSize'#9#7'Caption'#6#12'Remo'
-  +'veBitBtn'#7'OnClick'#7#17'RemoveBitBtnClick'#14'ParentShowHint'#8#8'ShowHin'
-  +'t'#9#8'TabOrder'#2#3#0#0#7'TBitBtn'#13'OptionsBitBtn'#22'AnchorSideLeft.Con'
-  +'trol'#7#12'RemoveBitBtn'#19'AnchorSideLeft.Side'#7#9'asrBottom'#21'AnchorSi'
-  +'deTop.Control'#7#10'OpenBitBtn'#4'Left'#3#246#0#6'Height'#2#23#5'Width'#2'['
-  +#8'AutoSize'#9#7'Caption'#6#13'OptionsBitBtn'#7'OnClick'#7#18'OptionsBitBtnC'
-  +'lick'#14'ParentShowHint'#8#8'ShowHint'#9#8'TabOrder'#2#4#0#0#10'TPopupMenu'
-  +#14'ItemsPopupMenu'#7'OnPopup'#7#19'ItemsPopupMenuPopup'#4'left'#2'('#3'top'
-  +#2';'#0#0#0
+  +'ojectInspectorFormShow'#10'LCLVersion'#6#6'0.9.27'#0#12'TSpeedButton'#10'Op'
+  +'enBitBtn'#22'AnchorSideLeft.Control'#7#5'Owner'#21'AnchorSideTop.Control'#7
+  +#5'Owner'#4'Left'#2#0#6'Height'#2#23#3'Top'#2#0#5'Width'#2'<'#5'Color'#7#9'c'
+  +'lBtnFace'#9'NumGlyphs'#2#0#7'OnClick'#7#15'OpenBitBtnClick'#8'ShowHint'#9#14
+  +'ParentShowHint'#8#0#0#12'TSpeedButton'#9'AddBitBtn'#22'AnchorSideLeft.Contr'
+  +'ol'#7#10'OpenBitBtn'#19'AnchorSideLeft.Side'#7#9'asrBottom'#21'AnchorSideTo'
+  +'p.Control'#7#5'Owner'#4'Left'#2'<'#6'Height'#2#23#3'Top'#2#0#5'Width'#2'<'#5
+  +'Color'#7#9'clBtnFace'#9'NumGlyphs'#2#0#7'OnClick'#7#14'AddBitBtnClick'#8'Sh'
+  +'owHint'#9#14'ParentShowHint'#8#0#0#12'TSpeedButton'#12'RemoveBitBtn'#22'Anc'
+  +'horSideLeft.Control'#7#9'AddBitBtn'#19'AnchorSideLeft.Side'#7#9'asrBottom'
+  +#21'AnchorSideTop.Control'#7#5'Owner'#4'Left'#2'x'#6'Height'#2#23#3'Top'#2#0
+  +#5'Width'#2'<'#5'Color'#7#9'clBtnFace'#9'NumGlyphs'#2#0#7'OnClick'#7#17'Remo'
+  +'veBitBtnClick'#8'ShowHint'#9#14'ParentShowHint'#8#0#0#12'TSpeedButton'#13'O'
+  +'ptionsBitBtn'#22'AnchorSideLeft.Control'#7#12'RemoveBitBtn'#19'AnchorSideLe'
+  +'ft.Side'#7#9'asrBottom'#21'AnchorSideTop.Control'#7#5'Owner'#4'Left'#3#180#0
+  +#6'Height'#2#23#3'Top'#2#0#5'Width'#2'<'#5'Color'#7#9'clBtnFace'#9'NumGlyphs'
+  +#2#0#7'OnClick'#7#18'OptionsBitBtnClick'#8'ShowHint'#9#14'ParentShowHint'#8#0
+  +#0#9'TTreeView'#13'ItemsTreeView'#18'AnchorSideTop.Side'#7#9'asrBottom'#4'Le'
+  +'ft'#2#0#6'Height'#3#28#1#3'Top'#2#25#5'Width'#3#177#1#5'Align'#7#8'alBottom'
+  +#7'Anchors'#11#5'akTop'#6'akLeft'#7'akRight'#8'akBottom'#0#17'BorderSpacing.'
+  +'Top'#2#2#17'DefaultItemHeight'#2#15#9'PopupMenu'#7#14'ItemsPopupMenu'#8'Rea'
+  +'dOnly'#9#16'RightClickSelect'#9#8'TabOrder'#2#0#10'OnDblClick'#7#21'ItemsTr'
+  +'eeViewDblClick'#9'OnKeyDown'#7#20'ItemsTreeViewKeyDown'#18'OnSelectionChang'
+  +'ed'#7#29'ItemsTreeViewSelectionChanged'#7'Options'#11#17'tvoAutoItemHeight'
+  +#16'tvoHideSelection'#21'tvoKeepCollapsedNodes'#11'tvoReadOnly'#19'tvoRightC'
+  +'lickSelect'#14'tvoShowButtons'#12'tvoShowLines'#11'tvoShowRoot'#11'tvoToolT'
+  +'ips'#0#0#0#10'TPopupMenu'#14'ItemsPopupMenu'#7'OnPopup'#7#19'ItemsPopupMenu'
+  +'Popup'#4'left'#2'('#3'top'#2';'#0#0#0
 ]);
--- a/ide/projectinspector.pas
+++ b/ide/projectinspector.pas
@ -64,13 +64,13 @@ type
  { TProjectInspectorForm }

  TProjectInspectorForm = class(TForm)
-    AddBitBtn: TBitBtn;
-    OptionsBitBtn: TBitBtn;
-    RemoveBitBtn: TBitBtn;
-    OpenBitBtn: TBitBtn;
+    AddBitBtn: TSpeedButton;
+    OpenBitBtn: TSpeedButton;
    ItemsTreeView: TTreeView;
    ItemsPopupMenu: TPopupMenu;
    ControlDocker: TLazControlDocker;
+    OptionsBitBtn: TSpeedButton;
+    RemoveBitBtn: TSpeedButton;
    procedure AddBitBtnClick(Sender: TObject);
    procedure ItemsPopupMenuPopup(Sender: TObject);
    procedure ItemsTreeViewDblClick(Sender: TObject);