Moin,

ich möchte Text in einem StringGrid über mehrere Zeilen zentrieren. Im OnDrawCell vergrößere ich das Rect und schreibe dann den Text ins neue Rect. Danach werden die nachfolgenden Zellen aber darüber gezeichnet, so dass mein Text weg ist.
Gibt es da einen Trick, wie das Zeichnen einzelner Zellen zu unterbinden ist oder gibt es dafür einen anderen Ansatz?

Danke, Messie

Du solltest halt in den Zellen, die du mit dem Text übermalst, nichts anderes zeichnen (FillRect, etc.) Ansonsten mach ich das nämlich genau so.

Vielleicht mal die OnDrawCell Routine posten.

Zitat von iKilledKenny:

Du solltest halt in den Zellen, die du mit dem Text übermalst, nichts anderes zeichnen (FillRect, etc.) Ansonsten mach ich das nämlich genau so.

Vielleicht mal die OnDrawCell Routine posten.

zusammenfalten · markieren

Delphi-Quellcode:

if (ARow = Index1) then
  begin
    if (ACol = 3) or (ACol = 8) then //Beschriftungsfelder
    begin
      with Sender as TTntStringGrid do
      begin
        s := Cells[ACol,ARow];
        Rect.Right := Rect.Right + (Rect.Right - Rect.Left) * 3;
        Canvas.FillRect(Rect);
        DrawTextW(Canvas.Handle, PWideChar(s),Length(s),Rect,DT_CENTER or DT_VCenter);
      end;
    end
    else
    begin
      exit;
    end;
  end

eine leere Zelle wird aber doch normalerweise gezeichnet. Kannst Du das irgendwie abschalten?

Grüße, Messie

Habe 'ne ganze Weile nix mit dem Stringrid gemacht, aber die Lösung ist wohl, dass du das nicht in der ersten Zelle für die nächsten, sondern in der letzten Zelle für alle vrohergehenden Zellen zeichnest. Also: Du willst die Zellen 3-5 verbinden, dann wird deine Zeichenaktion erst tätig, wenn die Zelle 5 gezeichnet werden soll...

Dem muss ich widersprechen, ich mach das genauso, das ich in der ersten "verbundenen" Zelle male und dann nicht mehr.

Unterschied zu meiner Routine: Ich benutze ein TStringGrid.
TTntStringGrid kenne ich gar nicht.

Widerspruch angenommen! Habe nachgesehen: Es funktioniert auch in der ersten verbundenen Zelle - Sorry

Also das mit dem rückwärts Zeichnen klappt gut! Sieht so aus, als würden leere Zellen im TStringGrid nicht, aber im TTntStringGrid immer gezeichnet.

Danke, Messie

Das geht aber leider über die ganze Zeilenlänge....wie kann ich jetzt übereinanderliegende Zellen verbinden, nur 2 und nicht alle???

Hallo,

Du musst für jede der zusammengehörigen Zellen den gleichen Bereich und das gleiche zeichnen.

Zitat von Razor90:

Das geht aber leider über die ganze Zeilenlänge....wie kann ich jetzt übereinanderliegende Zellen verbinden, nur 2 und nicht alle???

Wenn Dein Grid von oben nach unten gezeichnet wird, musst Du Rect nach oben vergrößern. Wenn Du immer eine genze Zeile geändert bekommst, kontrolliere mal die Options des Grid. Bei meinem Beispiel kann das Grid schonmal nicht editiert werden, es dient nur der Anzeige. Zusammengezeichnete Zellen zu markieren stelle ich mir wesentlich aufwändiger vor.

Grüße, Messie