BONNE ANNEE !
Utilisateur anonyme
-
31 déc. 2008 à 15:24
Nicolas___ Messages postés 992 Date d'inscription jeudi 2 novembre 2000 Statut Membre Dernière intervention 24 avril 2013 - 4 janv. 2009 à 15:02
Nicolas___ Messages postés 992 Date d'inscription jeudi 2 novembre 2000 Statut Membre Dernière intervention 24 avril 2013 - 4 janv. 2009 à 15:02
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/48846-bonne-annee
https://codes-sources.commentcamarche.net/source/48846-bonne-annee
4 janv. 2009 à 15:02
Trop de souris , ça fait des trous dans les serveurs , c'est à cause de ça !
[vraiment mauvaise celle-là , je sors -->[])
Nico
Et bonne année (mal poli que je suis ^^ )
4 janv. 2009 à 14:58
Rien à faire, la maj ne passe pas..
le site a vraisemeblablement
des soucis en ce moment...
4 janv. 2009 à 14:51
du moins elle s'est mis en place et puis elle s'est annulée !
je recommence.
4 janv. 2009 à 13:25
JvBehaviorLabel, JvExControls, JvLabel;
Pour tes
IF compteur = 0 THEN
IF (COMPTEUR > 0) AND (compteur < 50) THEN
IF (COMPTEUR = 50) THEN
tu peux faire comme ca aussi
case Compteur of
0 :
1..49 :
50 :
end;
Ca serait bien de pouvoir stopper vite l'application :
procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
begin
if key=VK_ESCAPE then Close;
end;
"Nettoyage des uses en trop et passage en 32 bits"
En gros je pense que tu t'es trompé de version parceque moi j'ai ca :
Bitmap.PixelFormat := pf24bit;
4 janv. 2009 à 13:23
trop près ?
de ton avatar ou de l'utilisateur ?
4 janv. 2009 à 00:09
Coté code : rien à redire, c'est nickel.
3 janv. 2009 à 05:23
@Cantador : Je regarde ton source demain et je te dis ce que j'en pense
2 janv. 2009 à 12:19
Dr. Joseph LOMBET
2 janv. 2009 à 10:16
Remarque interessante: faut que je m' attarde sur le pf32bit,
merci et bonne année à tous!!!
1 janv. 2009 à 14:30
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 !
1 janv. 2009 à 12:39
la remarque de cirec est justifiée..
J'ai conservé les anciennes lignes de code dans le source.
il n'y a plus qu'un seul appel à scanline et la nouveauté c'est le passage en :
Bitmap.PixelFormat := pf32bit;
et
NPix := Bitmap.Height * Bitmap.Width;
J'ai noté une légère amélioration de la fluidité et si le programme avait été plus copieux, la différence aurait été plus flagrante !
1 janv. 2009 à 02:26
Je n'ai toujours pas compris l'histoire du "1 seul appel à ScanLine" ?
Cordialement, Bacterius !
PS : merci d'avoir cité mon tutorial Cantador :)
1 janv. 2009 à 01:59
bonne année !
31 déc. 2008 à 23:41
BY OFFLAKE
31 déc. 2008 à 15:52
Pour le 32 bit je vais regarder..
Bonne année !
31 déc. 2008 à 15:24
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