sfontdialog.pas

Alpha Controls 5.40,delphi上的alpha开发源码控件包。没有密码。5.40版的最新版。

unit sFontDialog;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  StdCtrls, sEdit, Buttons, sBitBtn, sCheckBox, sGroupBox, sAlphaListBox,
  sFontCtrls, sSkinProvider, sComboBoxes, sComboBox, ExtCtrls, sPanel;

type
  TFormFont = class(TForm)
    sEdit1: TsEdit;
    sEdit2: TsEdit;
    sEdit3: TsEdit;
    sBitBtn1: TsBitBtn;
    sBitBtn2: TsBitBtn;
    sSkinProvider1: TsSkinProvider;
    sFontListBox1: TsFontListBox;
    sListBox1: TsListBox;
    sListBox2: TsListBox;
    sGroupBox1: TsGroupBox;
    sCheckBox1: TsCheckBox;
    sCheckBox2: TsCheckBox;
    sColorBox1: TsColorBox;
    sGroupBox2: TsGroupBox;
    sPanel1: TsPanel;
    sComboBox1: TsComboBox;
    procedure sFontListBox1Click(Sender: TObject);
    procedure sColorBox1Change(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  FormFont: TFormFont;

implementation

{$R *.DFM}

procedure TFormFont.sFontListBox1Click(Sender: TObject);
begin
  sEdit1.Text := sFontListBox1.Items[sFontListBox1.ItemIndex];
  sPanel1.Font.Name := sEdit1.Text;
end;

procedure TFormFont.sColorBox1Change(Sender: TObject);
begin
  sPanel1.Font.Color := sColorBox1.Selected
end;

end.