如何用stringgrid实现第一行标题的竖列显示呀,
来源:互联网 发布:互联网数据分析师年薪 编辑:程序博客网 时间:2024/05/01 11:14
自画,把你的标题行高设置到合适的高度,然后在DrawCell事件里写
procedure TForm1.StringGrid1DrawCell(Sender: TObject; ACol, ARow: Integer;
Rect: TRect; State: TGridDrawState);
var
x,y,i,h: integer;
grd: TStringGrid;
bt,bt1: string;
begin
if ACol + ARow <> 0 then Exit;
grd := Sender as TStringGrid;
bt := grd.cells[ACol, ARow];
if trim(bt) = '' then exit;
h := grd.Canvas.TextHeight(bt);
i := 1;
x := rect.Left + 5;
y := rect.Top + 2;
grd.Canvas.Brush.Color := clBtnface;
grd.Canvas.FillRect(Rect);
while i <= length(bt) do
begin
bt1 := copy(bt, i, 2);
grd.Canvas.TextOut(x,y, bt1);
i := i + 2;
y := y + h;
end;
end;
procedure TForm1.StringGrid1DrawCell(Sender: TObject; ACol, ARow: Integer;
Rect: TRect; State: TGridDrawState);
var
x,y,i,h: integer;
grd: TStringGrid;
bt,bt1: string;
begin
if ACol + ARow <> 0 then Exit;
grd := Sender as TStringGrid;
bt := grd.cells[ACol, ARow];
if trim(bt) = '' then exit;
h := grd.Canvas.TextHeight(bt);
i := 1;
x := rect.Left + 5;
y := rect.Top + 2;
grd.Canvas.Brush.Color := clBtnface;
grd.Canvas.FillRect(Rect);
while i <= length(bt) do
begin
bt1 := copy(bt, i, 2);
grd.Canvas.TextOut(x,y, bt1);
i := i + 2;
y := y + h;
end;
end;
- 如何用stringgrid实现第一行标题的竖列显示呀,
- StringGrid去掉第一行第一列的蓝色框
- StringGrid去掉第一行第一列的蓝色框
- 如何用javascript实现 网页标题的滚动效果
- 如何用DataGrid实现类似DataList多列的效果
- 如何用awk过滤最后一行的?
- 如何用extjs实现海量数据的快速分页显示
- 如何用SQL语句把同一列的数据按某个group by语句组合成一行数据
- 窗体加载时StringGrid的第一行数据不被选中(去掉蓝色背景色)
- jqGrid列标题合并,一行显示,(三列共用同一列名称)
- DataGrid第一行第一列数据显示不了
- 如何用C的CGI实现网页的分页显示功能?
- 如何用easy-ui显示两张表的数据而且实现两张表的增,删,改。
- StringGrid列的插入、删除、排序
- MySQL中如何用一句SQL语句将多行多列合并成一行一列显示
- 如何用C#来实现以动画的方式显示图像
- 要求:把“内容”中与 ”标题“一样的文字批量删除了,如何用sql语句实现
- 如何用sql语句去掉列的自增长(identity)
- Spring AOP之ThrowsAdvice (zz from guchengting's Blog)
- 【转载】CSS样式表全接触
- 决心在CSDN上安个家!
- 使用like表达式注意的问题
- [转至网易]网络侵权处罚空前严厉 个人提供非法下载也要罚
- 如何用stringgrid实现第一行标题的竖列显示呀,
- Java试题
- php的几点非常用
- 关于VB.net代码转化为C#代码出现的一些问题
- 中国互联网协会正式公布流氓软件官方定义
- 在Eclipse中显示打印线
- div的visibility可以控制div的显示和隐藏
- Excle
- 《标准日本语》初级单词汇总