StringGrid-i deyismek

[rahim_azeri]

Merhaba Kardesler.Bu formada strigGrid nasil yapa bilirim lutfen yardim edin.
Yani 1 FixedRow karşisinda 2 normal row olsun

Onceden tesekkurler....!

String.png (1.67 KiB) 1936 kere görüntülendi

ve ya surada
http://www.mypicx.com/10112010/StringGid/

[rahim_azeri]

Kardesler şunu bir bilen yokmu...?

[mkysoft]

merge cell olarak geçer bu özellik ama string grid'de yapılabilir mi bilmem. devexpress de yapılabiliyordu sanırım.

[Battosai]

Bu işi yapan stringGrid bileşenleri olsada hepsi ücretli...aşağıdaki kodu buldum test etmedim .Ayrıca sadece birleştirilmiş bilgi gösteriyor diyor açıklamasında yani edit yapmaya kalkarsan sorun olur...
adreside vereyim...http://www.experts-exchange.com/Program ... 51265.html

Kod: Tümünü seç

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;

  // draw row 1 with text from cell 1,1 spanning all cells in the row
  with sender as tstringgrid do begin
    {extend rect to include grid line on right, if not last cell
     in row}
    If aCol < Pred(ColCount) Then
      Rect.Right := Rect.Right + GridlineWidth;
     
    {figure out where the text of the first cell would start relative
     to the current cells rect. }
    y:= Rect.Top + 2;
    x:= Rect.Left + 2;
    for i:= 1 to aCol-1 do
      x:= x - ColWidths[i] - GridlineWidth;
     
    { Paint cell pale yellow}
    Canvas.Brush.Color := $7FFFFF;
    Canvas.Brush.Style := bsSolid;
    Canvas.FillRect( Rect );
   
    { Paint text of cell 1,1 clipped to current cell. }
    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] := 'A rather long line which will span cells';
    for i:= 1 to colcount-1 do
      for k:= 2 to rowcount -1 do
        cells[i,k] := Format( 'Cell[%d,%d]',[i,k]);
  end;
end;