🚀 go-pugleaf

"Paolo Borlandi" <pborlandi@virgilio.it> wrote in message
news:4146e331@newsgroups.borland.com...
| I need to trap the mouseup event shooten from the right scrollbar of a
| TDBGrid to refresh an image corresponding to a grid row. Using the scrollbar
| results to move the selection bar to another row and also the image must be
| reloaded. Have some suggestion?

You're better off trapping the much more generic "I have moved to a different
record" event. This is actually the OnDataChange of the DataSource object
connected to the DBGrid and TTable objects you are using. Here is an example
using an AdsTable descendant of TTable :-

//---------------------------------------------------------------------------
// Triggered when going to a new record (row)
void __fastcall TForm1::DataSource1DataChange(TObject *Sender,TField *Field)
{
  AnsiString delmes,fnm,peace; int ii; char sng='\'';
  if (DBGrid1->LayoutLock!=0 || AdsTable1->ControlsDisabled()) return;
  if (filtno==0)
  {
    recallbtn->Enabled=false; StatusBar1->Panels->Items[1]->Text="";
    StatusBar1->Panels->Items[2]->Text="No.Recs.=0";
    recdsp->Text="No Records to Display\r\n"; return;
  }
  if (AdsTable1->RecNo>0 && AdsTable1->AdsIsRecordDeleted(0))
  {
    delmes=" Deleted"; recallbtn->Enabled=true;
  }
  else { delmes=""; recallbtn->Enabled=false;}

StatusBar1->Panels->Items[1]->Text="Rec.No."+mjfmtnm(AdsTable1->RecNo)+delmes;
  StatusBar1->Panels->Items[2]->Text="No.Recs.="+mjfmtnm(filtno);
  recdsp->Text=mjdsprec(AdsTable1,fldlist); DBGrid1ColEnter(Sender);
}
//---------------------------------------------------------------------------
// Triggered when going to a new field (column)
void __fastcall TForm1::DBGrid1ColEnter(TObject *Sender)
{
  AnsiString fnm;
  if (!AdsTable1->Active || filtno==0) return;
  fnm=(DBGrid1->SelectedField->FieldName+"         ").SubString(1,10)+":";
  if (recdsp->Text.Pos(fnm)>0) wildfindtext(recdsp,0,fnm,false,false);
}
//---------------------------------------------------------------------------
HTH
-- 
Mark Jacobs
DK Computing
http://www.dkcomputing.co.uk
markj atty critical dotty co dotty uk