mainunit.pas

BussinessSkinForm入门教程.doc

end;

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

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

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

procedure TForm1.HECheckClick(Sender: TObject);
begin
  bsSkinFileListBox1.HorizontalExtent := HECheck.Checked;
  bsSkinDirectoryListBox1.HorizontalExtent := HECheck.Checked;
end;

procedure TForm1.bsSkinMenuSpeedButton1Click(Sender: TObject);
begin
  bsSkinScrollBar8.Visible := not bsSkinScrollBar8.Visible;
end;

procedure TForm1.bsSkinTrackBar3Change(Sender: TObject);
begin
  bsBusinessSkinForm1.MenusAlphaBlendValue := bsSkinTrackBar3.Value;
end;

procedure TForm1.bsSkinTrackBar4Change(Sender: TObject);
begin
  bsSkinHint1.AlphaBlendValue := bsSkinTrackBar4.Value;
end;

procedure TForm1.bsSkinTrackBar5Change(Sender: TObject);
begin
  bsSkinMessage1.AlphaBlendValue := bsSkinTrackBar5.Value;
end;

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

procedure TForm1.bsSkinTrackBar6Change(Sender: TObject);
begin
  bsSkinComboBox5.AlphaBlendValue := bsSkinTrackBar6.Value;
  bsSkinCalcEdit2.AlphaBlendValue := bsSkinTrackBar6.Value;
  bsSkinDateEdit2.AlphaBlendValue := bsSkinTrackBar6.Value;
  bsSkinCalculator1.AlphaBlendValue := bsSkinTrackBar6.Value;
  bsSkinTrackEdit2.AlphaBlendValue := bsSkinTrackBar6.Value;
  bsSkinPasswordDialog1.AlphaBlendValue := bsSkinTrackBar6.Value;
end;

procedure TForm1.bsSkinButton9Click(Sender: TObject);
begin
 bsSkinOpenPictureDialog1.Execute;
end;

procedure TForm1.bsSkinButton10Click(Sender: TObject);
begin
  bsSkinSavePictureDialog1.Execute;
end;

procedure TForm1.OpenPictureDialog1Click(Sender: TObject);
begin
  bsSkinOpenPictureDialog1.Execute;
end;

procedure TForm1.SavePictureDialog1Click(Sender: TObject);
begin
  bsSkinSavePictureDialog1.Execute;
end;

procedure TForm1.bsSkinButton13Click(Sender: TObject);
begin
  bsSkinFontDialog1.Execute;
end;

procedure TForm1.FontDialog1Click(Sender: TObject);
begin
  bsSkinFontDialog1.Execute;
end;

procedure TForm1.bsSkinCheckRadioBox1Click(Sender: TObject);
begin
  bsSkinButton1.Enabled := bsSkinCheckRadioBox1.Checked;
end;

procedure TForm1.bsSkinGroupBox7Checked(Sender: TObject);
begin
  bsBusinessSkinForm1.MenusAlphaBlend := bsSkinGroupBox7.Checked;
  bsBusinessSkinForm1.MenusAlphaBlendValue := bsSkinTrackBar3.Value;
end;

procedure TForm1.bsSkinGroupBox8Checked(Sender: TObject);
begin
  bsSkinHint1.AlphaBlend := bsSkinGroupBox8.Checked;
  bsSkinHint1.AlphaBlendValue := bsSkinTrackBar4.Value;
end;

procedure TForm1.bsSkinGroupBox9Checked(Sender: TObject);
begin
  bsSkinMessage1.AlphaBlend := bsSkinGroupBox9.Checked;
  bsSkinMessage1.AlphaBlendValue := bsSkinTrackBar5.Value;
end;

procedure TForm1.bsSkinGroupBox10Checked(Sender: TObject);
begin
  bsSkinTrackBar6.Enabled := bsSkinGroupBox10.Checked;
  bsSkinComboBox5.AlphaBlend := bsSkinGroupBox10.Checked;
  bsSkinComboBox5.AlphaBlendValue := bsSkinTrackBar6.Value;
  bsSkinCalcEdit2.AlphaBlend := bsSkinGroupBox10.Checked;
  bsSkinCalcEdit2.AlphaBlendValue := bsSkinTrackBar6.Value;
  bsSkinDateEdit2.AlphaBlend := bsSkinGroupBox10.Checked;
  bsSkinDateEdit2.AlphaBlendValue := bsSkinTrackBar6.Value;
  bsSkinCalculator1.AlphaBlend := bsSkinGroupBox10.Checked;
  bsSkinCalculator1.AlphaBlendValue := bsSkinTrackBar6.Value;
  bsSkinTrackEdit2.AlphaBlend := bsSkinGroupBox10.Checked;
  bsSkinTrackEdit2.AlphaBlendValue := bsSkinTrackBar6.Value;
  //
  bsSkinPasswordDialog1.AlphaBlend := bsSkinGroupBox10.Checked;
  bsSkinPasswordDialog1.AlphaBlendValue := bsSkinTrackBar6.Value;
end;

procedure TForm1.bsSkinHeaderControl2DrawSkinSection(
  HeaderControl: THeaderControl; Section: THeaderSection;
  const Rect: TRect; Active, Pressed: Boolean; Cnvs: TCanvas);
var
  C: TColor;
  TX, TY: Integer;
begin
  with Cnvs do
  begin
    Brush.Style := bsClear;
    if Pressed
    then
      C := clRed
    else
      if Active
      then
        C := clBlue
      else
        C := clBlack;
    Pen.Color := C;
    Ellipse(Rect.Left, Rect.Top, Rect.Right, Rect.Bottom);
    TX := Rect.Left +
      (Rect.Right - Rect.Left) div 2 - TextWidth(Section.Text) div 2;
    TY := Rect.Top +
      (Rect.Bottom - Rect.Top) div 2 - TextHeight(Section.Text) div 2;
    TextOut(TX, TY, Section.Text);
  end;
end;

procedure TForm1.N33Click(Sender: TObject);
begin
  ShellExecute(0, 'open', 'http://www.almdev.com', nil, nil, SW_SHOWNORMAL);
end;

procedure TForm1.bsSkinSlider2Change(Sender: TObject);
begin
  bsSkinGauge2.Value := bsSkinSlider2.Value;
end;

procedure TForm1.bsSkinSlider1Change(Sender: TObject);
begin
  bsSkinGauge1.Value := bsSkinSlider1.Value;
end;

procedure TForm1.bsSkinSlider3Change(Sender: TObject);
begin
  bsSkinGauge2.Value := bsSkinSlider3.Value;
end;

procedure TForm1.ShowObjectHInt1Click(Sender: TObject);
begin
  ShowObjectHInt1.Checked := not ShowObjectHInt1.Checked;
  bsBusinessSkinForm1.ShowObjectHint := ShowObjectHInt1.Checked;
end;

procedure TForm1.Input1Click(Sender: TObject);
begin
 bsSkinInputDialog1.InputBox('Input Box', 'Prompt', 'Default string');
end;

procedure TForm1.bsSkinButton15Click(Sender: TObject);
var
  NewString: String;
begin
  NewString := 'new string';
  bsSkinInputDialog1.InputQuery('Input Query', 'Prompt', NewString);
end;

procedure TForm1.PasswordDialog11Click(Sender: TObject);
begin
  with bsSkinPasswordDialog1 do
  begin
    Password := '';
    Login := '';
    Caption := 'Password';
    LoginMode := False;
    PasswordCaption := 'Enter password:';
    Execute;
  end;  
end;

procedure TForm1.LoginDialog1Click(Sender: TObject);
begin
  with bsSkinPasswordDialog1 do
  begin
    Password := '';
    Login := '';
    Caption := 'Login';
    LoginMode := True;
    PasswordCaption := 'Password:';
    Execute;
  end;
end;

procedure TForm1.bsSkinButton16Click(Sender: TObject);
begin
  Timer1.Enabled := True;
  bsSkinProgressDialog1.Value := 0;
  bsSkinProgressDialog1.Execute;
  Timer1.Enabled := False;
end;

procedure TForm1.Timer1Timer(Sender: TObject);
begin
  bsSkinProgressDialog1.Value := bsSkinProgressDialog1.Value + 1;
end;

procedure TForm1.ProgressDialog1Click(Sender: TObject);
begin
  Timer1.Enabled := True;
  bsSkinProgressDialog1.Value := 0;
  bsSkinProgressDialog1.Execute;
  Timer1.Enabled := False;
end;

procedure TForm1.InputTextDialog11Click(Sender: TObject);
begin
  bsSkinTextDialog1.ShowToolBar := True;
  bsSkinTextDialog1.Execute;
end;

procedure TForm1.InputTextDialog21Click(Sender: TObject);
begin
  bsSkinTextDialog1.ShowToolBar := False;
  bsSkinTextDialog1.Execute;
end;

procedure TForm1.bsSkinButton18Click(Sender: TObject);
begin
  if bsSkinNotebook1.PageIndex > 0
  then
    bsSkinNotebook1.PageIndex := bsSkinNotebook1.PageIndex - 1;
end;

procedure TForm1.bsSkinButton19Click(Sender: TObject);
begin
  if bsSkinNotebook1.PageIndex < bsSkinNotebook1.Pages.Count - 1
  then
    bsSkinNotebook1.PageIndex := bsSkinNotebook1.PageIndex + 1;
end;

procedure TForm1.bsSkinCheckRadioBox8Click(Sender: TObject);
begin
  bsBusinessSkinForm1.MenusAlphaBlendAnimation := bsSkinCheckRadioBox8.Checked;
end;

procedure TForm1.bsSkinCheckRadioBox9Click(Sender: TObject);
begin
 bsSkinMessage1.AlphaBlendAnimation := bsSkinCheckRadioBox9.Checked;
end;

procedure TForm1.bsSkinCheckRadioBox10Click(Sender: TObject);
begin
  bsSkinComboBox5.AlphaBlendAnimation := bsSkinCheckRadioBox10.Checked;
  bsSkinCalcEdit2.AlphaBlendAnimation := bsSkinCheckRadioBox10.Checked;
  bsSkinDateEdit2.AlphaBlendAnimation := bsSkinCheckRadioBox10.Checked;
  bsSkinCalculator1.AlphaBlendAnimation := bsSkinCheckRadioBox10.Checked;
  bsSkinTrackEdit2.AlphaBlendAnimation := bsSkinCheckRadioBox10.Checked;
  bsSkinPasswordDialog1.AlphaBlendAnimation := bsSkinCheckRadioBox10.Checked;
end;

procedure TForm1.bsSkinButton20Click(Sender: TObject);
begin
  LoginDialog1Click(Sender);
end;

procedure TForm1.bsSkinCheckRadioBox11Click(Sender: TObject);
begin
  bsSkinButtonsBar1.ShowButtons := bsSkinCheckRadioBox11.Checked;
end;

type
  TParentControl = class(TWinControl);

procedure TForm1.bsSkinRadioGroup1Click(Sender: TObject);
begin
  case bsSkinRadioGroup1.ItemIndex of
    0: bsSkinTabControl1.TabPosition := tpTop;
    1: bsSkinTabControl1.TabPosition := tpLeft;
    2: bsSkinTabControl1.TabPosition := tpRight;
    3: bsSkinTabControl1.TabPosition := tpBottom;
  end;
  bsSkinTabControl1.UpDateTabs;
end;

procedure TForm1.bsSkinCheckRadioBox6Click(Sender: TObject);
begin
  bsBusinessSkinForm1.ShowIcon := bsSkinCheckRadioBox6.Checked;
end;

procedure TForm1.Confirmdilaog1Click(Sender: TObject);
begin
  bsSkinConfirmDialog1.Execute;
end;

procedure TForm1.ColorDialog1Click(Sender: TObject);
begin
  bsSkinColorDialog1.Execute;
end;

procedure TForm1.bsSkinToolBar1CanResize(Sender: TObject; var NewWidth,
  NewHeight: Integer; var Resize: Boolean);
begin
  NewWidth := bsSkinToolBar1.Width;
end;

procedure TForm1.bsSkinToolBar3CanResize(Sender: TObject; var NewWidth,
  NewHeight: Integer; var Resize: Boolean);
begin
  NewWidth := bsSkinToolBar3.Width;
end;

end.