ERROR PICTURE TGET FWH 2002

ERROR PICTURE TGET FWH 2002

Postby Ariel » Tue Mar 24, 2020 11:43 pm

Hola,
esta es la situacion :
Caso 1. NO muestra el borde en el GET
Code: Select all  Expand view  RUN

Local aVar:= {=>}
aVar["number"]:= 0

@ nRow-3, nCol+95 GET ::aDatax["number"] VAR aVar["number"] ;
                           OF ::hLays["FOLDER_H1"]:aVLayout[1] ;
                           SIZE 60, 20 PIXEL  ;
                           PICTURE "@Z 9999" ;
                           UPDATE


 


Caso 2. muestra el borde en el GET
Code: Select all  Expand view  RUN

Local aVar:= {=>}
aVar["number"]:= 0

@ nRow-3, nCol+95 GET ::aDatax["number"] VAR aVar["number"] ;
                           OF ::hLays["FOLDER_H1"]:aVLayout[1] ;
                           SIZE 60, 20 PIXEL  ;
                           UPDATE
 


resumiendo, si saco el PICTURE me muestra el borde del GET sino NO lo muestra.

Saludos.
Ariel
 
Posts: 376
Joined: Wed Nov 29, 2006 1:51 pm
Location: Rosario - Argentina

Re: ERROR PICTURE TGET FWH 2002

Postby Marcelo Roggeri » Tue Mar 24, 2020 11:55 pm

Hola, me pasa lo mismo
[img]
https://i.ibb.co/ZhPMPGs/rao1.png
https://i.ibb.co/Bn9zGZJ/rao2.png
[/img]

Saludos
Marcelo
FWH - Harbour - BCC7 - PellesC
User avatar
Marcelo Roggeri
 
Posts: 342
Joined: Sat Jul 22, 2006 9:04 pm
Location: Venado Tuerto - Santa Fe -Argentina

Re: ERROR PICTURE TGET FWH 2002

Postby nageswaragunupudi » Tue Mar 31, 2020 1:04 am

This problem is in FWH2002 when manifest is not linked.

Please make this modification in tget.prg of FWH2002

Please see line number 2447 in the method Paint()
Code: Select all  Expand view  RUN
         !Empty( ::cPicture ) .and. "Z" $ Upper( ::cPicture )


Please change it as:
Code: Select all  Expand view  RUN
         !Empty( ::cPicture ) .and. "Z" $ Upper( ::cPicture ) .and. AppHasManifest()


This is fixed in FWH2003
Regards

G. N. Rao.
Hyderabad, India
User avatar
nageswaragunupudi
 
Posts: 10681
Joined: Sun Nov 19, 2006 5:22 am
Location: India

Re: ERROR PICTURE TGET FWH 2002

Postby Ariel » Tue Mar 31, 2020 10:07 am

Mr. Rao,

Funciona perfecto!

Muchas gracias.
Ariel
 
Posts: 376
Joined: Wed Nov 29, 2006 1:51 pm
Location: Rosario - Argentina


Return to FiveWin para Harbour/xHarbour

Who is online

Users browsing this forum: No registered users and 39 guests