Stringgrid Text zeichen

[Int3g3r]

Guten Tag,

Ich Färbe in einem Stringgrid die einzelnen Zellen mit Canvas ein. Dies geschieht im DrawCell event.

Delphi-Quellcode:

procedure TFrmTitel.TitelGridDrawCell(Sender: TObject; ACol, ARow: Integer;
   Rect: TRect; State: TGridDrawState);
begin
   if (frmAnsicht.displayedDateDraw-1 = Acol) then
      begin
         TitelGrid.Canvas.Pen.Color := clBlack;
         TitelGrid.Canvas.Pen.Width := 2;
         TitelGrid.Canvas.MoveTo(Rect.Left, Rect.Top);
         TitelGrid.Canvas.LineTo(Rect.Left, Rect.Bottom);
         TitelGrid.Canvas.MoveTo(Rect.Right, Rect.Top);
         TitelGrid.Canvas.LineTo(Rect.Right, Rect.Bottom);
      end;

   if (keinArbeitstagTitel[Acol] = 1) and (ARow = 1) then
      begin
         TitelGrid.Canvas.Brush.Color := hexToInt('$E6E0B0');
         TitelGrid.Canvas.FillRect(Rect);
      end;

   if (keinArbeitstagTitel[Acol] = 1) and (ARow = 0) then
      begin
         TitelGrid.Canvas.Brush.Color := hexToInt('$E6E0B0');
         TitelGrid.Canvas.FillRect(Rect);
      end;

end;

Mein Problem ist nun das der Text der in der Zelle steht "Überzeichnet" wird. Ich möchte aber lediglich eine "Hintergrundfarbe" für die Zelle. Ich muss den Text sehen.

Wie lässt sich der Text der Zelle erneut Zeichen ?
Oder lässt sich das "FillRect" so anwenden das es den Text in der Zelle nicht "Überzeichnet" ?
Am besten wäre wenn der Text am ende von DrawCell-Event gezeichnet wird.

Mfg Int3g3r

[Uwe Raabe]

Eventuell wäre dies hier ein brauchbarer Ansatz:

Delphi-Quellcode:

  TitelGrid.Canvas.TextRect(Rect, Rect.Left+2, Rect.Top+2, TitelGrid.Cells[ACol, ARow]);

Du kannst die Position des Texts auch noch etwas variieren.

[Int3g3r]

Zitat:

Zitat von Uwe Raabe (Beitrag 1430308)

Eventuell wäre dies hier ein brauchbarer Ansatz:

Delphi-Quellcode:

  TitelGrid.Canvas.TextRect(Rect, Rect.Left+2, Rect.Top+2, TitelGrid.Cells[ACol, ARow]);

Du kannst die Position des Texts auch noch etwas variieren.

Genau das habe ich gesucht. Besten Dank.