Video no Youtube Se Gostou clique aqui para dar joinha
http://doc.windev.com/en-US/?2510034&name=Image
Salvar Imagen String - 001 - WinDev - Imagen - Encode / Décode -
Guardar Imagen - 002 - WinDev Imagens
Tirar Foto e Colocar Imagen WinDev - Imagen - 003/...
Fundo Janela - Colocar Imagen - Windev Imagen - 004
Nessa aula, vou ensinar como criar um campo de imagen.
Colocar isso num cadastro de Parametro.
Ler o Frente de caixa, mostrando essa imagem,
e tambem poder alterar essa imagen no proprio
Frente de Caixa
//Procurar imagem e colocar no campo imagen
// Search image and place in the image field
sFile is string
sFile = fImageSelect("", "", "Seleciona Uma Imagen", "Jpg" + TAB + "*.jpg" + CR + "bmp" + TAB + "*.bmp" + CR + "png" + TAB + "*.png")
IF sFile<>"" THEN
// Se Sfile for diferente de branco
IMG_Imagen_cupom_eletronico=sFile
END
inicializa_frente_caixa()
//colocando a imagen guardada
IF empresa_parametro_nfe.imagen_cupom_eletronico<>"" THEN
IMG_matos..Visible=True //Mostrar Imagen
IMG_matos=empresa_parametro_nfe.imagen_cupom_eletronico
ELSE // Senao
SWITCH empresa.suporte
CASE 1 // matos
IMG_matos..Visible=True
CASE 2 // diversos
CASE 3// rj
IMG_Rj..Visible=True
CASE 4//unimatos
IMG_Unimatos..Visible=True
CASE 5//nilsoftware
IMG_Nilsoftware..Visible=True
OTHER CASE
END
END
// Procura imagen para colocar no pdv
PROCEDURE imagen_procura()
sFile is string
sFile = fImageSelect("", "", "Seleciona Uma Imagen", "Jpg" + TAB + "*.jpg" + CR + "bmp" + TAB + "*.bmp" + CR + "png" + TAB + "*.png")
IF sFile<>"" THEN
HReadSeekFirst(empresa_parametro_nfe,Id_empresa,gnEmpresaCodigo)
//Estou lendo o parametro da empresa 1
IF HFound(empresa_parametro_nfe) THEN
//Se Existir
IMG_matos=sFile
IMG_Unimatos=sFile
IMG_Nilsoftware=sFile
IMG_Rj=sFile
empresa_parametro_nfe.imagen_cupom_eletronico=IMG_matos
HModify(empresa_parametro_nfe)
//Regravando os dados parametro
END
END
