HonradosHP
¿Quieres reaccionar a este mensaje? Regístrate en el foro con unos pocos clics o inicia sesión para continuar.

Título grob inverso en DoInputForm

2 participantes

Ir abajo

Título grob inverso en DoInputForm Empty Título grob inverso en DoInputForm

Mensaje  Esteban R Dom Oct 24, 2010 4:11 pm

Saludos a todos los miembros del foro.

Quiero saber si es posible poner el título en grob inverso en formularios de entrada creados usando DoInputForm.

En otro tema en este foro, se encuentra la manera de hacerlo con IfMain,

Título grob inverso con IfMain

Pero quiero saber si es posible usando el comando DoInputForm.

Título grob inverso en DoInputForm Titulo10
Esteban R
Esteban R
Baby HP
Baby HP

Cantidad de envíos : 17
Localización : Paraguay
Calculadora : HP 50g
ROM : 2.09

Volver arriba Ir abajo

Título grob inverso en DoInputForm Empty Título grob inverso en DoInputForm

Mensaje  CesarV Lun Oct 25, 2010 7:01 pm

En el siguiente ejemplo se usa el mensaje número 2, el cual debe retornar el título del formulario como un grob de dimensiones 131 por 7.

Título grob inverso en DoInputForm Dibujo16

Código:
ASSEMBLE
  CON(1) 8 * Tell parser 'Non algebraic'
RPL
xNAME DoTituloInverso ( -> ob T // F )
:: CK0 ( No se requieren argumentos )

* ETIQUETA
"Etiqueta:" BINT1 BINT12

* CAMPO TEXTO
'DROPFALSE  ( Message handler )
42 11 61 9  ( Posición y tamaño: #x #y #b #h )
BINT1        ( #TipoDeCampo: #1=Texto )
{ BINT0 }    ( TiposPermitidos: #0=Reales )
BINT4        ( Decompile: #4=Formato estándar )
"Escribe un número real" ( "Ayuda" )
MINUSONE    ( ChooseData: MINUSONE para campo texto )
MINUSONE    ( ChooseDecompile: MINUSONE para campo texto )
%25 DUP      ( Valor reset y Valor inicial )

BINT1 BINT1  ( Número de etiquetas y número de campos )
' :: BINT2 #=casedrop ( -> GROB T // F )
    ::                          ( )
        12GETLAM                  ( $/# ) ( retorna el título )
        TITULO->GROB131x7_INVERSA ( grob131x7 )
        TRUE                      ( grob131x7 T )
    ;
    DROPFALSE
  ;          ( Message Handler del formulario )
"TITULO"    ( Título del Formulario )

DoInputForm
;
*** Dada una cadena o bint la pone en un grob de
*** tamaño 131 x 7 con fondo oscuro en la pila
NULLNAME TITULO->GROB131x7_INVERSA ( $/# -> grob131x7 )
::                  ( $/# )
DUPTYPEBINT?
IT JstGETTHEMSG
                    ( $ )
BINT1 BINT32 SUB$    ( $ ) ( corta la cadena si es mayor a 32 caract )
BINT7 BINT131        ( $ 7 131 )
MAKEGROB            ( $ grob131x7_blanco )
BINT33              ( $ grob131x7_blanco 33 )
3PICK LEN$          ( $ grob131x7_blanco 33 #w )
#-#2/                ( $ grob131x7_blanco #[33-w]/2 )
Blank$              ( $ grob131x7_blanco $' )
ROT                  ( grob131x7_blanco $' $ )
&$                  ( grob131x7_blanco $'' )
$>grob              ( grob131x7_blanco grob' )
ONEONE              ( grob131x7_blanco grob' #1 #1 )
Repl                ( grob131x7 )
INVGROB              ( grob131x7_inversa )
* Lo siguiente es sólo para redondear las esquinas del grob
ZEROZERO      PixonW ( grob131x7_inversa )
BINT130 BINT0 PixonW ( grob131x7_inversa )
BINT0  BINT6 PixonW ( grob131x7_inversa )
BINT130 BINT6 PixonW ( grob131x7_inversa )
;

CesarV
CesarV
Admin

Masculino Cantidad de envíos : 133
Localización : Perú
Calculadora : HP 50g
ROM : 2.15

https://sites.google.com/view/cesarv1821

Volver arriba Ir abajo

Título grob inverso en DoInputForm Empty Re: Título grob inverso en DoInputForm

Mensaje  Esteban R Lun Nov 08, 2010 10:31 pm

Muchas gracias por la ayuda.

Cool

Funciona correctamente.
Esteban R
Esteban R
Baby HP
Baby HP

Cantidad de envíos : 17
Localización : Paraguay
Calculadora : HP 50g
ROM : 2.09

Volver arriba Ir abajo

Volver arriba

- Temas similares

 
Permisos de este foro:
No puedes responder a temas en este foro.