align="justify"> TfrmHistogramme.lstImageClick (Sender: TObject);: = ListeImages.Items [lstImage.ItemIndex];;;
TfrmHistogramme.AfficherHistogrammes;: Integer;. Canvas.Rectangle (0, 0, 256, 256);. Canvas.Rectangle (0, 0, 256, 256);. Canvas.Rectangle (0, 0, 256, 256); NumCouleur: = 0 to 255 do.Canvas.MoveTo (NumCouleur, 255);. Canvas.MoveTo (NumCouleur, 255);. Canvas.MoveTo (NumCouleur, 255);
. Canvas.LineTo (NumCouleur, 255 - Round (TfrmMDIImage (Image). CalcImage.Histogramme [NumCouleur]. Rouge/Sqr (TrackBar.Position/5)));. Canvas.LineTo (NumCouleur , 255 - Round (TfrmMDIImage (Image). CalcImage.Histogramme [NumCouleur]. Vert/Sqr (TrackBar.Position/5)));. Canvas.LineTo (NumCouleur, 255 - Round (TfrmMDIImage (Image). CalcImage.Histogramme [ NumCouleur]. Bleu/Sqr (TrackBar.Position/5)));;;
TfrmHistogramme.FormCreate (Sender: TObject);. Canvas.Brush.Color: = clBlack;. Canvas.Brush.Color: = clBlack;. Canvas.Brush.Color: = clBlack;
. Canvas.Pen.Color: = clRed;. Canvas.Pen.Color: = clGreen;. Canvas.Pen.Color: = clBlue;; TfrmHistogramme.TrackBarChange (Sender: TObject);;; TCalcImage.CalculerHistogramme;, Y: Integer;: Integer;. ChangeStatus ('Calcul de l'' histogramme de l'' image'); NumCouleur: = 0 to 255 do [NumCouleur]. Rouge: = 0; [NumCouleur]. Vert: = 0; [NumCouleur]. Bleu: = 0;;
. ProgressBar.Max: = TailleX - 1; X: = 0 to TailleX - 1 do.ProgressBar.Position: = X; Y: = 0 to TailleY - 1 do (Histogramme [LimiteCouleur (Image [X, Y]. Rouge)]. Rouge); Inc (Histogramme [LimiteCouleur (Image [X, Y]. Vert)]. Vert); Inc (Histogramme [LimiteCouleur (Image [X, Y]. Bleu)]. Bleu);;;; TCalcImage.ChangeDimensions (X, Y: Integer);: = X;: = Y;
(Image, FTailleX, FTailleY);;
TCalcImage.ChangeTailleX (const Value: Integer);: = Value;
(Image, FTailleX, FTailleY);;
TCalcImage.ChangeTailleY (const Value: Integer);: = Value;
(Image, FTailleX, FTailleY);
;
TCalcImage.Create;;;
TCalcImage.Destroy;;; CouleurToColor (Couleur: TCouleur): TColor;: = LimiteCouleur (Couleur.Rouge) or (LimiteCouleur (Couleur.Vert) shl 8) or (LimiteCouleur (Couleur.Bleu) shl 16);;
TfrmMDIImage.AnalyseImage;, Y: Integer;: TColor;. ChangeStatus ('Analyse de l'' image');. ProgressBar.Max: = CalcImage.TailleX - 1; X: = 0 to CalcImage.TailleX - 1 do.ProgressBar.Position: = X; Y: = 0 to CalcImage.TailleY - 1 doCalcImage.Image [X, Y] do: = imgImage.Canvas.Pixels [X, Y];: = (Couleur and $ 000000FF);: = (Couleur and $ 0000FF00) shr 8;: = (Couleur and $ 00FF0000) shr 16;;;;
TfrmMDIImage.EnregistrerImage (NomFichier: string);. Picture.SaveToFile (NomFichier);;
TfrmMDIIm...
