ÉDITEUR D'IMAGES

Commentaire de bgK le 03/01/2003 11:40:55

Pas mal ton prog !!! Par contre, il manque un peu d'optimisation. Par exemple, pour la fonction invert, il faut utiliser TBitmap.ScanLine, qui est beaucoup plus rapide que GetPixel(x,y). Il est plus long pour le CPU de faire r := 255 - r; que r := not r;, ce qui donne le même résultat. Voici ta fonction un peu optimisée :

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 ...

Commentaire de Delphiprog le 03/01/2003 22:49:21 administrateur CS

Pour réaliser une loupe sur une partie de l'écran, regardes sur le site de Nono40 (http://nono40.fr.st), rubriques sources.

Commentaire de max12 le 06/01/2003 21:51:19 administrateur CS

Cool :D