StringGrid Zeile einfärben

[strom]

Vielen Dank für die erfolgreiche Hilfe hier im Forum!

Wenn ich jetzt noch ein Icon aus einer ImageList hinzufügen möchte,
muss ich was beachten?

Dieses hier funktioniert leider nicht!

Delphi-Quellcode:

procedure TForm1.StringGrid1DrawCell(Sender: TObject; ACol, ARow: Integer;
  Rect: TRect; State: TGridDrawState);
  var
  X, Y: Integer;
begin
 StringGrid1.Canvas.Font.Color := clblack;

  if StringGrid1.Cells[3, ARow] = '1'
  then
    begin
      StringGrid1.Canvas.Brush.Color := clYellow;
      ImageList1.Draw(StringGrid1.Canvas, X, Y, 0, true); // Was ist hier falsch? 
    end
  else if StringGrid1.Cells[3, ARow] = '2'
  then
    StringGrid1.Canvas.Brush.Color := clgray;
  if gdSelected in State
  then
    StringGrid1.Canvas.Brush.Color := clred;
  StringGrid1.Canvas.FillRect( Rect );
  StringGrid1.Canvas.TextRect( Rect, Rect.Left, Rect.Top, StringGrid1.Cells[ACol, ARow] );
end;

[Aviator]

Wie sind denn die Werte von X und Y? Du deklarierst zwar die Variablen, weißt diesen aber keine Werte zu. Somit sind die undefiniert und können irgendwo in einem negativen Bereich liegen. Auch hier hast du die Compiler Meldung nicht beachtet. Der schreibt nämlich genau das hin.

Weise also den beiden Variablen einen Wert zu und schon müsste das funktionieren.

Hier vielleicht noch ein Tipp. Mouse.CursorPos, ScreenToClient oder ClientToScreen könnten hier fürs erste helfen. Du könntest als X und Y Werte die passenden Rect.Top und Rect.Left Werte übernehmen.

[himitsu]

Zitat von strom:

// Was ist hier falsch?

Zitat von Aviator:

Wie sind denn die Werte von X und Y? Du deklarierst zwar die Variablen, weißt diesen aber keine Werte zu. ...

Ich kann mich nur noch einmal wiederholen und hoffen der TE hört endlich mal auf das, was ihm jemand sagt und beachtet es auch.

Zitat von himitsu:

Zitat:

was ist hier falsch am Code?

DU hast vergessen auf deinen Compiler zu hören und somit die beiden Fehler nicht beachtet.

• c ist nicht initialisiert
• c wird nicht verwendet

[strom]

hallo,

dieses funktioniert leider auch nicht!

Delphi-Quellcode:

var
  X, Y: Integer;
begin
  if StringGrid1.Cells[3, ARow] = '1'
   then
    begin
      StringGrid1.Canvas.Brush.Color := clYellow;    
    X := Rect.Left;
    Y := Rect.Top;
    ImageList1.Draw(StringGrid1.Canvas, X, Y, 0, true); { 0 = erstes Image in ImageList }
  end;
end;

[Perlsau]

Funktioniert nicht ...

... ist keine Fehlermeldung, sondern eine Verallgemeinerung. Wenn du konkrete Hilfe willst, solltest du auch konkret fragen und konkrete Hinweise liefern.
Danke.

Und wenn du in eine bestimmte Zelle zeichnen willst, ist es eigentlich kontraproduktiv, auf den Canvas der zugrundeliegenden Komponente zu zeichnen. Wenn du dir einmal die Mühe machen würdest, die Suchfunktion des Forums zu verwenden, hättest du mit Sicherheit schon etliche funktionierende Codeschnipsel gefunden, die dir genau zeigen, wie man in bestimmte Zellen eines Stringgrids zeichnet.

[Blup]

Gehn wir mal die Schritte in der jetzt ausgeführten Reihenfolge durch:

- eine Farbe wird ausgewählt
- ein Icon wird in die Zelle gezeichnet
- das ganze Rechteck der Zelle wird mit der ausgewählen Farbe übermalt
- der Text wird in die Zelle gezeichnet

Und jetzt denken wir ein bischen drüber nach...

[Frau Müller]

Kann mir (Anfängerin ) bitte jemand helfen?

Ich habe ein StringGrid und 2x ComboBox. Ich würde gerne folgendes tun:

Ist ComboBox1.ItemIndex=1 gewählt dann blende mir die Zeile 1-3 vom StringGrid1 aus.
Ist ComboBox2.ItemIndex=3 gewählt dann blende mir die Spalte 2-4 vom StringGrid1 aus.

Kann mir bitte jemand einen Quellcode geben?

[Frau Müller]

noch besser wäre es die zeilen bleiben sichtbar können aber nicht angeklickt werden

[Frau Müller]

......................

[himitsu]

Über OnSelectCell (TStringGrid) kann man erkennen was selektiert wird/wurde und könnte da die Selektion umschreiben, wenn nicht gewoll.

Ausblenden geht nicht, da TStringGrid keinen (Zeilen)Filter besitzt.
Beim TDBGrid geht das, über die Filterung des DataSets, welches auch ohne DB genutzt werden kann. (z.B. TClientDataSet)


Alternativ macht man es "richtig".
StringGrid nur zur Datenanzeige (und als Editor), aber die Datenhaltung liegt wo anders ... dann zeigt/läd man nur das ins Grid, was angezeigt werden soll.