PC SOFT

FORUMS PROFESSIONNELS
WINDEVWEBDEV et WINDEV Mobile

Accueil → WINDEV Mobile 24 → Rotate Image
Rotate Image
Débuté par adrianoboller, 24 nov. 2014 12:43 - Aucune réponse
Membre enregistré
2 958 messages
Popularité : +89 (91 votes)
Posté le 24 novembre 2014 - 12:43
Procedure CAM_RotateImage(LOCAL PathImagem, LOCAL Angulo, LOCAL DebugSN)

//Existe Configuracao
HReadSeekFirst(T000Config,T000Config.CodConfig000,26)
IF HFound(T000Config) = True AND T000Config.Valor000 = "SIM"

IF PathImagem <> "" AND Angulo <> ""

WIN_Camera_FullScreen.IMG_Rotate = PathImagem

ok = dRotation(WIN_Camera_FullScreen.IMG_Rotate, Angulo)

IF ok = False AND DebugSN = "S" THEN
Info("Operação de Rotação Falhou")
ELSE IF ok = True AND DebugSN = "S"
Info("Rotação ok")
END

ELSE

Info("Parametros de rotação de imagem vazios nas configurações...")

END

END

IF ok = True
ok = dSaveImageJPEG(WIN_Camera_FullScreen.IMG_Rotate, PathImagem)
IF ok = False THEN
Error("Erro ao salvar imagem")
END
END


RESULT(ok)