|
object frmEncuesta: TfrmEncuesta
|
|
Left = 19
|
|
Height = 660
|
|
Top = 52
|
|
Width = 978
|
|
ActiveControl = cboCuestion
|
|
Caption = 'AulaLinex 3.0: Encuesta'
|
|
ClientHeight = 660
|
|
ClientWidth = 978
|
|
FormStyle = fsStayOnTop
|
|
OnCreate = FormCreate
|
|
ParentFont = False
|
|
LCLVersion = '0.9.27'
|
|
object pnEcuesta: TPanel
|
|
Height = 660
|
|
Width = 978
|
|
BevelOuter = bvNone
|
|
ClientHeight = 656
|
|
ClientWidth = 974
|
|
Color = clWhite
|
|
ParentColor = False
|
|
TabOrder = 0
|
|
OnClick = pnEcuestaClick
|
|
object imgGrafico: TImage
|
|
Left = 81
|
|
Height = 560
|
|
Top = 48
|
|
Width = 817
|
|
end
|
|
object lblTiempo2: TLabel
|
|
Left = 864
|
|
Height = 24
|
|
Top = 16
|
|
Width = 96
|
|
Alignment = taCenter
|
|
AutoSize = False
|
|
Caption = '00:00'
|
|
Font.CharSet = ANSI_CHARSET
|
|
Font.Color = clBlack
|
|
Font.Height = -21
|
|
Font.Name = 'Sans'
|
|
Font.Pitch = fpVariable
|
|
ParentColor = False
|
|
ParentFont = False
|
|
Visible = False
|
|
WordWrap = True
|
|
end
|
|
object lblMenTiempo: TLabel
|
|
Left = 239
|
|
Height = 18
|
|
Top = 16
|
|
Width = 500
|
|
Alignment = taCenter
|
|
AutoSize = False
|
|
Caption = 'Haz clic sobre el botón Enviar para iniciar la encuesta'
|
|
Color = clWhite
|
|
Font.Color = 420
|
|
Font.Height = -16
|
|
Font.Name = 'Sans'
|
|
ParentColor = False
|
|
ParentFont = False
|
|
Transparent = False
|
|
end
|
|
object bitPrueba: TSpeedButton
|
|
Cursor = crHandPoint
|
|
Left = 520
|
|
Height = 38
|
|
Top = 615
|
|
Width = 38
|
|
Color = clBtnFace
|
|
NumGlyphs = 3
|
|
Visible = False
|
|
OnClick = bitPruebaClick
|
|
end
|
|
object btnEnviar: TButton
|
|
Left = 710
|
|
Height = 29
|
|
Top = 624
|
|
Width = 92
|
|
Caption = 'Enviar'
|
|
OnClick = btnEnviarClick
|
|
TabOrder = 0
|
|
end
|
|
object btnCerrarCuestion: TButton
|
|
Left = 805
|
|
Height = 29
|
|
Top = 624
|
|
Width = 92
|
|
Caption = 'Cerrar'
|
|
OnClick = btnCerrarCuestionClick
|
|
TabOrder = 1
|
|
end
|
|
object btnResultados: TButton
|
|
Left = 80
|
|
Height = 29
|
|
Top = 624
|
|
Width = 92
|
|
Caption = 'Resultados'
|
|
Enabled = False
|
|
Font.Height = -15
|
|
Font.Name = 'Sans'
|
|
OnClick = btnResultadosClick
|
|
ParentFont = False
|
|
TabOrder = 2
|
|
end
|
|
object btnIndividual: TButton
|
|
Left = 176
|
|
Height = 29
|
|
Top = 624
|
|
Width = 92
|
|
Caption = 'Individual'
|
|
Enabled = False
|
|
Font.Height = -15
|
|
Font.Name = 'Sans'
|
|
OnClick = btnIndividualClick
|
|
ParentFont = False
|
|
TabOrder = 3
|
|
end
|
|
object btnOpciones: TButton
|
|
Left = 272
|
|
Height = 29
|
|
Top = 624
|
|
Width = 92
|
|
Caption = 'Opciones'
|
|
Enabled = False
|
|
Font.Height = -15
|
|
Font.Name = 'Sans'
|
|
OnClick = btnOpcionesClick
|
|
ParentFont = False
|
|
TabOrder = 4
|
|
end
|
|
object cboCuestion: TComboBox
|
|
Left = 576
|
|
Height = 29
|
|
Top = 624
|
|
Width = 120
|
|
Font.Height = -15
|
|
Font.Name = 'Sans'
|
|
OnChange = cboCuestionChange
|
|
ParentFont = False
|
|
TabOrder = 5
|
|
Visible = False
|
|
end
|
|
object bchOpciones: TBarChart
|
|
Left = 253
|
|
Height = 306
|
|
Top = 288
|
|
Width = 472
|
|
BevelOuter = bvNone
|
|
Caption = 'Número de votos por opción'
|
|
Color = clWhite
|
|
ParentColor = False
|
|
TabOrder = 6
|
|
Visible = False
|
|
Bars = <>
|
|
Depth = 15
|
|
end
|
|
end
|
|
object tmrRecogida: TTimer
|
|
Enabled = False
|
|
Interval = 5000
|
|
OnTimer = tmrRecogidaTimer
|
|
left = 332
|
|
top = 76
|
|
end
|
|
object tmrMensaje: TTimer
|
|
Enabled = False
|
|
OnTimer = tmrMensajeTimer
|
|
left = 436
|
|
top = 125
|
|
end
|
|
object IdCmdTCPServer1: TIdCmdTCPServer
|
|
Bindings = <
|
|
item
|
|
IP = '0.0.0.0'
|
|
Port = 6991
|
|
end>
|
|
DefaultPort = 6991
|
|
CommandHandlers = <
|
|
item
|
|
CmdDelimiter = ' '
|
|
Command = 'respuestaCuestion'
|
|
Disconnect = True
|
|
Name = 'TIdCommandHandler0'
|
|
NormalReply.Code = '260'
|
|
ParamDelimiter = ' '
|
|
OnCommand = respuestaCuestionCommand
|
|
end>
|
|
ExceptionReply.Code = '500'
|
|
ExceptionReply.Text.Strings = (
|
|
'Unknown Internal Error'
|
|
)
|
|
Greeting.Code = '200'
|
|
Greeting.Text.Strings = (
|
|
'Welcome'
|
|
)
|
|
HelpReply.Code = '100'
|
|
HelpReply.Text.Strings = (
|
|
'Help follows'
|
|
)
|
|
MaxConnectionReply.Code = '300'
|
|
MaxConnectionReply.Text.Strings = (
|
|
'Too many connections. Try again later.'
|
|
)
|
|
ReplyTexts = <>
|
|
ReplyUnknownCommand.Code = '400'
|
|
ReplyUnknownCommand.Text.Strings = (
|
|
'Unknown Command'
|
|
)
|
|
left = 144
|
|
top = 24
|
|
end
|
|
end
|