Fontを文字列化する時 (ID:30087)

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文

文字列化とは違うけど フォント情報  をファイルに保存するなら

こんなのどうよ？

unit Unit5;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;

type
  TFontComponent = class(TComponent)
  private
    FFont:TFont;
  public
    constructor Create(AOwner: TComponent); override;
    destructor Destroy; override;
  published
    property Font:TFont read FFont write FFont;
  end;

TForm5 = class(TForm)
    Button1: TButton;
    Button2: TButton;
    Memo1: TMemo;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
  private
    { Private 宣言 }
  public
    { Public 宣言 }
  end;

var
  Form5: TForm5;
  FontComponent: TFontComponent;
  MemoryStream: TMemoryStream;

implementation

{$R *.dfm}

constructor TFontComponent.Create(AOwner: TComponent);
begin
    inherited Create(AOwner);
    FFont := TFont.Create;
end;

destructor TFontComponent.Destroy;
begin
    FFont.Free;
    inherited Destroy;
end;

procedure TForm5.Button1Click(Sender: TObject);
begin
    FontComponent.Font.Assign(Button1.Font);
    MemoryStream.Position := 0;
    MemoryStream.WriteComponent(FontComponent);
    MemoryStream.SaveToFile('FONT.DAT');
end;

procedure TForm5.Button2Click(Sender: TObject);
begin
    MemoryStream.LoadFromFile('FONT.DAT');
    MemoryStream.Position := 0;
    MemoryStream.ReadComponent(FontComponent);
    Button2.Font.Assign(FontComponent.Font);
end;

procedure TForm5.FormCreate(Sender: TObject);
begin
    MemoryStream := TMemoryStream.Create;
    FontComponent := TFontComponent.Create(Self);
end;

procedure TForm5.FormClose(Sender: TObject; var Action: TCloseAction);
begin
    FontComponent.Free;
    MemoryStream.Free;
end;

end.

←解決時は質問者本人がここをチェックしてください。

戻る