FiveTech Software tech support forums

Code: Select all | Expand

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
 

Code: Select all | Expand

//
// 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"

Code: Select all | Expand

// 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
 

Code: Select all | Expand

#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
}
 

Code: Select all | Expand

buildh semdlg

Code: Select all | Expand

   oDlg:lHtml := .f.
   ACTIVATE DIALOG oDlg CENTER ON INIT CargaLogoPng(oBmp)