unit1.pas

模仿WindowsXP界面

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  uXPForm, StdCtrls, Spin, ExtCtrls;

type
  TForm1 = class(TXPForm)
    Panel1: TPanel;
    SE: TSpinEdit;
    Label1: TLabel;
    btnFont: TButton;
    FontDialog: TFontDialog;
    rgTitle: TRadioGroup;
    rgInner: TRadioGroup;
    rgOuter: TRadioGroup;
    gbSysBtn: TGroupBox;
    chkMin: TCheckBox;
    chkMax: TCheckBox;
    chkClose: TCheckBox;
    btnColor: TButton;
    ColorDialog: TColorDialog;
    procedure SEChange(Sender: TObject);
    procedure btnFontClick(Sender: TObject);
    procedure rgTitleClick(Sender: TObject);
    procedure rgInnerClick(Sender: TObject);
    procedure rgOuterClick(Sender: TObject);
    procedure chkMinClick(Sender: TObject);
    procedure chkMaxClick(Sender: TObject);
    procedure chkCloseClick(Sender: TObject);
    procedure btnColorClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.DFM}

procedure TForm1.SEChange(Sender: TObject);
begin
  AlphaBlend := Byte(SE.Value);
end;

procedure TForm1.btnFontClick(Sender: TObject);
begin
  FontDialog.Font := pnlCaptionParent.Font;
  if FontDialog.Execute then pnlCaptionParent.Font := FontDialog.Font; 
end;

procedure TForm1.rgTitleClick(Sender: TObject);
begin
  case rgTitle.ItemIndex of
    0 : pnlCaption.Alignment := taLeftJustify;
    1 : pnlCaption.Alignment := taCenter;
    2 : pnlCaption.Alignment := taRightJustify;
  end;
end;

procedure TForm1.rgInnerClick(Sender: TObject);
begin
  Case rgInner.ItemIndex of
    0 : pnlCaptionParent.BevelInner := bvRaised;
    1 : pnlCaptionParent.BevelInner := bvNone;
    2 : pnlCaptionParent.BevelInner := bvLowered;
  end;
  SetSysBtnVisible;
end;

procedure TForm1.rgOuterClick(Sender: TObject);
begin
  Case rgOuter.ItemIndex of
    0 : pnlCaptionParent.BevelOuter := bvRaised;
    1 : pnlCaptionParent.BevelOuter := bvNone;
    2 : pnlCaptionParent.BevelOuter := bvLowered;
  end;
  SetSysBtnVisible;
end;

procedure TForm1.chkMinClick(Sender: TObject);
begin
  MinVisible := chkMin.Checked;
end;

procedure TForm1.chkMaxClick(Sender: TObject);
begin
  MaxVisible := chkMax.Checked;
end;

procedure TForm1.chkCloseClick(Sender: TObject);
begin
  CloseVisible := chkClose.Checked;
end;

procedure TForm1.btnColorClick(Sender: TObject);
begin
  ColorDialog.Color := pnlCaptionParent.Color;
  if ColorDialog.Execute then
    pnlCaptionParent.Color := ColorDialog.Color;
end;

end.