mainunit.pas

BussinessSkinForm入门教程.doc

unit MainUnit;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  bsSkinCtrls, bsSkinGrids, bsDBGrids, bsSkinBoxCtrls, bsdbctrls, StdCtrls,
  Mask, BusinessSkinForm, Db, DBTables, bsSkinData, Menus, bsSkinMenus,
  bsSkinHint, ComCtrls, bsSkinTabs, DBCtrls, bsMessages, bsTrayIcon;

type
  TForm1 = class(TForm)
    bsSkinPageControl1: TbsSkinPageControl;
    bsSkinTabSheet1: TbsSkinTabSheet;
    bsSkinTabSheet2: TbsSkinTabSheet;
    bsSkinPanel1: TbsSkinPanel;
    bsSkinDBGrid1: TbsSkinDBGrid;
    bsSkinScrollBar1: TbsSkinScrollBar;
    bsSkinScrollBar2: TbsSkinScrollBar;
    bsSkinDBNavigator1: TbsSkinDBNavigator;
    bsSkinDBEdit1: TbsSkinDBEdit;
    bsSkinDBMemo1: TbsSkinDBMemo;
    bsSkinDBListBox1: TbsSkinDBListBox;
    bsSkinDBComboBox1: TbsSkinDBComboBox;
    bsSkinButton1: TbsSkinButton;
    bsBusinessSkinForm1: TbsBusinessSkinForm;
    DataSource1: TDataSource;
    Table1: TTable;
    bsSkinData1: TbsSkinData;
    OD: TOpenDialog;
    bsSkinPopupMenu1: TbsSkinPopupMenu;
    N1: TMenuItem;
    LoadSkin1: TMenuItem;
    Loadstoredskin1: TMenuItem;
    N2: TMenuItem;
    Table2: TTable;
    DataSource2: TDataSource;
    bsSkinHint1: TbsSkinHint;
    bsSkinGroupBox1: TbsSkinGroupBox;
    bsSkinDBLookupListBox1: TbsSkinDBLookupListBox;
    Table3: TTable;
    DataSource3: TDataSource;
    bsSkinTextLabel2: TbsSkinTextLabel;
    bsSkinMessage1: TbsSkinMessage;
    bsTrayIcon1: TbsTrayIcon;
    bsSkinCheckRadioBox1: TbsSkinCheckRadioBox;
    bsCompressedStoredSkin1: TbsCompressedStoredSkin;
    bsSkinCheckRadioBox2: TbsSkinCheckRadioBox;
    bsSkinGroupBox2: TbsSkinGroupBox;
    bsSkinDBNavigator2: TbsSkinDBNavigator;
    bsSkinDBGrid2: TbsSkinDBGrid;
    bsSkinScrollBar3: TbsSkinScrollBar;
    bsSkinScrollBar4: TbsSkinScrollBar;
    Table3VendorNo: TFloatField;
    Table3VendorName: TStringField;
    Table3Address1: TStringField;
    Table3City: TStringField;
    Table3State: TStringField;
    Table3Zip: TStringField;
    Table3Country: TStringField;
    Table3Phone: TStringField;
    Table3FAX: TStringField;
    Table3Preferred: TBooleanField;
    procedure bsSkinButton1Click(Sender: TObject);
    procedure LoadSkin1Click(Sender: TObject);
    procedure Loadstoredskin1Click(Sender: TObject);
    procedure bsSkinCheckRadioBox1Click(Sender: TObject);
    procedure bsSkinCheckRadioBox2Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.DFM}

procedure TForm1.bsSkinButton1Click(Sender: TObject);
var
  Ext: String;
begin
  if OD.Execute
  then
    begin
      Ext := ExtractFileExt(OD.FileName);
      if Ext = '.ini'
      then
        bsSkinData1.LoadFromFile(OD.FileName)
      else
      if Ext = '.bskn'
      then
        bsSkinData1.LoadFromCompressedFile(OD.FileName);
    end;
end;

procedure TForm1.LoadSkin1Click(Sender: TObject);
begin
  if OD.Execute then bsSkinData1.LoadFromFile(OD.FileName);
end;

procedure TForm1.Loadstoredskin1Click(Sender: TObject);
begin
  bsSkinData1.CompressedStoredSkin := bsCompressedStoredSkin1;
end;

procedure TForm1.bsSkinCheckRadioBox1Click(Sender: TObject);
begin
  bsSkinDBNavigator1.AdditionalGlyphs := bsSkinCheckRadioBox1.Checked;
  bsSkinDBNavigator2.AdditionalGlyphs := bsSkinCheckRadioBox1.Checked;
end;

procedure TForm1.bsSkinCheckRadioBox2Click(Sender: TObject);
begin
  if bsSkinCheckRadioBox2.Checked
  then
    bsSkinDBGrid1.Options := bsSkinDBGrid1.Options + [dgMultiSelect]
  else
    bsSkinDBGrid1.Options := bsSkinDBGrid1.Options - [dgMultiSelect];
  bsSkinDBGrid1.Invalidate;  
end;

end.