Search found 114 matches

by SALINETAS24
Thu Aug 16, 2018 8:00 pm
Forum: General
Topic: LASTKEY y ESC... (o cualquier otra)
Replies: 9
Views: 167

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

Muchas gracias a todos por contestar. Andrés.., tengo un Comodore C-64....... nooo! es broma, aunque bien mirado tengo un cacharro de ordenador que esta pidiendo a gritos la jubilación. Un saludo. Dragancesu, tu si que me entiendes.., no se trata de ordenador, ni potencia.., se trata de tener el con...
by SALINETAS24
Wed Aug 15, 2018 9:18 pm
Forum: General
Topic: LASTKEY y ESC... (o cualquier otra)
Replies: 9
Views: 167

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

Hola Andrés y gracias por contestar. Te digo .., tu método no funciona. Ya lo probé y no funciona. El mio si y en cualquier PROCEDURE o FUNCTION. ..., y lo de pensar como en Clipper.., pues supongo que si...., al perro viejo no se le ensañan nuevos trucos, jajaja, pero poco a poco, y con vuestra ayu...
by SALINETAS24
Wed Aug 15, 2018 3:01 pm
Forum: General
Topic: LASTKEY y ESC... (o cualquier otra)
Replies: 9
Views: 167

LASTKEY y ESC... (o cualquier otra)

Hola a todos. Ante la necesidad que tenemos muchos usuario de detener un blucle DO WHILE u otro proceso detectanto la tecla ESC, (lo que en CLIPPER era el LASTKEY() ) y no encontramos solución.., aqui os paso lo que yo he montado. En el programa MAIN definimos una variable MEMVAR, en mi caso lSalPit...
by SALINETAS24
Fri Aug 10, 2018 3:55 pm
Forum: General
Topic: Colorear las PAGE
Replies: 23
Views: 6132

Re: Colorear las PAGE

Hola, perdonar que interrumpa la siesta, pero leído lo leído ...., ¿hay alguna forma de colorear las PAGE en HMG...?, y no me sirve como respuesta pintarlas con un rotulador .. jajajaj De verdad, se puede hacer algo.? Me da la sensación después de llevar un par de meses actualizando mis conocimiento...
by SALINETAS24
Tue Jul 31, 2018 4:51 pm
Forum: HMG Unicode version
Topic: HMG 3.4.4
Replies: 143
Views: 36986

Re: HMG 3.4.4

Hola, como ya te comente tienes un problema de recursividad. Un principio del CLIPPER y que HARBOUR ha heredado es que para salir de una función o procedimiento se tiene que hacer mediente un RETURN, en caso contrario eso quedará pendiente en la memoria del ordenador a la espera de recibir el RETURN...
by SALINETAS24
Mon Jul 30, 2018 4:24 pm
Forum: HMG Unicode version
Topic: HMG 3.4.4
Replies: 143
Views: 36986

Re: HMG 3.4.4

Hola Mario, yo también creo que es por recursividad. Si te das cuenta estas poniendo el foco antes del return, tienes que rehacer el código. If Empty(Form_122.Text_1.Value) .OR. lOk:=.f. msgInfo("Disculpe !!" + chr(10) + ; "El codigo de articulo ingresado es inválido","Atención") Form_122.Text_1.Set...
by SALINETAS24
Thu Jul 26, 2018 8:11 pm
Forum: General
Topic: SET INTERACTIVECLOSE ON/OFF
Replies: 9
Views: 299

Re: SET INTERACTIVECLOSE ON/OFF

Hola Jorge, si le pones .T., presenta el mensaje y sale de programa.. creo recordar.
Si no le pones nada..., no se lo que hace. Prueba y me lo dices :D
Salud y Cervezas..
by SALINETAS24
Wed Jul 25, 2018 11:01 am
Forum: General
Topic: MessageBox
Replies: 4
Views: 120

Re: MessageBox

Ya lo tengo. Gracias
by SALINETAS24
Wed Jul 25, 2018 10:45 am
Forum: General
Topic: MessageBox
Replies: 4
Views: 120

MessageBox

Hola, estoy buscando en las fuentes la función MessageBox y no encuentro donde se define.
Alguien conoce en que parte se define/crea esta función.
Gracias
by SALINETAS24
Wed Jul 25, 2018 6:53 am
Forum: General
Topic: SET INTERACTIVECLOSE ON/OFF
Replies: 9
Views: 299

Re: SET INTERACTIVECLOSE ON/OFF

Hola Jorge..., Creo que es esto lo que buscas DEFINE WINDOW main ; AT 000,000 ; WIDTH 320 HEIGHT 410 ; ICON "Logo" ; TITLE 'TITULO VENTANA' ; NOMINIMIZE NOMAXIMIZE TOPMOST ; MAIN ; ON INTERACTIVECLOSE ( MsgStop('PON TU MENSAJE', 'PON TU CABECERA!!!') , .F. )