Hola amigos,
En un diálogo simple, con un gradient, un say y un timer la transparencia del Say no funciona.
Cuando se refrezca el Say en el Timer, quita la transparencia.
Ejemplo:
También probé con Brush y pasa lo mismo.
FWH-10.3, xHarbour 1.2.1, Borland 5.82, Windos XP, Windos Wista y Windows 7
Alguna sugerencia de cómo corregirlo ?
Gracias y Saludos,
Carlos Gallego
En un diálogo simple, con un gradient, un say y un timer la transparencia del Say no funciona.
Cuando se refrezca el Say en el Timer, quita la transparencia.
Ejemplo:
#include "FiveWin.ch"
#include "Ribbon.ch"
STATIC oTimer
Function Inicio()
LOCAL odlg, oBrush, oBtn, oSay
DEFINE DIALOG oDlg FROM 0,0 TO 140,500 PIXEL TRANSPARENT TITLE "Transparent Say does not work either on brush or on gradient - FWH 10.3" // BRUSH oBrush
@ 20,150 SAY oSay PROMPT "Hora: "+Time() OF oDlg PIXEL COLOR nRGB(255,50,50) SIZE 80,10
@ 45,110 RBBTN oBtn PROMPT "Salir" OF oDlg SIZE 30,15 ROUND ACTION oDlg:end() PIXEL
ACTIVATE DIALOG oDlg CENTERED ON INIT Set_Timer(oDlg,oSay);
ON PAINT GradientFill( hDC, 0, 0, oDlg:nHeight, oDlg:nWidth, { { 0.50, 16054371, 8388608 } } )
Return(NIL)
function Set_Timer(oDlg,oSay)
DEFINE TIMER oTimer INTERVAL 1000 OF oDlg ;
ACTION (oSay:SetText("Hora: "+Time()),oSay:Refresh())
ACTIVATE TIMER oTimer
returnTambién probé con Brush y pasa lo mismo.
FWH-10.3, xHarbour 1.2.1, Borland 5.82, Windos XP, Windos Wista y Windows 7
Alguna sugerencia de cómo corregirlo ?
Gracias y Saludos,
Carlos Gallego
Saludos,
Carlos Gallego
*** FWH-25.12, xHarbour 1.3.1 Build 20241008, Borland C++7.70, PellesC, ADS 11.1***
