样式效果如下图
复制如下代码到Delphi IDE的窗体上粘贴即可看到按钮 (学习大师原创代码,请勿转载)
object BtnVideoConnect: TscGPButton
Left = 160
Top = 296
Width = 145
Height = 35
Anchors = [akRight, akBottom]
Font.Charset = ANSI_CHARSET
Font.Color = clWindowText
Font.Height = -13
Font.Name = #24494#36719#38597#40657
Font.Style = []
Font.Quality = fqClearTypeNatural
ParentFont = False
TabOrder = 0
TabStop = True
Visible = False
OnClick = BtnVideoConnectClick
Animation = False
Caption = #36830#32447
CanFocused = True
CustomDropDown = False
Margin = -1
Spacing = 1
Layout = blGlyphLeft
ImageIndex = -1
ImageMargin = 0
TransparentBackground = True
Options.NormalColor = 9745178
Options.HotColor = 9745178
Options.PressedColor = 9745178
Options.FocusedColor = 9745178
Options.DisabledColor = 16053492
Options.NormalColor2 = clNone
Options.HotColor2 = clNone
Options.PressedColor2 = clNone
Options.FocusedColor2 = clNone
Options.DisabledColor2 = clNone
Options.NormalColorAlpha = 255
Options.HotColorAlpha = 255
Options.PressedColorAlpha = 255
Options.FocusedColorAlpha = 255
Options.DisabledColorAlpha = 255
Options.NormalColor2Alpha = 255
Options.HotColor2Alpha = 255
Options.PressedColor2Alpha = 255
Options.FocusedColor2Alpha = 255
Options.DisabledColor2Alpha = 255
Options.FrameNormalColor = 13273921
Options.FrameHotColor = 13273921
Options.FramePressedColor = 13273921
Options.FrameFocusedColor = 13273921
Options.FrameDisabledColor = 16053492
Options.FrameWidth = 1
Options.FrameNormalColorAlpha = 255
Options.FrameHotColorAlpha = 255
Options.FramePressedColorAlpha = 255
Options.FrameFocusedColorAlpha = 255
Options.FrameDisabledColorAlpha = 255
Options.FontNormalColor = clWhite
Options.FontHotColor = clWhite
Options.FontPressedColor = clWhite
Options.FontFocusedColor = clWhite
Options.FontDisabledColor = 11250603
Options.ShapeFillGradientAngle = 90
Options.ShapeFillGradientPressedAngle = -90
Options.ShapeFillGradientColorOffset = 25
Options.ShapeCornerRadius = 2
Options.ShapeStyle = scgpRoundedLeftRight
Options.ArrowSize = 9
Options.ArrowAreaSize = 0
Options.ArrowType = scgpatDefault
Options.ArrowThickness = 2
Options.ArrowThicknessScaled = False
Options.StyleColors = True
HotImageIndex = -1
FocusedImageIndex = -1
PressedImageIndex = -1
UseGalleryMenuImage = False
UseGalleryMenuCaption = False
ScaleMarginAndSpacing = False
WidthWithCaption = 0
WidthWithoutCaption = 0
SplitButton = False
RepeatClick = False
RepeatClickInterval = 100
GlowEffect.Enabled = False
GlowEffect.Color = clHighlight
GlowEffect.AlphaValue = 255
GlowEffect.GlowSize = 7
GlowEffect.Offset = 0
GlowEffect.Intensive = True
GlowEffect.StyleColors = True
GlowEffect.HotColor = clNone
GlowEffect.PressedColor = clNone
GlowEffect.FocusedColor = clNone
GlowEffect.PressedGlowSize = 7
GlowEffect.PressedAlphaValue = 255
GlowEffect.States = [scsHot, scsPressed, scsFocused]
ImageGlow = True
ShowGalleryMenuFromTop = False
ShowGalleryMenuFromRight = False
ShowMenuArrow = True
ShowFocusRect = True
Down = False
GroupIndex = 0
AllowAllUp = False
end
|