NewsUnit.dfm 2.4 KB

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118
  1. object NewsForm: TNewsForm
  2. Left = 168
  3. Top = 143
  4. ActiveControl = VisitButton
  5. AutoScroll = False
  6. BorderIcons = [biSystemMenu]
  7. Caption = 'TIGCC News'
  8. ClientHeight = 193
  9. ClientWidth = 321
  10. Color = clBtnFace
  11. Constraints.MinHeight = 200
  12. Constraints.MinWidth = 329
  13. Font.Charset = DEFAULT_CHARSET
  14. Font.Color = clWindowText
  15. Font.Height = -11
  16. Font.Name = 'MS Sans Serif'
  17. Font.Style = []
  18. OldCreateOrder = False
  19. Position = poScreenCenter
  20. OnActivate = FormActivate
  21. OnClose = FormClose
  22. OnCreate = FormCreate
  23. PixelsPerInch = 96
  24. TextHeight = 13
  25. object Label1: TLabel
  26. Left = 243
  27. Top = 17
  28. Width = 3
  29. Height = 13
  30. Anchors = [akTop, akRight]
  31. Caption = ':'
  32. end
  33. object NewsBox: TScrollBox
  34. Left = 16
  35. Top = 48
  36. Width = 289
  37. Height = 89
  38. Anchors = [akLeft, akTop, akRight, akBottom]
  39. Color = clWindow
  40. ParentColor = False
  41. TabOrder = 3
  42. object RetreiveLabel: TLabel
  43. Left = 0
  44. Top = 0
  45. Width = 194
  46. Height = 13
  47. Caption = 'Downloading news from tigcc.ticalc.org...'
  48. end
  49. end
  50. object VisitButton: TButton
  51. Left = 120
  52. Top = 152
  53. Width = 81
  54. Height = 25
  55. Anchors = [akLeft, akRight, akBottom]
  56. Caption = '&Visit'
  57. ModalResult = 1
  58. TabOrder = 4
  59. end
  60. object CloseButton: TButton
  61. Left = 216
  62. Top = 152
  63. Width = 81
  64. Height = 25
  65. Anchors = [akRight, akBottom]
  66. Cancel = True
  67. Caption = '&Close'
  68. ModalResult = 2
  69. TabOrder = 5
  70. end
  71. object ProxyCheckBox: TCheckBox
  72. Left = 16
  73. Top = 16
  74. Width = 86
  75. Height = 17
  76. Caption = '&Proxy Support:'
  77. TabOrder = 0
  78. OnClick = ProxyCheckBoxClick
  79. end
  80. object ProxyNameEdit: TEdit
  81. Left = 106
  82. Top = 14
  83. Width = 135
  84. Height = 21
  85. Anchors = [akLeft, akTop, akRight]
  86. Enabled = False
  87. TabOrder = 1
  88. end
  89. object ProxyPortEdit: TEdit
  90. Left = 248
  91. Top = 14
  92. Width = 57
  93. Height = 21
  94. Anchors = [akTop, akRight]
  95. Enabled = False
  96. TabOrder = 2
  97. end
  98. object RefreshButton: TButton
  99. Left = 24
  100. Top = 152
  101. Width = 81
  102. Height = 25
  103. Anchors = [akLeft, akBottom]
  104. Caption = '&Refresh'
  105. Default = True
  106. TabOrder = 6
  107. OnClick = RefreshButtonClick
  108. end
  109. object NewsClient: TClientSocket
  110. Active = False
  111. ClientType = ctNonBlocking
  112. Host = 'tigcc.ticalc.org'
  113. Port = 80
  114. OnConnect = NewsClientConnect
  115. OnRead = NewsClientRead
  116. OnError = NewsClientError
  117. end
  118. end