zoukankan      html  css  js  c++  java
  • 学用 TStringGrid [8] 字体列表

    本例效果图:


    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.
    
  • 相关阅读:
    Chrony服务同步集群时间
    lsyncd+rsync实时同步
    iptables
    nginx 之 proxy_pass详解
    Ansible 中的 playbook 详解
    MySQL基本查询实战
    MySQL索引
    MySQL高可用方案——双主
    MySQL事务
    MySQL用户和权限管理
  • 原文地址:https://www.cnblogs.com/del/p/1094161.html
Copyright © 2011-2022 走看看