文档章节

学用 TStringGrid [9] - OnDrawCell

涂孟超
 涂孟超
发布于 2014/09/26 15:37
字数 238
阅读 9
收藏 0
本例效果图:


unit Unit1;

interface

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

type
  TForm1 = class(TForm)
    StringGrid1: TStringGrid;
    Panel1: TPanel;
    Button1: TButton;
    Button2: TButton;
    Button3: TButton;
    Button4: TButton;
    procedure FormCreate(Sender: TObject);
    procedure StringGrid1DrawCell(Sender: TObject; ACol, ARow: Integer;
      Rect: TRect; State: TGridDrawState);
    procedure Button2Click(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure Button3Click(Sender: TObject);
    procedure Button4Click(Sender: TObject);
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

var
  TextFormat: TTextFormat;

procedure TForm1.FormCreate(Sender: TObject);
var
  i,j: Integer;
begin
  with StringGrid1 do
    for i := 0 to ColCount - 1 do
      for j := 0 to RowCount - 1 do
        Cells[i,j] := Format('%d%d',[i,j]);

  StringGrid1.Font.Style := [fsBold];
  StringGrid1.Font.Size := 10;
end;

procedure TForm1.StringGrid1DrawCell(Sender: TObject; ACol, ARow: Integer;
  Rect: TRect; State: TGridDrawState);
var
  str: string;
begin
  Randomize;
  StringGrid1.Canvas.Brush.Color := Random($FFFFFF);
  StringGrid1.Canvas.FillRect(Rect);
  str := StringGrid1.Cells[ACol,ARow];
  StringGrid1.Canvas.TextRect(Rect, str, TextFormat);
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  Randomize;
  StringGrid1.Font.Color := Random($FFFFFF);
  TButton(Sender).Caption := '字体颜色';
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
  TextFormat := [tfSingleLine, tfCenter, tfVerticalCenter];
  StringGrid1.Refresh;
  TButton(Sender).Caption := '居中对齐';
end;

procedure TForm1.Button3Click(Sender: TObject);
begin
  TextFormat := [tfSingleLine, tfRight, tfVerticalCenter];
  StringGrid1.Refresh;
  TButton(Sender).Caption := '右对齐';
end;

procedure TForm1.Button4Click(Sender: TObject);
begin
  TextFormat := [tfSingleLine, tfLeft, tfVerticalCenter];
  StringGrid1.Refresh;
  TButton(Sender).Caption := '左对齐';
end;

end.

 
 
 
 
 

 

 

  

本文转载自:http://www.cnblogs.com/del/archive/2008/03/06/1094289.html

共有 人打赏支持
涂孟超
粉丝 12
博文 2011
码字总数 14107
作品 0
深圳
程序员
私信 提问
稍微有点难度的10道java面试题,你会几道?

1、jvm对频繁调用的方法做了哪些优化? 2、常见的攻击手段有哪些?如何防范? 3、restful api有哪些设计原则? 4、hessian是做什么用的?它的传输单位是什么? 5、http中的post、get有什么区...

java技术栈
2017/08/13
0
0
Windows 8 and WP 8 开发 FAQ

1. 如何在Windows商店应用中防止HTTPS通讯被中间人攻击解密? 2. 关于给WP推送通知启用HTTPS验证的细节 3. 如何在Windows Phone和Windows 8 Store中获取到设备ID 4. 学用Windows Phone 8中H...

失足处男的倒霉孩子
2013/12/25
519
0
为何很少有人用Web2Py?

看了教程,觉得很容易学用的啊。

LinkerLin
2012/11/27
1K
2
echarts 中列表选项与图表互动

不懂java,最近刚开始学用echarts。如下图:我用select做了列表,请问怎么把列表中的多个选项与图表互动起来?能给个案例最好,谢谢~

senstone
2016/02/23
215
1
Spring boot配置SSL并且支持HTTP连接时,加载JSP引用的JSTL报错

Spring boot刚学用不够,调试了两天了这个项目,都不知是什么问题,(不配置SSL时,jsp的JSTL引用可以加载),求前辈们指点

观嵩
2016/10/22
955
3

没有更多内容

加载失败,请刷新页面

加载更多

EOS docker开发环境

使用eos docker镜像是部署本地EOS开发环境的最轻松愉快的方法。使用官方提供的eos docker镜像,你可以快速建立一个eos开发环境,可以迅速启动开发节点和钱包服务器、创建账户、编写智能合约....

汇智网教程
今天
8
0
《唐史原来超有趣》的读后感优秀范文3700字

《唐史原来超有趣》的读后感优秀范文3700字: 作者:花若离。我今天分享的内容《唐史原来超有趣》这本书的读后感,我将这本书看了一遍之后就束之高阁了,不过里面的内容一直在在脑海中回放,...

原创小博客
今天
14
0
IC-CAD Methodology知识图谱

CAD (Computer Aided Design),计算机辅助设计,指利用计算机及其图形设备帮助设计人员进行设计工作,这个定义同样可以用来近似描述IC公司CAD工程师这个岗位的工作。 早期IC公司的CAD岗位最初...

李艳青1987
今天
14
0
CompletableFuture get方法一直阻塞或抛出TimeoutException

问题描述 最近刚刚上线的服务突然抛出大量的TimeoutException,查询后发现是使用了CompletableFuture,并且在执行future.get(5, TimeUnit.SECONDS);时抛出了TimeoutException异常,导致接口响...

xiaolyuh
今天
8
0
dubbo 搭建与使用

官网:http://dubbo.apache.org/en-us/ 一,安装监控中心(可以不安装) admin管理控制台,monitor监控中心 下载 bubbo ops 这个是新版的,需要node.js环境,我没有就用老版的了...

小兵胖胖
今天
16
0

没有更多内容

加载失败,请刷新页面

加载更多

返回顶部
顶部