DBGridEH表格区填满表格线的问题[转帖]

在Delphi如何实现模拟组合按键，如发送Ctrl_F的按键消息

快速地删除一个目录

大 | 中 | 小

2009年10月24日发表时间

21:58

537

xieyunc

Delphi

这是网络上的一个转帖，本文来源：http://blog.csdn.net/Rzhghost/archive/2007/05/22/1620235.aspx
表格区填满表格线的问题，修改如下(经博主实践，①内容在EHLib 3.6版本，②内容在EHLib 4.1.4和4.2.16版本中均验证通过)：
①3.6版本中修改DBGridEh.pas单元的UpdateRowCount过程：

procedure TCustomDBGridEh.UpdateRowCount;
var BetweenRowHeight, t: Integer;
 OldRowCount, OccupiedHeight, VisibleDataRowCount, NewRowCount: Integer;
  //。。。。。。。。。。。。。。
begin
  //...............................
 with FDataLink do
   if not Active or (RecordCount = 0) or not HandleAllocated then
   begin
     //.................
   end else
   begin
     VisibleDataRowCount := (ClientHeight - OccupiedHeight {- LineHeight}) div DefaultLineRowHeight;
     if VisibleDataRowCount <= 0 then VisibleDataRowCount := 1;

FDataLink.BufferCount := VisibleDataRowCount;
     if FFooterRowCount = 0 then  //增加的一个条件，用户可以用FooterRowCount值来决定是否填满表格线
       VisibleDataRowCount := FDataLink.RecordCount;
     Inc(OccupiedHeight, DefaultLineRowHeight * VisibleDataRowCount);
     NewRowCount := VisibleDataRowCount + TopDataOffset;

if FooterRowCount > 0 then
     begin
       NewRowCount := NewRowCount + FooterRowCount + 1;
       SetRowCount(NewRowCount);
       BetweenRowHeight := ClientHeight - OccupiedHeight {- LineHeight};
       if BetweenRowHeight < 0 then BetweenRowHeight := 0;
       //RowHeights[TopDataOffset + VisibleDataRowCount] := BetweenRowHeight;//原代码行
       RowHeights[TopDataOffset + VisibleDataRowCount] := 0;//修改后的代码行
       //把多余的不足一行的高度加在最后一行,增加下面一行代码       
       RowHeights[FTitleOffset + VisibleDataRowCount] := DefaultRowHeight+BetweenRowHeight;
     end else
       SetRowCount(NewRowCount);

UpdateActive;
   end;
 if OldRowCount <> RowCount then Invalidate;
end;

②4.14版本中也是修改DBGridEh.pas单元的UpdateRowCount过程：

procedure TCustomDBGridEh.UpdateRowCount;
var
 BetweenRowHeight,{恢复被注释掉的变量BetweenRowHeight} t: Integer;
 OldRowCount, OccupiedHeight, VisibleDataRowCount, NewRowCount: Integer;
。。。。。。。。。。。。。
begin
...........................
 with FDataLink do
   if not Active or (RecordCount = 0) or not HandleAllocated then
   begin
     //MoveColRow(Col, TitleOffset, False, False);

SetRowCount(1 + TopDataOffset);
     ContraRowCount := FooterRowCount;
     //恢复原代码中被注释掉的语句行
     (*========================================================================*)
     SetRowCount(1 + TopDataOffset);
     Inc(OccupiedHeight, DefaultLineRowHeight);
     if HandleAllocated then
     begin
       if (FooterRowCount > 0) then
       begin
         SetRowCount(RowCount + FooterRowCount + 1);
         BetweenRowHeight := ClientHeight - OccupiedHeight {- LineHeight};
         if BetweenRowHeight < 0 then BetweenRowHeight := 0;
         RowHeights[TopDataOffset + 1] := BetweenRowHeight;
       end;
     end;
     (*========================================================================*)
   end else
   begin
     VisibleDataRowCount := (ClientHeight - OccupiedHeight {- LineHeight}) div DefaultLineRowHeight;
     if VisibleDataRowCount <= 0 then VisibleDataRowCount := 1;

FDataLink.BufferCount := VisibleDataRowCount;
     if FFooterRowCount = 0 then  //增加的一个条件，用户可以用FooterRowCount值来决定是否填满表格线     
       VisibleDataRowCount := FDataLink.RecordCount;
     Inc(OccupiedHeight, DefaultLineRowHeight * VisibleDataRowCount);
     NewRowCount := VisibleDataRowCount + TopDataOffset;

if FooterRowCount > 0 then
     begin
       SetRowCount(NewRowCount);
       ContraRowCount := FooterRowCount;
       //恢复原代码中注释掉的部分
       (*========================================================================*)
       NewRowCount := NewRowCount + FooterRowCount + 1;
       SetRowCount(NewRowCount);
       BetweenRowHeight := ClientHeight - OccupiedHeight {- LineHeight};
       if BetweenRowHeight < 0 then BetweenRowHeight := 0;
       //RowHeights[TopDataOffset + VisibleDataRowCount] := BetweenRowHeight;//这一行仍然不要，改成下面的代码
       (*========================================================================*)
       RowHeights[TopDataOffset + VisibleDataRowCount] := 0;//修改后的代码行
       //把多余的不足一行的高度加在最后一行,增加下面一行代码       
       RowHeights[FTitleOffset + VisibleDataRowCount] := DefaultRowHeight+BetweenRowHeight;        
     end else
       SetRowCount(NewRowCount);

UpdateActive;
   end;
 if OldRowCount <> RowCount then Invalidate;
end;

< 2010 > < 9 > 庚寅年（虎）
日	一	二	三	四	五	六
			1	2	3	4
5	6	7	8	9	10	11
12	13	14	15	16	17	18
19	20	21	22	23	24	25
26	27	28	29	30

小宇飞刀的BLOG

DBGridEH表格区填满表格线的问题[转帖]

个人档案

分类

日历

统计

链接

归档

其他

最新日志

最新评论

发表评论
表情打开HTML 打开UBB 打开表情隐藏记住我	昵称密码游客无需密码网址电邮 [注册]