Arsip: Width Cell StringGrids

 
user image
more 13 years ago

unank

Haloo Temen2,saya mau nanya bagaimana caranya agar dalam stringgrids setiap cellsnya memiliki lebar (width) yang berbeda..soalnya propertinya cuma ada default width row sehingga setiap cells akan memilki ukuruan width yang sama semua. Mohon bantuan dari temen2 semua Terima kasih salam - Unank -
user image
more 13 years ago

46uh

klo saya pake perintah ini tapi ini setelah string grid memiliki data gunanya untuk ukuran kolom menjadi fit (sesuai dengan panjang karakter terpanjang)
type
  TGridHack = class(TCustomGrid);
procedure ResizeStringGrid(_Grid: TCustomGrid);
var
  Col, Row: integer;
  Grid: TGridHack;
  MaxWidth: integer;
  ColWidth: integer;
  ColText: string;
  MaxRow: integer;
  ColWidths: array of integer;
begin
  Grid := TGridHack(_Grid);
  SetLength(ColWidths, Grid.ColCount);
  MaxRow := 10;
  if MaxRow > Grid.RowCount then
    MaxRow := Grid.RowCount;
  for Col := 0 to Grid.ColCount - 1 do
  begin
    MaxWidth := 0;
    for Row := 0 to MaxRow - 1 do
    begin
      ColText  := Grid.GetEditText(Col, Row);
      ColWidth := Grid.Canvas.TextWidth(ColText);
      if ColWidth > MaxWidth then
        MaxWidth := ColWidth;
    end;
    if goVertLine in Grid.Options then
      Inc(MaxWidth, Grid.GridLineWidth);
    ColWidths[Col]      := MaxWidth + 4;
    Grid.ColWidths[Col] := ColWidths[Col];
  end;
end;
klo jawaban ini belum membantu soriin aja .. salah baca soal... :D :D
user image
more 13 years ago

i_hasibuan

coba klik kanan formnya, trus "view as text" object stringgrid1:tstringgrid . . . ColWidths=( 40 ==>lebar kolom1 40 ==>lebar kolom 3 dst 20 30 . .)
user image
more 13 years ago

Budiadi

Atau rubah langsung pada saat design time juga bisa khan, pada bagian static row (yang warnanya lebih gelap) pada saat kita mouse over (melintasi cell), pemisah antar cell-nya bisa digeser-geser sesuai keinginan (persis sama dengan ms spreadsheetnya ms excell);
more ...
  • Pages:
  • 1
Share to
Local Business Directory, Search Engine Submission & SEO Tools FreeWebSubmission.com SonicRun.com