FiveTech Software tech support forums

https://fivewin.com.br/index.php?/topic/26853-say-vertical-com-box/

Regards, saludos.

FiveWin the BEST!! // FWH..\SAMPLES\LICENCIA.PRG#include "FiveWin.ch"STATIC oWndFUNCTION Main()   LOCAL oSay[3], oFont[2]      DEFINE FONT oFont[1] NAME "ARIAL" SIZE 0, 20 BOLD NESCAPEMENT 900   DEFINE FONT o...

Haz mejor master Navarro. hahahahahaha. // FWH..\SAMPLES\LICENCIA.PRG#include "FiveWin.ch"FUNCTION Main()   LOCAL oWnd, oSay[3], oFont[2]      DEFINE FONT oFont[1] NAME "ARIAL" SIZE 0, 20 BOLD NESCAPEMENT 900  &nb...

O también puedes usar el method de la clase TWindow

Code: Select all  Expand view

<oParent>:SayText( cText, aRect, cAlign, oFont, nClrText, nClrBack, lBorder, nAddlStyle )
 

llamándolo desde el ON PAINT del <oParent>
-> oParent es el objeto del container ( Window, Dialog, TPanel, etc. )

Querido Juan,

Prueba asi:

@ 10,10 SAY "LICENCIA " OF oDp:oFrameDp:oWndClient

... la ventana principal, estoy experimentando "desaparece" el texto licencia cuando presento un nuevo formulario WINDOWS o DIALOG. Necesito fijar los datos de la licencia en la ventana principal. Agradezco sus recomendaciones. DEFINE WINDOW oDp:oFrameDp MDI TITLE oDp:cDpSys ;    ...

Hola estoy probando el print01.prg, excelente, FWH 22.12

Necesito fijar anchos de las columnas, se puede?

Saludos
Jorge

Hola amigo.

Pues la verdad que no, ya que tengo organizados los proyectos en subdirectorios

\source
\resource
\obj

Nadie me dice como fijar los subdirectorios como hacia con el Borland. (pregunta de arriba).

Espero conseguirlo en un futuro.

Gracias por tu interes

Un abrazo

Jose.

Hola Antonio. Gracias por tu ayuda. Una cosa en el make de borland usabamos para fijar los directorios de los archivos. Por ejemplo yo tengo el proyecto en una carpeta y a partir de ahi tengoç \obj \source \resource etc. .path.obj = .\obj.path.prg = .\source.path.ch ...

Hola amigos.
Voy avanzando. Estoy probando la function SendKey(VK_CONTROL), y me funciona para fijar la tecla CONTROL.
Lo que me falta es emular mantener presionado un boton, ejecutar action with SendKey(), y después emular soltar el boton.
Gracias

... - Se puede eliminar las direcciones de correo, que suelen almacenarse en la tabla de usuarios registrados. Pero lo mejor para eso es fijar el backup a una línea por registro (para tener un fichero más grande pero con una línea más manejable) y recurrir luego a Perl o Pyton para que ...

Me alegra que hayas resuelto.
Saludos.

Muchas gracias, he probado con la idea de francisco y todo perfecto.
Saludos

Solo una idea: Antes de cargar el nuevo array: nRow := oBrw:nArrayAt despues de re-cargar el array: oBrw:nArrayAt := nRow oBrw:Refresh() Saludos. Francisco, tomando tu palabra, solo le agregaria un GOTO hacia nRow y luego el resfresh,asi ya se ubicaria el curso a la fila que estaba antes del proces...

Solo una idea:

Antes de cargar el nuevo array:
nRow := oBrw:nArrayAt

despues de re-cargar el array:
oBrw:nArrayAt := nRow
oBrw:Refresh()

Saludos.