testform.pas

强大的皮肤控件 能做出美观的界面

unit TestForm;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  Menus, se_controls, KsSkinMenus, KsSkinForms, KsSkinEngine,
  KsSkinToolBars, KsSkinControlBars, Grids, KsSkinGrids, KsSkinButtons,
  KsSkinSpeedButtons, KsSkinSpinButtons, KsSkinEdits, KsSkinComboBoxs,
  KsSkinListBoxs, KsSkinCheckBoxs, KsSkinGroupBoxs, KsSkinPanels,
  KsSkinLabels, KsSkinTrackBars, KsSkinProgress, KsSkinScrollBars,
  KsSkinTabs, KsSkinItems, ksskinstatusbar, ksskinstdcontrol,
  ksskininplaceedit, KsSkinSpinEdit, ksskinheader;
  
type
  TfrmTest = class(TForm)
    SeSkinMenuBar1: TSeSkinMenuBar;
    CustomItem1: TSeSkinItem;
    CustomItem2: TSeSkinItem;
    CustomItem3: TSeSkinItem;
    CustomItem4: TSeSkinItem;
    CustomItem5: TSeSkinItem;
    CustomItem6: TSeSkinItem;
    CustomItem7: TSeSkinItem;
    CustomItem8: TSeSkinItem;
    CustomItem9: TSeSkinItem;
    CustomItem10: TSeSkinItem;
    CustomItem11: TSeSkinItem;
    CustomItem12: TSeSkinItem;
    SE: TSeSkinEngine;
    SeSkinForm1: TSeSkinForm;
    SeSkinTabControl1: TSeSkinTabControl;
    TSeCustomTabSheet1: TSeCustomTabSheet;
    TSeCustomTabSheet2: TSeCustomTabSheet;
    TSeCustomTabSheet3: TSeCustomTabSheet;
    TSeCustomTabSheet4: TSeCustomTabSheet;
    TSeCustomTabSheet5: TSeCustomTabSheet;
    TSeCustomTabSheet6: TSeCustomTabSheet;
    SeSkinScrollBar2: TSeSkinScrollBar;
    SeSkinScrollBar1: TSeSkinScrollBar;
    SeSkinProgressBar1: TSeSkinProgressBar;
    SeSkinProgressBar2: TSeSkinProgressBar;
    SeSkinTrackBar2: TSeSkinTrackBar;
    SeSkinTrackBar1: TSeSkinTrackBar;
    SeSkinTrackBar3: TSeSkinTrackBar;
    SeSkinTrackBar4: TSeSkinTrackBar;
    SeSkinPanel1: TSeSkinPanel;
    SeSkinRadioButton1: TSeSkinRadioButton;
    SeSkinRadioButton2: TSeSkinRadioButton;
    SeSkinPanel2: TSeSkinPanel;
    SeSkinGroupBox1: TSeSkinGroupBox;
    SeSkinCheckBox1: TSeSkinCheckBox;
    SeSkinCheckBox2: TSeSkinCheckBox;
    SeSkinCheckBox3: TSeSkinCheckBox;
    SeSkinListBox1: TSeSkinListBox;
    SeSkinTrackBar5: TSeSkinTrackBar;
    SeSkinTrackBar6: TSeSkinTrackBar;
    SeSkinTabControl3: TSeSkinTabControl;
    SeSkinListBox2: TSeSkinListBox;
    SeSkinComboBox1: TSeSkinComboBox;
    SeSkinComboBox2: TSeSkinComboBox;
    SeSkinSpeedButton1: TSeSkinSpeedButton;
    SeSkinSpeedButton2: TSeSkinSpeedButton;
    SeSkinSpeedButton3: TSeSkinSpeedButton;
    SeSkinSpeedButton4: TSeSkinSpeedButton;
    SeSkinButton1: TSeSkinButton;
    NgSpinButton1: TSeSkinSpinButton;
    SeSkinPopupMenu1: TSeSkinPopupMenu;
    CustomItem13: TSeSkinItem;
    CustomItem14: TSeSkinItem;
    CustomItem15: TSeSkinItem;
    CustomItem16: TSeSkinItem;
    CustomItem17: TSeSkinItem;
    SeSkinButton2: TSeSkinButton;
    SeSkinButton3: TSeSkinButton;
    SeSkinEdit1: TSeSkinEdit;
    SeSkinSpinButton1: TSeSkinSpinButton;
    SeSkinEdit2: TSeSkinEdit;
    SeSkinEdit4: TSeSkinEdit;
    SeSkinEdit5: TSeSkinEdit;
    SeSkinEdit6: TSeSkinEdit;
    SeSkinStringGrid1: TSeSkinStringGrid;
    SeSkinControlBar1: TSeSkinControlBar;
    SeSkinToolBar1: TSeSkinToolBar;
    SeSkinSpeedButton5: TSeSkinSpeedButton;
    SeSkinSpeedButton6: TSeSkinSpeedButton;
    KsSpeedDivider1: TSeSpeedDivider;
    SeSkinSpeedButton7: TSeSkinSpeedButton;
    KsSpeedDivider2: TSeSpeedDivider;
    SeSkinSpeedButton8: TSeSkinSpeedButton;
    SeSkinSpeedButton9: TSeSkinSpeedButton;
    SeSkinSpeedButton10: TSeSkinSpeedButton;
    SeSkinMenuBar2: TSeSkinMenuBar;
    File1: TSeSkinItem;
    New1: TSeSkinItem;
    Open1: TSeSkinItem;
    Save1: TSeSkinItem;
    SaveAs1: TSeSkinItem;
    N2: TSeSkinItem;
    Print1: TSeSkinItem;
    PrintSetup1: TSeSkinItem;
    N1: TSeSkinItem;
    Exit1: TSeSkinItem;
    Edit1: TSeSkinItem;
    Undo1: TSeSkinItem;
    Repeatcommand1: TSeSkinItem;
    N5: TSeSkinItem;
    Cut1: TSeSkinItem;
    Copy1: TSeSkinItem;
    Paste1: TSeSkinItem;
    PasteSpecial1: TSeSkinItem;
    N4: TSeSkinItem;
    Find1: TSeSkinItem;
    Replace1: TSeSkinItem;
    GoTo1: TSeSkinItem;
    N3: TSeSkinItem;
    Links1: TSeSkinItem;
    Object1: TSeSkinItem;
    Help1: TSeSkinItem;
    Contents1: TSeSkinItem;
    SearchforHelpOn1: TSeSkinItem;
    HowtoUseHelp1: TSeSkinItem;
    About1: TSeSkinItem;
    SeSkinScrollBar3: TSeSkinScrollBar;
    SeSkinScrollBar4: TSeSkinScrollBar;
    KsSpeedDivider3: TSeSpeedDivider;
    SeSkinSpeedButton11: TSeSkinSpeedButton;
    SeSkinSpeedButton12: TSeSkinSpeedButton;
    KsSpeedDivider4: TSeSpeedDivider;
    SeSkinSpeedButton13: TSeSkinSpeedButton;
    SeSkinSpeedButton14: TSeSkinSpeedButton;
    SeSkinLabel1: TSeSkinLabel;
    SeSkinStatusBar1: TSeSkinStatusBar;
    SeSkinHeaderControl1: TSeSkinHeaderControl;
    SeSkinSpinEdit1: TSeSkinSpinEdit;
    SeSkinEditButton1: TSeSkinEditButton;
    SeSkinScrollBox1: TSeSkinScrollBox;
    SeSkinGroupBox2: TSeSkinGroupBox;
    procedure CustomItem6Click(Sender: TObject);
    procedure SeSkinTrackBar1Change(Sender: TObject);
    procedure SeSkinScrollBar2Change(Sender: TObject);
    procedure SeSkinTrackBar2Change(Sender: TObject);
    procedure SeSkinScrollBar1Change(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  frmTest: TfrmTest;

implementation

{$R *.DFM}

procedure TfrmTest.CustomItem6Click(Sender: TObject);
begin
  close;
end;

procedure TfrmTest.SeSkinTrackBar1Change(Sender: TObject);
begin
  SeSkinProgressBar1.Position:= SeSkinTrackBar1.Position;
end;

procedure TfrmTest.SeSkinScrollBar2Change(Sender: TObject);
begin
  SeSkinProgressBar1.Position:= SeSkinScrollBar2.Position;
end;

procedure TfrmTest.SeSkinTrackBar2Change(Sender: TObject);
begin
  SeSkinProgressBar2.Position:= SeSkinTrackBar2.Position;
end;

procedure TfrmTest.SeSkinScrollBar1Change(Sender: TObject);
begin
    SeSkinProgressBar2.Position:= SeSkinScrollBar1.Position;
end;

end.