Реферат Основи стегоаналізу

55]. p align="justify">. Збільшуємо Значення елемента масив [Значення] на 1. P align = "ju stify"> Кінець циклу.

отриманий масив и являє собою гістограму, елєменти масиву - означаються висота стовпчіків.

unit untHistogramme;

, Forms, ExtCtrls, Controls, StdCtrls, Classes,, ComCtrls;

= class (TForm): TBevel;: TLabel;: TButton;: TListBox;: TGroupBox;: TImage;: TImage;: TImage;: TLabel;: TLabel;: TLabel;: TTrackBar; FormShow (Sender: TObject); lstImageDrawItem (Control: TWinControl; Index: Integer;: TRect; State: TOwnerDrawState); lstImageClick (Sender: TObject); FormCreate (Sender: TObject); TrackBarChange (Sender: TObject);

{Dйclarations privйes}

{Dйclarations publiques}: Pointer;

RafraichirListeImages; AfficherHistogrammes;;

: TfrmHistogramme;

,, untPrincipale;

{$ R *. DFM}

{TfrmHistogramme}

TfrmHistogramme.RafraichirListeImages;: Integer;. Clear; NumImage: = 0 to ListeImages.Count - 1.Items.Add (TfrmMDIImage (ListeImages.Items [NumImage]). Caption); end; TfrmHistogramme. FormShow (Sender: TObject);. Canvas.Rectangle (0, 0, 256, 256);. Canvas.Rectangle (0, 0, 256, 256);. Canvas.Rectangle (0, 0, 256, 256);

;;

TfrmHistogramme.lstImageDrawItem (Control: TWinControl;: Integer; Rectangle: TRect; State: TOwnerDrawState);

CopieImage (CanvasDest: TCanvas; Rect: TRect; BitmapSource: TBitmap);, Y: Integer; X: = Rect.Left to Rect.Right doY: = Rect.Top to Rect.Bottom do. Pixels [X, Y]: = BitmapSource.Canvas.Pixels [(X - Rect.Left) * (BitmapSource.Width - 1) div (Rect.Right - Rect.Left), (Y - Rect.Top) * (BitmapSource . Height - 1) div (Rect.Bottom - Rect.Top)];;: TBitmap;: = TBitmap.Create;. Width: = Rectangle.Right - Rectangle.Left;. Height: = Rectangle.Bottom - Rectangle.Top ;

. Canvas.Font: = lstImage.Canvas.Font;. Canvas.Brush: = lstImage.Canvas.Brush;. Canvas.Pen: = lstImage.Canvas.Pen;

. Canvas.FillRect (Rect (0, 0, Rectangle.Right - Rectangle.Left, Rectangle.Bottom - Rectangle.Top));

Index

. Canvas.CopyRect (Rectangle, Bitmap.Canvas, Rect (0, 0, Rectangle.Right - Rectangle.Left, Rectangle.Bottom - Rectangle.Top));. Free;;