55 lines
1.0 KiB
Plaintext
55 lines
1.0 KiB
Plaintext
unit ushowdata;
|
|
|
|
interface
|
|
|
|
uses
|
|
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
|
|
StdCtrls;
|
|
|
|
type
|
|
TFShowValues = class(TForm)
|
|
ListBox1: TListBox;
|
|
Label1: TLabel;
|
|
Label2: TLabel;
|
|
ListBox2: TListBox;
|
|
Label3: TLabel;
|
|
ListBox3: TListBox;
|
|
Label4: TLabel;
|
|
ListBox4: TListBox;
|
|
procedure FormActivate(Sender: TObject);
|
|
private
|
|
{ Private declarations }
|
|
public
|
|
{ Public declarations }
|
|
end;
|
|
|
|
var
|
|
FShowValues: TFShowValues;
|
|
|
|
implementation
|
|
|
|
uses umain,imageenproc;
|
|
|
|
{$R *.DFM}
|
|
|
|
procedure TFShowValues.FormActivate(Sender: TObject);
|
|
var
|
|
hist:THistogram;
|
|
i:integer;
|
|
begin
|
|
MainForm.ImageEnView1.Proc.GetHistogram( @hist );
|
|
listbox1.Clear;
|
|
for i:=0 to 255 do
|
|
begin
|
|
listbox1.Items.Add( inttostr(i)+' -> '+inttostr(hist[i].Gray) );
|
|
listbox2.Items.Add( inttostr(i)+' -> '+inttostr(hist[i].R) );
|
|
listbox3.Items.Add( inttostr(i)+' -> '+inttostr(hist[i].G) );
|
|
listbox4.Items.Add( inttostr(i)+' -> '+inttostr(hist[i].B) );
|
|
end;
|
|
end;
|
|
|
|
|
|
|
|
|
|
end.
|