Stringgrid selected ändert Farbe

[ratmalwer]

Hallo

ich ändere die Farbe der fixierten Zeile 0 nach Rot.
Danach ändert sich die Farbe der ersten selektierten Zelle auf violett.
Siehe Printscreen!
Wie krieg ich das los?

Code:

//DefaultDrawing := true;   //Info
//goRowSelect := true;

procedure TFormMain.SG1DrawCell(Sender: TObject; ACol, ARow: Integer;
  Rect: TRect; State: TGridDrawState);
begin
      if ARow = 0 then begin
        sg1.Canvas.Brush.Color := clred;
        sg1.Canvas.fillrect(Rect);
        sg1.Canvas.textout(rect.left+5,rect.top+2,SG1.Cells[aCol,aRow]);
      end;
end;

[zeras]

Bei Options gibt es die Eigenschaft "goRowSelect". Diese kannst du setzen. Dann wird die ganze Zeile markiert.
Vielleicht hilft das.

[ratmalwer]

Danke Matthias

in meinem Code habe ich oben in der Info geschrieben, dass GoRowSelect = true ist.
Das wars noch nicht.

[Uwe Raabe]

Vielleicht merkst du dir die Brush.Color und stellst sie nach dem Zeichnen wieder her.

[ratmalwer]

Danke Uwe

einfache Lösungen brauchen Zeit und liebe Mithilfe

Code:

procedure TFormMain.SG1DrawCell(Sender: TObject; ACol, ARow: Integer;
  Rect: TRect; State: TGridDrawState);
  var oldColor : Tcolor;
begin
      if ARow = 0 then begin
        oldColor := SG1.Canvas.Brush.Color;
        sg1.Canvas.Brush.Color := clActiveCaption;
        sg1.Canvas.Brush.Color := clred;
        sg1.Canvas.fillrect(Rect);
        sg1.Canvas.textout(rect.left+5,rect.top+2,SG1.Cells[aCol,aRow]);
        sg1.Canvas.Brush.Color := oldColor;
      end;
end;

[himitsu]

Warum Brush.Color zwei Mal setzen?




Gut, hier wird nur eine Eigenschaft geändert, aber so zur Info: es gibt auch TRecall und seine Nachfahren, wie z.B. TBrushRecall.

Delphi-Quellcode:

  BR := TBrushRecall.Create(Canvas.Brush);
  try
    ... sonstwas im Brush ändern
  finally
    BR.Free;  // danach ist der Brush wieder wie vorher
  end;

Kann pinzipiell für alle TPersistent-Nachfahren verwendet werden, welche die Assign-Methode ausreichend implementiert haben.

Schade, dass es das nicht als Combi für TCanvas gibt, also inkl. Pen, Brush und Font (die es alle einzeln gibt).

[Renate Schaaf]

@ratmalwer

Dein Musikgeschmack gefällt mir

[Blup]

Wenn man nicht jede Änderung am Canvas einzeln zurücknehmen möchte:

Delphi-Quellcode:

procedure DrawCell(ACanvas: TCanvas; ARect: TRect; AColor: TColor; AText: string);
begin
  ACanvas.Brush.Color := AColor;
  ACanvas.TextRect(ARect, ARect.Left + 5, ARect.Top + 2, AText);
end;

procedure TFormMain.SG1DrawCell(Sender: TObject; ACol, ARow: Integer;
  Rect: TRect; State: TGridDrawState);
var
  SaveIndex: Integer;
begin
  if ARow = 0 then
  begin
    SaveIndex := SaveDC(SG1.Canvas.Handle);
    try
      DrawCell(SG1.Canvas, ARect, clRed, SG1.Cells[ACol, ARow]);
    finally
      RestorDC(SG1.Canvas.Handle, SaveIndex);
    end;
  end;
end;