AGB  ·  Datenschutz  ·  Impressum  







Anmelden
Nützliche Links
Registrieren

TDBAdvGrid - Zeilen einfärben

Ein Thema von Eppos · begonnen am 18. Feb 2009 · letzter Beitrag vom 19. Feb 2009
Antwort Antwort
Seite 1 von 3  1 23   
Eppos

Registriert seit: 7. Aug 2006
Ort: Heilbronn
504 Beiträge
 
Delphi XE5 Ultimate
 
#1

TDBAdvGrid - Zeilen einfärben

  Alt 18. Feb 2009, 19:24
Hallo zusammmen,

ich benutze das TDBAdvGrid von TMS.
Ich möchte gerne in einem Grid die Farbe einfärben, folgendes habe ich bisher gemacht:

Delphi-Quellcode:
procedure TfrmMain.Grid1DrawCell(Sender: TObject; ACol,
  ARow: Integer; Rect: TRect; State: TGridDrawState);
begin
  If Query1.FieldByName( 'SAT' ).AsInteger > 0 then
    Grid1.Canvas.Brush.Color := clMaroon;
end;
Es soll also bei einem Wert in dem Feld "SAT" von größer 0, die Zeile komplett eingefärbt werden mit
clMaroon.
Es funktioniert leider nicht... Hat jemand eine Idee, irgendwo habe ich bestimmt einen Denkfehler..

Vielen Dank.
  Mit Zitat antworten Zitat
Benutzerbild von DeddyH
DeddyH

Registriert seit: 17. Sep 2006
Ort: Barchfeld
27.389 Beiträge
 
Delphi 11 Alexandria
 
#2

Re: TDBAdvGrid - Zeilen einfärben

  Alt 18. Feb 2009, 19:37
Du setzt ja nur die Pinselfarbe, ohne zu zeichnen.
Detlef
"Ich habe Angst vor dem Tag, an dem die Technologie unsere menschlichen Interaktionen übertrumpft. Die Welt wird eine Generation von Idioten bekommen." (Albert Einstein)
Dieser Tag ist längst gekommen
  Mit Zitat antworten Zitat
Eppos

Registriert seit: 7. Aug 2006
Ort: Heilbronn
504 Beiträge
 
Delphi XE5 Ultimate
 
#3

Re: TDBAdvGrid - Zeilen einfärben

  Alt 18. Feb 2009, 19:40
Wie heisst die Funktion, das er das auch Pinselt bei dem TMS Grid?
  Mit Zitat antworten Zitat
Benutzerbild von DeddyH
DeddyH

Registriert seit: 17. Sep 2006
Ort: Barchfeld
27.389 Beiträge
 
Delphi 11 Alexandria
 
#4

Re: TDBAdvGrid - Zeilen einfärben

  Alt 18. Feb 2009, 19:41
Canvas.FillRect, denke ich mal. Danach musst Du aber neu beschriften.
Detlef
"Ich habe Angst vor dem Tag, an dem die Technologie unsere menschlichen Interaktionen übertrumpft. Die Welt wird eine Generation von Idioten bekommen." (Albert Einstein)
Dieser Tag ist längst gekommen
  Mit Zitat antworten Zitat
Eppos

Registriert seit: 7. Aug 2006
Ort: Heilbronn
504 Beiträge
 
Delphi XE5 Ultimate
 
#5

Re: TDBAdvGrid - Zeilen einfärben

  Alt 18. Feb 2009, 20:08
Danke, das habe ich mir eigentlich einfacher vorgestellt,
da bei der Farbe Schwarz, die Schriffarbe automatisch auch dann gegenteilig
sich einstellen müsste...
  Mit Zitat antworten Zitat
Benutzerbild von DeddyH
DeddyH

Registriert seit: 17. Sep 2006
Ort: Barchfeld
27.389 Beiträge
 
Delphi 11 Alexandria
 
#6

Re: TDBAdvGrid - Zeilen einfärben

  Alt 18. Feb 2009, 20:10
Du könntest die Farben ja exklusiv verodern.
Detlef
"Ich habe Angst vor dem Tag, an dem die Technologie unsere menschlichen Interaktionen übertrumpft. Die Welt wird eine Generation von Idioten bekommen." (Albert Einstein)
Dieser Tag ist längst gekommen
  Mit Zitat antworten Zitat
Eppos

Registriert seit: 7. Aug 2006
Ort: Heilbronn
504 Beiträge
 
Delphi XE5 Ultimate
 
#7

Re: TDBAdvGrid - Zeilen einfärben

  Alt 18. Feb 2009, 20:13
die farben sind unterschiedlich....
d.h. für bestimmte werte in der datenbank, kann der benutzer sich die Farben ausdenken...
  Mit Zitat antworten Zitat
Benutzerbild von DeddyH
DeddyH

Registriert seit: 17. Sep 2006
Ort: Barchfeld
27.389 Beiträge
 
Delphi 11 Alexandria
 
#8

Re: TDBAdvGrid - Zeilen einfärben

  Alt 18. Feb 2009, 20:15
Ich meinte ja auch Hintergrund- und Schriftfarbe.
Detlef
"Ich habe Angst vor dem Tag, an dem die Technologie unsere menschlichen Interaktionen übertrumpft. Die Welt wird eine Generation von Idioten bekommen." (Albert Einstein)
Dieser Tag ist längst gekommen
  Mit Zitat antworten Zitat
Eppos

Registriert seit: 7. Aug 2006
Ort: Heilbronn
504 Beiträge
 
Delphi XE5 Ultimate
 
#9

Re: TDBAdvGrid - Zeilen einfärben

  Alt 18. Feb 2009, 20:23
versteh ich nicht, was du meinst, kannst du es mir erklären?
  Mit Zitat antworten Zitat
Benutzerbild von DeddyH
DeddyH

Registriert seit: 17. Sep 2006
Ort: Barchfeld
27.389 Beiträge
 
Delphi 11 Alexandria
 
#10

Re: TDBAdvGrid - Zeilen einfärben

  Alt 18. Feb 2009, 20:37
Beispiel (das kann man natürlich noch schöner machen):
Delphi-Quellcode:
procedure TForm1.Button1Click(Sender: TObject);
begin
  Color := Random(clWhite);
  Label1.Font.Color := Color xor clWhite;
end;
Detlef
"Ich habe Angst vor dem Tag, an dem die Technologie unsere menschlichen Interaktionen übertrumpft. Die Welt wird eine Generation von Idioten bekommen." (Albert Einstein)
Dieser Tag ist längst gekommen
  Mit Zitat antworten Zitat
Antwort Antwort
Seite 1 von 3  1 23   

Themen-Optionen Thema durchsuchen
Thema durchsuchen:

Erweiterte Suche
Ansicht

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 21:19 Uhr.
Powered by vBulletin® Copyright ©2000 - 2022, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2021 by Daniel R. Wolf