viewfrm.pas

《Delphi开发人员指南》配书原码

unit ViewFrm;

interface

uses
  Windows, Messages, SysUtils, Classes, Controls, Forms, StdCtrls, ExtCtrls,
  Buttons;

type
  TViewForm = class(TForm)
    Memo1: TMemo;
    Panel1: TPanel;
    SpeedButton1: TSpeedButton;
    SpeedButton2: TSpeedButton;
    procedure SpeedButton1Click(Sender: TObject);
    procedure SpeedButton2Click(Sender: TObject);
  end;

implementation

{$R *.DFM}

uses ShellAPI;

procedure TViewForm.SpeedButton1Click(Sender: TObject);
begin
  with Memo1.Font do
    Size := Size + 1;
end;

procedure TViewForm.SpeedButton2Click(Sender: TObject);
begin
  with Memo1.Font do
    if Size > 1 then Size := Size - 1;
end;

end.