FiveTech Support Forums

Hola amigos Fivewinners....

Alguien sabe como, se le ocurre, tiene una idea de como.....

Poner un texto de brush, no puede ser un bitmap, ya que ese texto deberia cambiar de acuerdo a una funcion externa, y no puedo generar tantos bitmaps como textos voy a necesitar.

Lo intente con lo siguiente en la Clausula ON INIT FONDO(ownd)

//-----------------------------------
Function Fondo(oWnd)
Local Texto:=TraeTexto()

For x=1 TO 80
@x,1 say Texto of oWnd Color CLR_HBLUE
Next

Return Nil

... pero queda sobre mi toolbar y un bitmap que tengo centrado en la window.

Cualquier ayuda sera bienvenida...

Grax.

Desde Chile
Adolfo Lagos

Intentalo con ExTextOut() desde el pintado del dialogo/Window (el :bPainted) antes de colocar el bitmap con PalBmpDraw()
Calcula las coordenadas para poner la primera linea de texto por debajo de la toolbar.
Suerte
Saludos

Adolfo

ACTIVATE WINDOW oWnd MAXIMIZED ON PAINT ( _miTxt(hDC) )

function _miTxt( hDC )
Local oFont
DEFINE FONT oFont NAME "ROMAN" SIZE 0,-12 BOLD
oFont:Activate( hDC )
SetBkMode(hDC,1)
SetTextColor(hDC,CLR_BLUE)
DrawText(hDC,"SysCtrl Software",{10, 20, 500, 600}, nOr( 1, 4 ) )
RETURN NIL

Espero te sirva

Saludos...

Antolin, Syscrtl

Gracias por sus respuestas,

primero... ala funcion mitxt es llamada cada vez que paso por encima de un icono, menu etc.
Segundo, desgraciadamente no veo nada, trate de cambiar parametros como las 4 coordenadas, color, tipo y tamaño de la letra y nada.. asi que no pude hacerlo funcionar.

Sobre el ExtTextOut(), estoy rcien viendo como implementarlo.. les comunco si tuve exito

Desde Chile
Adolfo

Tambien puedes probar con DrawText() o WSay() en lugar de ExTextOut() son muy similares. Con fondo transparente u Opaco, Etc... Consulta las ayudas del FWH para ver el uso de esas functiones.

Adolfo,

la funcion _MiTxt() solo puedes llarme una vez,

utilizando una variable publica,,

public lMiTxt := .t.

if lMiTxt
_miTxt()
lMiTxt := .f.
endif

Gracias a Todos

Lo he podido hacer mezclando ambas partes de las soluciones que me han enviado, pero en vez de usar ExtTextOut() he utilizado WSay() ya que me permite cambio de color de letra y fondo, y si la deseo transparente o no.

Gracias