文档章节

学用 TStringGrid [4] - ColWidths、RowHeights

涂孟超
 涂孟超
发布于 2014/09/26 15:31
字数 187
阅读 8
收藏 0
本例功能:
1、调整单元宽度;
2、调整单元高度.

运行效果图:


//本例代码:
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 Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure Button3Click(Sender: TObject);
    procedure Button4Click(Sender: TObject);
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

{单元宽+}
procedure TForm1.Button1Click(Sender: TObject);
begin
  TButton(Sender).Caption := '单元宽+';
  with StringGrid1 do
    ColWidths[Col] := ColWidths[Col] * 2;
end;

{单元宽-}
procedure TForm1.Button2Click(Sender: TObject);
begin
  TButton(Sender).Caption := '单元宽-';
  with StringGrid1 do
    ColWidths[Col] := ColWidths[Col] div 2;
end;

{单元高+}
procedure TForm1.Button3Click(Sender: TObject);
begin
  TButton(Sender).Caption := '单元高+';
  with StringGrid1 do
    RowHeights[Row] := RowHeights[Row] * 2;
end;

{单元高-}
procedure TForm1.Button4Click(Sender: TObject);
begin
  TButton(Sender).Caption := '单元高-';
  with StringGrid1 do
    RowHeights[Row] := RowHeights[Row] div 2;
end;

end.

 
 
 
 
 

 

 

  

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

涂孟超
粉丝 12
博文 2011
码字总数 14107
作品 0
深圳
程序员
私信 提问
利用fop转换xsl时,报错,找不到我用msxsl:script自定义的函数

这是我的函数 var m_rowSpans; var m_colSpans; var m_colWidths; var m_totalWidth; function printColumnDefinition(node) { 这是错误信息 致命的: Exception javax.xml.transform.Transfo......

cuizhang
2012/05/21
279
0
WinAPI: GetCurrentThread、GetCurrentThreadId、Get...

{返回当前线程的虚拟句柄} GetCurrentThread: THandle; {返回当前线程 ID} GetCurrentThreadId: DWORD; {返回当前进程的虚拟句柄} GetCurrentProcess: THandle; {返回当前进程 ID} GetCurre...

barsoom
2012/12/17
0
0
为何很少有人用Web2Py?

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

LinkerLin
2012/11/27
1K
2
稍微有点难度的10道java面试题,你会几道?

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

java技术栈
2017/08/13
0
0
echarts 中列表选项与图表互动

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

senstone
2016/02/23
215
1

没有更多内容

加载失败,请刷新页面

加载更多

Spark Streaming的优化之路——从Receiver到Direct模式

          作者:个推数据研发工程师 学长 1 业务背景 随着大数据的快速发展,业务场景越来越复杂,离线式的批处理框架MapReduce已经不能满足业务,大量的场景需要实时的数据处理结果来...

个推
48分钟前
2
0
壮丽70年·奋斗新时代|蒸妙集团熏蒸中会阴熏蒸的神奇好处

聚结相合之处为会。会阴居两阴间,为督、任、冲三脉的起点,三脉背出两阴之间,会聚阴部,因名会阴。会阴,经穴名。出《针灸甲乙经》。会阴别名屏翳、下极、金门。属任脉。在会阴部,男性当阴...

公益传承
57分钟前
2
0
pentaho-kettle-8.2.0.0-R源码开发环境搭建

1.从Kettle官网下载源码,本文使用的是pentaho-kettle-8.2.0.0-R 下载地址:https://codeload.github.com/pentaho/pentaho-kettle/zip/8.2.0.0-R 2.打开eclipse,选择一个新的工作空间,然后设...

gq_2010
今天
1
0
lua web快速开发指南(7) - 高效的接口调用 - httpc库

httpc库基于cf框架都内部实现的socket编写的http client库. httpc库内置SSL支持, 在不使用代理的情况下就可以请求第三方接口. httpc支持header、args、body、timeout请求设置, 完美支持各种h...

水果糖的小铺子
今天
5
0
通过四道常问面试题,带你了解什么是数据库分库分表

编者语:为了避免被误解为:「手里有把锤子,看什么都是钉子!」,说明一下不是什么业务都适合分布式数据库,更不是用了分布式数据库性能就一定能得到扩展。 其次:本文为纯干货,建议先转发...

老道士
今天
8
0

没有更多内容

加载失败,请刷新页面

加载更多

返回顶部
顶部