🚀 go-pugleaf

That is what I did!!

Thank YOU!!


"Mark Jacobs" <markj atty critical dotty co dotty uk> ha scritto nel
messaggio news:41471202@newsgroups.borland.com...
> "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)+delme
s;
>   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
>
>