![]() |
Datenbank: Oracle • Version: 10 • Zugriff über: BDE/ODBC
dbGrid Zeile farbig markieren und fokusieren
Hallo,
ich habe ein StringGrid und ein DBGrid auf meiner Form. Das StringGrid wird aus einer TXTDatei gefüllt und das DBGrid aus einer Oracle DB. Beide zeigen in etwa den gleichen inhalt. Nun möchte ich, das wenn ich im Stringgrid eine Zelle anklicke, er mir im DBGrid automatisch die entsprechende Zeile Markiert.* Und was super toll wäre, wenn er gleich die Inhalte vergleichen würde und ggf. die Farbe anpasst :) Alles gleich = grün, fehlerhaft = geld, nicht vorhanden = rot.. Ich habe es inzwischen soweit, dass er mir die kommplette Zeile im Stringgrid markiert, wenn ich sie anklicke. Aber das bekomme ich im DBGrid nicht hin. Zudem habe ich noch ein (ich hoffe) kleines Problem. Ich wollte der Übersicht halber alle unterschiedlichen Datensätze im StringGrid in anderen Farben.(Immer abwechselnd) z.B:
Code:
Ich hoffe das ganze war verständlich und nachvollziehbar :)
Zeile 1 1234 grau
Zeile 2 1235 weiß Zeile 3 1235 weiß Zeile 4 1248 grau Edit: *Gelöst! |
AW: dbGrid Zeile farbig markieren und fokusieren
Hallo,
![]() Das DBGird müsste im OI unter Optionen(?) auch die Möglichkeit haben, das die ganze Zeile bei Auswahl markiert wird. |
AW: dbGrid Zeile farbig markieren und fokusieren
Zitat:
Edit: Ich habe es nun hinbekommen, das er mir immer die dazugehörige Zeile im DBGrid anzeigt :) Nun muss ich nur noch das mit den Farben hinbekommen im Stringgrid hinbekommen. Also das zusammengehörende Einträge die gleiche Zellenfarbe haben.. wie im ersten Beitrag erklärt ^^ |
AW: dbGrid Zeile farbig markieren und fokusieren
Niemand mehr ne Idee?
|
AW: dbGrid Zeile farbig markieren und fokusieren
Du kannst im
![]() |
AW: dbGrid Zeile farbig markieren und fokusieren
Hat der letzte Link nicht geholfen?
Ich würde für das Malen gegf. vorher ein ein Array [x,y] anlegen welches mit den "Status/Farbinformationen" für bei Grids verwendet wird und in OnColumnDraw darauf zugreifen .... |
AW: dbGrid Zeile farbig markieren und fokusieren
Das tue ich ja bereits, nur weiß ich leider nicht wie ich abfragen soll ob x nacheinander folgende Zeilen in Spalte 2 den gleichen Inhalt haben?
Wenn 2 oder 3 oder ... Zeilen nacheinandern in Spalte 2 den gleichen Inhalt haben, sollen sie die gleiche Farbe haben. Danach dann wieder eine andere und so weiter Jaein @ Bummi... Hat schon geholfen.. kann es jetzt schon Zeichnen.. Aber leider ist die Farbe immer abwechselnd.. Und ich will ja zusammenhänge bilden und darstellen :) Edit: So sieht es bisher aus:
Delphi-Quellcode:
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 Canvas.Brush.Color:= clBtnHighlight else if (ARow Mod 2 = 0) then // Hier muss ich ja meine Abfrage einbinden, damit er schaut ob 2 aufeinanderfolgenden Zeilen den gleichen inhalt haben.. Oder habe ich das ganze falsch verstanden? 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; |
AW: dbGrid Zeile farbig markieren und fokusieren
Ich vermute die Hauptschwierigkeit des TE, wofür mir auch nix einfällt, sonst hätte ich schon was gesagt, liegt darin zu bestimmen, wann ein "Farbwechsel" erfolgen soll. Im verlinkten Beispiel war es ja "einfach" bei geraden und ungeraden Zeilen. Hier nun scheint die Anforderung zu sein immer dann zu wechseln, wenn der Datensatz eine andere ID hat, als der Datensatz davor.
Edit: Wo war der rote Kasten, der TE hat's ja inzwischen selber verdeutlicht. |
AW: dbGrid Zeile farbig markieren und fokusieren
ACol und ARow werden doch übergeben. Da zieht man also von ARow 1 ab, schaut, ob es die Zelle wirklich gibt und ermittelt, was in Cells[<betreffende Spalte>, ARow - 1] steht. Das vergleicht man mit dem eigenen Wert... fertig.
|
AW: dbGrid Zeile farbig markieren und fokusieren
Zitat:
Das Ermitteln, wie die Zeile eingefärbt wird, würde ich in so einem Fall über einen separaten Aufruf machen, der mir dieses ermittelt. Dann kann man den Code sogar weiterverwenden ;)
Delphi-Quellcode:
procedure TForm2.GetSpecialState( Sender : TObject; ACol, ARow : integer; var SpecialState : Boolean );
begin // Jetzt in den Daten suchen und schauen, ob es sich hier um einen SpecialState handelt end; procedure TForm2.StringGrid1DrawCell(Sender: TObject; ACol, ARow: Integer; Rect: TRect; State: TGridDrawState); var SpecialState : Boolean; begin // Hier den SpecialState abfragen lassen SpecialState := False; GetSpecialState( Sender, ACol, ARow, SpecialState ); // Jetzt kann man den weiter behandeln With (Sender as TStringGrid) do begin if (gdSelected in State) then Canvas.Brush.Color:= clYellow else if (gdFixed in State) then Canvas.Brush.Color:= clBtnHighlight else if (ARow Mod 2 = 0) then // Hier muss ich ja meine Abfrage einbinden, damit er schaut ob 2 aufeinanderfolgenden Zeilen den gleichen inhalt haben.. Oder habe ich das ganze falsch verstanden? 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; |
AW: dbGrid Zeile farbig markieren und fokusieren
Die Logik ist aber exakt dieselbe. Ich habe ja nicht gesagt, er soll das komplett im OnDrawCell machen, sondern nur aufzeigen, wie das überhaupt zu bewerkstelligen ist. Übrigens kann man auch eine Funktion schreiben, das spart den Boolean Var-Parameter ;)
|
AW: dbGrid Zeile farbig markieren und fokusieren
Zitat:
Sorry aber das verstehe ich nicht so ganz, kannst du mir das ganze vielleicht nochmal erklären? :oops: |
AW: dbGrid Zeile farbig markieren und fokusieren
Der Vorschlag von DeddyH meint ungefähr sowas:
Delphi-Quellcode:
Sir Rufo schlägt nun glaub ich vor, die Ermittlung ob ein Farbwechsel vorliegt in eine externe Funktion auszulagern, so braucht man nur diese Funktion ändern, wenn sich mal die Kriterien für einen Farbwechsel ändern sollten.
var
farbwechsel:Boolean; i:integer; //[...] begin //[...] farbwechsel := false; for i:=0 to Grid.ColCount-1 if Grid.Cells[i,ARow]<>Grid.Cells[i,ARow-1] then farbwechsel:=true; if farbwechsel then //[...] end; |
AW: dbGrid Zeile farbig markieren und fokusieren
Liste der Anhänge anzeigen (Anzahl: 1)
Anbei mal eine Mini-Demo.
|
AW: dbGrid Zeile farbig markieren und fokusieren
Zitat:
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:
Vielleicht habe ich ja einen Fehler eingebaut oder so.. Ich finde ihn jedenfalls nicht.. :/
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; |
AW: dbGrid Zeile farbig markieren und fokusieren
1. Die Funktion UnterschiedFeststellen vergleicht nur die aktuelle Zelle, mit der passenden Zelle in der Reihe zuvor. Das ist glaub ich nicht das was du willst. Du willst doch die ganze Zeile gleich haben, oder? Schau dir mal meinen obigen Vorschlag an.
2. Wenn du die Farben zuteilst (weil Unterschied festgestellt) must du (im Gegensatz zu den alten gerade/ungerade Beispielen) schauen, "welche Farbe hab ich zur Zeit" und dann die andere festlegen. 3. Fehlen in deinem Beispiel nicht auch noch ein begin...end im letzten else-Zweig? |
AW: dbGrid Zeile farbig markieren und fokusieren
Zitat:
Delphi-Quellcode:
for i:=0 to StringGrid1.ColCount-1
EDIT: 1. Die Funktion UnterschiedFeststellen vergleicht nur die aktuelle Zelle, mit der passenden Zelle in der Reihe zuvor. Das ist glaub ich nicht das was du willst. Du willst doch die ganze Zeile gleich haben, oder? Schau dir mal meinen obigen Vorschlag an. 2. Wenn du die Farben zuteilst (weil Unterschied festgestellt) must du (im Gegensatz zu den alten gerade/ungerade Beispielen) schauen, "welche Farbe hab ich zur Zeit" und dann die andere festlegen. Der Vergleich an sich ist schon richtig.. Nur zu Punkt 2. komme ich absolut nicht weiter.. Habe das schon x mal durchdacht, aber komme da auf keine programmierbare Lösung :/ |
AW: dbGrid Zeile farbig markieren und fokusieren
Nimm doch den Code aus meinem Beispiel und ersetze nur die Farben. Ich schätze, es liegt wirklich am fehlenden begin-end im letzten else.
|
AW: dbGrid Zeile farbig markieren und fokusieren
Mein's war nur als Anregung gedacht. Du solltest das nutzen, um die Funktion UnterschiedFeststellen von DeddyH anzupassen, falls nicht die Zelle mit der in der Reihe davor, sondern falls die ganze Zeile mit der ganzen Zeile davor verglichen werden soll (so hatte ich deine Anforderung verstanden). Wenn ich das natürlich falsch aufgefasst habe, vergiss den Vorschlag.
Sehe gerade, du willst immer Spalte 2 testen, wo wahrschl. die ID oder so steht??? Dann die Funktion von DeddyH beibehalten. Zum Farbwechsel: Hab kein Delphi gerade, daher ungetestet, habs mir so vorgestellt, k.A. ob das so geht:
Delphi-Quellcode:
Nachtrag: Den "//Mach nix"-Zweig sollte man natürlich weglassen, war nur zur Verdeutlichung.
//[...]
else if UnterschiedFeststellen(2, ARow) then //Farbwechsel Begin if canvas.Brush.Color = clWhite then canvas.Brush.Color := clBlack else canvas.Brush.Color := clWhite; end else Begin //Mach nix, sprich Farbe beibehalten end Canvas.FillRect(Rect); Canvas.TextOut(Rect.Left + 2, Rect.Top + 2, StringGrid1.Cells[ACol, ARow] Ich weiß halt nicht ob "if canvas.Brush.Color = clWhite" so geht, sprich, ob man sehen kann, welches die aktuelle Farbe ist. Falls nicht, musst du dir den jeweiligen Zusatand in einer variablen selber merken. |
AW: dbGrid Zeile farbig markieren und fokusieren
Was mir gerade auffällt:
Zitat:
|
Alle Zeitangaben in WEZ +1. Es ist jetzt 00:26 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 by Thomas Breitkreuz