学用 TStringGrid [8] - 字体列表

Delphi字体展示表格

最新推荐文章于 2025-05-06 14:40:51 发布

转载最新推荐文章于 2025-05-06 14:40:51 发布 · 83 阅读

0 ·

CC 4.0 BY-SA版权

原文链接：https://my.oschina.net/hermer/blog/320575

本文介绍了一个使用Delphi实现的简单应用程序，该程序通过表格形式展示了系统中可用的所有字体。通过Delphi的StringGrid组件，每个字体都被列出，并且当点击任一字体时，表格的字体样式会实时更新为所选字体。

为什么80%的码农都做不了架构师？>>>

本例效果图:

unit Unit1;

interface

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

type
  TForm1 = class(TForm)
    StringGrid1: TStringGrid;
    procedure StringGrid1Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
var
  FontCount,i: Integer;
begin
  {获取字体总数}
  FontCount := Screen.Fonts.Count;

  {设置行列}
  StringGrid1.RowCount := FontCount + 1;
  StringGrid1.ColCount := 1;
  StringGrid1.FixedCols := 0;
  StringGrid1.DefaultColWidth := 128;
  StringGrid1.DefaultRowHeight := 18;

  {跟随拖动与选定效果}
  StringGrid1.Options := StringGrid1.Options + [goThumbTracking,goDrawFocusSelected];

  {设置标题与字号}
  StringGrid1.Cells[0,0] := '字体名称';
  StringGrid1.Font.Size := 9;

  {写入字体名称}
  for i := 0 to FontCount - 1 do
    StringGrid1.Cells[0,i+1] := Screen.Fonts[i];
end;

{随当前字体变化}
procedure TForm1.StringGrid1Click(Sender: TObject);
begin
  with StringGrid1 do Font.Name := Cells[Col,Row];
end;

end.

转载于:https://my.oschina.net/hermer/blog/320575