Publicado em julho, 02 2016 - 6:12 AM |
Il faut disposer d`une fenêtre AVEC un bouton ET deux champs Image (IMAGE1 ET IMAGE2).
DCImageSource = AppelDLL32("user32","GetDC",Handle("IMAGE1"))
DCImageDestination = AppelDLL32("user32","GetDC",Handle("IMAGE2"))
AppliqueNegatif(DCImageSource, DCImageDestination, nLargeur, nHauteur,1114278)
AppelDLL32("user32","ReleaseDC",Handle("IMAGE1"), DCImageSource) AppelDLL32("user32","ReleaseDC",Handle("IMAGE2"),DCImageDestination)
Procedure AppliqueNegatif (DCImageSrce, DCImageDestinat, Largeur, Hauteur, Option)
i, j sont des entiers
lSourceX, lSourceY sont des entiers
POUR i = 0 A Hauteur POUR j = 0 A Largeur lSourceX = j lSourceY = i AppelDLL32("gdi32","BitBlt",DCImageDestinat, j, i, 1, 1, DCImageSrce, lSourceX, lSourceY, Option) FIN FIN
-- Adriano José Boller ______________________________________________ Consultor e Representante Oficial da PcSoft no Brasil +55 (41) 9949 1800 adrianoboller@gmail.com skype: adrianoboller http://wxinformatica.com.br/ |
| |
| |
|