Farbeinstellungen bei DBGrid

[DBman]

Ich habe eine Frage , und zwar zur Farbeinstellung der Titelspalten beim DBGrid - Objekt.

Ich weiß bereits , dass man mit Hilfe von
dbgrd.Columns.Items[2].Title.Font.Color := clRed; zum Beispiel dem Titel der 3. Spalte eine Farbe zuweisen kann.

Wie kann ich jedoch nicht über den Index (2) sondern über einen Feldnamen z.B. 'PLZ' dem Titel eine Farbe zuordnen?

Über Field oder Fieldbyname oder sowas?? Habe da in der DelphiHilfe nichts wirklich hilfreiches gefunden.



DBman

[eddy]

Hallo DBman,

ich nehme mal an, daß sich das auf die Anfrage in dem anderen Beitrag bezieht.

Code:

procedure TForm1.SpeedButton1Click(Sender: TObject);
begin
  for i := 0 to DBGrid1.Columns.Count - 1 do begin
    if DBGrid1.Columns.Items[i].FieldName = 'Such'
      then DBGrid1.Columns.Items[i].Title.Font.Color := clRed;
    if Pos('Name', DBGrid1.Columns.Items[i].FieldName) > 0
      then DBGrid1.Columns.Items[i].Title.Font.Color := clBlue;
  end;
end;

Vielleicht hilft Dir dieser Code weiter. Natürlich mußt Du noch die von mir verwendeten Feldbezeichner durch Deine ersetzen. Und ich würde immer noch ein AnsiLowerCase empfehlen, damit eventuelle Abweichungen in der Groß-Klein-Schreibung keine Fehlerquellen bergen.

mfg
eddy

[DBman]

Oh. Dankeschön , ja hätte ich mit ein wenig nachdenken auch selber drauf kommen können.
Danke für deine Mühe

[DBman]

Äh... aber nochmal ne kleine Frage was machst du denn mit der Pos() - Funktion da?

(Hoffentlich war die Frage mal nich wieder zu dumm)

[Hansa]

Es wird überprüft, ob der Spaltenname "Name" vorkommt und das wird dann umgefärbt.

[eddy]

Hallo DBman,

ich gebe zu, ich kenne auch viele Funktionen nicht, aber ich kopiere diese dann einfach in meinen Quelltext und drücke F1 (F-Eins).

Zum Test des Codes habe ich einfach meine aktuelle Netz-Test-Version gegriffen. Die Datenbank enthält die Felder Such, Name1, Name2, Name3 und einige andere, die hier keine Bedeutung haben.

Mit dem o.g. Quelltext wird die Schrift im Titel für Such rot und Name1 bis Name3 blau.

mfg
eddy