ctrls.pas

来自「themeengine6源码」· PAS 代码 · 共 50 行

unit ctrls;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  te_controls;

type
  TfrmControls = class(TForm)
    NgButton1: TTeButton;
    NgButton2: TTeButton;
    NgButton3: TTeButton;
    NgGroupBox1: TTeGroupBox;
    NgCheckBox1: TTeCheckBox;
    NgCheckBox2: TTeCheckBox;
    NgCheckBox3: TTeCheckBox;
    NgScrollBar1: TTeScrollBar;
    SeSkinForm1: TTeForm;
    NgProgressBar1: TTeProgressBar;
    NgProgressBar2: TTeProgressBar;
    NgTrackBar1: TTeTrackBar;
    NgTrackBar2: TTeTrackBar;
    SeSkinScrollBar1: TTeScrollBar;
    SeSkinRadioButton1: TTeRadioButton;
    SeSkinRadioButton2: TTeRadioButton;
    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 := TTeTrackBar(Sender).Position;
  NgProgressBar2.Position := TTeTrackBar(Sender).Position;
end;

end.