-
Notifications
You must be signed in to change notification settings - Fork 1
/
Copy pathuUpdate.dfm
102 lines (102 loc) · 2.26 KB
/
uUpdate.dfm
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
object frmUpdate: TfrmUpdate
Left = 0
Top = 0
BorderStyle = bsDialog
Caption = 'Check New Version'
ClientHeight = 209
ClientWidth = 529
Color = clBtnFace
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'Tahoma'
Font.Style = []
FormStyle = fsStayOnTop
GlassFrame.Enabled = True
OldCreateOrder = False
Position = poScreenCenter
OnClose = FormClose
OnShow = FormShow
PixelsPerInch = 96
TextHeight = 13
object Label1: TLabel
Left = 80
Top = 48
Width = 371
Height = 25
Caption = 'Please Wait. Checking for Update...'
Font.Charset = DEFAULT_CHARSET
Font.Color = clGreen
Font.Height = -21
Font.Name = 'Tahoma'
Font.Style = [fsBold]
ParentFont = False
end
object lblBytes: TLabel
Left = 351
Top = 78
Width = 10
Height = 19
Caption = '0'
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -16
Font.Name = 'Tahoma'
Font.Style = [fsBold]
ParentFont = False
Visible = False
end
object Button1: TButton
Left = 48
Top = 16
Width = 75
Height = 25
Caption = 'Button1'
TabOrder = 0
Visible = False
OnClick = Button1Click
end
object ListBox1: TListBox
Left = 48
Top = 103
Width = 441
Height = 81
ItemHeight = 13
TabOrder = 1
end
object ProgressBar1: TProgressBar
Left = 80
Top = 79
Width = 265
Height = 18
TabOrder = 2
Visible = False
end
object IdHTTP1: TIdHTTP
OnWork = IdHTTP1Work
OnWorkBegin = IdHTTP1WorkBegin
OnWorkEnd = IdHTTP1WorkEnd
AllowCookies = True
ProxyParams.BasicAuthentication = False
ProxyParams.ProxyPort = 0
Request.ContentLength = -1
Request.ContentRangeEnd = -1
Request.ContentRangeStart = -1
Request.ContentRangeInstanceLength = -1
Request.Accept = 'text/html,application/xhtml+xml,application/xml;q=0.9,*/*;q=0.8'
Request.BasicAuthentication = False
Request.UserAgent = 'Mozilla/3.0 (compatible; Indy Library)'
Request.Ranges.Units = 'bytes'
Request.Ranges = <>
HTTPOptions = [hoForceEncodeParams]
Left = 8
Top = 8
end
object Timer1: TTimer
Enabled = False
Interval = 500
OnTimer = Timer1Timer
Left = 8
Top = 64
end
end