LOGICIEL DE TRAITEMENT D'IMAGES
metanil
Messages postés
51
Date d'inscription
mercredi 27 avril 2005
Statut
Membre
Dernière intervention
13 novembre 2007
-
7 nov. 2007 à 19:59
jackalunion Messages postés 128 Date d'inscription mercredi 8 janvier 2003 Statut Membre Dernière intervention 14 juillet 2008 - 22 juin 2008 à 18:00
jackalunion Messages postés 128 Date d'inscription mercredi 8 janvier 2003 Statut Membre Dernière intervention 14 juillet 2008 - 22 juin 2008 à 18:00
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/44636-logiciel-de-traitement-d-images
https://codes-sources.commentcamarche.net/source/44636-logiciel-de-traitement-d-images
22 juin 2008 à 18:00
11 nov. 2007 à 03:43
8 nov. 2007 à 18:59
8 nov. 2007 à 18:48
8 nov. 2007 à 17:12
8 nov. 2007 à 17:09
8 nov. 2007 à 16:39
8 nov. 2007 à 16:30
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;
8 nov. 2007 à 13:36
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;
++++++++++++++++++++++
8 nov. 2007 à 12:46
Dsl mais je ne suis que étudiant en 1ere année de GEII et je n'apprendrai malheureusement pas le VB. voila voila dsl...
8 nov. 2007 à 12:28
7 nov. 2007 à 20:56
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 !
7 nov. 2007 à 19:59