mainunit.pas

BussinessSkinForm入门教程.doc

    bsSkinColorDialog1: TbsSkinColorDialog;
    N10: TMenuItem;
    ColorDialog1: TMenuItem;
    bsSkinListView2: TbsSkinListView;
    bsSkinScrollBar11: TbsSkinScrollBar;
    bsSkinScrollBar14: TbsSkinScrollBar;
    bsSkinTreeView1: TbsSkinTreeView;
    bsSkinScrollBar9: TbsSkinScrollBar;
    bsSkinScrollBar8: TbsSkinScrollBar;
    bsSkinMainMenuBar1: TbsSkinMainMenuBar;
    bsSkinStatusBar1: TbsSkinStatusBar;
    bsSkinGauge3: TbsSkinGauge;
    bsSkinStatusPanel3: TbsSkinStatusPanel;
    bsSkinStatusPanel2: TbsSkinStatusPanel;
    ImageList4: TImageList;
    ImageList5: TImageList;
    bsSkinStatusBar2: TbsSkinStatusBar;
    bsSkinEdit5: TbsSkinEdit;
    bsSkinEdit6: TbsSkinEdit;
    bsSkinSpinEdit4: TbsSkinSpinEdit;
    bsSkinComboBox8: TbsSkinComboBox;
    bsSkinStatusPanel1: TbsSkinStatusPanel;
    bsSkinMemo2: TbsSkinMemo;
    bsSkinScrollBar17: TbsSkinScrollBar;
    bsSkinStdLabel3: TbsSkinStdLabel;
    TbsSkinMemo2: TbsSkinMemo2;
    bsSkinScrollBar18: TbsSkinScrollBar;
    bsSkinMaskEdit1: TbsSkinMaskEdit;
    bsSkinStdLabel21: TbsSkinStdLabel;
    bsSkinButton1: TbsSkinButton;
    bsSkinScrollPanel1: TbsSkinScrollPanel;
    bsSkinSpeedButton2: TbsSkinSpeedButton;
    bsSkinBevel4: TbsSkinBevel;
    bsSkinSpeedButton9: TbsSkinSpeedButton;
    bsSkinSpeedButton8: TbsSkinSpeedButton;
    bsSkinBevel5: TbsSkinBevel;
    bsSkinMenuSpeedButton2: TbsSkinMenuSpeedButton;
    bsSkinMenuSpeedButton1: TbsSkinMenuSpeedButton;
    bsSkinControlBar1: TbsSkinControlBar;
    bsSkinToolBar1: TbsSkinToolBar;
    bsSkinSpeedButton3: TbsSkinSpeedButton;
    bsSkinSpeedButton4: TbsSkinSpeedButton;
    bsSkinBevel2: TbsSkinBevel;
    bsSkinMenuSpeedButton3: TbsSkinMenuSpeedButton;
    bsSkinMenuSpeedButton4: TbsSkinMenuSpeedButton;
    bsSkinBevel1: TbsSkinBevel;
    bsSkinSpeedButton7: TbsSkinSpeedButton;
    bsSkinBevel7: TbsSkinBevel;
    bsSkinSpinEdit3: TbsSkinSpinEdit;
    bsSkinToolBar3: TbsSkinToolBar;
    bsSkinSpeedButton6: TbsSkinSpeedButton;
    bsSkinSpeedButton5: TbsSkinSpeedButton;
    bsSkinBevel3: TbsSkinBevel;
    bsSkinBevel6: TbsSkinBevel;
    bsSkinBevel8: TbsSkinBevel;
    bsSkinEdit3: TbsSkinEdit;
    bsSkinEdit4: TbsSkinEdit;
    bsSkinComboBox7: TbsSkinComboBox;
    bsSkinScrollPanel2: TbsSkinScrollPanel;
    bsSkinExPanel1: TbsSkinExPanel;
    bsSkinExPanel3: TbsSkinExPanel;
    bsSkinExPanel7: TbsSkinExPanel;
    bsSkinExPanel8: TbsSkinExPanel;
    bsSkinExPanel9: TbsSkinExPanel;
    bsSkinScrollPanel3: TbsSkinScrollPanel;
    bsSkinButton21: TbsSkinButton;
    bsSkinButton22: TbsSkinButton;
    bsSkinButton23: TbsSkinButton;
    bsSkinButton24: TbsSkinButton;
    bsSkinSpeedButton1: TbsSkinSpeedButton;
    bsSkinBevel9: TbsSkinBevel;
    procedure FormCreate(Sender: TObject);
    procedure N13Click(Sender: TObject);
    procedure dfgfgdfg1Click(Sender: TObject);
    procedure N32Click(Sender: TObject);
    procedure dggdfgdfgfgfdg1Click(Sender: TObject);
    procedure N24Click(Sender: TObject);
    procedure Noskin1Click(Sender: TObject);
    procedure LoadSkin1Click(Sender: TObject);
    procedure bsSkinTrackBar2Change(Sender: TObject);
    procedure bsSkinTrackBar1Change(Sender: TObject);
    procedure bsSkinTreeView1GetImageIndex(Sender: TObject;
      Node: TTreeNode);
    procedure bsSkinTreeView1GetSelectedIndex(Sender: TObject;
      Node: TTreeNode);
    procedure bsSkinButton11Click(Sender: TObject);
    procedure bsSkinDrawGrid1DrawCell(Sender: TObject; ACol, ARow: Integer;
      Rect: TRect; State: TGridDrawState);
    procedure bsSkinButton4Click(Sender: TObject);
    procedure bsSkinSpeedButton3Click(Sender: TObject);
    procedure bsSkinSpeedButton7Click(Sender: TObject);
    procedure bsSkinSpeedButton2Click(Sender: TObject);
    procedure bsSkinListBox3ListBoxClick(Sender: TObject);
    procedure Openfiledialog1Click(Sender: TObject);
    procedure SaveFileDialog1Click(Sender: TObject);
    procedure SelectDirectory1Click(Sender: TObject);
    procedure bsSkinButton5Click(Sender: TObject);
    procedure bsSkinButton6Click(Sender: TObject);
    procedure bsSkinButton7Click(Sender: TObject);
    procedure HECheckClick(Sender: TObject);
    procedure bsSkinMenuSpeedButton1Click(Sender: TObject);
    procedure bsSkinTrackBar3Change(Sender: TObject);
    procedure bsSkinTrackBar4Change(Sender: TObject);
    procedure bsSkinTrackBar5Change(Sender: TObject);
    procedure bsSkinButton8Click(Sender: TObject);
    procedure bsSkinTrackBar6Change(Sender: TObject);
    procedure bsSkinButton9Click(Sender: TObject);
    procedure bsSkinButton10Click(Sender: TObject);
    procedure OpenPictureDialog1Click(Sender: TObject);
    procedure SavePictureDialog1Click(Sender: TObject);
    procedure bsSkinButton13Click(Sender: TObject);
    procedure FontDialog1Click(Sender: TObject);
    procedure bsSkinCheckRadioBox1Click(Sender: TObject);
    procedure bsSkinGroupBox7Checked(Sender: TObject);
    procedure bsSkinGroupBox8Checked(Sender: TObject);
    procedure bsSkinGroupBox9Checked(Sender: TObject);
    procedure bsSkinGroupBox10Checked(Sender: TObject);
    procedure bsSkinHeaderControl2DrawSkinSection(
      HeaderControl: THeaderControl; Section: THeaderSection;
      const Rect: TRect; Active, Pressed: Boolean; Cnvs: TCanvas);
    procedure N33Click(Sender: TObject);
    procedure bsSkinSlider2Change(Sender: TObject);
    procedure bsSkinSlider1Change(Sender: TObject);
    procedure bsSkinSlider3Change(Sender: TObject);
    procedure ShowObjectHInt1Click(Sender: TObject);
    procedure Input1Click(Sender: TObject);
    procedure bsSkinButton15Click(Sender: TObject);
    procedure PasswordDialog11Click(Sender: TObject);
    procedure LoginDialog1Click(Sender: TObject);
    procedure bsSkinButton16Click(Sender: TObject);
    procedure Timer1Timer(Sender: TObject);
    procedure ProgressDialog1Click(Sender: TObject);
    procedure InputTextDialog11Click(Sender: TObject);
    procedure InputTextDialog21Click(Sender: TObject);
    procedure bsSkinButton18Click(Sender: TObject);
    procedure bsSkinButton19Click(Sender: TObject);
    procedure bsSkinCheckRadioBox8Click(Sender: TObject);
    procedure bsSkinCheckRadioBox9Click(Sender: TObject);
    procedure bsSkinCheckRadioBox10Click(Sender: TObject);
    procedure bsSkinButton20Click(Sender: TObject);
    procedure bsSkinCheckRadioBox11Click(Sender: TObject);
    procedure bsSkinRadioGroup1Click(Sender: TObject);
    procedure bsSkinCheckRadioBox6Click(Sender: TObject);
    procedure Confirmdilaog1Click(Sender: TObject);
    procedure ColorDialog1Click(Sender: TObject);
    procedure bsSkinToolBar1CanResize(Sender: TObject; var NewWidth,
      NewHeight: Integer; var Resize: Boolean);
    procedure bsSkinToolBar3CanResize(Sender: TObject; var NewWidth,
      NewHeight: Integer; var Resize: Boolean);
  private
    { Private declarations }
    procedure LoadSkin(AFileName: String);
    procedure ClearSkin;
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

uses ShellApi;

{$R *.DFM}

procedure TForm1.LoadSkin(AFileName: String);
var
  Dir: String;
  Ext: String;
begin
  Ext := ExtractFileExt(AFileName);
  if Ext = '.ini'
  then
    bsSkinData1.LoadFromFile(AFileName)
  else
  if Ext = '.bskn'
  then
    bsSkinData1.LoadFromCompressedFile(AFileName);
  Dir := ExtractFilePath(AFileName);
end;

procedure TForm1.ClearSkin;
begin
  bsSkinData1.ClearSkin;
end;


procedure TForm1.FormCreate(Sender: TObject);
var
  Path: String;
  i, j: Integer;
begin
  Path := ExtractFilePath(ParamStr(0));
  OD.InitialDir := Path;
  LoadSkin(Path + '\' + 'bluemorph\skin.ini');
  //
  for i := 1 to bsSkinStringGrid1.RowCount - 1 do
    bsSkinStringGrid1.Cells[0, i] := InttoStr(i);
  for i := 1 to bsSkinStringGrid1.ColCount - 1 do
    bsSkinStringGrid1.Cells[i, 0] := 'fixed' + InttoStr(i);
  bsSkinStringGrid1.ColWidths[0] := 40;
  bsSkinStringGrid1.ColWidths[2] := 70;
  for i := 1 to bsSkinStringGrid1.ColCount - 1 do
   for j := 1 to bsSkinStringGrid1.RowCount - 1 do
     bsSkinStringGrid1.Cells[i, j] := 'Cells[' + IntToStr(i) + ',' +
       IntToStr(j) + ']';
end;

procedure TForm1.N13Click(Sender: TObject);
begin
  if OD.Execute then LoadSkin(OD.FileName);
end;

procedure TForm1.dfgfgdfg1Click(Sender: TObject);
begin
  if OD.Execute then LoadSkin(OD.FileName);
end;

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

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

procedure TForm1.N24Click(Sender: TObject);
begin
  AboutForm.ShowModal;
end;

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

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

procedure TForm1.bsSkinTrackBar2Change(Sender: TObject);
begin
  bsSkinGauge2.Value := bsSkinTrackBar2.Value;
end;

procedure TForm1.bsSkinTrackBar1Change(Sender: TObject);
begin
  bsSkinGauge1.Value := bsSkinTrackBar1.Value;
  bsSkinGauge3.Value := bsSkinTrackBar1.Value;
end;

procedure TForm1.bsSkinTreeView1GetImageIndex(Sender: TObject;
  Node: TTreeNode);
begin
 if Node.HasChildren then
    if Node.Expanded then
      Node.ImageIndex := 2
    else
      Node.ImageIndex := 0
  else
    Node.ImageIndex := 1;
end;

procedure TForm1.bsSkinTreeView1GetSelectedIndex(Sender: TObject;
  Node: TTreeNode);
begin
  Node.SelectedIndex := Node.ImageIndex;
end;

procedure TForm1.bsSkinButton11Click(Sender: TObject);
begin
  if OpenDialog.Execute
  then
    begin
      Editor.Lines.LoadFromFile(OpenDialog.FileName);
      Editor.Modified := False;
    end;
end;

procedure TForm1.bsSkinDrawGrid1DrawCell(Sender: TObject; ACol,
  ARow: Integer; Rect: TRect; State: TGridDrawState);
var
  R: TRect;
begin
  R := Rect;
  InflateRect(R, -5, -5);
  bsSkinDrawGrid1.Canvas.Pen.Color := bsSkinDrawGrid1.Canvas.Font.Color;
  bsSkinDrawGrid1.Canvas.Brush.Style := bsClear;
  if (ARow <> 0) and (ACol <> 0)
  then
    bsSkinDrawGrid1.Canvas.Rectangle(R.Left, R.Top, R.Right, R.Bottom)
  else
    bsSkinDrawGrid1.Canvas.Ellipse(R.Left, R.Top, R.Right, R.Bottom);
end;

procedure TForm1.bsSkinButton4Click(Sender: TObject);
begin
  if bsSkinCalculator1.Execute
  then
    bsSkinCalcEdit1.Value := bsSkinCalculator1.Value;
end;

procedure TForm1.bsSkinSpeedButton3Click(Sender: TObject);
begin
  if OD.Execute then LoadSkin(OD.FileName);
end;

procedure TForm1.bsSkinSpeedButton7Click(Sender: TObject);
begin
  if bsSkinMainMenuBar1.MainMenu = MainMenu1
  then
    bsSkinMainMenuBar1.MainMenu := MainMenu2
  else
    bsSkinMainMenuBar1.MainMenu := MainMenu1;
end;

procedure TForm1.bsSkinSpeedButton2Click(Sender: TObject);
begin
  bsSkinMessage1.MessageDlg('Full analogue of MessageDlg function.' + #13 +
  'Use TbsSkinMessage component.' + #13 + 'Skin your messages!',
    mtInformation, [mbYes, mbNo, mbCancel, mbOk], 0);
end;

procedure TForm1.bsSkinListBox3ListBoxClick(Sender: TObject);
begin
  bsSkinListBox1.ItemIndex := bsSkinListBox3.ItemIndex;
end;

procedure TForm1.Openfiledialog1Click(Sender: TObject);
begin
  bsSkinOpenDialog1.Execute;
end;

procedure TForm1.SaveFileDialog1Click(Sender: TObject);
begin
  bsSkinSaveDialog1.Execute;
end;

procedure TForm1.SelectDirectory1Click(Sender: TObject);
begin
  bsSkinSelectDirectoryDialog1.Execute;