ÉDITEUR D'IMAGES
cs_bgK
Messages postés
131
Date d'inscription
vendredi 7 juin 2002
Statut
Membre
Dernière intervention
19 janvier 2004
-
3 janv. 2003 à 11:40
cs_Comfort Messages postés 2 Date d'inscription jeudi 3 août 2006 Statut Membre Dernière intervention 3 août 2006 - 3 août 2006 à 18:37
cs_Comfort Messages postés 2 Date d'inscription jeudi 3 août 2006 Statut Membre Dernière intervention 3 août 2006 - 3 août 2006 à 18:37
Cette discussion concerne un article du site. Pour la consulter dans son contexte d'origine, cliquez sur le lien ci-dessous.
https://codes-sources.commentcamarche.net/source/12269-editeur-d-images
https://codes-sources.commentcamarche.net/source/12269-editeur-d-images
3 août 2006 à 18:37
26 janv. 2003 à 15:58
je bosse sur un prog qui resemble au tien, j'ai inclu quelque fonctionalités que tu n'a pas mis dans le tien, si tu veut on peut travailler a deux sur ce prog, et sortir une bonne mouture sur le net.
Si t'es interessé, envoie moi un mail sur : iox@fr.st
Salut et @+
6 janv. 2003 à 21:51
4 janv. 2003 à 04:09
3 janv. 2003 à 22:49
3 janv. 2003 à 16:39
3 janv. 2003 à 11:40
procedure invert(buffer:TBitmap);
Type
TRGBTripleArray = array[Word] of TRGBTriple;
PRGBTripleArray = ^TRGBTripleArray;
var color: TRGBTriple;
h,w,a:integer;
begin
for h:=0 to buffer.height - 1 do begin
for w:=0 to buffer.Width - 1 do begin
Move(PRGBTripleArray(buffer.ScanLine[h])^[w],Color,3);
Color.rgbtRed := not Color.rgbtRed;
Color.rgbtGreen := not Color.rgbtGreen;
Color.rgbtBlue := not Color.rgbtBlue;
Move(Color,PRGBTripleArray(buffer.ScanLine[h])^[w],3);
application.ProcessMessages ;
end;
end;
end;
Avec cette fonction, pour une image en 800x600, sur mon PC, le temps de calcul est passé de 2s à 700ms, ce qui n'est pas rien !!
Il est possible d'utiliser les API InvertRgn ou InvertRect pour faire ça encore plus rapidement, mais ce n'est pas interessant ...