TStringGrid, über mehrere Zellen malen

[hoika]

Hallo #,

basierend auf
1 und
2

will ich über mehrere Zellen malen.

Mein Code sieht so aus:
c ist Kürzel für StringGrid.Canvas
der DrawText-Versuch klappt auch nicht

Delphi-Quellcode:

(*
      DrawText(c.Handle, PChar(Cells[ACol,ARow]),
        Length(Cells[ACol,ARow]), ARect,
        DT_CALCRECT or DT_CENTER);
      ARect.Right:= ARect.Right+ARect.Right;
      DrawText(c.Handle, PChar(Cells[ACol,ARow]),
        Length(Cells[ACol,ARow]), ARect,
        DT_LEFT or DT_NOPREFIX);
*)

      SetTextAlign(c.Handle, TA_LEFT);
      c.TextOut(ARect.Left, ARect.Top, Cells[ACol,ARow]);

Was mache ich denn falsch ?
Er schneidet den Text immer ab und zeigt ihn nur in der einen Zelle.


< Edit: >
Habe gerade diesen Link gefunden und werde es mal prüfen.
3

< Edit2: >
Der Link3 klappt ;)
Jetzt wird aber immer noch die horizontale Linie gemalt.
Das liegt aber am DefaultDrawing.
Nehme ich das raus, sieht die Anzeige "doof" aus,
weil die ganzen Linien fehlen ;(


Heiko

[shmia]

Du kannst grundsätzlich immer nur eine Zelle zeichnen.
Text, der über zwei Zellen reichen soll muss in zwei Zeichenvorgängen auf den Canvas gebracht werden.

[bluesbear]

Vielleicht klappt es ja, vor dem zeichnen mit SelectClipRgn das clipping abzuschalten, bzw. die Region zu erweitern?