unit1.pas

Delphi7应用编程150例附书源码.rar

unit Unit1;
interface
uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  StdCtrls, ComCtrls, ExtCtrls;

type
  TfrmMain = class(TForm)
    btnView: TButton;
    Label2: TLabel;
    Edit2: TEdit;
    Edit1: TEdit;
    Image1: TImage;
    Label1: TLabel;
    procedure btnViewClick(Sender:TObject);
    procedure FormCreate(Sender:TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  frmMain: TfrmMain;
  RF:LOGFONT;
  NewFont:Integer;
  OrgFont:Integer;

implementation
{$R *.DFM}

procedure TfrmMain.FormCreate(Sender: TObject);
begin
     SetBkMode(Image1.Canvas.Handle,1);
     Image1.Invalidate();
     RF.lfHeight:=50;
     RF.lfWidth:=10;
     RF.lfEscapement:=0;
     RF.lfOrientation:=0;
     RF.lfWeight:=400;
     RF.lfItalic:=0;
     RF.lfUnderline:=0;
     RF.lfStrikeOut:=0;
     RF.lfOutPrecision:=0;
     RF.lfClipPrecision:=0;
     RF.lfQuality:=0;
     RF.lfPitchAndFamily:=0;
     RF.lfCharSet:=0;
     RF.lfFaceName:='Arial'+Chr(0);

     Edit2.Text:=IntToStr(RF.lfEscapement);
end;

procedure TfrmMain.btnViewClick(Sender: TObject);
var
   Throw:LongBool;
   X:Integer;
   Y:Integer;
   StrTemp:PChar;
begin
     RF.lfEscapement:=StrToInt(Edit2.Text);

     NewFont:=CreateFontIndirect(RF);
     OrgFont:=SelectObject(Image1.Canvas.Handle,NewFont);

     X:=Image1.Width div 2;
     Y:=Image1.Height div 2;

     Image1.Invalidate();
     StrTemp:=PChar(Edit1.Text);
     Throw:=TextOut(Image1.Canvas.Handle,X,Y,StrTemp,Length(Edit1.Text));
     NewFont:=SelectObject(Image1.Canvas.Handle,OrgFont);
     Throw:=DeleteObject(NewFont);
end;

end.