能将TStringgrid中间的几列下降半行的方法或类似控件!(200分)

X

xyd_jy

Unregistered / Unconfirmed

GUEST, unregistred user!

• 1999-11-12

• #1

能将TStringgrid中间的几列下降半行的方法或类似控件!,添入的数值也能一起下降半行!

 

A

amo

Unregistered / Unconfirmed

GUEST, unregistred user!

• 1999-11-12

• #2

好眼熟的问题，
这样试试：
procedure TForm1.StringGrid1DrawCell(Sender: TObject; ACol, ARow: Integer;
Rect: TRect; State: TGridDrawState);
var
r:trect;
begin
if (acol=1) {and (arow=1)} then
begin
r:=rect;
stringgrid1.canvas.FillRect(rect);
r.Top:=r.top+12;
drawtext(stringgrid1.Canvas.handle,pchar(stringgrid1.cells[acol,arow]),
length(stringgrid1.cells[acol,arow]),r,DT_WORDBREAK);
end;
end;

 

H

hansong

Unregistered / Unconfirmed

GUEST, unregistred user!

• 1999-11-12

• #3

什么用处呢?

 

X

xyd_jy

Unregistered / Unconfirmed

GUEST, unregistred user!

• 1999-11-14

• #4

非常感谢amo的回答!
我指TStringgrid中间的某列下降半行,是能让字符和gridline同步下降,
字符仍然显示在中间,能否再次回答,谢谢!

 

A

amo

Unregistered / Unconfirmed

GUEST, unregistred user!

• 1999-11-14

• #5

可是可以，（通过改造stringgrid）
不过
首先我不清楚你想用来干什么？
其次比较麻烦。

 

C

cytown

Unregistered / Unconfirmed

GUEST, unregistred user!

• 1999-11-15

• #6

哦, 是指改变任意一行的高度
以前有人问过, 查找一下.

 

W

wjiachun

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2000-08-27

• #7

end or continue?

 

W

wjiachun

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2000-10-22

• #8

接受答案了.