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