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