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

[Bernhard Geyer]

Wieso stelltst Du die Frage nicht in der Newsgroup des Herstellers (news.lmd.de -> lmd.public.lmdelpack)?

Würde es für deinen Fall nicht einfach reichen, die Option AutoSize in den Header-Section-Optionen auf True zu setzen. Dann wird doch die breite der Spalte automatisch angepaßt.

[digleu]

hm das mit der News-Group ist ne knorke Idee ;) werd' ich gleich mal tun. Das mit dem AutoSize hat keinen Effekt, seltsamerweise...
danke trotzdem

mfg Lars