Skifte line i celle på stringgrid

\'hesten er grøn\' + #13 + #10 + \'med prikker\';

Det er ikke testet, jeg har ikke lige delphi på denne PC

Ellers er det helt klart et emne for Borrisholt

Stoney

Hej Morten, fik du Gem og Hent til at virke ?

Du skal nok lave OwnerDraw for at få det til at virke med to liner i en Celle

/Martin

StringGrid1.cells[1,1] := \'Hej\'+#10+#13+\'tøser\';
virker ikke direkte. (Hej||tøser)

hreiff> nej det har jeg prøvet

Martin> jep det kører bare

\"Trylle Rylle\" *S*

Det er ikke så svært som det lyder at lave ownerdraw på en grid, du kan ligge i den første Gridcomp. du fik hvor stream ikke virkede

/Martin

martin> kan du ikke paste det aktuelle kode ind her ?

Jeg har ikke den nøjagtige kode, den må du selv lave, men hvis du bruger DrawText() er det nemt nok, for den kan selv finde udaf at lave flere liner (parameterstyret) du kan se eks. i den comp. jeg snakkede om

Hej hej hvor det går, nedenstående lille rutine
skifter selv linie når den ser et ; i strengen




procedure TdlgSHLoad.StringGrid1DrawCell(Sender: TObject; ACol,
  ARow: Integer; Rect: TRect; State: TGridDrawState);
var
  Line1: string;
  Line2: string;
  ptr: integer;
  padding: integer;
  hGrid: TStringGrid;

begin
  hGrid:= (Sender as TStringGrid);
  ptr := Pos(\';\', hGrid.Cells[ACol, ARow]);
  if ptr > 0 then
  begin
    Line1 := Copy(hGrid.Cells[ACol, ARow], 1, ptr - 1);
    Line2 := Copy(hGrid.Cells[ACol, ARow], ptr + 1,
                  Length(hGrid.Cells[ACol,ARow]) - ptr);
  end
  else Line1 := hGrid.Cells[ACol, ARow];
  hGrid.Canvas.FillRect(Rect);
  hGrid.Canvas.TextOut(Rect.Left, Rect.Top + 2, Line1);
  if ptr > 0 then
    hGrid.Canvas.TextOut(Rect.Left, Rect.Top -
                          hGrid.Canvas.Font.Height + 3, Line2);
end;

Så skulle du tage at lave den om til DrawText() for den benytter std. cr+lf karakterer og ville give dig en meget simplere kode

nu fandt jeg lige den her ;-))

you got mail *S*

Tilføj denne i TStringGridEx så virker det :

procedure TStringGridEx.DrawCell(ACol, ARow: Longint; ARect: TRect; AState: TGridDrawState);
VAR
  Strx : String;
begin
  inherited;
  if not ( csDesigning in ComponentState ) and FAllowMultiLineCells and ( Cells[aCol,aRow] <> \'\' ) then
  begin
      Canvas.FillRect(aRect);
      DrawText(Canvas.Handle,PChar(Cells[aCol,aRow]),-1,aRect,DT_CALCRECT);
      if ( aRect.Bottom - aRect.Top ) > RowHeights[aRow] then RowHeights[aRow] := aRect.Bottom - aRect.Top;
      DrawText(Canvas.Handle,PChar(Cells[aCol,aRow]),-1,aRect,DT_LEFT + DT_VCENTER + DT_WORDBREAK);
  end;
end;


Simpelt og \"smukt\"

/Martin

Nej du får sku lige pas filen, er sendt