59 lines
1.4 KiB
Plaintext
59 lines
1.4 KiB
Plaintext
unit Histogram;
|
|
|
|
interface
|
|
|
|
uses
|
|
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
|
|
HistogramBox, ExtCtrls, ImageEnProc, StdCtrls, hyieutils, iexBitmaps, hyiedefs, iesettings;
|
|
|
|
type
|
|
TfrmHistogram = class(TForm)
|
|
Panel1: TPanel;
|
|
ImageEnProc1: TImageEnProc;
|
|
HistogramBox1: THistogramBox;
|
|
Label1: TLabel;
|
|
ComboBox1: TComboBox;
|
|
Label2: TLabel;
|
|
ComboBox2: TComboBox;
|
|
Button1: TButton;
|
|
procedure ComboBox1Change(Sender: TObject);
|
|
procedure ComboBox2Change(Sender: TObject);
|
|
procedure FormCreate(Sender: TObject);
|
|
private
|
|
{ Private declarations }
|
|
public
|
|
{ Public declarations }
|
|
end;
|
|
|
|
implementation
|
|
|
|
{$R *.DFM}
|
|
|
|
// Channel
|
|
procedure TfrmHistogram.ComboBox1Change(Sender: TObject);
|
|
begin
|
|
case ComboBox1.ItemIndex of
|
|
0: HistogramBox1.HistogramKind := [hkGray];
|
|
1: HistogramBox1.HistogramKind := [hkRed, hkGreen, hkBlue];
|
|
2: HistogramBox1.HistogramKind := [hkRed];
|
|
3: HistogramBox1.HistogramKind := [hkGreen];
|
|
4: HistogramBox1.HistogramKind := [hkBlue];
|
|
5: HistogramBox1.HistogramKind := [hkHue];
|
|
end;
|
|
end;
|
|
|
|
// Style
|
|
procedure TfrmHistogram.ComboBox2Change(Sender: TObject);
|
|
begin
|
|
HistogramBox1.HistogramStyle := THistogramStyle( ComboBox2.ItemIndex );
|
|
end;
|
|
|
|
procedure TfrmHistogram.FormCreate(Sender: TObject);
|
|
begin
|
|
ComboBox1.ItemIndex := 0;
|
|
ComboBox2.ItemIndex := 2;
|
|
ComboBox2Change( nil );
|
|
end;
|
|
|
|
end.
|