Mega Code Archive

 

Categories / Delphi / VCL

 

[] Stringgrid e autosize özelliği

//veri yüklenme olayı i,j,temp,max: integer; for i := 0 to grid.colcount-1 do begin max := 0; for j := 0 to grid.rowcount-1 do begin temp := grid.canvas.textWidth (grid.cells[i,j]); if temp > max then max := temp; end; grid.colWidths[i] := max + grid.gridLineWidth +1; end;