TDBGrid/TJvDBGrid Highlighting direkt nach dem Einlesen

**Bodenseematze**

Hallo,

ich verwende ein TJvDBGrid zur Darstellung von Detail-Datensätzen, wobei eine Spalte mit langem Bezeichnungstext in der Tabelle nie vollständig sichtbar ist und deshalb der Text der aktuell selektierten Zeile zusätzlich noch auf der Maske in einem TDBMemo dargestellt wird.
Das ganze basiert auf TDataSource / TQuery-Kombinationen (BDE - ja, ich weiß

) und Delphi 7.

Nachdem der Hauptdatensatz und die Detail-Datensätze eingelesen sind, wird auf den letzten Detaildatensatz positioniert.
Das Memo-Feld zeigt dann auch richtigerweise den vollständigen Text des letzten Satzes an.

Aber leider ist im Grid die (aktive) Zeile nicht markiert / hervorgehoben, sondern komischerweise in einer anderen Zeile eine Spalte GridSelect-NOK.jpg

Erst wenn ich in eine Zeile im Grid klicke, wird diese korrekt hervorgehoben:
GridSelect-OK.jpg

BTW, das klicken ins Grid ohne eine Zeile zu "erwischen", verändert nichts - die Hervorhebung bleibt falsch.

Programmtechnisch habe ich auch schon versucht, den Fokus zu setzen - ohne Erfolg (vielleicht ist das auch nicht zum richtigen Zeitpunkt gemacht worden...)
(wurde im OnAfterScroll des Detail-Queries gemacht)

Das Grid hat MultiSelect und die folgenden Optionen gesetzt: dgEditing, dgTitles, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgConfirmDelete, dgCancelOnExit, dgMultiSelect
Außerdem ist eine AlternateRowColor gesetzt, damit jede zweite Zeile anders hinterlegt ist.
AutoSizeRows ist gesetzt

Im OnDrawColumnCell-Handler des Grids werden:
- Spalten, deren Wert sich ggü. der Datenbank geändert hat, rot markiert
(bzw. alle Spalten einer Zeile, wenn die Zeile neu ist)
- wenn der TGridDrawState gdSelected enthält, wird die Font-Farbe auf clHighlightText gesetzt
(das ist standardmäßig nicht so und m.E. ein Bug)
- bei schreibgeschützten Spalten wird die Hintergrundfarbe "aufgehellt"
- die Spalten (bis auf die o.a. Bezeichnungsspalte) werden ggf. in der Breite angepasst, damit der Inhalt komplett sichtbar ist

Wie bekomme ich es hin, dass nach dem Einlesen der Datensätze die Zeile des aktiven Datensatzes hervorgehoben wird?
(die Option dgAlwaysShowSelection habe ich auch schon testweise gesetzt - hat nichts verändert)

Hier noch der relevante Code aus dem OnDrawColumnCell-Event des Grids:

zusammenfalten · markieren

Delphi-Quellcode:

			procedure   TMyClass.dbGridDetailDrawColumnCell(

                                    sender_              : TObject;

                                    const rect_          : TRect;

                                    iDataCol_            : Integer;

                                    col_                 : TColumn;

                                    drawState_           : TGridDrawState );

var

   fld               : TField;

   bHandled          : Boolean;

   iWidthTitle       : Integer;

   iWidth            : Integer;

   fontContent       : TFont;

   iRowCount         : Integer;

   myGrid            : THackedDBGrid;

begin

   if ( NOT Assigned(col_) ) then begin

      inherited;

      Exit;

   end;

   bHandled                := false;

   fld                     := col_.Field;

   myGrid                  := THackedDBGrid( dbGridDetail );

   if ( NOT fld.Calculated ) then begin

      bHandled             := true;

      if ( IsModified(fld) or

           (qryTail.CachedUpdates and ( qryTail.UpdateStatus() = usInserted )) ) then begin

         myGrid.Canvas.Font.Color := clRed;

      end

      else begin

         myGrid.Canvas.Font.Color := clWindowText;

      end;

   end;

   if ( (gdSelected in drawState_) ) then begin

      if ( myGrid.Canvas.Font.Color <> clHighlightText ) then begin

         bHandled          := true;

         // die Fontfarbe "korrekt" setzen:

         myGrid.Canvas.Font.Color   := clHighlightText;

      end;

   end

   else

   if ( col_.ReadOnly ) then begin

      // Hintergrundfarbe etwas "aufhellen":

      bHandled             := true;

      if ( NOT Odd(myGrid.CurrentDrawRow) ) then begin

         myGrid.Canvas.Brush.Color

                           := Unit_HelperMisc.ColorLighterOrDarker(

                                    myGrid.AlternateRowColor,

                                    +10 );

      end

      else begin

         myGrid.Canvas.Brush.Color

                           := Unit_HelperMisc.ColorLighterOrDarker(

                                    myGrid.Color,

                                    +10 );

      end;

   end;

   // ggf. Größenanpassung (ausser bei der "Text"-Spalte, die wird am Schluss

   //   dann in dbGridTailColsResize behandelt):

   if ( NOT _bGridTailColsWidthSet ) then begin

      if ( NOT AnsiSameText(col_.FieldName, 'Text') ) then begin

         iWidthTitle       := 0;

         if ( dgTitles in myGrid.Options ) then begin

            // der Titel hat evtl. einen anderen Font

            // --> umstellen:

            fontContent    := myGrid.Canvas.Font;

            myGrid.Canvas.Font := myGrid.TitleFont;

            iWidthTitle    := myGrid.Canvas.TextExtent(

                                       col_.Title.Caption + ' \/' ).cx;

            myGrid.Canvas.Font   := fontContent;

         end;

         iWidth            := myGrid.Canvas.TextExtent(

                                       fld.DisplayText ).cx;

         if ( (myGrid.MinColumnWidth > 0) and

              (iWidth < myGrid.MinColumnWidth) ) then begin

            iWidth         := myGrid.MinColumnWidth;

         end;

         if ( (myGrid.MaxColumnWidth > 0) and

              (iWidth > myGrid.MaxColumnWidth) ) then begin

            iWidth         := myGrid.MaxColumnWidth;

         end;

         if ( iWidthTitle > iWidth ) then begin

            iWidth         := iWidthTitle;

         end;

         Inc( iWidth, 5 );

         if ( iWidth <> col_.Width ) then begin

            col_.Width     := iWidth;

         end;

      end; // if ( NOT AnsiSameText(col_.FieldName, 'Text') ) then

      // letzte Spalte

      // --> Breite der Text-Spalte auch setzen:

      if ( iDataCol_ = (myGrid.Columns.Count - 1) ) then begin

         dbGridTailSetColTextWidth();

         // letzte Zeile:

         if ( qryTailPos_Nr.AsInteger = _lstPosNr.Max ) then begin

            _bGridTailColsWidthSet  := true;

         end;

      end;

   end; // if ( NOT _bGridTailColsWidthSet ) then

{$IFDEF notdef} // das hebt die falsche Zeile hervor:

   // aktuell ausgewählte Zeile auch entspr. markieren:

   if ( (myGrid.Row = ( myGrid.DataLink.ActiveRecord + 1 )) ) then begin

 //or

//        (gdFocused in drawState_) or

//        (gdSelected in drawState_) ) then begin

      myGrid.Canvas.Brush.Color  := clHighLight;

      myGrid.Canvas.Font.Color   := clHighLightText;

      bHandled             := true;

   end;

{$ENDIF notdef}

   if ( bHandled ) then begin

      dbGridTail.DefaultDrawColumnCell( rect_, iDataCol_, col_, drawState_ );

   end;

   inherited;

end;

TDBGrid/TJvDBGrid Highlighting direkt nach dem Einlesen

TDBGrid/TJvDBGrid Highlighting direkt nach dem Einlesen

Forumregeln