Breite eines Strings in einem ElTreeStringGrid

[digleu]

Hi,
ich möchte eine Prozedur schreiben um die Breite jeder Spalte eines ElTreeStringGrids anzupassen. ElTreeStringGrids sind, für diese Situation, eigentlich das gleiche wie die normalen StringGrids. Ich gehe also die Spalten und dann die Reihen durch, blabla, aber ich habe das Problem, dass ich nicht herausfinden kann wie breit so ein Pixel wirklich ist. Normalerweise würde ich das mit der Canvas.TextWidth Funktion machen, allerdings stellt mir das ElTreeStringGrid kein Canvas zur Verfügung. Wenn ich mir nun ein Canvas erzeuge und die Schriftart und -größe aus dem Grid übernehme meldet er mir "Leinwand/Bild erlaubt kein Zeichnen". Warum? :)

Code:

procedure ElTreeGridAdaptColumns(ElTreeGrid: TElTreeStringGrid);
var i, j, MaxWidth, ActWidth: Integer;
    Canvas: TCanvas;
begin
  Canvas := TCanvas.Create;
  try
    Canvas.Font.Size := ElTreeGrid.Font.Size;
    Canvas.Font.Name := ElTreeGrid.Font.Name;
    for i := 0 to ElTreeGrid.HeaderSections.Count - 1 do
    begin
      MaxWidth := 0;
      for j := 0 to ElTreeGrid.RowCount - 1 do
      begin
        ActWidth := Canvas.TextWidth(ElTreeGrid.Cells[i, j]);
        if ActWidth > MaxWidth then
        begin
          MaxWidth := ActWidth;
        end;
      end;
      ElTreeGrid.HeaderSections.Item[i].Width := MaxWidth;
    end;
  finally
    Canvas.Free;
  end;
end;

ist mein bisheriger Versuch, bei dem der oben genannte Fehler auftritt.
Danke im Vorraus für alle Lösungsvorschlage.
mfg Lars