Subject | Error in TIB_CustomCombo |
---|---|
Author | Paulo Henrique Albanez |
Post date | 2001-12-21T14:14:52Z |
It occurs an exception when there is not a Dataset defined.
In IB_Grid.pas.
procedure TIB_CustomCombo.DropDown;
var
ItemCount: Integer;
P: TPoint;
Y: Integer;
ListWidth, ListHeight, LeftPos: integer;
SysBorderWidth, SysBorderHeight: integer;
tmpRow: integer;
AllowHorizSB: boolean;
begin
AllowHorizSB := true;
if not PopupList.Visible and ( Width > 20 ) then
begin
DoDropDown;
if FCanDropDown then
begin
ItemCount := DropDownCount;
if ItemCount <= 0 then
ItemCount := 7;
with PopupList do
begin
with DataLink.Dataset do
begin
if not BufferHasBof and not BufferHasEof then =====> HERE
PHA
Nova Odessa / SP - Brazil
[Non-text portions of this message have been removed]
In IB_Grid.pas.
procedure TIB_CustomCombo.DropDown;
var
ItemCount: Integer;
P: TPoint;
Y: Integer;
ListWidth, ListHeight, LeftPos: integer;
SysBorderWidth, SysBorderHeight: integer;
tmpRow: integer;
AllowHorizSB: boolean;
begin
AllowHorizSB := true;
if not PopupList.Visible and ( Width > 20 ) then
begin
DoDropDown;
if FCanDropDown then
begin
ItemCount := DropDownCount;
if ItemCount <= 0 then
ItemCount := 7;
with PopupList do
begin
with DataLink.Dataset do
begin
if not BufferHasBof and not BufferHasEof then =====> HERE
PHA
Nova Odessa / SP - Brazil
[Non-text portions of this message have been removed]