StringGrid farblich in XE7 anders als in Delphi 2006

[HolgerCW]

Hallo zusammen,

in Delphi XE7 werden jetzt meine StringGrind-Zellen nicht mehr komplett mit der Farbe gefüllt.

Delphi-Quellcode:

With STG_1 do
 begin

  If (ACol = 5) AND (ARow > 0) then
  begin

   Canvas.Brush.Color := clGradientInactiveCaption;
   Canvas.FillRect(Rect);

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

  end;

 end;

Es bleibt links ein kleiner Rand. Warum ? Siehe hier:

Kleinbestellungen-2015-02-06 12_03_50.jpg

Gruss

Holger

[hathor]

...

[Uwe Raabe]

Da war doch mal was...
FillRect doesn't paint the complete TStringGrid cell in Delphi XE2

[HolgerCW]

Wenn man nun folgendes macht:

Rect.Left := Rect.Left - 4; Dann klappt es. Ist das denn die saubere Lösung ?

Gruss

Holger

[Uwe Raabe]

Zitat von HolgerCW:

Wenn man nun folgendes macht:

Rect.Left := Rect.Left - 4; Dann klappt es. Ist das denn die saubere Lösung ?

Sicher nicht - aber ich kenne keine andere.

[Harry Stahl]

Da bin ich auch gerade drüber gestolpert.

Würde dann hier aber

rect := TStringGrid (sender).CellRect(ACol,ARow);

bevorzugen, denn dann stimmen die Rect-Werte auch, wenn man den Source-Code auch auf älteren Delphi-Versionen einsetzt (oder falls das später mal in einer Version XE 43 gefixt werden sollte).

[Sir Rufo]

Mit Rect bekommt man nun den Ausgabebereich für den Text.

Der Weg von Harry geht übrigens nur bei Firemonkey

[Harry Stahl]

@ Sir Rufo: Nein, das war nicht auf FireMonkey bezogen, sondern auf die VCL.

CellRect gibt genau die gleichen Werte an, wie Rect an das OnDrawCell-Event übergeben wird, nur eben korrigiert um den Wert für Rect.Left um -4.

[Sir Rufo]

Zitat von Harry Stahl:

@ Sir Rufo: Nein, das war nicht auf FireMonkey bezogen, sondern auf die VCL.

CellRect gibt genau die gleichen Werte an, wie Rect an das OnDrawCell-Event übergeben wird, nur eben korrigiert um den Wert für Rect.Left um -4.

Jetzt wo du es sagst, ich hatte nur auf der Eigenschaftsseite geschaut das ist aber eine Methode

TStringGrid.CellRect