使用 IntraWeb (12) - 基本控件之 TIWGradButton、TIWImageButton

TIWGradButton、TIWImageButton 分别是有颜色梯度变化按钮和图像按钮.

TIWGradButton 所在单元及继承链:
IWCompGradButton.TIWGradButton < TIWCustomControl < TIWBaseHTMLControl < TIWBaseControl < TIWVCLBaseControl < TControl < TComponent < TPersistent < TObject

主要成员:

property Style: TIWGradButtonStyle  //

这个 Style 不大好调配, 可以复制官方示例中的设置:

object IWGradButton1: TIWGradButton
  Left = 48
  Top = 40
  Width = 140
  Height = 36
  Cursor = crAuto
  ParentShowHint = False
  ShowHint = True
  ZIndex = 0
  RenderSize = True
  Style.Border.Color = 1051800
  Style.Border.Width = 1
  Style.BorderDisabled.Color = clWebGRAY
  Style.BorderDisabled.Width = 1
  Style.Button.Alignment = taCenter
  Style.Button.Font.Color = clWebWHITE
  Style.Button.Font.FontFamily = 'Arial, Sans-Serif, Verdana'
  Style.Button.Font.Size = 10
  Style.Button.Font.Style = []
  Style.Button.FromColor = 2366701
  Style.Button.ToColor = 1512362
  Style.ButtonHover.Alignment = taCenter
  Style.ButtonHover.Font.Color = clWebWHITE
  Style.ButtonHover.Font.FontFamily = 'Arial, Sans-Serif, Verdana'
  Style.ButtonHover.Font.Size = 10
  Style.ButtonHover.Font.Style = []
  Style.ButtonHover.FromColor = 1775049
  Style.ButtonHover.ToColor = 1380769
  Style.ButtonActive.Alignment = taCenter
  Style.ButtonActive.Font.Color = clWebWHITE
  Style.ButtonActive.Font.FontFamily = 'Arial, Sans-Serif, Verdana'
  Style.ButtonActive.Font.Size = 10
  Style.ButtonActive.Font.Style = []
  Style.ButtonActive.FromColor = 1512362
  Style.ButtonActive.ToColor = 2366701
  Style.ButtonDisabled.Alignment = taCenter
  Style.ButtonDisabled.Font.Color = clWebWHITE
  Style.ButtonDisabled.Font.FontFamily = 'Arial, Sans-Serif, Verdana'
  Style.ButtonDisabled.Font.Size = 10
  Style.ButtonDisabled.Font.Style = []
  Style.ButtonDisabled.FromColor = clWebLIGHTGRAY
  Style.ButtonDisabled.ToColor = 7368816
  Style.ColorScheme = csRed
  Style.BoxShadow.ColorTransparency = 0.500000000000000000
  Style.TextShadow.ColorTransparency = 0.500000000000000000
  Caption = 'Red'
  Color = clBtnFace
  Font.Color = clNone
  Font.Size = 10
  Font.Style = []
  FriendlyName = 'IWGradButton1'
  ScriptEvents = <>
  TabOrder = 0
end
object IWGradButton2: TIWGradButton
  Left = 48
  Top = 96
  Width = 140
  Height = 36
  Cursor = crAuto
  ParentShowHint = False
  ShowHint = True
  ZIndex = 0
  RenderSize = True
  Style.Border.Color = 10712576
  Style.Border.Width = 1
  Style.BorderDisabled.Color = clWebGRAY
  Style.BorderDisabled.Width = 1
  Style.Button.Alignment = taCenter
  Style.Button.Font.Color = clWebWHITE
  Style.Button.Font.FontFamily = 'Arial, Sans-Serif, Verdana'
  Style.Button.Font.Size = 10
  Style.Button.Font.Style = []
  Style.Button.FromColor = 15641856
  Style.Button.ToColor = 10844160
  Style.ButtonHover.Alignment = taCenter
  Style.ButtonHover.Font.Color = clWebWHITE
  Style.ButtonHover.Font.FontFamily = 'Arial, Sans-Serif, Verdana'
  Style.ButtonHover.Font.Size = 10
  Style.ButtonHover.Font.Style = []
  Style.ButtonHover.FromColor = 13407488
  Style.ButtonHover.ToColor = 9332480
  Style.ButtonActive.Alignment = taCenter
  Style.ButtonActive.Font.Color = clWebWHITE
  Style.ButtonActive.Font.FontFamily = 'Arial, Sans-Serif, Verdana'
  Style.ButtonActive.Font.Size = 10
  Style.ButtonActive.Font.Style = []
  Style.ButtonActive.FromColor = 10844160
  Style.ButtonActive.ToColor = 15641856
  Style.ButtonDisabled.Alignment = taCenter
  Style.ButtonDisabled.Font.Color = clWebWHITE
  Style.ButtonDisabled.Font.FontFamily = 'Arial, Sans-Serif, Verdana'
  Style.ButtonDisabled.Font.Size = 10
  Style.ButtonDisabled.Font.Style = []
  Style.ButtonDisabled.FromColor = clWebLIGHTGRAY
  Style.ButtonDisabled.ToColor = 7368816
  Style.ColorScheme = csBlue
  Style.BoxShadow.ColorTransparency = 0.500000000000000000
  Style.TextShadow.ColorTransparency = 0.500000000000000000
  Caption = 'Blue'
  Color = clBtnFace
  Font.Color = clNone
  Font.Size = 10
  Font.Style = []
  FriendlyName = 'IWGradButton2'
  ScriptEvents = <>
  TabOrder = 1
end
object IWGradButton3: TIWGradButton
  Left = 48
  Top = 152
  Width = 140
  Height = 36
  Cursor = crAuto
  ParentShowHint = False
  ShowHint = True
  ZIndex = 0
  RenderSize = True
  Style.Border.Color = 1213267
  Style.Border.Width = 1
  Style.BorderDisabled.Color = clWebGRAY
  Style.BorderDisabled.Width = 1
  Style.Button.Alignment = taCenter
  Style.Button.Font.Color = clWebWHITE
  Style.Button.Font.FontFamily = 'Arial, Sans-Serif, Verdana'
  Style.Button.Font.Size = 10
  Style.Button.Font.Style = []
  Style.Button.FromColor = 3127165
  Style.Button.ToColor = 949582
  Style.ButtonHover.Alignment = taCenter
  Style.ButtonHover.Font.Color = clWebWHITE
  Style.ButtonHover.Font.FontFamily = 'Arial, Sans-Serif, Verdana'
  Style.ButtonHover.Font.Size = 10
  Style.ButtonHover.Font.Style = []
  Style.ButtonHover.FromColor = 2661739
  Style.ButtonHover.ToColor = 813891
  Style.ButtonActive.Alignment = taCenter
  Style.ButtonActive.Font.Color = clWebWHITE
  Style.ButtonActive.Font.FontFamily = 'Arial, Sans-Serif, Verdana'
  Style.ButtonActive.Font.Size = 10
  Style.ButtonActive.Font.Style = []
  Style.ButtonActive.FromColor = 949582
  Style.ButtonActive.ToColor = 3127165
  Style.ButtonDisabled.Alignment = taCenter
  Style.ButtonDisabled.Font.Color = clWebWHITE
  Style.ButtonDisabled.Font.FontFamily = 'Arial, Sans-Serif, Verdana'
  Style.ButtonDisabled.Font.Size = 10
  Style.ButtonDisabled.Font.Style = []
  Style.ButtonDisabled.FromColor = clWebLIGHTGRAY
  Style.ButtonDisabled.ToColor = 7368816
  Style.ColorScheme = csGreen
  Style.BoxShadow.ColorTransparency = 0.500000000000000000
  Style.TextShadow.ColorTransparency = 0.500000000000000000
  Caption = 'Green'
  Color = clBtnFace
  Font.Color = clNone
  Font.Size = 10
  Font.Style = []
  FriendlyName = 'IWGradButton3'
  ScriptEvents = <>
  TabOrder = 2
end
object IWGradButton4: TIWGradButton
  Left = 48
  Top = 208
  Width = 140
  Height = 36
  Cursor = crAuto
  ParentShowHint = False
  ShowHint = True
  ZIndex = 0
  RenderSize = True
  Style.Border.Color = 1901175
  Style.Border.Width = 1
  Style.BorderDisabled.Color = clWebGRAY
  Style.BorderDisabled.Width = 1
  Style.Button.Alignment = taCenter
  Style.Button.Font.Color = clWebWHITE
  Style.Button.Font.FontFamily = 'Arial, Sans-Serif, Verdana'
  Style.Button.Font.Size = 10
  Style.Button.Font.Style = []
  Style.Button.FromColor = 2687913
  Style.Button.ToColor = 1638509
  Style.ButtonHover.Alignment = taCenter
  Style.ButtonHover.Font.Color = clWebWHITE
  Style.ButtonHover.Font.FontFamily = 'Arial, Sans-Serif, Verdana'
  Style.ButtonHover.Font.Size = 10
  Style.ButtonHover.Font.Style = []
  Style.ButtonHover.FromColor = 852026
  Style.ButtonHover.ToColor = 1901175
  Style.ButtonActive.Alignment = taCenter
  Style.ButtonActive.Font.Color = clWebWHITE
  Style.ButtonActive.Font.FontFamily = 'Arial, Sans-Serif, Verdana'
  Style.ButtonActive.Font.Size = 10
  Style.ButtonActive.Font.Style = []
  Style.ButtonActive.FromColor = 1638509
  Style.ButtonActive.ToColor = 2687913
  Style.ButtonDisabled.Alignment = taCenter
  Style.ButtonDisabled.Font.Color = clWebWHITE
  Style.ButtonDisabled.Font.FontFamily = 'Arial, Sans-Serif, Verdana'
  Style.ButtonDisabled.Font.Size = 10
  Style.ButtonDisabled.Font.Style = []
  Style.ButtonDisabled.FromColor = clWebLIGHTGRAY
  Style.ButtonDisabled.ToColor = 7368816
  Style.ColorScheme = csMaroon
  Style.BoxShadow.ColorTransparency = 0.500000000000000000
  Style.TextShadow.ColorTransparency = 0.500000000000000000
  Caption = 'Maroon'
  Color = clBtnFace
  Font.Color = clNone
  Font.Size = 10
  Font.Style = []
  FriendlyName = 'IWGradButton4'
  ScriptEvents = <>
  TabOrder = 3
end
object IWGradButton5: TIWGradButton
  Left = 248
  Top = 152
  Width = 140
  Height = 36
  Cursor = crAuto
  ParentShowHint = False
  ShowHint = True
  ZIndex = 0
  RenderSize = True
  Style.Border.Color = 818394
  Style.Border.Width = 1
  Style.BorderDisabled.Color = clWebGRAY
  Style.BorderDisabled.Width = 1
  Style.Button.Alignment = taCenter
  Style.Button.Font.Color = clWebWHITE
  Style.Button.Font.FontFamily = 'Arial, Sans-Serif, Verdana'
  Style.Button.Font.Size = 10
  Style.Button.Font.Style = []
  Style.Button.FromColor = 1746426
  Style.Button.ToColor = 2128628
  Style.ButtonHover.Alignment = taCenter
  Style.ButtonHover.Font.Color = clWebWHITE
  Style.ButtonHover.Font.FontFamily = 'Arial, Sans-Serif, Verdana'
  Style.ButtonHover.Font.Size = 10
  Style.ButtonHover.Font.Style = []
  Style.ButtonHover.FromColor = 1150712
  Style.ButtonHover.ToColor = 1401072
  Style.ButtonActive.Alignment = taCenter
  Style.ButtonActive.Font.Color = clWebWHITE
  Style.ButtonActive.Font.FontFamily = 'Arial, Sans-Serif, Verdana'
  Style.ButtonActive.Font.Size = 10
  Style.ButtonActive.Font.Style = []
  Style.ButtonActive.FromColor = 2128628
  Style.ButtonActive.ToColor = 1746426
  Style.ButtonDisabled.Alignment = taCenter
  Style.ButtonDisabled.Font.Color = clWebWHITE
  Style.ButtonDisabled.Font.FontFamily = 'Arial, Sans-Serif, Verdana'
  Style.ButtonDisabled.Font.Size = 10
  Style.ButtonDisabled.Font.Style = []
  Style.ButtonDisabled.FromColor = clWebLIGHTGRAY
  Style.ButtonDisabled.ToColor = 7368816
  Style.ColorScheme = csOrange
  Style.BoxShadow.ColorTransparency = 0.500000000000000000
  Style.TextShadow.ColorTransparency = 0.500000000000000000
  Caption = 'Orange'
  Color = clBtnFace
  Font.Color = clNone
  Font.Size = 10
  Font.Style = []
  FriendlyName = 'IWGradButton5'
  ScriptEvents = <>
  TabOrder = 4
end
object IWGradButton6: TIWGradButton
  Left = 248
  Top = 208
  Width = 140
  Height = 36
  Cursor = crAuto
  ParentShowHint = False
  ShowHint = True
  ZIndex = 0
  RenderSize = True
  Style.Border.Color = 10384082
  Style.Border.Width = 1
  Style.BorderDisabled.Color = clWebGRAY
  Style.BorderDisabled.Width = 1
  Style.Button.Alignment = taCenter
  Style.Button.Font.Color = clWebWHITE
  Style.Button.Font.FontFamily = 'Arial, Sans-Serif, Verdana'
  Style.Button.Font.Size = 10
  Style.Button.Font.Style = []
  Style.Button.FromColor = 13873662
  Style.Button.ToColor = 11235825
  Style.ButtonHover.Alignment = taCenter
  Style.ButtonHover.Font.Color = clWebWHITE
  Style.ButtonHover.Font.FontFamily = 'Arial, Sans-Serif, Verdana'
  Style.ButtonHover.Font.Size = 10
  Style.ButtonHover.Font.Style = []
  Style.ButtonHover.FromColor = 13347572
  Style.ButtonHover.ToColor = 10775784
  Style.ButtonActive.Alignment = taCenter
  Style.ButtonActive.Font.Color = clWebWHITE
  Style.ButtonActive.Font.FontFamily = 'Arial, Sans-Serif, Verdana'
  Style.ButtonActive.Font.Size = 10
  Style.ButtonActive.Font.Style = []
  Style.ButtonActive.FromColor = 11235825
  Style.ButtonActive.ToColor = 13873662
  Style.ButtonDisabled.Alignment = taCenter
  Style.ButtonDisabled.Font.Color = clWebWHITE
  Style.ButtonDisabled.Font.FontFamily = 'Arial, Sans-Serif, Verdana'
  Style.ButtonDisabled.Font.Size = 10
  Style.ButtonDisabled.Font.Style = []
  Style.ButtonDisabled.FromColor = clWebLIGHTGRAY
  Style.ButtonDisabled.ToColor = 7368816
  Style.ColorScheme = csPink
  Style.BoxShadow.ColorTransparency = 0.500000000000000000
  Style.TextShadow.ColorTransparency = 0.500000000000000000
  Caption = 'Pink'
  Color = clBtnFace
  Font.Color = clNone
  Font.Size = 10
  Font.Style = []
  FriendlyName = 'IWGradButton6'
  ScriptEvents = <>
  TabOrder = 5
end
object IWGradButton7: TIWGradButton
  Left = 248
  Top = 40
  Width = 140
  Height = 36
  Cursor = crAuto
  ParentShowHint = False
  ShowHint = True
  ZIndex = 0
  RenderSize = True
  Style.Border.Color = 6771273
  Style.Border.Width = 1
  Style.BorderDisabled.Color = clWebGRAY
  Style.BorderDisabled.Width = 1
  Style.Button.Alignment = taCenter
  Style.Button.Font.Color = clWebWHITE
  Style.Button.Font.FontFamily = 'Arial, Sans-Serif, Verdana'
  Style.Button.Font.Size = 10
  Style.Button.Font.Style = []
  Style.Button.FromColor = clWebLIGHTSLATEGRAY
  Style.Button.ToColor = 7031871
  Style.ButtonHover.Alignment = taCenter
  Style.ButtonHover.Font.Color = clWebWHITE
  Style.ButtonHover.Font.FontFamily = 'Arial, Sans-Serif, Verdana'
  Style.ButtonHover.Font.Size = 10
  Style.ButtonHover.Font.Style = []
  Style.ButtonHover.FromColor = 4928812
  Style.ButtonHover.ToColor = 6968395
  Style.ButtonActive.Alignment = taCenter
  Style.ButtonActive.Font.Color = clWebWHITE
  Style.ButtonActive.Font.FontFamily = 'Arial, Sans-Serif, Verdana'
  Style.ButtonActive.Font.Size = 10
  Style.ButtonActive.Font.Style = []
  Style.ButtonActive.FromColor = 7031871
  Style.ButtonActive.ToColor = clWebLIGHTSLATEGRAY
  Style.ButtonDisabled.Alignment = taCenter
  Style.ButtonDisabled.Font.Color = clWebWHITE
  Style.ButtonDisabled.Font.FontFamily = 'Arial, Sans-Serif, Verdana'
  Style.ButtonDisabled.Font.Size = 10
  Style.ButtonDisabled.Font.Style = []
  Style.ButtonDisabled.FromColor = clWebLIGHTGRAY
  Style.ButtonDisabled.ToColor = 7368816
  Style.ColorScheme = csGray
  Style.BoxShadow.ColorTransparency = 0.500000000000000000
  Style.TextShadow.ColorTransparency = 0.500000000000000000
  Caption = 'Gray'
  Color = clBtnFace
  Font.Color = clNone
  Font.Size = 10
  Font.Style = []
  FriendlyName = 'IWGradButton7'
  ScriptEvents = <>
  TabOrder = 6
end
object IWGradButton8: TIWGradButton
  Left = 448
  Top = 40
  Width = 140
  Height = 36
  Cursor = crAuto
  ParentShowHint = False
  ShowHint = True
  ZIndex = 0
  RenderSize = True
  Style.Border.Color = 10712576
  Style.Border.Width = 1
  Style.BorderDisabled.Color = clWebGRAY
  Style.BorderDisabled.Width = 1
  Style.Button.Alignment = taCenter
  Style.Button.Font.Color = clWebWHITE
  Style.Button.Font.FontFamily = 'Arial, Sans-Serif, Verdana'
  Style.Button.Font.Size = 10
  Style.Button.Font.Style = []
  Style.Button.FromColor = 15641856
  Style.Button.ToColor = 10844160
  Style.ButtonHover.Alignment = taCenter
  Style.ButtonHover.Font.Color = clWebWHITE
  Style.ButtonHover.Font.FontFamily = 'Arial, Sans-Serif, Verdana'
  Style.ButtonHover.Font.Size = 10
  Style.ButtonHover.Font.Style = []
  Style.ButtonHover.FromColor = 13407488
  Style.ButtonHover.ToColor = 9332480
  Style.ButtonActive.Alignment = taCenter
  Style.ButtonActive.Font.Color = clWebWHITE
  Style.ButtonActive.Font.FontFamily = 'Arial, Sans-Serif, Verdana'
  Style.ButtonActive.Font.Size = 10
  Style.ButtonActive.Font.Style = []
  Style.ButtonActive.FromColor = 10844160
  Style.ButtonActive.ToColor = 15641856
  Style.ButtonDisabled.Alignment = taCenter
  Style.ButtonDisabled.Font.Color = clWebWHITE
  Style.ButtonDisabled.Font.FontFamily = 'Arial, Sans-Serif, Verdana'
  Style.ButtonDisabled.Font.Size = 10
  Style.ButtonDisabled.Font.Style = []
  Style.ButtonDisabled.FromColor = clWebLIGHTGRAY
  Style.ButtonDisabled.ToColor = 7368816
  Style.ColorScheme = csBlue
  Style.BoxShadow.ColorTransparency = 0.500000000000000000
  Style.TextShadow.ColorTransparency = 0.500000000000000000
  Caption = 'Disabled'
  Enabled = False
  Color = clBtnFace
  Font.Color = clNone
  Font.Size = 10
  Font.Style = []
  FriendlyName = 'IWGradButton7'
  ScriptEvents = <>
  TabOrder = 7
end
object IWGradButton9: TIWGradButton
  Left = 448
  Top = 96
  Width = 140
  Height = 36
  Cursor = crAuto
  ParentShowHint = False
  ShowHint = True
  ZIndex = 0
  RenderSize = True
  Style.Border.Color = 1051800
  Style.Border.Width = 1
  Style.BorderDisabled.Color = clWebGRAY
  Style.BorderDisabled.Width = 1
  Style.Button.Alignment = taCenter
  Style.Button.Font.Color = clWebWHITE
  Style.Button.Font.FontFamily = 'Arial, Sans-Serif, Verdana'
  Style.Button.Font.Size = 10
  Style.Button.Font.Style = []
  Style.Button.FromColor = 2366701
  Style.Button.ToColor = 1512362
  Style.Button.BorderRadius = 5
  Style.ButtonHover.Alignment = taCenter
  Style.ButtonHover.Font.Color = clWebWHITE
  Style.ButtonHover.Font.FontFamily = 'Arial, Sans-Serif, Verdana'
  Style.ButtonHover.Font.Size = 10
  Style.ButtonHover.Font.Style = []
  Style.ButtonHover.FromColor = 1775049
  Style.ButtonHover.ToColor = 1380769
  Style.ButtonActive.Alignment = taCenter
  Style.ButtonActive.Font.Color = clWebWHITE
  Style.ButtonActive.Font.FontFamily = 'Arial, Sans-Serif, Verdana'
  Style.ButtonActive.Font.Size = 10
  Style.ButtonActive.Font.Style = []
  Style.ButtonActive.FromColor = 1512362
  Style.ButtonActive.ToColor = 2366701
  Style.ButtonDisabled.Alignment = taCenter
  Style.ButtonDisabled.Font.Color = clWebWHITE
  Style.ButtonDisabled.Font.FontFamily = 'Arial, Sans-Serif, Verdana'
  Style.ButtonDisabled.Font.Size = 10
  Style.ButtonDisabled.Font.Style = []
  Style.ButtonDisabled.FromColor = clWebLIGHTGRAY
  Style.ButtonDisabled.ToColor = 7368816
  Style.ColorScheme = csRed
  Style.BoxShadow.ColorTransparency = 0.500000000000000000
  Style.TextShadow.ColorTransparency = 0.500000000000000000
  Caption = 'Rounded corners'
  Color = clBtnFace
  Font.Color = clNone
  Font.Size = 10
  Font.Style = []
  FriendlyName = 'IWGradButton9'
  ScriptEvents = <>
  TabOrder = 8
end
object IWGradButton10: TIWGradButton
  Left = 248
  Top = 96
  Width = 140
  Height = 36
  Cursor = crAuto
  ParentShowHint = False
  ShowHint = True
  ZIndex = 0
  RenderSize = True
  Style.Border.Color = 6771273
  Style.Border.Width = 1
  Style.BorderDisabled.Color = clWebGRAY
  Style.BorderDisabled.Width = 1
  Style.Button.Alignment = taCenter
  Style.Button.Font.Color = clWebBLUE
  Style.Button.Font.FontFamily = 'Arial, Sans-Serif, Verdana'
  Style.Button.Font.Size = 10
  Style.Button.Font.Style = []
  Style.Button.FromColor = clWebGREENYELLOW
  Style.Button.ToColor = clWebYELLOW
  Style.ButtonHover.Alignment = taCenter
  Style.ButtonHover.Font.Color = clWebWHITE
  Style.ButtonHover.Font.FontFamily = 'Arial, Sans-Serif, Verdana'
  Style.ButtonHover.Font.Size = 10
  Style.ButtonHover.Font.Style = []
  Style.ButtonHover.FromColor = 4928812
  Style.ButtonHover.ToColor = 6968395
  Style.ButtonActive.Alignment = taCenter
  Style.ButtonActive.Font.Color = clWebWHITE
  Style.ButtonActive.Font.FontFamily = 'Arial, Sans-Serif, Verdana'
  Style.ButtonActive.Font.Size = 10
  Style.ButtonActive.Font.Style = []
  Style.ButtonActive.FromColor = 7031871
  Style.ButtonActive.ToColor = clWebLIGHTSLATEGRAY
  Style.ButtonDisabled.Alignment = taCenter
  Style.ButtonDisabled.Font.Color = clWebWHITE
  Style.ButtonDisabled.Font.FontFamily = 'Arial, Sans-Serif, Verdana'
  Style.ButtonDisabled.Font.Size = 10
  Style.ButtonDisabled.Font.Style = []
  Style.ButtonDisabled.FromColor = clWebLIGHTGRAY
  Style.ButtonDisabled.ToColor = 7368816
  Style.ColorScheme = csCustom
  Style.BoxShadow.ColorTransparency = 0.500000000000000000
  Style.TextShadow.ColorTransparency = 0.500000000000000000
  Caption = 'Custom colors'
  Color = clBtnFace
  Font.Color = clNone
  Font.Size = 10
  Font.Style = []
  FriendlyName = 'IWGradButton7'
  ScriptEvents = <>
  TabOrder = 9
end
object IWGradButton11: TIWGradButton
  Left = 448
  Top = 152
  Width = 140
  Height = 36
  Cursor = crAuto
  ParentShowHint = False
  ShowHint = True
  ZIndex = 0
  RenderSize = True
  Style.Border.Color = 10384082
  Style.Border.Width = 1
  Style.BorderDisabled.Color = clWebGRAY
  Style.BorderDisabled.Width = 1
  Style.Button.Alignment = taCenter
  Style.Button.Font.Color = clWebWHITE
  Style.Button.Font.FontFamily = 'Arial, Sans-Serif, Verdana'
  Style.Button.Font.Size = 10
  Style.Button.Font.Style = []
  Style.Button.FromColor = 13873662
  Style.Button.ToColor = 11235825
  Style.ButtonHover.Alignment = taCenter
  Style.ButtonHover.Font.Color = clWebWHITE
  Style.ButtonHover.Font.FontFamily = 'Arial, Sans-Serif, Verdana'
  Style.ButtonHover.Font.Size = 10
  Style.ButtonHover.Font.Style = []
  Style.ButtonHover.FromColor = 13347572
  Style.ButtonHover.ToColor = 10775784
  Style.ButtonActive.Alignment = taCenter
  Style.ButtonActive.Font.Color = clWebWHITE
  Style.ButtonActive.Font.FontFamily = 'Arial, Sans-Serif, Verdana'
  Style.ButtonActive.Font.Size = 10
  Style.ButtonActive.Font.Style = []
  Style.ButtonActive.FromColor = 11235825
  Style.ButtonActive.ToColor = 13873662
  Style.ButtonDisabled.Alignment = taCenter
  Style.ButtonDisabled.Font.Color = clWebWHITE
  Style.ButtonDisabled.Font.FontFamily = 'Arial, Sans-Serif, Verdana'
  Style.ButtonDisabled.Font.Size = 10
  Style.ButtonDisabled.Font.Style = []
  Style.ButtonDisabled.FromColor = clWebLIGHTGRAY
  Style.ButtonDisabled.ToColor = 7368816
  Style.ColorScheme = csPink
  Style.BoxShadow.HShadow = 3
  Style.BoxShadow.VShadow = 3
  Style.BoxShadow.ColorTransparency = 0.500000000000000000
  Style.TextShadow.ColorTransparency = 0.500000000000000000
  Caption = 'Box Shadow'
  Color = clBtnFace
  Font.Color = clNone
  Font.Size = 10
  Font.Style = []
  FriendlyName = 'IWGradButton11'
  ScriptEvents = <>
  TabOrder = 10
end
object IWGradButton12: TIWGradButton
  Left = 448
  Top = 208
  Width = 140
  Height = 36
  Cursor = crAuto
  ParentShowHint = False
  ShowHint = True
  ZIndex = 0
  RenderSize = True
  Style.Border.Color = 818394
  Style.Border.Width = 1
  Style.BorderDisabled.Color = clWebGRAY
  Style.BorderDisabled.Width = 1
  Style.Button.Alignment = taCenter
  Style.Button.Font.Color = clWebWHITE
  Style.Button.Font.FontFamily = 'Arial, Sans-Serif, Verdana'
  Style.Button.Font.Size = 10
  Style.Button.Font.Style = []
  Style.Button.FromColor = 1746426
  Style.Button.ToColor = 2128628
  Style.ButtonHover.Alignment = taCenter
  Style.ButtonHover.Font.Color = clWebWHITE
  Style.ButtonHover.Font.FontFamily = 'Arial, Sans-Serif, Verdana'
  Style.ButtonHover.Font.Size = 10
  Style.ButtonHover.Font.Style = []
  Style.ButtonHover.FromColor = 1150712
  Style.ButtonHover.ToColor = 1401072
  Style.ButtonActive.Alignment = taCenter
  Style.ButtonActive.Font.Color = clWebWHITE
  Style.ButtonActive.Font.FontFamily = 'Arial, Sans-Serif, Verdana'
  Style.ButtonActive.Font.Size = 10
  Style.ButtonActive.Font.Style = []
  Style.ButtonActive.FromColor = 2128628
  Style.ButtonActive.ToColor = 1746426
  Style.ButtonDisabled.Alignment = taCenter
  Style.ButtonDisabled.Font.Color = clWebWHITE
  Style.ButtonDisabled.Font.FontFamily = 'Arial, Sans-Serif, Verdana'
  Style.ButtonDisabled.Font.Size = 10
  Style.ButtonDisabled.Font.Style = []
  Style.ButtonDisabled.FromColor = clWebLIGHTGRAY
  Style.ButtonDisabled.ToColor = 7368816
  Style.ColorScheme = csOrange
  Style.BoxShadow.ColorTransparency = 0.500000000000000000
  Style.TextShadow.HShadow = 3
  Style.TextShadow.VShadow = 3
  Style.TextShadow.ColorTransparency = 0.500000000000000000
  Caption = 'Text Shadow'
  Color = clBtnFace
  Font.Color = clNone
  Font.Size = 10
  Font.Style = []
  FriendlyName = 'IWGradButton12'
  ScriptEvents = <>
  TabOrder = 11
end

效果图:

TIWImageButton 所在单元及继承链:
IWCompExtCtrls.TIWImageButton < TIWImageFile < TIWCustomImage < TIWCustomControl < TIWBaseHTMLControl < TIWBaseControl < TIWVCLBaseControl < TControl < TComponent < TPersistent < TObject

主要成员:

property ImageFile: TIWFileReference    //图像
property HotImageFile: TIWFileReference //当鼠标指向时显示的图像

测试代码:

procedure TIWForm1.IWAppFormCreate(Sender: TObject);
begin
  IWImageButton1.ImageFile.Filename := 'pic1.png'; //pic1.png、pic2.png 放在 wwwroot 目录下
  IWImageButton1.HotImageFile.Filename := 'pic2.png';
end;

procedure TIWForm1.IWImageButton1Click(Sender: TObject);
begin
  WebApplication.GoToURL('http://del.cnblogs.com');
end;

posted on 2014-06-12 17:33 万一阅读(2694) 评论(1) 编辑收藏举报