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

TIWGradButton 所在单元及继承链:
IWCompGradButton.TIWGradButton

主要成员:

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

主要成员:

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;

使用 IntraWeb (12) - 基本控件之 TIWGradButton、TIWImageButton的更多相关文章

  1. 使用 IntraWeb (24) - 基本控件之 TIWFileUploader、TIWFile

    TIWFileUploader 是基于 Ajax 的上传控件, 最初是 Andrew Valums 开发, 从 IntraWeb XIV 纳入并替换 TIWFile. 虽然从组件面板上还能看到 TIW ...

  2. 使用 IntraWeb (22) - 基本控件之 TIWCalendar

    TIWCalendar: 日历控件, 继承于 TIWCustomGrid, 所以它和 TIWGrid 共同属性特多. 它的 Cell 是 TIWCalendarCell 对象, 直接从 TIWGrid ...

  3. 使用 IntraWeb (20) - 基本控件之 TIWGrid

    TIWGrid 最终通过 Html Table 呈现; 其每个 Cell 都是一个 TIWGridCell 对象, Cell 对象的 Control 属性非常好, 可以非常方便地嵌入其他控件. TIW ...

  4. 使用 IntraWeb (29) - 基本控件之 TIWAutherList、TIWAutherINI、TIWAutherEvent

    TIWAutherList //通过一组户名与密码验证登陆 TIWAutherINI //通过记录户名与密码信息的 #Auth.ini 文件验证登陆 TIWAutherEvent //通过其 OnCh ...

  5. 使用 IntraWeb (28) - 基本控件之 TIWTemplateProcessorHTML、TIWLayoutMgrHTML、TIWLayoutMgrForm

    TIWTemplateProcessorHTML //使用外部的 html 文件做模板 TIWLayoutMgrHTML //直接输入 Html 文本做模板 TIWLayoutMgrForm //这应 ...

  6. 使用 IntraWeb (26) - 基本控件之 TIWMenu

    TIWMenu 的任务是让原来的 TMainMenu 呈现在网页上, 通过其 AttachedMenu 属性关联一个 TMainMenu 是必需的. TIWMenu 所在单元及继承链: IWCompM ...

  7. 使用 IntraWeb (25) - 基本控件之 TIWRegion

    这应该是 IW 中最重要的容器了, 和它同父的还有 TIWTabControl TIWRegion 所在单元及继承链: IWRegion.TIWRegion 主要成员: property Align: ...

  8. 使用 IntraWeb (23) - 基本控件之 TIWTimer、TIWProgressBar、TIWProgressIndicator、TIWTimeEdit

    TIWTimer //和 TTimer 没多大区别, 它的默认事件现在是异步的(OnAsyncTimer), 在网络上使用 OnTimer 肯定是非常糟糕的 TIWProgressBar //进度条 ...

  9. 使用 IntraWeb (19) - 基本控件之 TIWTreeView

    这是个饱受非议的控件; 我通过尝试, 理解了非议, 也能理解作者. 总之向作者的思路靠拢吧, 还是不错的. TIWTreeView 所在单元及继承链: IWCompTreeview.TIWTreeVi ...

随机推荐

  1. JAVA 位操作学习

    一,基础知识 计算机中数值的编码方式中,原码.反码.补码. 正数的补码与原码相同,负数的补码为:负数的原码符号位不变,其它位取反,再加1. 在计算机中,数值是以补码的形式存储的.补码的好处: ①用补码 ...

  2. [C]语法, 知识点总结(一. 进制, 格式化输入/出, 指针)

    进制 概念: n进制, 最大的数是n-1, 逢n进1位. 数据类型 概念: 其实就是占的位数不同, 转换到计算机当中都是0和1. 常用: 类型名 占字节数 描述 char 1字节=8个二进制位 字符类 ...

  3. javascript沙箱模式

    沙箱模式解决了命名空间模式的如下几个缺点: 1.对单个全局变量的依赖变成了应用程序的全局变量依赖.在命名空间模式中,是没有办法使同一个应用程序或库的2个版本运行在同一个页面中.2.对这种以点分割的名字 ...

  4. 【CodeForces】925 C.Big Secret 异或

    [题目]C.Big Secret [题意]给定数组b,求重排列b数组使其前缀异或和数组a单调递增.\(n \leq 10^5,1 \leq b_i \leq 2^{60}\). [算法]异或 为了拆位 ...

  5. swapper进程【转】

    转自:https://blog.csdn.net/qq_27357145/article/details/80462292 LINUX进程小结 id为0的进程通常是调度进程,常常被称为交换进程(swa ...

  6. 【转】深入理解C++中public、protected及private用法

    首先明白以下两点: 1.类的一个特征就是封装,public和private作用就是实现这一目的. 即:用户代码(类外)可以访问public成员而不能访问private成员:private成员只能由类成 ...

  7. 003_vim使用tip

    vim 使用tip 编写python程序 自动插入头信息: #!/usr/bin/env python # coding=utf-8 输入.或按TAB键会触发代码补全功能 :w保存代码之后会自动检查代 ...

  8. XShell 使用方法

    XShell是一款Windows下非常优秀的远程连接Linux主机的工具,是平常使用不可缺少的工具.复制和粘贴由于在linux的Shell下,Ctrl+c是中断当前指令,这个快捷键和win系统下的复制 ...

  9. 关于vim复制剪贴粘贴命令的总结

    最近在使用vim,感觉很好很强大,但是在使用复制剪切粘贴命令是,碰到了一些小困惑,网上找了一些资料感觉很不全,讲的也不好,遂自己进行实践并总结了. 首先是剪切(删除): 剪切其实也就顺带删除了所选择的 ...

  10. 【OpenCV for Android】Android Studio JNI和NDK配置及采坑记录

    在配置好Android studio的OpenCV环境后,我们就可以通过Java代码调用OpenCV的API了,但是在通常情况下,用Java代码编写图像处理算法的运行效率是没有C++代码高的,在应用层 ...