unitscrollboxes.pas

I mComputermaster programmisDelphi+pascal

unit UnitScrollBoxes;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, 
  sCheckbox, ExtCtrls, sPanel, sGroupBox, sTrackBar, Mask, sCustomComboEdit, 
  sCurrEdit, sCurrencyEdit, StdCtrls, sMemo, sEdit, sSpinEdit, sScrollBox, 
  sFrameAdapter, ComCtrls, sPageControl, sTabControl, sButton, sMaskEdit,
  sGauge, sComboBox;

type
  TFrameScrollBoxes = class(TFrame)
    sScrollBox1: TsScrollBox;
    sSpinEdit2: TsSpinEdit;
    sMemo2: TsMemo;
    sCurrencyEdit2: TsCurrencyEdit;
    sCurrencyEdit3: TsCurrencyEdit;
    sSpinEdit3: TsSpinEdit;
    sTrackBar2: TsTrackBar;
    sButton2: TsButton;
    sButton3: TsButton;
    sGroupBox3: TsGroupBox;
    sCheckBox10: TsCheckBox;
    sCheckBox11: TsCheckBox;
    sCheckBox12: TsCheckBox;
    sCheckBox13: TsCheckBox;
    sCheckBox14: TsCheckBox;
    sFrameAdapter1: TsFrameAdapter;
    sPageControl1: TsPageControl;
    sTabSheet1: TsTabSheet;
    sTabSheet2: TsTabSheet;
    sTabSheet3: TsTabSheet;
    sTabSheet4: TsTabSheet;
    sTabSheet5: TsTabSheet;
    sTabSheet6: TsTabSheet;
    sPanel1: TsPanel;
    sButton1: TsButton;
    sButton4: TsButton;
    sPanel2: TsPanel;
    sPanel3: TsPanel;
    sGauge1: TsGauge;
    sButton5: TsButton;
    sComboBox1: TsComboBox;
    procedure sTrackBar2Change(Sender: TObject);
    procedure sComboBox1Change(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

implementation

{$R *.DFM}

procedure TFrameScrollBoxes.sTrackBar2Change(Sender: TObject);
begin
  sGauge1.Progress := sTrackBar2.Position;
end;

procedure TFrameScrollBoxes.sComboBox1Change(Sender: TObject);
begin
  sScrollBox1.SkinData.SkinSection := sComboBox1.Text;
end;

end.