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.