VCL.TDBGrid - CustomDraw für selectierte Row?

[Uwe Raabe]

Du willst doch nur wissen, ob die aktuell zu zeichnende Zeile die ausgewählte Zeile ist, oder? Dazu sollte eine Überprüfung auf

Delphi-Quellcode:

ActiveRecord = CurrentRecord

im DataSet ausreichen. Dass das protected Properties sind macht dir sicher keine Probleme.

[himitsu]

Jupp, AfterScroll funktioniert. :firejump:
Hab aber RecNo benutzt ... einfacher, schneller und universeller.


Nja, aber dennoch würde ich es mal als Bug ansehen, dass man die selektierte Row nicht auslesen kann.

Und zusätzlich als FeatureRequest, dass sie doch einfach diesen Status ins TGridDrawState aufnehmen könnten.




@Uwe: Ich probiers mal. :thumb:
AfterScoll hatte ich schon ... da nur noch die neue Variable rein ... das mit dem protected wird ein paar Zeilen mehr Code, aber sieht bestimmt dennoch besser aus.

Für MemIniFile hatte ich auch schon einen Bugfix, da dort jemand bei den Default-Werten Mist gebaut hat.

[himitsu]

Nee, CurrentRecord ist immer -1
und ActiveRecord entspricht einem RecNo-1.

[Uwe Raabe]

Zitat:

Zitat von himitsu (Beitrag 1523691)

Und zusätzlich als FeatureRequest, dass sie doch einfach diesen Status ins TGridDrawState aufnehmen könnten.

:thumb:

[himitsu]

So, hier erstmal als TestProjekt.

Komisch nur, im eigentlichen Projekt gehen Dinge, die hier nicht gehn,
und zusätzlich sind mir neue Probleme aufgefallen.

• Egal ob im OnCreate oder OnShow (wie im anderen Projekt) erzeugt/gefüllt, wird direkt nach dem Start die selektierte Zeile nicht farbig angezeigt.
  • Auch ein Invalidate am Ende von OnCreate/OnShow hilft nicht.
    Klar, denn AfterScroll machte das auch schon, und das half beim Laden auch noch nicht.
  • Also erstmal die selektierte Zeile ändern.
  • Das Zuweisen des Index vor dem Hinzufügen/Add hilft auch nicht. (so wie es im anderen Projekt passiert)
    Mir war aufgefallen, dass beim Ändern des Sortierungs-Index kein afterScroll ausgelöst wird.
• Ohne das Invalidate im AfterScroll, ist die Färbung falschrum, wenn mit dem Mausrad gescrollt wird. (AfterScroll wird dort nach dem Repaint der beiden Zeilen ausgeführt)
  [EDIT] Nee, im eigentlichen Projekt passiert das nicht, auch ohne ein Invalidate dort. Obwohl das Zeichnen und AfterScroll prinzipiell gleich ist.
  [EDIT2] OK, dort wird die Form.Caption im Scroll geändert, aber ändert nichts am Verhalten.
  [EDIT3] Und ich hatte drüben Form.Style = Windows, damit die Form im Designer der grauenhaft geskinten IDE wie zur Laufzeit aussieht ... aber ändert auch nichts am Verhalten.
• im DBGrid1DrawColumnCell verstecken sich oben je Zeile verschiedene Versuche

[Olli73]

Du könntest Mal probieren, dir die Recno im TDataSource.OnDataChange zu merken.

[ol1uw]

Hallo

bei der jetzigen Implementation nach dem hinzufügen der Daten einen "scroll" auslösen z.B.

Code:

ClientDataSet1.First;

Eine andere Möglichkeit wurde hier beschrieben https://stackoverflow.com/questions/...d-row-via-code

Code:

type
 THackDBGrid = class (TDBGrid);

...

procedure TForm1.DBGrid1DrawColumnCell(Sender: TObject;
           const Rect: TRect; DataCol: Integer; Column: TColumn;
           State: TGridDrawState);
begin
 if (THackDBGrid(dbGrid1).DataLink.ActiveRecord + 1 = THackDBGrid(dbGrid1).Row)
  or (gdFocused in State) or (gdSelected in State) then
   dbGrid1.canvas.Brush.Color:= clMoneyGreen;


 dbGrid1.DefaultDrawColumnCell (Rect, DataCol, Column, State);
end;

Uwe

[himitsu]

Stimmt ... drüben wird nach dem Hinzufügen noch mehrmals gescrollt. :thumb:
Es gibt mehrere Quellen für die Daten und anschließend wird nochmal über alles gegangen und Zusatzinfos hinzugefügt.

Die einfache Lösung für das fehlende Malen nun entdeckt: AfterScroll und AfterPost (dort auch das AfterScroll-Event angehängt)


@ol1uw: :firejump:
Hab's nur noch etwas abgewandelt.

• den DataLink-Hack durch ein einfaches RecNo ersetzt
• den Grid-Hack durch einen anderen bösen Cast ersetzt (nach TStringGrid), weil der existiert bereits
• und Hack bzw. Hacked nenne ich solche Klassen nicht mehr. Access klingt freundlicher und beschreibt auch besser, wozu sie hier dienen soll :angle2:
• ACHTUNG: Aufpassen, ob die dgTitles in den Optionen, also ob das +1 bzw. -1 nötig ist.

Delphi-Quellcode:

if DataSet1.RecNo = {TDBGridAccess}TStringGrid(DBGrid1).Row then  // DataSet1.RecNo-1 wenn ohne dgTitles

Hab auch den Anhang in #15 noch schnell mit dem aktuellen Code aktualisiert.