BONNE ANNEE !

Commentaire de cirec le 31/12/2008 15:24:27 administrateur CS

Salut,

1°) tu as oublié de retirer les unités de la JVCL ;)

2°) en passant en 32bit l'accès aux données est plus rapide et plus simple (plus qu'un seul appel à ScanLine) !!!

ce qui donne :

PROCEDURE TForm1.DessineImage(Bitmap: TBitmap);
VAR
  I: integer;
  NPix: Integer;
  Row: pRGBQuad;
BEGIN
  Row := Bitmap.Scanline[Bitmap.Height - 1];
  NPix := Bitmap.Height * Bitmap.Width;
  for I := 0 to NPix do
  begin
    IF compteur = 0 THEN
    BEGIN
      IF (Row^.rgbRed = 255) AND (Row^.rgbGreen = 0) AND (Row^.rgbBlue = 0) THEN
      BEGIN
        Row^.rgbRed := stored;
        Row^.rgbGreen := stogreen;
        Row^.rgbBlue := stoblue;
      END;
    END
    ELSE
    IF (COMPTEUR > 0) AND (compteur < 50) THEN
    BEGIN
      IF (Row^.rgbRed = stored) AND (Row^.rgbGreen = stogreen) AND (Row^.rgbBlue = stoblue) THEN
      BEGIN
        Row^.rgbRed := newstored;
        Row^.rgbGreen := newstogreen;
        Row^.rgbBlue := newstoblue;
      END;
    END
    ELSE
      IF (COMPTEUR = 50) THEN
      BEGIN
        IF (Row^.rgbRed = stored) AND (Row^.rgbGreen = stogreen) AND (Row^.rgbBlue = stoblue) THEN
        BEGIN
          Row^.rgbRed := 255;
          Row^.rgbGreen := random(256);
          Row^.rgbBlue := 0;
        END;
      END;
    Inc(Row);
  end;
  IF compteur > 0 THEN
  BEGIN
    stored := newstored;
    stogreen := newstogreen;
    stoblue := newstoblue;
  END;
END;

Bonnes Fêtes à tous

Commentaire de offlake le 31/12/2008 23:41:30

Bon Code !!
BY OFFLAKE

Commentaire de Bacterius le 01/01/2009 02:26:50

Sympathique !
Je n'ai toujours pas compris l'histoire du "1 seul appel à ScanLine" ?

Cordialement, Bacterius !

PS : merci d'avoir cité mon tutorial Cantador :)

Commentaire de Bacterius le 01/01/2009 14:30:16

Oui j'imagine qu'elle est justifiée.
C'est juste que je n'arrive pas à comprendre pourquoi en 1 appel à scanline on peut scanner le bitmap entier ? Je n'arrive pas à le concevoir en fait :'/
Mais je finirai bien par comprendre un jour ... j'espère :/

Cordialement, Bacterius !

Commentaire de MAURICIO le 02/01/2009 10:16:44 administrateur CS

Salut à tous!
Remarque interessante: faut que je m' attarde sur le pf32bit,
merci et bonne année à tous!!!

Commentaire de Francky23012301 le 03/01/2009 05:23:05

Ah c'est ici qu'on fait la fête ? Bonne année à tous ("Grosse bise ?" Mais t'as pas un peu fous de vouloir nous lecher le citron lol).

@Cantador : Je regarde ton source demain et je te dis ce que j'en pense

Commentaire de cantador le 04/01/2009 13:23:33 administrateur CS

@Francky:
trop près ?
de ton avatar ou de l'utilisateur ?

Commentaire de cantador le 04/01/2009 14:51:23 administrateur CS

si si j'avais bien mis la correction mais la maj ne s'est pas faite..
du moins elle s'est mis en place et puis elle s'est annulée !

je recommence.