Strigrid spojování bunek? – Delphi – Fórum – Programujte.com

Dobry den jak jiz nazev napovida tak bych se potreboval dozvedet jestli se ve stringridu nechaji propojovat bunky tak jako to je v Exelu s funkci(MERGE)?

StringGrid jako takový neumožňuje přímo spojovat buňky (ale existujou modifikace co to umi), ale dá se to nasimulovat:

procedure TForm1.StringGrid1DrawCell(Sender: TObject; ACol, ARow: Integer; Rect: TRect; State: TGridDrawState);

var

  i, x, y: Integer;

begin

  If gdFixed In State Then Exit;

  If ARow <> 1 Then Exit; //upravou tohoto cisla zmenis cilovy radek



  // nakresli radek s textem z bunky 1,1

  with sender as tstringgrid do begin

    //prodlouzi RECT pokud by text nezaplnil cely radek

    If aCol < Pred(ColCount) Then

      Rect.Right := Rect.Right + GridlineWidth;



    //nastavi relativni pozici textu vzhledem k bunkam

    y:= Rect.Top + 2; 

    x:= Rect.Left + 2; 

    for i:= 1 to aCol-1 do

      x:= x - ColWidths[i] - GridlineWidth; 

      

    //vykresli barvu pozadi

    Canvas.Brush.Color := clBarva; //TADY si nastav barvu

    Canvas.Brush.Style := bsSolid; 

    Canvas.FillRect( Rect );

    

    //napise text z bunky 1,1

    Canvas.TextRect( Rect, x, y, Cells[1,1] );

  end; 

end;



procedure TForm1.FormCreate(Sender: TObject);

var  i, k: Integer;

begin

  with stringgrid1 do begin

    cells[1, 1] := 'Dolouhej text kterej zaplni celej radek';

  end;

end;