mirror of
https://gitlab.com/freepascal.org/lazarus/lazarus.git
synced 2025-09-26 20:29:55 +02:00
packages: apply patch of Maxim Ganetsky which makes project inspector buttons autosized (to be enough wide for translated strings)
git-svn-id: trunk@18694 -
This commit is contained in:
paul
parent
b302ed9634
commit
8f17251102
@ -10,51 +10,8 @@ object ProjectInspectorForm: TProjectInspectorForm
|
||||
ClientWidth = 433
|
||||
OnShow = ProjectInspectorFormShow
|
||||
LCLVersion = '0.9.27'
|
||||
object OpenBitBtn: TSpeedButton
|
||||
Left = 0
|
||||
Height = 25
|
||||
Top = 0
|
||||
Width = 80
|
||||
Caption = 'OpenBitBtn'
|
||||
Color = clBtnFace
|
||||
NumGlyphs = 0
|
||||
OnClick = OpenBitBtnClick
|
||||
end
|
||||
object AddBitBtn: TSpeedButton
|
||||
AnchorSideLeft.Side = asrBottom
|
||||
Left = 80
|
||||
Height = 25
|
||||
Top = 0
|
||||
Width = 73
|
||||
Caption = 'AddBitBtn'
|
||||
Color = clBtnFace
|
||||
NumGlyphs = 0
|
||||
OnClick = AddBitBtnClick
|
||||
end
|
||||
object RemoveBitBtn: TSpeedButton
|
||||
AnchorSideLeft.Side = asrBottom
|
||||
Left = 153
|
||||
Height = 25
|
||||
Top = 0
|
||||
Width = 93
|
||||
Caption = 'RemoveBitBtn'
|
||||
Color = clBtnFace
|
||||
NumGlyphs = 0
|
||||
OnClick = RemoveBitBtnClick
|
||||
end
|
||||
object OptionsBitBtn: TSpeedButton
|
||||
AnchorSideLeft.Side = asrBottom
|
||||
Left = 246
|
||||
Height = 25
|
||||
Top = 0
|
||||
Width = 187
|
||||
Anchors = [akTop, akLeft, akRight]
|
||||
Caption = 'OptionsBitBtn'
|
||||
Color = clBtnFace
|
||||
NumGlyphs = 0
|
||||
OnClick = OptionsBitBtnClick
|
||||
end
|
||||
object ItemsTreeView: TTreeView
|
||||
AnchorSideTop.Control = OpenBitBtn
|
||||
AnchorSideTop.Side = asrBottom
|
||||
Left = 0
|
||||
Height = 284
|
||||
@ -63,7 +20,7 @@ object ProjectInspectorForm: TProjectInspectorForm
|
||||
Align = alBottom
|
||||
Anchors = [akTop, akLeft, akRight, akBottom]
|
||||
BorderSpacing.Top = 2
|
||||
DefaultItemHeight = 19
|
||||
DefaultItemHeight = 15
|
||||
PopupMenu = ItemsPopupMenu
|
||||
ReadOnly = True
|
||||
RightClickSelect = True
|
||||
@ -73,6 +30,55 @@ object ProjectInspectorForm: TProjectInspectorForm
|
||||
OnSelectionChanged = ItemsTreeViewSelectionChanged
|
||||
Options = [tvoAutoItemHeight, tvoHideSelection, tvoKeepCollapsedNodes, tvoReadOnly, tvoRightClickSelect, tvoShowButtons, tvoShowLines, tvoShowRoot, tvoToolTips]
|
||||
end
|
||||
object OpenBitBtn: TBitBtn
|
||||
Left = 0
|
||||
Height = 23
|
||||
Top = 0
|
||||
Width = 80
|
||||
AutoSize = True
|
||||
Caption = 'OpenBitBtn'
|
||||
OnClick = OpenBitBtnClick
|
||||
TabOrder = 1
|
||||
end
|
||||
object AddBitBtn: TBitBtn
|
||||
AnchorSideLeft.Control = OpenBitBtn
|
||||
AnchorSideLeft.Side = asrBottom
|
||||
AnchorSideTop.Control = OpenBitBtn
|
||||
Left = 80
|
||||
Height = 23
|
||||
Top = 0
|
||||
Width = 73
|
||||
AutoSize = True
|
||||
Caption = 'AddBitBtn'
|
||||
OnClick = AddBitBtnClick
|
||||
TabOrder = 2
|
||||
end
|
||||
object RemoveBitBtn: TBitBtn
|
||||
AnchorSideLeft.Control = AddBitBtn
|
||||
AnchorSideLeft.Side = asrBottom
|
||||
AnchorSideTop.Control = OpenBitBtn
|
||||
Left = 153
|
||||
Height = 23
|
||||
Top = 0
|
||||
Width = 93
|
||||
AutoSize = True
|
||||
Caption = 'RemoveBitBtn'
|
||||
OnClick = RemoveBitBtnClick
|
||||
TabOrder = 3
|
||||
end
|
||||
object OptionsBitBtn: TBitBtn
|
||||
AnchorSideLeft.Control = RemoveBitBtn
|
||||
AnchorSideLeft.Side = asrBottom
|
||||
AnchorSideTop.Control = OpenBitBtn
|
||||
Left = 246
|
||||
Height = 23
|
||||
Top = 0
|
||||
Width = 91
|
||||
AutoSize = True
|
||||
Caption = 'OptionsBitBtn'
|
||||
OnClick = OptionsBitBtnClick
|
||||
TabOrder = 4
|
||||
end
|
||||
object ItemsPopupMenu: TPopupMenu
|
||||
OnPopup = ItemsPopupMenuPopup
|
||||
left = 40
|
||||
|
||||
@ -5,28 +5,31 @@ 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#12'TSpeedButton'#10'Op'
|
||||
+'enBitBtn'#4'Left'#2#0#6'Height'#2#25#3'Top'#2#0#5'Width'#2'P'#7'Caption'#6
|
||||
+#10'OpenBitBtn'#5'Color'#7#9'clBtnFace'#9'NumGlyphs'#2#0#7'OnClick'#7#15'Ope'
|
||||
+'nBitBtnClick'#0#0#12'TSpeedButton'#9'AddBitBtn'#19'AnchorSideLeft.Side'#7#9
|
||||
+'asrBottom'#4'Left'#2'P'#6'Height'#2#25#3'Top'#2#0#5'Width'#2'I'#7'Caption'#6
|
||||
+#9'AddBitBtn'#5'Color'#7#9'clBtnFace'#9'NumGlyphs'#2#0#7'OnClick'#7#14'AddBi'
|
||||
+'tBtnClick'#0#0#12'TSpeedButton'#12'RemoveBitBtn'#19'AnchorSideLeft.Side'#7#9
|
||||
+'asrBottom'#4'Left'#3#153#0#6'Height'#2#25#3'Top'#2#0#5'Width'#2']'#7'Captio'
|
||||
+'n'#6#12'RemoveBitBtn'#5'Color'#7#9'clBtnFace'#9'NumGlyphs'#2#0#7'OnClick'#7
|
||||
+#17'RemoveBitBtnClick'#0#0#12'TSpeedButton'#13'OptionsBitBtn'#19'AnchorSideL'
|
||||
+'eft.Side'#7#9'asrBottom'#4'Left'#3#246#0#6'Height'#2#25#3'Top'#2#0#5'Width'
|
||||
+#3#187#0#7'Anchors'#11#5'akTop'#6'akLeft'#7'akRight'#0#7'Caption'#6#13'Optio'
|
||||
+'nsBitBtn'#5'Color'#7#9'clBtnFace'#9'NumGlyphs'#2#0#7'OnClick'#7#18'OptionsB'
|
||||
+'itBtnClick'#0#0#9'TTreeView'#13'ItemsTreeView'#18'AnchorSideTop.Side'#7#9'a'
|
||||
+'srBottom'#4'Left'#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#19#9'PopupMenu'#7#14'ItemsPo'
|
||||
+'pupMenu'#8'ReadOnly'#9#16'RightClickSelect'#9#8'TabOrder'#2#0#10'OnDblClick'
|
||||
+#7#21'ItemsTreeViewDblClick'#9'OnKeyDown'#7#20'ItemsTreeViewKeyDown'#18'OnSe'
|
||||
+'lectionChanged'#7#29'ItemsTreeViewSelectionChanged'#7'Options'#11#17'tvoAut'
|
||||
+'oItemHeight'#16'tvoHideSelection'#21'tvoKeepCollapsedNodes'#11'tvoReadOnly'
|
||||
+#19'tvoRightClickSelect'#14'tvoShowButtons'#12'tvoShowLines'#11'tvoShowRoot'
|
||||
+#11'tvoToolTips'#0#0#0#10'TPopupMenu'#14'ItemsPopupMenu'#7'OnPopup'#7#19'Ite'
|
||||
+'msPopupMenuPopup'#4'left'#2'('#3'top'#2';'#0#0#0
|
||||
+'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'#4'Left'#2#0#6'Height'#3#28#1#3'Top'#2#25#5'Width'#3#177#1#5'Al'
|
||||
+'ign'#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'Item'
|
||||
+'sPopupMenu'#8'ReadOnly'#9#16'RightClickSelect'#9#8'TabOrder'#2#0#10'OnDblCl'
|
||||
+'ick'#7#21'ItemsTreeViewDblClick'#9'OnKeyDown'#7#20'ItemsTreeViewKeyDown'#18
|
||||
+'OnSelectionChanged'#7#29'ItemsTreeViewSelectionChanged'#7'Options'#11#17'tv'
|
||||
+'oAutoItemHeight'#16'tvoHideSelection'#21'tvoKeepCollapsedNodes'#11'tvoReadO'
|
||||
+'nly'#19'tvoRightClickSelect'#14'tvoShowButtons'#12'tvoShowLines'#11'tvoShow'
|
||||
+'Root'#11'tvoToolTips'#0#0#0#7'TBitBtn'#10'OpenBitBtn'#4'Left'#2#0#6'Height'
|
||||
+#2#23#3'Top'#2#0#5'Width'#2'P'#8'AutoSize'#9#7'Caption'#6#10'OpenBitBtn'#7'O'
|
||||
+'nClick'#7#15'OpenBitBtnClick'#8'TabOrder'#2#1#0#0#7'TBitBtn'#9'AddBitBtn'#22
|
||||
+'AnchorSideLeft.Control'#7#10'OpenBitBtn'#19'AnchorSideLeft.Side'#7#9'asrBot'
|
||||
+'tom'#21'AnchorSideTop.Control'#7#10'OpenBitBtn'#4'Left'#2'P'#6'Height'#2#23
|
||||
+#3'Top'#2#0#5'Width'#2'I'#8'AutoSize'#9#7'Caption'#6#9'AddBitBtn'#7'OnClick'
|
||||
+#7#14'AddBitBtnClick'#8'TabOrder'#2#2#0#0#7'TBitBtn'#12'RemoveBitBtn'#22'Anc'
|
||||
+'horSideLeft.Control'#7#9'AddBitBtn'#19'AnchorSideLeft.Side'#7#9'asrBottom'
|
||||
+#21'AnchorSideTop.Control'#7#10'OpenBitBtn'#4'Left'#3#153#0#6'Height'#2#23#3
|
||||
+'Top'#2#0#5'Width'#2']'#8'AutoSize'#9#7'Caption'#6#12'RemoveBitBtn'#7'OnClic'
|
||||
+'k'#7#17'RemoveBitBtnClick'#8'TabOrder'#2#3#0#0#7'TBitBtn'#13'OptionsBitBtn'
|
||||
+#22'AnchorSideLeft.Control'#7#12'RemoveBitBtn'#19'AnchorSideLeft.Side'#7#9'a'
|
||||
+'srBottom'#21'AnchorSideTop.Control'#7#10'OpenBitBtn'#4'Left'#3#246#0#6'Heig'
|
||||
+'ht'#2#23#3'Top'#2#0#5'Width'#2'['#8'AutoSize'#9#7'Caption'#6#13'OptionsBitB'
|
||||
+'tn'#7'OnClick'#7#18'OptionsBitBtnClick'#8'TabOrder'#2#4#0#0#10'TPopupMenu'
|
||||
+#14'ItemsPopupMenu'#7'OnPopup'#7#19'ItemsPopupMenuPopup'#4'left'#2'('#3'top'
|
||||
+#2';'#0#0#0
|
||||
]);
|
||||
|
||||
@ -64,13 +64,13 @@ type
|
||||
{ TProjectInspectorForm }
|
||||
|
||||
TProjectInspectorForm = class(TForm)
|
||||
AddBitBtn: TSpeedButton;
|
||||
OpenBitBtn: TSpeedButton;
|
||||
AddBitBtn: TBitBtn;
|
||||
OptionsBitBtn: TBitBtn;
|
||||
RemoveBitBtn: TBitBtn;
|
||||
OpenBitBtn: TBitBtn;
|
||||
ItemsTreeView: TTreeView;
|
||||
ItemsPopupMenu: TPopupMenu;
|
||||
ControlDocker: TLazControlDocker;
|
||||
OptionsBitBtn: TSpeedButton;
|
||||
RemoveBitBtn: TSpeedButton;
|
||||
procedure AddBitBtnClick(Sender: TObject);
|
||||
procedure ItemsPopupMenuPopup(Sender: TObject);
|
||||
procedure ItemsTreeViewDblClick(Sender: TObject);
|
||||
|
||||
Loading…
Reference in New Issue
Block a user