[Support]

Hello

Can you show an example please?

[muratk]

Add TsSkinManager and select skin and make active.

and put TsDateEdit in TsToolBar

and run

[Support]

I did it. What should I see? Can you send me a screenshot or a demo (better) please?

[muratk]

object Form11: TForm11

Left = 0

Top = 0

Caption = 'Form11'

ClientHeight = 254

ClientWidth = 480

Color = clBtnFace

Font.Charset = DEFAULT_CHARSET

Font.Color = clWindowText

Font.Height = -11

Font.Name = 'Tahoma'

Font.Style = []

OldCreateOrder = False

PixelsPerInch = 96

TextHeight = 13

object sToolBar1: TsToolBar

Left = 0

Top = 0

Width = 480

Height = 29

Caption = 'sToolBar1'

DoubleBuffered = True

ParentDoubleBuffered = False

TabOrder = 0

SkinData.SkinSection = 'TOOLBAR'

ExplicitLeft = 72

ExplicitTop = 40

ExplicitWidth = 150

object sDateEdit1: TsDateEdit

Left = 0

Top = 0

Width = 86

Height = 22

AutoSize = False

Color = clWhite

EditMask = '!99/99/9999;1; '

Font.Charset = DEFAULT_CHARSET

Font.Color = clBlack

Font.Height = -11

Font.Name = 'Tahoma'

Font.Style = []

MaxLength = 10

ParentFont = False

TabOrder = 0

Text = ' . . '

BoundLabel.Indent = 0

BoundLabel.Font.Charset = DEFAULT_CHARSET

BoundLabel.Font.Color = clWindowText

BoundLabel.Font.Height = -11

BoundLabel.Font.Name = 'Tahoma'

BoundLabel.Font.Style = []

BoundLabel.Layout = sclLeft

BoundLabel.MaxWidth = 0

BoundLabel.UseSkinColor = True

SkinData.SkinSection = 'EDIT'

GlyphMode.Blend = 0

GlyphMode.Grayed = False

end

end

object sSkinManager1: TsSkinManager

InternalSkins = <>

MenuSupport.ExtraLineFont.Charset = DEFAULT_CHARSET

MenuSupport.ExtraLineFont.Color = clWindowText

MenuSupport.ExtraLineFont.Height = -11

MenuSupport.ExtraLineFont.Name = 'Tahoma'

MenuSupport.ExtraLineFont.Style = []

SkinDirectory = 'f:publicnavskins'

SkinName = 'Acryl'

SkinInfo = '7.2'

ThirdParty.ThirdEdits = ' '

ThirdParty.ThirdButtons = 'TButton'

ThirdParty.ThirdBitBtns = ' '

ThirdParty.ThirdCheckBoxes = ' '

ThirdParty.ThirdGroupBoxes = ' '

ThirdParty.ThirdListViews = ' '

ThirdParty.ThirdPanels = ' '

ThirdParty.ThirdGrids = ' '

ThirdParty.ThirdTreeViews = ' '

ThirdParty.ThirdComboBoxes = ' '

ThirdParty.ThirdWWEdits = ' '

ThirdParty.ThirdVirtualTrees = ' '

ThirdParty.ThirdGridEh = ' '

ThirdParty.ThirdPageControl = ' '

ThirdParty.ThirdTabControl = ' '

ThirdParty.ThirdToolBar = ' '

ThirdParty.ThirdStatusBar = ' '

ThirdParty.ThirdSpeedButton = ' '

ThirdParty.ThirdScrollControl = ' '

ThirdParty.ThirdUpDown = ' '

ThirdParty.ThirdScrollBar = ' '

Left = 120

Top = 104

end

end

Here is runtime and design time view:

[Support]

Which version of Delphi do you uses?

You have ExplicitLeft, ExplicitTop properties in the TsToolBar, but these properties are not published in control.

How it may be?

Try to place other control to this ToolBar.

[muratk]

XE2

[muratk]

skinmanager not active

[Support]

Can you show it by TeamViewer or similar tool?

[Support]

I see it now, thanks for your last picture.

Issue occurs when Aero is off.

[Author]

Posts