Forum: Programmieren allgemein
by taaktaak,
26. Jun 2008
JA und NEIN
Also, kann man machen, aber analog des bekannten Codes. Du kannst das übergebene Rect verwenden, setzt die Farbe, füllst das Rectangle und schreibst mit Drawtext oder Textout deinen Zelltext.
Forum: Programmieren allgemein
by taaktaak,
26. Jun 2008
Hast du denn FixedRows=2 gesetzt?
Forum: Programmieren allgemein
by taaktaak,
26. Jun 2008
Na, vergessen wir mal die Punkte (ich sehe sie an den Kanten auch in deinem Bild) - ist hier nicht so wichtig.
Den übrigen Text verstehe ich nicht so recht. Das komische bild zeigt offnebar die Vermischung von meinem und deinem Code. Ich habe diesen Beispieltext ja fest in das OnDraw eingebaut, das musst du natürlich entfernen und durch deinen Text ersetzen.
Forum: Programmieren allgemein
by taaktaak,
26. Jun 2008
So, die Lösung unter Berücksichtigung des 3D-Effekt (fast OK):
procedure TfoTest05.StringGrid1DrawCell(Sender: TObject; ACol,
ARow: Integer; Rect: TRect; State: TGridDrawState);
var r: TRect;
begin
if aRow=1 then
if acol=2 then // << in Spalte 2 wird der Inhalt von Spalte 1 gezeichnet
with TStringgrid(Sender) do begin
Forum: Programmieren allgemein
by taaktaak,
26. Jun 2008
Jooo, aber das mit dem 3D-Effekt ist natürlich Mist. Da muss ich noch mal etwas grübeln....
Forum: Programmieren allgemein
by taaktaak,
26. Jun 2008
Ahh, sorry, ein ShowMessage() für schreibfaule Menschen ... Ist hier unwichtig, war nur zum Stoppen der einzelnen Schritte
Forum: Programmieren allgemein
by taaktaak,
26. Jun 2008
Also, habe das mal nachgestellt:
procedure TfoTest05.StringGrid1DrawCell(Sender: TObject; ACol,
ARow: Integer; Rect: TRect; State: TGridDrawState);
var r: TRect;
begin
if aRow=1 then
if acol=1 then
with TStringgrid(Sender) do begin
Forum: Programmieren allgemein
by taaktaak,
26. Jun 2008
Das soll doch wohl in den obersten beiden Zeilen stehen! Oder?
Forum: Programmieren allgemein
by taaktaak,
26. Jun 2008
Wieso ist -1 ok? Verstehe ich nicht!
Forum: Programmieren allgemein
by taaktaak,
26. Jun 2008
Moin, Moin.
DrawText(Canvas.Handle,
PChar(Cells),
-1,
R,
DT_CENTER or DT_VCENTER or DT_SINGLELINE);
..erscheint mir seltsam!