This is really annoying me.
My TToolBar component keeps resetting the ButtonHeight property to 13.
I want the ButtonHeight property to be 22.
I don't know why.
I attached the "dfm" code here.
Maybe someone knows why.
Regards,
Robert.
object pnlProdFinder: TPanel
Left = 0
Top = 19
Width = 590
Height = 25
Align = alTop
BevelOuter = bvNone
TabOrder = 1
object tlAll: TToolBar
Left = 0
Top = 0
Width = 590
Height = 29
ButtonHeight = 13
Caption = 'tlAll'
EdgeInner = esNone
EdgeOuter = esNone
Flat = True
TabOrder = 0
Wrapable = False
object lblFind: TLabel
Left = 0
Top = 0
Width = 23
Height = 13
Caption = 'Find '
end
object cmbField: TComboBox
Left = 23
Top = 0
Width = 80
Height = 21
ItemHeight = 13
TabOrder = 0
Text = 'PLU'
Items.Strings = (
'PLU'
'Description'
'Order Code'
'Family')
end
object edtFind: TEdit
Left = 103
Top = 0
Width = 50
Height = 13
Hint = 'Find products by filter criteria'
AutoSize = False
CharCase = ecUpperCase
TabOrder = 1
OnChange = edtFindChange
OnClick = edtFindClick
OnEnter = edtFindEnter
OnExit = edtFindExit
OnKeyPress = edtFindKeyPress
end
object btnLocate: TSpeedButton
Left = 153
Top = 0
Width = 23
Height = 13
Hint = 'Locate by matching anywhere in the field'
Flat = True
NumGlyphs = 2
ParentShowHint = False
ShowHint = True
OnClick = btnLocateClick
end
object btnSep1: TToolButton
Left = 176
Top = 0
Width = 5
Marked = True
Style = tbsDivider
end
object btnReport: TSpeedButton
Left = 181
Top = 0
Width = 25
Height = 13
Hint = 'Print Preview'
Flat = True
NumGlyphs = 2
ParentShowHint = False
ShowHint = True
Visible = False
end
object spdExport: TSpeedButton
Left = 206
Top = 0
Width = 24
Height = 13
Hint = 'Export to Excel'
Flat = True
ParentShowHint = False
ShowHint = True
Visible = False
end
object btnSep2: TToolButton
Left = 230
Top = 0
Width = 5
Caption = 'btnSep2'
ImageIndex = 0
Marked = True
Style = tbsDivider
end
object btnDeptFilter: TSpeedButton
Left = 235
Top = 0
Width = 24
Height = 13
Hint = 'Filter by Standard Department Hierarchy'
Flat = True
ParentShowHint = False
ShowHint = True
OnClick = btnDeptFilterClick
end
object btnGroup: TSpeedButton
Left = 259
Top = 0
Width = 25
Height = 13
Hint = 'Select by product group'
Flat = True
NumGlyphs = 2
ParentShowHint = False
ShowHint = True
OnClick = btnGroupClick
end
object btnSaveGroup: TSpeedButton
Left = 284
Top = 0
Width = 24
Height = 13
Hint = 'Save selected products as a permanent product group'
Flat = True
NumGlyphs = 2
ParentShowHint = False
ShowHint = True
OnClick = btnSaveGroupClick
end
object spdHost: TSpeedButton
Left = 308
Top = 0
Width = 24
Height = 13
Hint = 'Filter by Host'
Flat = True
NumGlyphs = 2
ParentShowHint = False
ShowHint = True
OnClick = spdHostClick
end
object spdSupp: TSpeedButton
Left = 332
Top = 0
Width = 24
Height = 13
Hint = 'Filter by Supplier'
Flat = True
NumGlyphs = 2
ParentShowHint = False
ShowHint = True
OnClick = spdSuppClick
end
object spdNewLines: TSpeedButton
Left = 356
Top = 0
Width = 24
Height = 13
Hint = 'Add/Edit Product'
Flat = True
NumGlyphs = 2
ParentShowHint = False
ShowHint = True
OnClick = spdNewLinesClick
end
object btnSep3: TToolButton
Left = 380
Top = 0
Width = 5
Caption = 'btnSep3'
ImageIndex = 1
Marked = True
Style = tbsDivider
end
object btnSelect: TSpeedButton
Left = 385
Top = 0
Width = 23
Height = 13
Hint = 'Select highlighted products'
Flat = True
NumGlyphs = 2
ParentShowHint = False
ShowHint = True
OnClick = btnSelectClick
end
object btnDeselect: TSpeedButton
Left = 408
Top = 0
Width = 23
Height = 13
Hint = 'Deselect highlighted products'
Flat = True
NumGlyphs = 2
ParentShowHint = False
ShowHint = True
OnClick = btnDeselectClick
end
object btnSelAll: TSpeedButton
Left = 431
Top = 0
Width = 24
Height = 13
Hint = 'Select all filtered products'
Flat = True
NumGlyphs = 2
ParentShowHint = False
ShowHint = True
OnClick = btnSelAllClick
end
object btnClearAll: TSpeedButton
Left = 455
Top = 0
Width = 25
Height = 13
Hint = 'Deselect all products'
Flat = True
NumGlyphs = 2
ParentShowHint = False
ShowHint = True
OnClick = btnClearAllClick
end
end
end
