使用 IntraWeb (12) - 基本控件之 TIWGradButton、TIWImageButton
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的更多相关文章
- 使用 IntraWeb (24) - 基本控件之 TIWFileUploader、TIWFile
TIWFileUploader 是基于 Ajax 的上传控件, 最初是 Andrew Valums 开发, 从 IntraWeb XIV 纳入并替换 TIWFile. 虽然从组件面板上还能看到 TIW ...
- 使用 IntraWeb (22) - 基本控件之 TIWCalendar
TIWCalendar: 日历控件, 继承于 TIWCustomGrid, 所以它和 TIWGrid 共同属性特多. 它的 Cell 是 TIWCalendarCell 对象, 直接从 TIWGrid ...
- 使用 IntraWeb (20) - 基本控件之 TIWGrid
TIWGrid 最终通过 Html Table 呈现; 其每个 Cell 都是一个 TIWGridCell 对象, Cell 对象的 Control 属性非常好, 可以非常方便地嵌入其他控件. TIW ...
- 使用 IntraWeb (29) - 基本控件之 TIWAutherList、TIWAutherINI、TIWAutherEvent
TIWAutherList //通过一组户名与密码验证登陆 TIWAutherINI //通过记录户名与密码信息的 #Auth.ini 文件验证登陆 TIWAutherEvent //通过其 OnCh ...
- 使用 IntraWeb (28) - 基本控件之 TIWTemplateProcessorHTML、TIWLayoutMgrHTML、TIWLayoutMgrForm
TIWTemplateProcessorHTML //使用外部的 html 文件做模板 TIWLayoutMgrHTML //直接输入 Html 文本做模板 TIWLayoutMgrForm //这应 ...
- 使用 IntraWeb (26) - 基本控件之 TIWMenu
TIWMenu 的任务是让原来的 TMainMenu 呈现在网页上, 通过其 AttachedMenu 属性关联一个 TMainMenu 是必需的. TIWMenu 所在单元及继承链: IWCompM ...
- 使用 IntraWeb (25) - 基本控件之 TIWRegion
这应该是 IW 中最重要的容器了, 和它同父的还有 TIWTabControl TIWRegion 所在单元及继承链: IWRegion.TIWRegion 主要成员: property Align: ...
- 使用 IntraWeb (23) - 基本控件之 TIWTimer、TIWProgressBar、TIWProgressIndicator、TIWTimeEdit
TIWTimer //和 TTimer 没多大区别, 它的默认事件现在是异步的(OnAsyncTimer), 在网络上使用 OnTimer 肯定是非常糟糕的 TIWProgressBar //进度条 ...
- 使用 IntraWeb (19) - 基本控件之 TIWTreeView
这是个饱受非议的控件; 我通过尝试, 理解了非议, 也能理解作者. 总之向作者的思路靠拢吧, 还是不错的. TIWTreeView 所在单元及继承链: IWCompTreeview.TIWTreeVi ...
随机推荐
- PHP中GET和POST区别
1. get是从服务器上获取数据,post是向服务器传送数据.2. get是把参数数据队列加到提交表单的ACTION属性所指的URL中,值和表单内各个字段一一对应,在URL中可以看到.post是通过H ...
- HTML5 移动开发（CSS3设计移动页面样式）
1.如何创建CSS样式表 2.CSS3的卓越特性 3.基于设备属性改变样式的媒体查询 4.如何使用属性改变元标签创建更美观移动页面 层叠样式表是移动WEB开发中的一个重要组成部分,本次分享将学到如 ...
- Java使用WebSocket
网页端的消息推送,一般有以下方式: 轮询方式:客户端定时向服务端发送ajax请求,服务器接收到请求后马上返回消息并关闭连接. 优点:后端程序编写比较容易. 缺点:TCP的建立和关闭操作浪费时间和带宽, ...
- excel中数字如何自动换行
1. excel中点击单元格右键,选择“设置单元格格式” -- “对齐”选项卡. 2. 先取消“自动换行”,勾选上“缩小字体填充”. 3.再选择“自动换行”即可实现数字的自动换行.
- jquery的clone方法bug的修复select,textarea的值丢失
项目中多次使用了iframe,但是操作起来是比较麻烦,项目中的现实情况是最外面是一个form,里面嵌套一个iframe,下面是一个其他的数据,在form提交的时候将iframe的数据和其他的数据一块提 ...
- CentOS版本区别及 Linux目录结构及其详解
CentOS 7.0体验与之前版本的不同http://www.linuxidc.com/Linux/2014-07/104196.htm CentOS版本选择http://www.centoscn.c ...
- springmvc上下文与springcontext上下文的关系
内容摘自:springmvc与spring上下文的关系 原理区别 一直不清楚springmvc-servlet.xml配置与spring.xml两个配置文件出现的上下文关系.今天找到一上面的文章,倒是 ...
- [转]solver优化方法
原文地址:http://www.cnblogs.com/denny402/p/5074212.html 到目前为止,caffe总共提供了六种优化方法: Stochastic Gradient Desc ...
- 字符串(string.cpp)
字符串(string.cpp) 神TM字符串DP 题目描述: 小林和亮亮正在做一个游戏.小林随意的写出一个字符串,字符串仅由大写字母组成,然后指定一个非负整数m,亮亮可以进行至多m次操作.每次操作为交 ...
- Python 协程检测Kubernetes服务端口
一.需求分析 在上一篇文章,链接如下: https://www.cnblogs.com/xiao987334176/p/10237551.html 已经得到了需要的数据,现在需要对这些端口做检测,判断 ...