Enrico Maria Giordano wrote:Can I see a little sample PRG showing the problem, please?
DEFINE FONT oFont NAME "TIME NEW ROMAN" SIZE 0,-14 BOLD ITALIC
DEFINE BRUSH oBrush RESOURCE "Grad01"
DEFINE DIALOG oDlg RESOURCE "Acceso" ;
TRANSPARENT BRUSH oBrush ;
TITLE " Ingreso al Sistema SEM "+cSemVer+::cVersion ;
HELPID "UsuarioyContraseña"
REDEFINE GET oGet VAR ::oPara:cUser ID 11 OF oDlg PICTURE "@K" ;
CUEBANNER "Ingrese su nombre de Usuario..." //BITMAP "note2" ACTION VerificaHuella(.t.)
REDEFINE GET oPass VAR ::oPara:cPass ID 12 OF oDlg PICTURE "@K" ACTION (oPass:lPassword := .f., oPass:Refresh(), SysWait(0.7), oPass:lPassword := .t., oPass:Refresh() ) ;
CUEBANNER "Ingrese su Contraseña..." BITMAP "search"
REDEFINE BUTTONBMP ID 210 OF oDlg RESOURCE "note2" TEXTTOP ACTION ::VerUser(oDlg, ::oPara:nServer, ::oPara:nTipoAutentica, ::oPara:cDsn, oGet, .t. )
oPass:lBtnTransparent := .t.
oPass:lPassword := .t.
REDEFINE BTNBMP ID 201 OF oDlg RESOURCE "Empresas" ;
ACTION Host( cServer, aServer, cTipo, aTipo)
REDEFINE BUTTON ID 20 ACTION ::VerUser(oDlg, ::oPara:nServer, ::oPara:nTipoAutentica, ::oPara:cDsn, oGet,, .t., nAcces ) CANCEL
REDEFINE XIMAGE oBmp ID 501 OF oDlg RESOURCE "TSSEM"
REDEFINE SAY PROMPT ::cRev ID 5 OF oDlg UPDATE FONT oFont COLOR RGB(0,0,200)
REDEFINE BUTTON ID 21 ACTION oDlg:End() CANCEL
ACTIVATE DIALOG oDlg CENTER
oFont:end()
oBrush:End()
RETURN .t
//
// Bitmap resources
//
LANGUAGE LANG_NEUTRAL, SUBLANG_NEUTRAL
TSSEM 10 "logosemt.png"
LANGUAGE LANG_NEUTRAL, SUBLANG_NEUTRAL
GRAD01 BITMAP "gradien2.bmp"
//
// Icon resources
//
LANGUAGE LANG_NEUTRAL, SUBLANG_NEUTRAL
ICONSIS ICON "semicon.ico"
karinha wrote:Carlos, aguarde, haciendo un ejemplo simples de usar.
Regards, saludos.
// C:\SINCUIR
#include "FiveWin.ch"
#define RT_RCDATA 10
FUNCTION Main()
LOCAL oDlg, oHand, oBmp1, oBmp2, oSaida, oFont
DEFINE FONT oFont NAME "Ms Sans Serif" SIZE 00, -14 BOLD
DEFINE DIALOG oDlg RESOURCE "CSINCUIR" FONT oFont
oDlg:lHelpIcon := .F.
// usando .JPG directo del HD
// REDEFINE IMAGE oBmp1 ID 501 OF oDlg FILENAME ".\olga1.jpg" // ok
REDEFINE IMAGE oBmp1 ID 501 OF oDlg // Usando .JPG from Resource. OLGA1.jpg
IF Len( cJpg := cResToStr( "OLGA1", RT_RCDATA ) ) != 0
oBmp1:LoadFromMemory( cJpg )
ENDIF
REDEFINE IMAGE oBmp2 ID 502 OF oDlg // Usando .PNG from Resource. TSEM.png
IF Len( cJpg := cResToStr( "TSEM", RT_RCDATA ) ) != 0 // Usando .PNG
oBmp2:LoadFromMemory( cJpg )
ENDIF
REDEFINE BUTTONBMP oSaida ID 301 OF oDlg ;
ACTION( oDlg:End() ) CANCEL
oSaida:cTooltip :={ "Click no Botão Para Sair", ;
"Saida - Exit - Cancelar ", 1, CLR_WHITE, CLR_HBLUE }
ACTIVATE DIALOG oDlg CENTERED
oFont:End()
RETURN NIL
// fin / end
#ifdef __FLAT__
1 24 ".\Windows10.Manifest"
#endif
#define RT_RCDATA 10
TSEM RT_RCDATA NONDISCARDABLE ".\TSEM.png"
OLGA1 RT_RCDATA NONDISCARDABLE ".\OLGA1.jpg"
CSINCUIR DIALOG 36, 93, 400, 300
STYLE DS_ABSALIGN | DS_MODALFRAME | WS_POPUP | WS_VISIBLE | WS_CAPTION | WS_SYSMENU
CAPTION "Teste de uso de *.PNG Para cSincuir"
FONT 8, "MS Sans Serif"
{
CONTROL "", 501, "TImage", 0 | WS_CHILD | WS_VISIBLE, 7, 3, 190, 257
CONTROL "", 502, "TImage", 0 | WS_CHILD | WS_VISIBLE, 202, 4, 190, 257
PUSHBUTTON "&Salida", 301, 170, 279, 60, 16
}
csincuir wrote:Gracias Karinha.
Lo pruebo entonces.
Saludos cordiales.
Carlos.
Enrico Maria Giordano wrote:João, I can't see any problem compiling and running your sample.
buildh semdlg
nageswaragunupudi wrote:Let us go step by step.
Step-1.
Keep the semdlg.prg and semdlg.rc posted above in the fwh\samples folder and build with
- Code: Select all Expand view
buildh semdlg
You will see the dialog without any errors.
Please confirm.
Then we will go to next step.
oDlg:lHtml := .f.
ACTIVATE DIALOG oDlg CENTER ON INIT CargaLogoPng(oBmp)
Si seteo la DATA lHtml := .f. antes de activar el dialogo ya no aparecen los dos primeros mensajes, y se soluciona el problema.
Return to FiveWin para Harbour/xHarbour
Users browsing this forum: Google [Bot] and 52 guests