[muratk]

add // in front of if GetExtendedStylePainters

[muratk]

skinmanager not active

[muratk]

XE2

[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:

[muratk]

Add TsSkinManager and select skin and make active.

and put TsDateEdit in TsToolBar

and run

[muratk]

SkinM.beginupdate;

……

……

SkinM.endupdate;

[muratk]

delete
procedure Register;
begin
RegisterComponents('AlphaAdditional', [TsDevExProvider]);
end;

[muratk]

Ok.
This is with BDE

[muratk]

With 6.54 still the same

[muratk]

Windows XP

[muratk]

TwwSearchDialog creates a form with a grid and search text.
Now It opens an empty form.

[Author]

Posts