Petición para Clase TSay

Petición para Clase TSay

Postby fgondi » Tue Dec 18, 2007 12:15 pm

Hola Antonio,

En mis aplicaciones uso la clase TSay para mostrar datos que no quiero que modifiquen

Se que puedo usar la clase TGet con el método Disable(), pero de esta forma pueden creer que en algún momento o con algún permiso se puede cambiar
y quiero dejar claro que no se puede en ningún momento modificar

El problema es que al mostrar el dato en el say con un picture, pierdo el dato grabado inicialmente, osea:
defino Tsay con un picture '@KE 999.99%'
Se Introduce en ella un valor oSay:SetText( nTarifa )
Al comprobar que dato hay grabado en el objeto oSay:cCaption ya no obtengo el valor numérico, sino que obtengo el valor del transform

Yo lo tengo solucionado de esta forma:

Code: Select all  Expand view
CLASS TSay FROM TControl

   DATA xCaption  //Nuevo.fgondi
   ....

   METHOD New(...
   ...
   ::xCaption  = Eval( bText )  //Nuevo.fgondi
   ::cCaption  = If( Empty( cPicture ), cValToChar( Eval( bText ) ),;
                     Transform( Eval( bText ), cPicture ) )

   METHOD Redefine(...
   ....
   if bText != nil
      ::xCaption  = Eval( bText )  //Nuevo.fgondi
      ::cCaption = If( Empty( cPicture ), cValToChar( Eval( bText ) ),;
                       Transform( Eval( bText ), cPicture ) )
   endif

   METHOD SetText( cText ) CLASS TSay
   ....
   ::xCaption := cText
   ::cCaption := If( ::cPicture != nil, Transform( cText, ::cPicture ),;
                     cValToChar( cText ) )
   ...
Un saludo
Fernando González Diez
ALSIS Sistemas Informáticos
User avatar
fgondi
 
Posts: 694
Joined: Fri Oct 07, 2005 6:58 am
Location: Palencia, España

Return to To do - WishList / Por hacer - Peticiones

Who is online

Users browsing this forum: No registered users and 3 guests