mainunit.pas

BusinessSkinForm教案与实例

unit MainUnit;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  BusinessSkinForm, bsSkinCtrls, ChildUnit, Menus, bsSkinData,
  bsTrayIcon, ImgList, StdCtrls, bsUtils;

type
  TForm1 = class(TForm)
    bsBusinessSkinForm1: TbsBusinessSkinForm;
    bsSkinMainMenuBar1: TbsSkinMainMenuBar;
    MainMenu1: TMainMenu;
    N12: TMenuItem;
    NewItem: TMenuItem;
    LoadSkinItem: TMenuItem;
    Noskin1: TMenuItem;
    N23: TMenuItem;
    CloseItem: TMenuItem;
    Windows1: TMenuItem;
    RestoreItem: TMenuItem;
    MaximizeItem: TMenuItem;
    MinimizeItem: TMenuItem;
    CloseAll1: TMenuItem;
    N1: TMenuItem;
    TileItem: TMenuItem;
    CascadeItem: TMenuItem;
    bsSkinData1: TbsSkinData;
    OD: TOpenDialog;
    bsTrayIcon1: TbsTrayIcon;
    ImageList1: TImageList;
    bsCompressedStoredSkin1: TbsCompressedStoredSkin;
    N2: TMenuItem;
    procedure NewItemClick(Sender: TObject);
    procedure LoadSkinItemClick(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure Noskin1Click(Sender: TObject);
    procedure CloseItemClick(Sender: TObject);
    procedure RestoreItemClick(Sender: TObject);
    procedure MaximizeItemClick(Sender: TObject);
    procedure MinimizeItemClick(Sender: TObject);
    procedure CloseAll1Click(Sender: TObject);
    procedure TileItemClick(Sender: TObject);
    procedure CascadeItemClick(Sender: TObject);
  private
    { Private declarations }
    Count: integer;
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation
   Uses ShellAPI;
{$R *.DFM}

procedure TForm1.NewItemClick(Sender: TObject);
var
  Child: TChildForm;
begin
  { New Child }
  Inc(Count);
  Child := TChildForm.Create(Self);
  Child.Caption := Child.Caption + ' ' + IntToStr(Count);
end;

procedure TForm1.LoadSkinItemClick(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.FormCreate(Sender: TObject);
var
  Path: String;
begin
  Path := ExtractFilePath(ParamStr(0));
  OD.InitialDir := Path;
  Count := 0;
  bsBusinessSkinForm1.WindowState := wsMaximized;
end;

procedure TForm1.Noskin1Click(Sender: TObject);
begin
  bsSkinData1.ClearSkin;
end;

procedure TForm1.CloseItemClick(Sender: TObject);
begin
  Close;
end;

procedure TForm1.RestoreItemClick(Sender: TObject);
begin
  bsBusinessSkinForm1.RestoreAll;
end;

procedure TForm1.MaximizeItemClick(Sender: TObject);
begin
  bsBusinessSkinForm1.MaximizeAll;
end;

procedure TForm1.MinimizeItemClick(Sender: TObject);
begin
  bsBusinessSkinForm1.MinimizeAll;
end;

procedure TForm1.CloseAll1Click(Sender: TObject);
begin
  bsBusinessSkinForm1.CloseAll;
end;

procedure TForm1.TileItemClick(Sender: TObject);
begin
  bsBusinessSkinForm1.Tile;
end;

procedure TForm1.CascadeItemClick(Sender: TObject);
begin
  bsBusinessSkinForm1.Cascade;
end;

end.