TsDateEdit in TsToolBar

Viewing 10 posts - 1 through 10 (of 10 total)
  • Author
    Posts
  • #35260
    muratk
    Participant

    When TsDateEdit is in TsToolBar its top starts from negative.

    #48633
    Support
    Keymaster

    Hello

    Can you show an example please?

    #48636
    muratk
    Participant

    Add TsSkinManager and select skin and make active.

    and put TsDateEdit in TsToolBar

    and run

    #48637
    Support
    Keymaster

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

    #48638
    muratk
    Participant

    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:

    #48639
    Support
    Keymaster

    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.

    #48640
    muratk
    Participant

    XE2

    #48641
    muratk
    Participant

    skinmanager not active

    #48642
    Support
    Keymaster

    Can you show it by TeamViewer or similar tool?

    #48643
    Support
    Keymaster

    I see it now, thanks for your last picture.

    Issue occurs when Aero is off.

Viewing 10 posts - 1 through 10 (of 10 total)
  • You must be logged in to reply to this topic.