Einzelnen Beitrag anzeigen

Delphi.Narium

Registriert seit: 27. Nov 2017
2.508 Beiträge
 
Delphi 7 Professional
 
#13

AW: Wie ziehe ich eine farbige Linie in einem DBGrid / DrawColumnsCell-Event?

  Alt 26. Nov 2021, 17:16
Also kurz und knapp:

Das Ganze ist hoch dynamisch.

Momentan hab' ich da keine Idee.

Es scheint wohl so zu sein, dass man nicht davon ausgehen kann, dass alle Zellen von oben links beginnend nach rechts und schön zeilenweise gezeichnet werden, sondern so, wie es das DBGrid für richtig hält bzw. nur jeweils die Zellen, deren Neuzeichnen tatsächlich erforderlich ist. Also z. B. nur der sichtbare Bereich oder die Zellen, die nach dem Wegklicken eines ShowMessagesdialoges wieder sichtbar werden. Dies würde dann auch die nicht nachvollziehbaren Werte für DataCol, ... erklären.

Eventuell gibt es ja noch eine andere Möglichkeit, wenn auch jetzt sehr aus dem Bauch heraus und ungetestet:
Delphi-Quellcode:
// Beispiel von weiter oben etwas abgewandelt:
procedure TForm1.dbgDrawColumnCell(Sender: TObject; const Rect: TRect; DataCol: Integer; Column: TColumn; State: TGridDrawState);
var
  Monat : Integer;
  Monatswechsel : Boolean;
begin
  // Den Monat des aktuellen Datensatzes holen.
  Monat := dbg.DataSource.DataSet.FieldByName('Monat').AsInteger;
  // Den mit dem gemerkten Monat vergleichen.
  Monatswechsel := fMonatOld <> Monat;
  // Hat ein Monatswechsel stattgefunden?
  if Monatswechsel then begin
    // Wenn ja, Linie zeichnen.
    dbg.Canvas.Pen.Color := $00243C79; // $005180F5; // Linienfarbe für die Monatstrennung
    dbg.Canvas.Pen.Width := 5; // Stärke der Linie, erzeugt einen Ballon am Zeilenbeginn
    // Der linke Rand des DBGrids:
    dbg.Canvas.MoveTo(0,Rect.Top);
    // Linie über die Breite des DBGrids:
    dbg.Canvas.LineTo(dbg.Width,Rect.Top);
    fMonatOld := Monat;
  end;
end
Hoffe, dass damit egal ist, welche Spalte zuerst und welche zuletzt gezeichnet wird, da die Linie (hoffentlich) über die gesamte Breite des DBGrids gezogen wird.
  Mit Zitat antworten Zitat