TStringGrid-Zelle intern trennen.

[Rifman]

Hallo,

ich habe eine Spalte in TStringGrid Tabelle, die Zeit in Min. Sec. und Ms. darstellen sollte, alles in einer Zelle ist überhaupt nicht übersichtlig, gibt es eine Möglichkeit die Zelle intern zu trennen?

Danke.

[Der.Kaktus]

Hallo, meinst Du..es ist alles in einer Spalte oder in mehreren?

[omata]

Nein, du kannst nichts trennen.
Da kannst du nur anders herum ran gehen. Verbinde mehrere zu einer neuen, das bedeutet allerdings du musst alles selber zeichnen.

Gruss
Thorsten

[busybyte]

Trennen? Du brauchst doch nur die nächste Zelle zu nehmen oder wie?Verbinden geht wie Omata geschrieben hat.

[Rifman]

Es ist alles in einer Spalte.
---------------------------
Zeit



kann man so nicht machen?

[Der.Kaktus]

Also in einer Stringgridzelle zum Bleistift: 16:00:00Uhr?..dann kann man das doch trennen?! *verwirrt*

[Rifman]

Es ist alles in einer Spalte.Ich meine es so
-------------------
Zeit |
-------------------
min | Sec | Ms |
-------------------
3 | 34 | 560 |
-------------------

kann man so nicht machen?

[busybyte]

Ein Zeilenumbruch also, versuch mal String1+#10#13+String2 bin mir aber nicht sicher ob das im Stringgrid auch geht.
Nö geht nicht!

[Der.Kaktus]

Zitat:

Zitat von Rifman

Es ist alles in einer Spalte.Ich meine es so
-------------------
Zeit |
-------------------
min | Sec | Ms |
-------------------
3 | 34 | 560 |
-------------------

kann man so nicht machen?

Seh ich das Richtig...3 Zeilen im Stringrid..und Du moechtest alles schoen untereinander?..Ansonsten mal ne Tuete Quelltext(Aussschnitt)..und was Du moechtest.

[omata]

Also alles selber machen, wenn die inneren vertikalen Striche in der ersten Zeile nicht sichtbar sein sollen...

Code:

|-------------------|
|     | Zeit |      |
|-------------------|
| min | Sec  |  Ms  |
|-------------------|
|   3 |  34  | 560  |
|-------------------|

Zeilenumbruch geht nicht -> selber zeichnen.

[busybyte]

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
begin
Stringgrid1.Cells[2,2]:='abc'+#10#13+'def';
end;

procedure TForm1.StringGrid1DrawCell(Sender: TObject; ACol, ARow: Integer;
  Rect: TRect; State: TGridDrawState);
var
  S: String;
  drawrect :trect;
begin
  S:= (Sender As TStringgrid).Cells[ ACol, ARow ];
  If Length(S) > 0 Then Begin
    drawrect := rect;
    DrawText((Sender As TStringgrid).canvas.handle,
              Pchar(S), Length(S), drawrect,
              dt_calcrect or dt_wordbreak or dt_left );
    If (drawrect.bottom - drawrect.top) >
       (Sender As TStringgrid).RowHeights[Arow]
    Then
      (Sender As TStringgrid).RowHeights[Arow] :=
         (drawrect.bottom - drawrect.top)
    Else Begin
      drawrect.Right := rect.right;
      (Sender As TStringgrid).canvas.fillrect( drawrect );
      DrawText((Sender As TStringgrid).canvas.handle,
                Pchar(S), Length(S), drawrect,
                dt_wordbreak or dt_left);
    End;
  End;
end;

[Rifman]

Danke Leute, ihr seid echt Klasse!
P.S:Sorry für die verspätete Antwort, das Internet ging bei mir nicht.