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.
    
  • 相关阅读:
    HTML5 drag拖动事件
    echarts 实现立体柱子图
    团队管理(七)
    echarts环比图实现
    父组件调用图表组件根据按钮切换展示数据
    echarts 折柱图绘制图表标注
    团队管理(六)
    团队管理(五)
    css 绘制圆角三角形
    团队管理(四)
  • 原文地址:https://www.cnblogs.com/del/p/1094161.html
Copyright © 2011-2022 走看看