|
共有评论25条
当前显示最后6条评论
|
| wuchanjieji |
2008/9/30 21:02:12 |
[Error] Frm_FilterList.pas(240): Incompatible types: 'DBGrids.TDBGridOption' and 'DBGridEh.TDBGridOption'
[Error] Frm_FilterList.pas(392): Incompatible types: 'DBGrids.TDBGridOption' and 'DBGridEh.TDBGridOption'
[Error] Frm_FilterList.pas(525): Incompatible types: 'DBGrids.TDBGridOption' and 'DBGridEh.TDBGridOption'
delphi 7中不能安装啊 |
| 45544502 |
2008/11/26 10:54:02 |
[Hint] Frm_FilterList.pas(166): Value assigned to 'nModal' never used
[Error] Frm_FilterList.pas(240): Incompatible types: 'DBGrids.TDBGridOption' and 'DBGridEh.TDBGridOption'
[Error] Frm_FilterList.pas(392): Incompatible types: 'DBGrids.TDBGridOption' and 'DBGridEh.TDBGridOption'
[Error] Frm_FilterList.pas(525): Incompatible types: 'DBGrids.TDBGridOption' and 'DBGridEh.TDBGridOption'
[Warning] Frm_FilterList.pas(1205): Unsafe type 'TBookmark'
[Warning] Frm_FilterList.pas(1223): Unsafe code '@ operator'
[Warning] Frm_FilterList.pas(1229): Unsafe type 'SavePlace: Pointer'
[Warning] Frm_FilterList.pas(1276): Unsafe type 'SavePlace: Pointer'
[Warning] Frm_FilterList.pas(1277): Unsafe type 'SavePlace: Pointer'
[Hint] Frm_FilterList.pas(41): Private symbol 'FMemo' declared but never used
[Hint] Frm_FilterList.pas(55): Private symbol 'NewAfterOpen' declared but never used
[Hint] Frm_FilterList.pas(56): Private symbol 'SetStrField' declared but never used
[Hint] Frm_FilterList.pas(61): Private symbol 'SetAutoStart' declared but never used
[Hint] Frm_FilterList.pas(129): Private symbol 'FbMouseCapture' declared but never used
[Hint] Frm_FilterList.pas(131): Private symbol 'IsInRect' declared but never used
[Fatal Error] TFilterList.dpk(41): Could not compile used unit 'Frm_FilterList.pas'
delphi 7中不能安装啊,要怎么弄？ |
| solarmoon |
2009/1/7 13:37:01 |
之前已回复过了:
最近改为用delphi2007+ehlib4.2, 也发现这个问题,解决的办法是打开Frm_FilterList.pas 文件,找到第240行,将语句:
if dgIndicator in Grid.Options then 改为
if DBGridEh.dgIndicator in Grid.Options then
即可, 出错的原因是在delphi2007中将 dgIndicator 识别成 DBGrids.TDBGridOpton的成员. |
| ship0217 |
2009/8/22 18:54:00 |
| [Error]Never-build pachage ‘TFilterList’ requires always-build pachage ‘EhLib70’ |
| PatchHome |
2010/7/27 11:18:06 |
| solarmoon你好,DBGrideh如果开启dghShowRecNo后，过滤后的记录会把显示的记录号不显示了，有什么方法解决吗？另外什么时候来个升级版，能自行设置哪几项进行过滤。呵呵。 |
| jlwen |
2013/4/11 22:06:05 |
在实际运行中，run 并 stopFilter 一次后，再次 run ，在调整列宽或移动列顺序的时候，软件会异常退出。经测试，更改一下下面的代码，可以去除此错误：
将这里的代码：
procedure TFilterList.RestoreEvent;
begin
try //grid column move
if assigned(FGridColumnMoved) then //还原
Grid.OnColumnMoved := FGridColumnMoved;
except
on E: exception do
begin
ShowMessage(e.Message);
end;
end;
try //grid width
if assigned(FGridColWidthsChanged) then //还原
Grid.OnColWidthsChanged := FGridColWidthsChanged;
except
on E: exception do
begin
ShowMessage(e.Message);
end;
end;
改成：
procedure TFilterList.RestoreEvent;
begin
try //grid column move
if assigned(FGridColumnMoved) then //还原
Grid.OnColumnMoved := FGridColumnMoved
else ///----------添加这两行
Grid.OnColumnMoved := nil;
except
on E: exception do
begin
ShowMessage(e.Message);
end;
end;
try //grid width
if assigned(FGridColWidthsChanged) then //还原
Grid.OnColWidthsChanged := FGridColWidthsChanged
else ///----------添加这两行
Grid.OnColWidthsChanged := nil;
except
on E: exception do
begin
ShowMessage(e.Message);
end;
end;
即可。 |
| 我要发表评论 |
查看全部评论 |
