AGB  ·  Datenschutz  ·  Impressum  







Anmelden
Nützliche Links
Registrieren
Zurück Delphi-PRAXiS Programmierung allgemein Datenbanken Delphi dbGrid Zeile farbig markieren und fokusieren
Thema durchsuchen
Ansicht
Themen-Optionen

dbGrid Zeile farbig markieren und fokusieren

Ein Thema von fanavity · begonnen am 25. Okt 2011 · letzter Beitrag vom 26. Okt 2011
 
fanavity

Registriert seit: 2. Sep 2011
65 Beiträge
 
#15

AW: dbGrid Zeile farbig markieren und fokusieren

  Alt 26. Okt 2011, 13:37
Anbei mal eine Mini-Demo.


Danke Die hat mir schon ein wenig auf die sprünge geholfen.. Aber leider ist nun alles in einer Farbe, aber ich verstehe nicht wieso. :/

Delphi-Quellcode:
function TForm2.UnterschiedFeststellen(ACol, ARow: integer): Boolean;
begin
  Result := ARow > StringGrid1.FixedRows;
  if Result then
    Result := StringGrid1.Cells[ACol, ARow] <> StringGrid1.Cells[ACol, ARow - 1];
end;


procedure TForm2.StringGrid1DrawCell(Sender: TObject; ACol, ARow: Integer;
  Rect: TRect; State: TGridDrawState);
begin
   With (Sender as TStringGrid) do
  begin
    if (gdSelected in State) then
      Canvas.Brush.Color:= clYellow
    else if (gdFixed in State) then
    else
      if UnterschiedFeststellen(2, ARow) then
      Begin
        canvas.Brush.Color:= clWhite;
        Canvas.Font.Color:= clBlack;
      end
      else
        Canvas.Brush.Color:= clBtnFace;
        Canvas.Font.Color:= clBlack;
        Canvas.FillRect(Rect);
    Canvas.TextOut(Rect.Left + 2, Rect.Top + 2, StringGrid1.Cells[ACol, ARow]);
  end;
end;
Vielleicht habe ich ja einen Fehler eingebaut oder so.. Ich finde ihn jedenfalls nicht.. :/
  Mit Zitat antworten Zitat
 


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 02:18 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