Re: DBRVE

Return to index

Author

Message

Emil

Posted: 11/07/2003 23:24:03

Thanks, this worked.

I was also trying to figure out how to save controls in dbrve,

every time the data is loaded again the controls are missing.

And another question:

I'm trying to select rows/cols by double clicking the first cell

in a row/col. Its seems to work but also gives an AV.

procedure TForm1.rv1DblClick(Sender: TObject);

var item: TCustomRVItemInfo;

    table: TRVTableItemInfo;

    rve: TCustomRichViewEdit;

    r, c, ItemNo: Integer;

begin

  if not RV1.GetCurrentItemEx(TRVTableItemInfo,rve, item) then

    exit;

  table := TRVTableItemInfo(item);

  table.GetEditedCell(r, c);

  if c = 0 then table.SelectRows(r,1) else

     if r = 0 then table.SelectCols(c,1);

end;

Using a button with this code works without the error.

Thanks again,

Emil