AGB  ·  Datenschutz  ·  Impressum  







Anmelden
Nützliche Links
Registrieren
Thema durchsuchen
Ansicht
Themen-Optionen

DBGrid -> Zeilenkopf farblich ändern

Ein Thema von HolgerCW · begonnen am 10. Jan 2013 · letzter Beitrag vom 10. Jan 2013
Antwort Antwort
HolgerCW

Registriert seit: 28. Nov 2006
Ort: Marl
1.207 Beiträge
 
Delphi XE7 Enterprise
 
#1

AW: DBGrid -> Zeilenkopf farblich ändern

  Alt 10. Jan 2013, 11:05
Lösung:
Delphi-Quellcode:
procedure TForm1.DBGrid1DrawColumnCell(Sender: TObject;
  const Rect: TRect; DataCol: Integer; Column: TColumn; State: TGridDrawState);
var
 MyRect :TRect;
begin

if (DataModule1.Query1['PLANUNGSTERMIN'] < Date) then
 begin

  MyRect := Rect;

  DBGrid1.Canvas.Brush.Color := clred;
  DBGrid1.Canvas.Font.Color := clred;

  MyRect.Left := 1;
  MyRect.Right := 10;

  DBGrid1.DefaultDrawColumnCell(MyRect, DataCol, Column, State);

 end;
end;
  Mit Zitat antworten Zitat
Benutzerbild von Uwe Raabe
Uwe Raabe
Online

Registriert seit: 20. Jan 2006
Ort: Lübbecke
11.757 Beiträge
 
Delphi 12 Athens
 
#2

AW: DBGrid -> Zeilenkopf farblich ändern

  Alt 10. Jan 2013, 13:12
Lösung:
Delphi-Quellcode:
procedure TForm1.DBGrid1DrawColumnCell(Sender: TObject;
  const Rect: TRect; DataCol: Integer; Column: TColumn; State: TGridDrawState);
var
 MyRect :TRect;
begin

if (DataModule1.Query1['PLANUNGSTERMIN'] < Date) then
 begin

  MyRect := Rect;

  DBGrid1.Canvas.Brush.Color := clred;
  DBGrid1.Canvas.Font.Color := clred;

  MyRect.Left := 1;
  MyRect.Right := 10;

  DBGrid1.DefaultDrawColumnCell(MyRect, DataCol, Column, State);

 end;
end;
Sieht für mich irgendwie falsch aus!

Der Event wird für jede Zelle im Grid aufgerufen, zeichnet aber immer nur zwischen Pixel 1 und 10 (macht also für jede Spalte immer wieder das gleiche, solange die Bedingung in der Zeile zutrifft), was übrigens spätestens bei geänderten Metriken für die FixedColumn zu einem Problem werden kann.

Leider gibt es keinen Event, der aufgerufen wird, wenn die FixedColumn gezeichnet wird. Insofern ist es schon ein akzeptabler WorkAround, den Event einer anderen Spalte heranzuziehen - die Betonung liegt aber da auf eine.

Die Breite der Indicator-Spalte steht übrigens in ColWidth[0].

Bei Brush.Color = clRed und Font.Color = clRed kann man auch gleich ein FillRect nehmen. Eventuell muss man das Rect dann vorher um 1 Pixel schrumpfen, um die Gitterlinien nicht zu übermalen.
Uwe Raabe
Certified Delphi Master Developer
Embarcadero MVP
Blog: The Art of Delphi Programming
  Mit Zitat antworten Zitat
Antwort Antwort


Forumregeln

Es ist dir nicht erlaubt, neue Themen zu verfassen.
Es ist dir nicht erlaubt, auf Beiträge zu antworten.
Es ist dir nicht erlaubt, Anhänge hochzuladen.
Es ist dir nicht erlaubt, deine Beiträge zu bearbeiten.

BB-Code ist an.
Smileys sind an.
[IMG] Code ist an.
HTML-Code ist aus.
Trackbacks are an
Pingbacks are an
Refbacks are aus

Gehe zu:

Impressum · AGB · Datenschutz · Nach oben
Alle Zeitangaben in WEZ +1. Es ist jetzt 17:14 Uhr.
Powered by vBulletin® Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024-2025 by Thomas Breitkreuz