desarrollosconsejeria/adtos-server/1.7-0/adtos/encuesta.lfm @ 23a384b9
| 54e95a47 | Elisa | 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
|