viewfrm.pas

来自「《Delphi开发人员指南》配书原码」· PAS 代码 · 共 39 行

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.