Stringgrid selected ändert Farbe

[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;