unitscrolls.pas

I mComputermaster programmisDelphi+pascal

unit UnitScrolls;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  sScrollBar, sGauge, sTrackBar, sFrameAdapter, ComCtrls, StdCtrls,
  sComboBox, acProgressBar;

type
  TFrameScrolls = class(TFrame)
    sGauge1: TsGauge;
    sTrackBar1: TsTrackBar;
    sScrollBar1: TsScrollBar;
    sScrollBar3: TsScrollBar;
    sGauge2: TsGauge;
    sComboBox1: TsComboBox;
    sComboBox2: TsComboBox;
    sProgressBar1: TsProgressBar;
    sTrackBar2: TsTrackBar;
    sProgressBar2: TsProgressBar;
    sFrameAdapter1: TsFrameAdapter;
    procedure sScrollBar2Change(Sender: TObject);
    procedure sTrackBar1Change(Sender: TObject);
    procedure sComboBox2Change(Sender: TObject);
    procedure sComboBox1Change(Sender: TObject);
  end;

implementation

uses MainUnit;

{$R *.DFM}

procedure TFrameScrolls.sScrollBar2Change(Sender: TObject);
begin
  if csLoading in TComponent(Sender).ComponentState then Exit;
  sGauge1.Progress := TsScrollBar(Sender).Position;
  if Sender = sScrollBar1 then sScrollBar3.Position := sGauge1.Progress else
  if Sender = sScrollBar3 then sScrollBar1.Position := sGauge1.Progress;

  sTrackBar1.Position  := sGauge1.Progress;
  sTrackBar2.Position  := sGauge1.Progress;

  sProgressBar1.Position := sGauge1.Progress;
  sProgressBar2.Position := sGauge1.Progress;
  sGauge2.Progress := sGauge1.Progress;
  Mainform.sGauge3.Progress := sGauge1.Progress;
end;

procedure TFrameScrolls.sTrackBar1Change(Sender: TObject);
begin
  if csLoading in TComponent(Sender).ComponentState then Exit;
  if (Sender is TsTrackBar) then sGauge1.Progress := TsTrackBar(Sender).Position;
  sTrackBar1.Position  := sGauge1.Progress;
  sTrackBar2.Position  := sGauge1.Progress;
  sScrollBar1.Position := sGauge1.Progress;
  sScrollBar3.Position := sGauge1.Progress;
  sProgressBar1.Position := sGauge1.Progress;
  sProgressBar2.Position := sGauge1.Progress;
  sGauge2.Progress := sGauge1.Progress;
  Mainform.sGauge3.Progress := sGauge1.Progress;
end;

procedure TFrameScrolls.sComboBox2Change(Sender: TObject);
begin
  sGauge1.ProgressSkin := sComboBox2.Text;
  sGauge2.ProgressSkin := sComboBox2.Text;
  sProgressBar1.ProgressSkin := sComboBox2.Text;
  sProgressBar2.ProgressSkin := sComboBox2.Text;
end;

procedure TFrameScrolls.sComboBox1Change(Sender: TObject);
begin
  sGauge1.Skindata.SkinSection := sComboBox1.Text;
  sGauge2.Skindata.SkinSection := sComboBox1.Text;
  sProgressBar1.Skindata.SkinSection := sComboBox1.Text;
  sProgressBar2.Skindata.SkinSection := sComboBox1.Text;
end;

end.