Files
AC_Pro/UpdateFormUnit.dfm
T
2026-06-13 00:05:19 +08:00

133 lines
3.1 KiB
ObjectPascal

object UpdateForm: TUpdateForm
Left = 0
Top = 0
ParentCustomHint = False
Anchors = [akLeft, akTop, akRight, akBottom]
BorderIcons = []
BorderStyle = bsNone
Caption = 'UpdateForm'
ClientHeight = 400
ClientWidth = 420
Color = clWindow
Ctl3D = False
DoubleBuffered = True
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'Tahoma'
Font.Style = []
KeyPreview = True
Position = poMainFormCenter
Scaled = False
OnCreate = FormCreate
OnKeyDown = FormKeyDown
TextHeight = 13
object m_panBk: TGeneralDialogPanel
Left = 0
Top = 0
Width = 420
Height = 400
Caption = #29256#26412#26356#26032
Color = 5064257
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = 'Tahoma'
Font.Style = []
ParentBackground = False
ParentFont = False
TabOrder = 0
object PaintBox1: TPaintBox
Left = 10
Top = 43
Width = 176
Height = 51
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'Tahoma'
Font.Style = []
ParentFont = False
OnPaint = PaintBoxPaint
end
object PaintBox2: TPaintBox
Left = 200
Top = 43
Width = 211
Height = 51
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'Tahoma'
Font.Style = []
ParentFont = False
OnPaint = PaintBoxPaint
end
object m_lbCurrentVer: TLabel
Left = 21
Top = 51
Width = 160
Height = 13
AutoSize = False
Caption = 'm_lbCurrentVer'
Font.Charset = DEFAULT_CHARSET
Font.Color = 12434616
Font.Height = -12
Font.Name = 'Tahoma'
Font.Style = []
ParentFont = False
end
object m_lbDownloadMsg: TLabel
Left = 215
Top = 48
Width = 180
Height = 40
ParentCustomHint = False
AutoSize = False
Color = clDefault
Font.Charset = DEFAULT_CHARSET
Font.Color = 13480318
Font.Height = -12
Font.Name = 'Tahoma'
Font.Style = []
ParentColor = False
ParentFont = False
ParentShowHint = False
ShowAccelChar = False
ShowHint = False
end
object m_lbNewVer: TLabel
Left = 21
Top = 72
Width = 160
Height = 13
AutoSize = False
Caption = 'm_lbNewVer'
Font.Charset = DEFAULT_CHARSET
Font.Color = 12434616
Font.Height = -12
Font.Name = 'Tahoma'
Font.Style = []
ParentFont = False
ParentShowHint = False
ShowHint = False
end
object m_lbDownload: TLabel
Left = 347
Top = 76
Width = 48
Height = 14
Caption = #21069#24448#19979#36733
Font.Charset = DEFAULT_CHARSET
Font.Color = 15299907
Font.Height = -12
Font.Name = 'Tahoma'
Font.Style = [fsUnderline]
ParentFont = False
OnClick = m_lbDownloadClick
OnMouseEnter = m_lbDownloadMouseEnter
OnMouseLeave = m_lbDownloadMouseLeave
end
end
end