ctrls.pas

来自「小区水费管理系统源代码水费收费管理系统 水费收费管理系统」· PAS 代码 · 共 51 行

unit ctrls;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  se_controls, KsSkinForms, KsSkinTrackBars, KsSkinProgress,
  KsSkinCheckBoxs, KsSkinGroupBoxs, KsSkinButtons, KsSkinScrollBars;

type
  TfrmControls = class(TForm)
    NgButton1: TSeSkinButton;
    NgButton2: TSeSkinButton;
    NgButton3: TSeSkinButton;
    NgGroupBox1: TSeSkinGroupBox;
    NgCheckBox1: TSeSkinCheckBox;
    NgCheckBox2: TSeSkinCheckBox;
    NgCheckBox3: TSeSkinCheckBox;
    NgScrollBar1: TSeSkinScrollBar;
    SeSkinForm1: TSeSkinForm;
    NgProgressBar1: TSeSkinProgressBar;
    NgProgressBar2: TSeSkinProgressBar;
    NgTrackBar1: TSeSkinTrackBar;
    NgTrackBar2: TSeSkinTrackBar;
    SeSkinScrollBar1: TSeSkinScrollBar;
    SeSkinRadioButton1: TSeSkinRadioButton;
    SeSkinRadioButton2: TSeSkinRadioButton;
    procedure NgTrackBar1Change(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  frmControls: TfrmControls;

implementation

uses Main;

{$R *.DFM}

procedure TfrmControls.NgTrackBar1Change(Sender: TObject);
begin
  NgProgressBar1.Position := TSeSkinTrackBar(Sender).Position;
  NgProgressBar2.Position := TSeSkinTrackBar(Sender).Position;
end;

end.