FiveTech Support Forums

#include "fivewin.ch"

#define __DEV__

PROCEDURE Main()
   LOCAL oDlg, oFontD
   PRIVATE oUserIden, oUserPass
   PRIVATE cUserIden, cUserPass

#ifdef __DEV__
   cUserIden := PadR( "CIVS", 10 )
   cUserPass := PadR( "civs", 10 )
#else
   cUserIden := Space( 10 )
   cUserPass := Space( 10 )
#endif
   

   DEFINE FONT oFontD NAME "TAHOMA" SIZE 0, -12
   

   DEFINE DIALOG oDlg NAME "DLG_LOGIN" //FONT oFontD COLOR CLR_BLACK, CLR_WHITE TRANSPARENT

   REDEFINE GET oUserIden VAR cUserIden;
      ID 101 OF oDlg;
      PICTURE "@!";
      UPDATE

   REDEFINE GET oUserPass VAR cUserPass;
      ID 102 OF oDlg;
      PICTURE "@";
      UPDATE

   REDEFINE BUTTON;
      ID 201 OF oDlg;
      ACTION oDlg:End();

   REDEFINE BUTTON;
      ID 202 OF oDlg;
      ACTION oDlg:End();
      CANCEL

   ACTIVATE DIALOG oDlg
        

RETURN

// Generated by ResEdit 1.6.6
// Copyright (C) 2006-2015
// http://www.resedit.net

#ifndef RC_INVOKED
#define RC_INVOKED
#endif

#include <windows.h>
#include <commctrl.h>
#include "resource.h"

#ifndef WC_STATIC
#define WC_STATIC  "Static"
#endif

DLG_LOGIN DIALOG 33, 42, 200, 100
STYLE DS_3DLOOK | DS_CENTER | DS_MODALFRAME | DS_SETFONT | WS_CAPTION | WS_VISIBLE | WS_POPUP | WS_SYSMENU
CAPTION "Validar acceso a usuario"
FONT 9, "Tahoma"
{
    EDITTEXT        101, 134, 33, 60, 12, 0, WS_EX_LEFT
    EDITTEXT        102, 134, 47, 60, 12, ES_PASSWORD, WS_EX_LEFT
    PUSHBUTTON      "&Aceptar", 201, 90, 80, 50, 14, 0, WS_EX_LEFT
    PUSHBUTTON      "&Cerrar", 202, 145, 80, 49, 14, 0, WS_EX_LEFT
    RTEXT           "Usuario:", IDC_STATIC, 87, 33, 45, 12, SS_RIGHT, WS_EX_LEFT
    RTEXT           "Contraseña:", IDC_STATIC, 87, 47, 45, 12, SS_RIGHT, WS_EX_LEFT
    LTEXT           "Linea1", IDC_STATIC, 90, 74, 104, 1, SS_LEFT, WS_EX_STATICEDGE
}

//
// Manifest resources
//
1                  RT_MANIFEST    ".\\manifest.xml"

ACTIVATE DIALOG oDlg ON INIT oUserPass:SetText( cUserPass )

// C:\FWH2603\SAMPLES\LOGIN2.PRG - By Resedit.

#include "FiveWin.ch"

FUNCTION Main()

   LOCAL oDlg, oFont, aGet := ARRAY(5), oclp
   LOCAL cUsuario := [Carlos Vargas      ] // 20
   LOCAL cSenha   := [Carlos Vargas123   ] // 20 a tu gosto personal.
   

   DEFINE FONT oFont NAME "Arial" SIZE 0, -12
   

   DEFINE DIALOG oDlg RESOURCE "DLG_LOGIN" FONT oFont ;
      TITLE "acceso al sistema"

   oDlg:lHelPIcon := .F.

   DEFINE CLIPBOARD oClp OF oDlg
   

   REDEFINE GET Aget[1] VAR cUsuario ID 101 OF oDlg PICTURE "@KR!"
   

   REDEFINE GET aGet[2] VAR cSenha   ID 102 OF oDlg //-> PASSWORD

   aGet[2]:lPassword := .T.

   aGet[2]:bGotFocus := {|| oClp:SetText( '' ) }
   

   REDEFINE BUTTON ID 201 OF oDlg ACTION ( oDlg:End(), MsgInfo( "Login: " + Trim(cUsuario) + CRLF + "Senha: " + Trim(cSenha), "Sucesso" ) )

   REDEFINE BUTTON ID 202 OF oDlg ACTION ( oDlg:End() ) CANCEL
   

   ACTIVATE DIALOG oDlg CENTERED
   

   oFont:End()

RETURN NIL

/*
// LOGIN2.RC

#include <windows.h>

// Dialog in ResEdit for Password
DLG_LOGIN DIALOG 0, 0, 240, 100
STYLE DS_MODALFRAME | WS_POPUP | WS_CAPTION | WS_SYSMENU
CAPTION "Login del Usuario"
FONT 8, "MS Sans Serif"
{
 LTEXT "Usuario:", -1, 15, 17, 40, 10
 EDITTEXT 101, 60, 15, 150, 12, ES_AUTOHSCROLL
    

 LTEXT "Contraseña:", -1, 15, 37, 40, 10
 // O estilo ES_PASSWORD é o que mascara os caracteres no ResEdit (***)
 EDITTEXT 102, 60, 35, 150, 12, ES_PASSWORD | ES_AUTOHSCROLL
    

 PUSHBUTTON "Confirmar", 201, 60, 65, 60, 14
 PUSHBUTTON "Cancelar", 202, 130, 65, 60, 14
}
*/

METHOD DispText() CLASS TGet

//----------------------------------------------------------------------------//
// add:WenSheng:2020.06.17
//----------------------------------------------------------------------------//
#ifdef __HARBOUR__
#pragma BEGINDUMP
#include "windows.h"
#include "hbapi.h"
#include <hbapiitm.h>
#include <fwh.h> // NO EJISTE

FUNCTION Main()

   ...

   // AHORA EN FWH2603 ES ASI:
   WITH OBJECT oWnd
      :bInit := {|| oWnd:Show(), oWnd:Center(), oWnd:Maximize(), DLGINICIAL(), TIRA_X() }
   END

   ACTIVATE WINDOW oWnd MAXIMIZED VALID( ENCERRA( oWnd ) ) /*
      ON INIT( DLGINICIAL() ) */ // ESTO FUNCIONA CON FWH1905

   RELEASE FONT oFont

RETURN NIL

CLASS TWindow
...
   DATA bShow
...
   

METHOD Activate (...) CLASS TWindow
...

   if ! lWRunning()
      SetWndApp( ::hWnd )
   endif

   if ::bInit != nil
      Eval( ::bInit, Self )
   endif

   ::Resize( 0, ::nWidth, ::nHeight )

   if lCentered
      if oMonitor == nil
         ::Center()
      else
         WndCenterEx( ::hWnd, oMonitor )
      endif
   elseif oMonitor != nil .and. oMonitor:IsKindOf( "TMONITOR" )
      oMonitor:Move( Self )
   endif

   ShowWindow( ::hWnd, AScan( { "HIDDEN", "NORMAL", "ICONIZED", "MAXIMIZED" }, cShow ) - 1 )
   UpdateWindow( ::hWnd )
   

   ::lVisible = .t.

//carlos vargas - init
   if ::bShow != nil
      Eval( ::bShow, Self )
   endif
//carlos vargas - end
   

   if ::oWnd == nil
      if ! lWRunning()
         WinRun( Self:hWnd )
      endif
   endif

return nil
...

   METHOD Activate( cShow, bLClicked, bRClicked, bMoved, bResized, bPainted,;
                    bKeyDown, bInit,;
                    bUp, bDown, bPgUp, bPgDn,;
                    bLeft, bRight, bPgLeft, bPgRight, bValid, bDropFiles,;
                    bLButtonUp, lCentered )

METHOD Activate( cShow, bLClicked, bRClicked, bMoved, bResized, bPainted,;
                 bKeyDown, bInit, bUp, bDown, bPgUp, bPgDown,;
                 bLeft, bRight, bPgLeft, bPgRight, bValid, bDropFiles,;
                 bLButtonUp, lCentered ) CLASS TWindow

   local oVScroll, oHScroll
#ifdef UTFREVN
   local lSaveUni
#endif
   DEFAULT cShow := "NORMAL", lCentered := .F.

   ::nResult     = nil
   ::lValidating = .f.

   if bValid != nil
      ::bValid = bValid
   endif

   if bDropFiles != nil
      ::bDropFiles = bDropFiles
      DragAcceptFiles( ::hWnd, .t. )
   endif

   if bPainted != nil
      if Upper( ::ClassName() ) == "TMDIFRAME"
         ::oWndClient:bPainted = bPainted
      else
         ::bPainted  = bPainted
      endif
   endif

   if bLClicked != nil
      if Upper( ::ClassName() ) == "TMDIFRAME"
         ::oWndClient:bLClicked = bLClicked
      else
         ::bLClicked = bLClicked
      endif
   endif

   if bRClicked != nil
      if Upper( ::ClassName() ) == "TMDIFRAME"
         ::oWndClient:bRClicked = bRClicked
      else
         ::bRClicked = bRClicked
      endif
   endif

   // For WS_VSCROLL and WS_HSCROLL styles

   if Upper( ::ClassName() ) == "TMDIFRAME"
      oVScroll = ::oWndClient:oVScroll
      oHScroll = ::oWndClient:oHScroll
   else
      oVScroll = ::oVScroll
      oHScroll = ::oHScroll
   endif

   if oVScroll != nil       // When using VSCROLL clause
      if bUp != nil
         oVScroll:bGoUp = bUp
      else
         if Upper( ::ClassName() ) == "TMDIFRAME"
            oVScroll:bGoUp = { || ScrollWindow( ::oWndClient:hWnd, 0, 20, 0, GetClientRect( ::oWndClient:hWnd ) ) }
         endif
      endif
      if bDown != nil
         oVScroll:bGoDown = bDown
      else
         if Upper( ::ClassName() ) == "TMDIFRAME"
            oVScroll:bGoDown = { || ScrollWindow( ::oWndClient:hWnd, 0, -20, 0, GetClientRect( ::oWndClient:hWnd ) ) }
         endif
      endif
      if bPgUp != nil
         oVScroll:bPageUp = bPgUp
      endif
      if bPgDown != nil
         oVScroll:bPageDown = bPgDown
      endif
   endif

   if oHScroll != nil       // When using HSCROLL clause
      if bLeft != nil
         oHScroll:bGoUp = bLeft
      else
         if Upper( ::ClassName() ) == "TMDIFRAME"
            oHScroll:bGoUp = { || ScrollWindow( ::oWndClient:hWnd, 20, 0, 0, GetClientRect( ::oWndClient:hWnd ) ), ReleaseCapture() }
         endif
      endif
      if bRight != nil
         oHScroll:bGoDown = bRight
      else
         if Upper( ::ClassName() ) == "TMDIFRAME"
            oHScroll:bGoDown = { || ScrollWindow( ::oWndClient:hWnd, -20, 0, 0, GetClientRect( ::oWndClient:hWnd ) ), ReleaseCapture() }
         endif
      endif
      if bPgLeft != nil
         oHScroll:bPageUp = bPgLeft
      endif
      if bPgRight != nil
         oHScroll:bPageDown = bPgRight
      endif
   endif

   ::AEvalWhen()

   ShowWindow( ::hWnd, AScan( { "HIDDEN", "NORMAL", "ICONIZED", "MAXIMIZED" }, cShow ) - 1 )
   UpdateWindow( ::hWnd )

   ::lVisible = .t.

   if ! lWRunning()
      SetWndApp( ::hWnd )
   endif

   if ::bInit != nil
      Eval( ::bInit, Self )
   endif

   ::Resize()

   if lCentered
      ::Center()
   endif

   if ::oWnd == nil
      if ! lWRunning()
#ifdef UTFREVN
         lSaveUni = FW_SetUnicode( .T. )
#endif
         WinRun( Self:hWnd )
#ifdef UTFREVN
         FW_SetUnicode( lSaveUni )
#endif
      endif
   endif

return nil