Um cliente que que seja apresentado a foto na ficha dos funcionários, e se possível com o scanneamento pelo própio sistema.
Uso WS para desenhar as telas, podem me dar uma dica de como realizar esta tarefa.
Vander
FW 2.6 / CLIPPER 5.3 / BLINKER 5
Exibir fotos com RC
Moderador: Moderadores
-
rochinha
- Administrador
- Mensagens: 4664
- Registrado em: 18 Ago 2003 20:43
- Localização: São Paulo - Brasil
- Contato:
Amiguinho
Voce deverá agregar um controle bitmap ao seu .RC e voce pode conseguir se possuir a FWCTRLS.DLL instalada no mesmo.
Veja o exemplo:
Adquira a FWCTRLS.DLL e instale em FILE/INSTALL CONTROL LYBRARY e voce vera que novos controles aparecerão no WS.
Voce poderá usar tam'bém o comando REDEFINE IMAGE para isto pois acho que o mesmo pode trabalhar com JPG e GIF.
Voce deverá agregar um controle bitmap ao seu .RC e voce pode conseguir se possuir a FWCTRLS.DLL instalada no mesmo.
Veja o exemplo:
Código: Selecionar todos
ABOUT DIALOG 100, 38, 299, 188
STYLE DS_MODALFRAME | 0x4L | WS_POPUP | WS_VISIBLE | WS_CAPTION | WS_SYSMENU
CAPTION "Sobre o 5Volution Legacy Fenix"
FONT 8, "MS Sans Serif"
{
PUSHBUTTON "Fechar", 10, 244, 169, 50, 14
EDITTEXT 3, 105, 144, 45, 12, ES_CENTER | ES_READONLY | WS_BORDER | WS_TABSTOP
EDITTEXT 4, 152, 144, 45, 12, ES_CENTER | ES_READONLY | WS_BORDER | WS_TABSTOP
EDITTEXT 5, 200, 144, 45, 12, ES_CENTER | ES_READONLY | WS_BORDER | WS_TABSTOP
EDITTEXT 6, 248, 144, 45, 12, ES_CENTER | ES_READONLY | WS_BORDER | WS_TABSTOP
CONTROL "TBitMap", 7, "TBitMap", WS_CHILD | WS_VISIBLE, 7, 6, 89, 151
LTEXT "5Volution Legacy Fenix 2006 (Revisão X)", 1, 105, 6, 192, 13
LTEXT "Todos os Direitos Reservados à Jose Carlos da Rocha", -1, 105, 24, 192, 8
LTEXT "Email: irochinha@itelefonica.com.br", -1, 105, 44, 142, 8
LTEXT "Conta: Unibanco, Agencia 1234 C/C 1.234.567", -1, 105, 52, 178, 8
LTEXT "Aviso: este programa de computador é protegido por leis de direitos autorais e tratados internacionais. A reprodução ou distribuição não autorizada deste programa, ou de qualquer parte dele, resultará em severas punições civis e criminais, e os infratores serão punidos sob a máxima extensão possivel dentro da lei.", -1, 105, 70, 191, 51
GROUPBOX "", -1, -4, 159, 308, 34, BS_GROUPBOX
LTEXT "Identificação do produto (Product ID):", 2, 105, 130, 192, 8
}
Código: Selecionar todos
function dlgabout( oque )
local oDlg
cSay3 := "GF65"
cSay4 := "K476"
cSay5 := "93M6"
cSay6 := "YT6W"
SET _3DLOOK ON
DEFINE DIALOG oDlg NAME "about"
REDEFINE SAY oSay1 VAR "5Volution Legacy Fenix 2006 (Revisao: 20060912)" ID 1 OF oDlg
REDEFINE SAY oSay2 VAR "Identificacao do produto (Product ID): " ID 2 OF oDlg
REDEFINE GET oSay3 VAR cSay3 ID 3 OF oDlg NO MODIFY
REDEFINE GET oSay4 VAR cSay4 ID 4 OF oDlg NO MODIFY
REDEFINE GET oSay5 VAR cSay5 ID 5 OF oDlg NO MODIFY
REDEFINE GET oSay6 VAR cSay6 ID 6 OF oDlg NO MODIFY
REDEFINE BITMAP oBitMap ID 7 FILENAME "5Vol.bmp" OF oDlg
REDEFINE BUTTON ID 10 OF oDlg ACTION oDlg:End() DEFAULT
ACTIVATE DIALOG oDlg CENTERED
return .t.
OPS! LINK QUEBRADO? Veja ESTE TOPICO antes e caso não encontre ENVIE seu email com link do tópico para [url=mailto://fivolution@hotmail.com]fivolution@hotmail.com[/url]. Agradecido.
@braços : ? )
A justiça divina tarda mas não falha, enquanto que a justiça dos homens falha porque tarda.
@braços : ? )
A justiça divina tarda mas não falha, enquanto que a justiça dos homens falha porque tarda.