StringGrid Mehrzeilig

[glkgereon]

Hi Leute,
wie mache ich ein Stringgrid mehrzeilig
also nicht mehrere felder, sondern in einem feld 2 Zeilen
Wie geht das?

[kiar]

so:

Delphi-Quellcode:

for icnt :=1 to 2 do
       begin
         with TEdit(FindComponent('ed'+ Inttostr(iCnt))) do
                case iCnt of
                  1: sErsterDienst  := text;
                  2: sZweiterDienst := text;
                end;
       end;
       Stringgrid1.Cells[stringgrid1.Col,stringgrid1.row]:=sErsterDienst
                                                      + #13#10 +
                                                          sZweiterDienst;

raik

[glkgereon]

ähmm, pardon,
aber was heisst das bitte???

[kiar]

wichtig ist das:

Delphi-Quellcode:

Stringgrid1.Cells[stringgrid1.Col,stringgrid1.row]:=sErsterDienst
                                                      + #13#10 +
                                                          sZweiterDienst;

ich wusste garnicht das der so schwer zu lesen ist. :shock:

raik

[glkgereon]

ja, aber was heisst das??????
sersterdienst???
#13#10???

[kiar]

das ist aus einem code von mir einfach rauskopiert, hat also für dich keine bedeutung.

es ist einfach ein string, hätte auch

Delphi-Quellcode:

Stringgrid1.cells[1,1]:='ich'+ #13#10+ 'weiß' +#13#10+ 'nichts'

schreiben können.

raik

[Synonym]

bei mir gehts nicht

[kiar]

was?

[Synonym]

mit deinem code mehrzeilig machen da kommen immer so sonderzeichen ins stringgrid || oder so

[toms]

Schau dir mal dies an.

[Robert_G]

Ich hätte es so gelöst (im OnDrawCell des Grids) :

Delphi-Quellcode:

Var
  CrLfPos, PrevPos, i                   : Integer;
  SL                                    : TStrings;
Begin
  With Sender As TStringGrid Do
  Begin

    If aCol < FixedCols Then Exit;
    If aRow < FixedRows Then Exit;

    PrevPos := 1;
    CrLfPos := PosEx(#13#10, Cells[aCol, aRow], PrevPos);
    If CrLfPos > 0 Then
    Begin
      SL := TStringList.Create;
      Try
        // such Zeilenumbrüche
        While CrLfPos > 0 Do
        Begin
          // rein in die SL
          SL.Add(Copy(Cells[aCol, aRow], PrevPos, CrLfPos - PrevPos));
          PrevPos := CrLfPos + 2;
          CrLfPos := PosEx(#13#10, Cells[aCol, aRow], PrevPos);
        End;

        If SL.Count > 0 Then
          // Canvas des Grids
          With Canvas Do
          Begin
            SL.Add(Copy(Cells[aCol, aRow], PrevPos, Length(Cells[aCol, aRow])));
            FillRect(Rect);
            For i := 0 To pred(SL.Count) Do
              // Zeichne Text (-Font.Height +2 entspricht einer Zeilenhöhe)
              TextOut(Rect.Left + 2, Rect.Top + 2 + ((-Font.Height + 2) * i), Sl[i]);
          End;

      Finally
        FreeAndNil(SL);
      End;
    End;
  End;
End;

Nachtrag: Ich habe es noch ausgebessert, in der vorherigen Variante wurde immer die SL erzeugt... :oops:

[kiar]

sorry :oops:

hatte vergessen, das ich hier mit Editmask arbeite und im Ondrawcell die textformatierung eingestellt habe.

:wall:

raik