使StringGrid自動依內容調整欄位寬度

bestlong

1. procedure TForm1.StringGrid1DrawCell(Sender: TObject; ACol, ARow: Integer;  Rect: TRect; State: TGridDrawState);
   
2. var
   
3.   MaxWidth,MaxHeight: integer;
   
4. begin
   
5.   //自動調整寬度
   
6.   MaxWidth := StringGrid1.Canvas.TextWidth(StringGrid1.Cells[ACol, ARow]);
   
7.   if MaxWidth > StringGrid1.ColWidths[ACol] then
   
8.     StringGrid1.ColWidths[ACol] := MaxWidth + 5;
   
9.   //自動調整高度
   
10.   MaxHeight := StringGrid1.Canvas.TextHeight(StringGrid1.Cells[ACol, ARow]);
    
11.   if MaxHeight > StringGrid1.RowHeights[ARow] then
    
12.     StringGrid1.RowHeights[ARow] := MaxHeight + 4;
    
13. end;

複製代碼

bestlong

1. procedure AutoFitable(AGrids: TStringGrid);
   
2. //傳入 TStringGrid 元件即可, 2004/10/28,CoolSlob
   
3. var
   
4.   I, J: Integer;
   
5.   MaxLenRow: Integer;
   
6.   CurRowLen: Integer;
   
7. begin
   
8.   inherited;
   
9.   for J := 0 to AGrids.ColCount - 1 do
   
10.   begin
    
11.     MaxLenRow := 0;
    
12.     for I := 1 to AGrids.RowCount - 1 do
    
13.     begin
    
14.       CurRowLen := AGrids.Canvas.TextWidth(Trim(AGrids.Cells[J, I]));
    
15.       //自適應寬度時，當值的最大寬度小於標題寬時，以標題寬為準。
    
16.       if AGrids.Canvas.TextWidth(Trim(AGrids.Cells[J, 0])) > CurRowLen then
    
17.         CurRowLen := AGrids.Canvas.TextWidth(Trim(AGrids.Cells[J, 0]));
    
18.       if CurRowLen > MaxLenRow then
    
19.       begin
    
20.         MaxLenRow := CurRowLen + 5;
    
21.         AGrids.ColWidths[J] := MaxLenRow;
    
22.       end;
    
23.     end;
    
24.   end;
    
25. end;

複製代碼