unit ColorControl;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  RXCtrls, StdCtrls, RXSpin, RXSlider, TB97, ExtCtrls, ComCtrls, RxGrdCpt;

type
  TColorForm = class(TForm)
    RedStep: TRxSpinEdit;
    GrnStep: TRxSpinEdit;
    BluStep: TRxSpinEdit;
    RxLabel3: TRxLabel;
    RxLabel2: TRxLabel;
    RxLabel4: TRxLabel;
    RxLabel5: TRxLabel;
    RedStart: TRxSpinEdit;
    GrnStart: TRxSpinEdit;
    BluStart: TRxSpinEdit;
    RxLabel6: TRxLabel;
    ColorTimer: TTimer;
    RxLabel1: TRxLabel;
    dFactor3: TRxSpinEdit;
    RedBar1: TTrackBar;
    GreenBar1: TTrackBar;
    BlueBar1: TTrackBar;
    RedSaturate: TRxSpinEdit;
    GrnSaturate: TRxSpinEdit;
    BluSaturate: TRxSpinEdit;
    RedOffset: TRxSpinEdit;
    GrnOffset: TRxSpinEdit;
    BluOffset: TRxSpinEdit;
    RxLabel9: TRxLabel;
    RxLabel10: TRxLabel;
    RedBarSaturate: TTrackBar;
    GrnBarSaturate: TTrackBar;
    BluBarSaturate: TTrackBar;
    RxGradientCaption1: TRxGradientCaption;
    //procedure Button1Click(Sender: TObject);
    procedure ColorTimerTimer(Sender: TObject);
    procedure RedStepChange(Sender: TObject);
    procedure GrnStepChange(Sender: TObject);
    procedure BluStepChange(Sender: TObject);
    procedure dFactor3Change(Sender: TObject);
    procedure RedStartChange(Sender: TObject);
    procedure GrnStartChange(Sender: TObject);
    procedure BluStartChange(Sender: TObject);
    procedure dFactor4Change(Sender: TObject);
    procedure RedBar1Change(Sender: TObject);
    procedure GreenBar1Change(Sender: TObject);
    procedure BlueBar1Change(Sender: TObject);
    procedure dFactor5Change(Sender: TObject);
    procedure RedSaturateChange(Sender: TObject);
    procedure GrnSaturateChange(Sender: TObject);
    procedure BluSaturateChange(Sender: TObject);
    procedure RedOffsetChange(Sender: TObject);
    procedure GrnOffsetChange(Sender: TObject);
    procedure BluOffsetChange(Sender: TObject);
    procedure RedBarSaturateChange(Sender: TObject);
    procedure GrnBarSaturateChange(Sender: TObject);
    procedure BluBarSaturateChange(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
    ticks: Integer;
  end;

var
  ColorForm: TColorForm;

implementation

uses MainUnit, ktaza;

{$R *.DFM}

procedure TColorForm.ColorTimerTimer(Sender: TObject);
begin
  if ticks = 0 then
  begin
    ticks := ticks + 1;
  end
  else
  begin
    ColorTimer.Enabled := False;
    ktaza.ChildApplyColors(Self);
    ticks := 0;
  end;
end;

procedure TColorForm.RedStepChange(Sender: TObject);
begin
  ticks := 0;
  ColorTimer.Enabled := True;
end;

procedure TColorForm.GrnStepChange(Sender: TObject);
begin
  ticks := 0;
  ColorTimer.Enabled := True;
end;

procedure TColorForm.dFactor4Change(Sender: TObject);
begin
  ticks := 0;
  ColorTimer.Enabled := True;
end;

procedure TColorForm.dFactor5Change(Sender: TObject);
begin
  ticks := 0;
  ColorTimer.Enabled := True;
end;

procedure TColorForm.BluStepChange(Sender: TObject);
begin
  ticks := 0;
  ColorTimer.Enabled := True;
end;

procedure TColorForm.RedSaturateChange(Sender: TObject);
begin
  ticks := 0;
  ColorTimer.Enabled := True;
end;

procedure TColorForm.GrnSaturateChange(Sender: TObject);
begin
  ticks := 0;
  ColorTimer.Enabled := True;
end;

procedure TColorForm.BluSaturateChange(Sender: TObject);
begin
  ticks := 0;
  ColorTimer.Enabled := True;
end;

procedure TColorForm.RedOffsetChange(Sender: TObject);
begin
  ticks := 0;
  ColorTimer.Enabled := True;
end;

procedure TColorForm.GrnOffsetChange(Sender: TObject);
begin
  ticks := 0;
  ColorTimer.Enabled := True;
end;

procedure TColorForm.BluOffsetChange(Sender: TObject);
begin
  ticks := 0;
  ColorTimer.Enabled := True;
end;

procedure TColorForm.dFactor3Change(Sender: TObject);
begin
  ticks := 0;
  ColorTimer.Enabled := True;
end;

procedure TColorForm.RedStartChange(Sender: TObject);
begin
  ticks := 0;
  RedBar1.Position := round(ColorForm.RedStart.Value);
  ColorTimer.Enabled := True;
end;

procedure TColorForm.GrnStartChange(Sender: TObject);
begin
  ticks := 0;
  GreenBar1.Position := round(ColorForm.GrnStart.Value);
  ColorTimer.Enabled := True;
end;

procedure TColorForm.BluStartChange(Sender: TObject);
begin
  ticks := 0;
  BlueBar1.Position := round(ColorForm.BluStart.Value);
  ColorTimer.Enabled := True;
end;

procedure TColorForm.RedBar1Change(Sender: TObject);
begin
  ticks := 0;
  RedStart.Value := RedBar1.Position;
  ColorTimer.Enabled := True;
end;

procedure TColorForm.GreenBar1Change(Sender: TObject);
begin
  ticks := 0;
  GrnStart.Value := GreenBar1.Position;
  ColorTimer.Enabled := True;
end;

procedure TColorForm.BlueBar1Change(Sender: TObject);
begin
  ticks := 0;
  BluStart.Value := BlueBar1.Position;
  ColorTimer.Enabled := True;
end;

procedure TColorForm.RedBarSaturateChange(Sender: TObject);
begin
  ticks := 0;
  RedSaturate.Value := RedBarSaturate.Position;
  ColorTimer.Enabled := True;
end;

procedure TColorForm.GrnBarSaturateChange(Sender: TObject);
begin
  ticks := 0;
  GrnSaturate.Value := GrnBarSaturate.Position;
  ColorTimer.Enabled := True;
end;

procedure TColorForm.BluBarSaturateChange(Sender: TObject);
begin
  ticks := 0;
  BluSaturate.Value := BluBarSaturate.Position;
  ColorTimer.Enabled := True;
end;

(*
procedure TColorForm.ChartButton1Click(Sender: TObject);
begin
  if Form6.Visible = True then
  begin
    Form6.Visible := False;
    Form7.Visible := False;
    Form8.Visible := False;
    Form9.Visible := False;
  end
  else
  begin
    //Form6.Visible := True;
    Form7.Visible := True;
    Form8.Visible := True;
    Form9.Visible := True;
    Form6.Visible := True;
    Form6.FormResize(Self); //  update the chart
  end;
end;
*)

end.