Moin Shadowbug,
erst einmal herzlich willkommen hier in der Delphi-PRAXiS.
Das die Panels zu schmal werden könnte daran liegen, dass der 3D Rahmen mit zu der Breite zählt.
Diesen und ähnliche Werte kannst Du mit der
API Funktion GetSystemMetrics auslesen.
Da der Rahmen an beiden Seiten zu finden ist natürlich mal 2.
Evenutuell kann das schon helfen:
Delphi-Quellcode:
for P := 0 to StatusBar.Panels.Count - 1 do
begin
StatusBar.Panels.Items[P].Width :=
StatusBar.Canvas.TextWidth(StatusBar.Panels.Items[P].Text)+
2*GetSystemMetrics(SM_CXEDGE);
end;
Weitere Parameter wie SM_CXEDGE kannst Du dem
PSDK entnehmen.