new source
Télécharger le zip
ke veux effecture une rotation de 1,3 radians... !
Ca a l'air intéressant.Il faut impérativement que tu enlèves du zip les fichier inutiles (*.dcu, *.~ddp, *.~dfm, *.~pas, et optionnellement *.cfg et *.dof).Le fichier "TraitementImage.~dfm" à lui tout seul pèse 1 708 639 octets !
Fait le en VB.net je suis preneur.
Salut Papeo !!!Dsl mais je ne suis que étudiant en 1ere année de GEII et je n'apprendrai malheureusement pas le VB. voila voila dsl...
Pas mal... même si l'utilisation de Pixel[...] est assez lente.Moi, j'aime bien "simplifier le code", alors je te propose de remplacer++++++++++++++++++++++begin if Sens_NB.Text='->' then Sens_NB.Text:='<-' else Sens_NB.Text:='->'; end;++++++++++++++++++++++par++++++++++++++++++++++const cSensBouton: array[0..1] of String = ('->','<-');Begin Sens_NB.Text:= cSensBouton[ ord(Sens_NB.Text = '->') ]; End;++++++++++++++++++++++
Pas mal pour un debut...mais alors, que c'est lent, toutes ces copies d'images pixel par pixel.Pourquoi superposer 3 ou 4 TImage. Un seul suffit pour afficher, les autres peuvent très bien être des TBitmap.Cadeau : une fonction pour mettre une image en négatif :unction TForm.Negatif(MonBitmap : TBitmap) : TBitmap;var bmp : TBitmap;begin bmp := TBitmap.Create; bmp.Width :=MonBitmap.Width; bmp.Height :=MonBitmap.Height; bmp.PixelFormat := MonBitmap.PixelFormat; BitBlt(bmp.Canvas.Handle, 0, 0, bmp.Width, bmp.Height, MonBitmap.Canvas.Handle, 0, 0, SRCINVERT ); Result := bmp; bmp.Free;end;
Sinon, il ya JansFX....
@METANIL : ????!
http://jansfreeware.com/janfx.zip, si vous voulez apprendre, utiliser et comprendre les manipulations de bitmap, via scanlines...
Merci METANIL, fallait le dire tout de suite.
Au début, je l'ai hurlé, mais à force je me suis tût !
Trés bon programme pour un débutant ! Mais c'est vrai qu'il est affreusement lent Oo
Baucoup de choses
Se souvenir du profil
Mot de passe oublié ? / Activation de compteCréer un compte
1 872 737 membres 168 nouveaux aujourd'hui 16 150 membres club