TscGPButton UI样式代码-墨绿椭圆按钮


  样式效果如下图



复制如下代码到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



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