TscGPButton UI样式代码-透明带边框圆角按钮

   样式效果如下图

 


复制如下代码到Delphi IDE的窗体上粘贴即可看到按钮 (学习大师原创代码,请勿转载



object BtnVideoConnect: TscGPButton

   Left = 232

   Top = 296

   Width = 73

   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 = #23448#32593

   CanFocused = True

   CustomDropDown = False

   Margin = -1

   Spacing = 1

   Layout = blGlyphLeft

   ImageIndex = -1

   ImageMargin = 0

   TransparentBackground = True

   Options.NormalColor = clBtnFace

   Options.HotColor = clBtnFace

   Options.PressedColor = clBtnShadow

   Options.FocusedColor = clBtnFace

   Options.DisabledColor = clBtnFace

   Options.NormalColor2 = clNone

   Options.HotColor2 = clNone

   Options.PressedColor2 = clNone

   Options.FocusedColor2 = clNone

   Options.DisabledColor2 = clNone

   Options.NormalColorAlpha = 0

   Options.HotColorAlpha = 0

   Options.PressedColorAlpha = 0

   Options.FocusedColorAlpha = 0

   Options.DisabledColorAlpha = 0

   Options.NormalColor2Alpha = 255

   Options.HotColor2Alpha = 255

   Options.PressedColor2Alpha = 255

   Options.FocusedColor2Alpha = 255

   Options.DisabledColor2Alpha = 255

   Options.FrameNormalColor = clWhite

   Options.FrameHotColor = clWhite

   Options.FramePressedColor = clWhite

   Options.FrameFocusedColor = clWhite

   Options.FrameDisabledColor = clWhite

   Options.FrameWidth = 1

   Options.FrameNormalColorAlpha = 255

   Options.FrameHotColorAlpha = 255

   Options.FramePressedColorAlpha = 0

   Options.FrameFocusedColorAlpha = 255

   Options.FrameDisabledColorAlpha = 255

   Options.FontNormalColor = clWhite

   Options.FontHotColor = 15397073

   Options.FontPressedColor = 15397073

   Options.FontFocusedColor = 15397073

   Options.FontDisabledColor = clBtnShadow

   Options.ShapeFillGradientAngle = 90

   Options.ShapeFillGradientPressedAngle = -90

   Options.ShapeFillGradientColorOffset = 25

   Options.ShapeCornerRadius = 10

   Options.ShapeStyle = scgpRoundedRect

   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




联系电话:
020-00000000
联系电话:
020-00000000
联系电话:
020-12345678