Delphi-PRAXiS

Delphi-PRAXiS (https://www.delphipraxis.net/forum.php)
-   GUI-Design mit VCL / FireMonkey / Common Controls (https://www.delphipraxis.net/18-gui-design-mit-vcl-firemonkey-common-controls/)
-   -   Delphi Hintergrundfarbe einer Zeile in dbgrid oder JVUltimGrid (https://www.delphipraxis.net/88304-hintergrundfarbe-einer-zeile-dbgrid-oder-jvultimgrid.html)

Bigeddie 13. Mär 2007 14:11


Hintergrundfarbe einer Zeile in dbgrid oder JVUltimGrid
 
Hallo,

gibt es eine Möglichkeit in einem DBGrid die Hintergrundfarbe einer Zeile(ROW) an einen bestimmten Zustand des Inhalts anzupassen?

Viele Grüße

Ernst Jürgen

Thanatos81 13. Mär 2007 14:16

Re: Hintergrundfarbe einer Zeile in dbgrid oder JVUltimGrid
 
Wenn ich mich nicht irre, müsste es OnDrawColumCell in TDBGrid-Nachfahren geben. Da kannst du dann mittels Canvas selber malen und dann den Text wieder drübermalen.

Bigeddie 13. Mär 2007 14:19

Re: Hintergrundfarbe einer Zeile in dbgrid oder JVUltimGrid
 
Kannst Du mir vielleicht auch noch verraten wie ich die Canvas einfärbe?
Mit soetwas habe ich bisher noch nichts zutun gehabt.

Danke

Ernst Jürgen

Relicted 13. Mär 2007 14:24

Re: Hintergrundfarbe einer Zeile in dbgrid oder JVUltimGrid
 
Delphi-Quellcode:
procedure TStringGridHandler.StringGridDrawCell(Sender: TObject; ACol,
  ARow: Integer; Rect: TRect; State: TGridDrawState);
begin
  if ( aCol <> 0 ) and ( aRow <> 0 ) then
  begin
    with m_coStringGrid do
    begin
      if not Sametext( Cells[ ACol, ARow ], Cells[ 0,Arow ] ) then
      begin
        Canvas.Brush.Color := clSkyBlue;
        Canvas.FillRect( Rect );
        Canvas.TextOut( Rect.Left, Rect.Top, Cells[ ACol, ARow ] );
      end;
    end;
  end;
end;
hier mal nen beispiel vom stringgrid... musst halt nur die parameter an deine anpassen...
ist nicht soooo viel unterschiedlich hab nur gerade den qc vom dbgrid ned da :-)

Gruß
reli


Alle Zeitangaben in WEZ +1. Es ist jetzt 01:52 Uhr.

Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024 by Thomas Breitkreuz