Search found 903 matches

by andyglezl
Wed Aug 15, 2018 7:28 pm
Forum: General
Topic: LASTKEY y ESC... (o cualquier otra)
Replies: 2
Views: 42

Re: LASTKEY y ESC... (o cualquier otra)

Creo que sigues pensando en "MODO CLIPPER", pero si te funciona, está bien. Tal ves te funcione de esta forma: FUNCTION MAIN DEFINE WINDOW Principal ON KEY ESCAPE OF Principal ACTION ( lSalPitando:=.F. ) lSalPitando:=.T. DO WHILE !EOF() .AND. lSalPitando // ---> a listar ENDDO END WINDOW RETURN ----...
by andyglezl
Tue Aug 14, 2018 6:35 pm
Forum: General Discussions
Topic: About Decimals... [EDIT]
Replies: 6
Views: 151

Re: About Decimals...

Thanks Andrés, it works. Doug answered my question in Harbour users group too. I'm introducing the problem, limiting the decimals to 3. I'm doing the conversions, since I'm storing the values in a grid (as string) and then recalling them to store in a table (as numbers). Thanks again! Al contrario ...
by andyglezl
Tue Aug 14, 2018 1:25 pm
Forum: General Discussions
Topic: Happy Birthday to Marek !
Replies: 20
Views: 143

Re: Happy Birthday to Marek !

Felicidades Marek !!!
by andyglezl
Tue Aug 14, 2018 2:12 am
Forum: General Discussions
Topic: About Decimals... [EDIT]
Replies: 6
Views: 151

Re: About Decimals...

Maybe this way

FUNCTION ConDeci()
SET FIXED ON
SET DECI TO 15
N1 := 1/12
msgdebug( N1 )
CN1 := ALLTRIM( STR( N1, 15, 12 ) )
msgdebug( CN1 )
VN1 := VAL( CN1 )
msgdebug( VN1 )
SET DECI TO 2
N2 := VN1 * 12
msgdebug( N2 )
msgdebug( STR( N2 ,7,3) )
RETURN Nil
by andyglezl
Sat Aug 11, 2018 3:30 pm
Forum: HMG General Help
Topic: AVG warning
Replies: 31
Views: 653

Re: AVG warning

Hola En mi pc no me detecta algun virus, sin embargo siempre que quiero entrar al foro, se re-direcciona a otro lado. http://www.hmgforum.com No se puede acceder a este sitio 62.210.196.97 tardó demasiado en responder. ---------------------------------------------------------------------------------...
by andyglezl
Thu Aug 09, 2018 11:14 pm
Forum: HMG General Help
Topic: AVG warning
Replies: 31
Views: 653

Re: AVG warning

Yo dure 2 dias que me decia "sitio no encontrado",
hasta hoy pude entrar de nuevo ?????
---------------------------------------------------------------------------------
I lasted 2 days that told me "site not found",
until today I was able to enter again ?????
by andyglezl
Mon Aug 06, 2018 9:21 pm
Forum: General Discussions
Topic: 10 Years of HMG Forum!
Replies: 26
Views: 345

Re: 10 Years of HMG Forum!

Gracias y Felicidades a todos en el Foro.
---------------------------------------------------
Thanks and congratulations to everyone in the Forum.
by andyglezl
Mon Aug 06, 2018 8:58 pm
Forum: HMG General Help
Topic: Fontname/Fontsize
Replies: 3
Views: 131

Re: Fontname/Fontsize

Creo es problema de los Temas de Windows
Busca "Themes" aquí en el foro
------------------------------------------------------
I think it's a problem with Windows Themes
Search "Themes" here in the forum
by andyglezl
Fri Aug 03, 2018 4:04 pm
Forum: HMG General Help
Topic: This.Name in DEFINE CONTROL CONTEXT MENU
Replies: 7
Views: 168

Re: This.Name in DEFINE CONTROL CONTEXT MENU

Muchas gracias KDJ, con tu sugerencia funciona perfecto ! -------------------------------------------------------------------------- Thank you very much KDJ, with your suggestion it works perfect! P.D. Al parecer aquí, si no lo nombras no existe This.Name --------------------------------------------...
by andyglezl
Fri Aug 03, 2018 3:42 pm
Forum: HMG General Help
Topic: This.Name in DEFINE CONTROL CONTEXT MENU
Replies: 7
Views: 168

Re: This.Name in DEFINE CONTROL CONTEXT MENU

Andy Here is one of the ways: MENUITEM "Edita" NAME &("Edit" + cCtrl1) ACTION { || Mensaje( Val(SubStr(This.NAME, 9, 2)), Val(SubStr(This.NAME, 11, 2)), SubStr(This.NAME, 5) ) } TOOLTIP "cToolTipText" Gracias KDJ Ya lo había probado con: *MENUITEM "Edita" ACTION { || Mensaje( nR, nC, This.Name ) } ...