COPIEUR DE PIXELS
Caribensila
Messages postés
2527
Date d'inscription
jeudi 15 janvier 2004
Statut
Membre
Dernière intervention
16 octobre 2019
-
6 févr. 2008 à 22:56
cs_cantador Messages postés 4720 Date d'inscription dimanche 26 février 2006 Statut Modérateur Dernière intervention 31 juillet 2021 - 10 févr. 2008 à 22:30
cs_cantador Messages postés 4720 Date d'inscription dimanche 26 février 2006 Statut Modérateur Dernière intervention 31 juillet 2021 - 10 févr. 2008 à 22:30
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/45654-copieur-de-pixels
https://codes-sources.commentcamarche.net/source/45654-copieur-de-pixels
10 févr. 2008 à 22:30
10 févr. 2008 à 10:57
:)
Je vais essayer de faire d'autres applications plus "sophistiquées" :p
10 févr. 2008 à 09:07
Calmos Carib! Plus besoin de canne, j'ai mon fauteuil à roulettes.
Je finis de trier mes cartes perforées et j'arrive...
9 févr. 2008 à 22:48
Tu diras au p'tit jeune, Japee, qu'il peut fermer l'hospice...
Moi, j't'attends comme d'hab sur le banc du parc.
Et n'oublie pas ta canne, cette fois. Parce que je ne te prête plus la mienne, nondidiou!
9 févr. 2008 à 22:23
Pour une fois qu'il y avait un lieu de rencontre pour les vétérans qui ont commencé avec le Minitel (sauf Japee, qui est bcp trop jeune)...
9 févr. 2008 à 21:31
Et arrêtez de mettre des commentaires, je ne vais jamais pouvoir supprimer cette source. ;-)
9 févr. 2008 à 19:56
9 févr. 2008 à 11:35
Oh! pardon, j'avais pas vu : les meilleurs...
7 févr. 2008 à 22:07
Quant à ton age, ce n'est pas un réel problème. Les meilleurs de ce site sont presque tous très jeunes ( sauf Japee ;), et nous avons tous commencé comme toi, en débutant.
Bienvenu dans la communauté!
7 févr. 2008 à 21:21
A plus :)
7 févr. 2008 à 21:13
"uses Jpeg;"
Si le compilateur refuse, c'est que l'unité Jpeg.pas n'est pas présente dans D3.
Ce source ne pourra hélas pas être conservé car il est d'un niveau vraiment trop... débutant.
Un exemple :
if PixelY 425 then if PixelX 431 then Timer1.Enabled := False; if PixelY 425 then if PixelX 431 then Timer2.Enabled := False; if PixelY 425 then if PixelX 431 then MessageDlg('Transfert terminé', mtInformation, [mbOK], 0);
Il est plus correct de faire :
if PixelY 425 then if PixelX 431 then
begin
Timer1.Enabled := False;
Timer2.Enabled := False;
MessageDlg('Transfert terminé', mtInformation, [mbOK], 0);
end;
Mais c'est surtout la démarche utilisée qui n'est pas appropriée, comme te le suggèrent Caribensila et Nicolas__.
Des exemples d'utilisation de Scanline sont disponibles sur le site. Florenth en a déposé un assez récemment qui est particulièrement bien fait.
N'hésite pas à participer au forum, en posant les bonnes questions qui font progresser. Je suis sûr que tu pourras très rapidement nous proposer quelque chose de valable.
A+
7 févr. 2008 à 17:52
Ciao
7 févr. 2008 à 02:37
C qd meme vachement plus rapide ...
var
x,y,maxX,maxY:integer;
begin
maxX:=Image1.Picture.Bitmap.Width;
maxY:=Image1.Picture.Bitmap.Height;
for x:=0 to maxX do
begin
for y:=0 to maxY do
begin
Image2.Canvas.Pixels[x,y]:=Image1.Canvas.Pixels[x,y];
end;
end;
image2.Refresh;
end;
Sinon pour le peu que tu fais ya aussi copyRect , draw et bcp de choses ...
Ciao
7 févr. 2008 à 01:00
allez 1 indice TJpegImage (uses JPEG )
Scanline dit precedement
essaye de donner 1 reel but a cette source parce que la ... elle n'en a pas !
Ciao
6 févr. 2008 à 22:56
Pour voir comment on modifiait »
:)))
T'as vu? Ce n'est pas difficile de modifier.
Il ne te reste plus qu'à modifier ton source en utilisant Scanline().
Tu verras, tu seras étonné par la vitesse d'exécution et ton source présentera alors un intérêt particulier...
Bon courage.