Проверка на то, помещается ли текст в Кэпшине кнопки

[Dennis777]

Подскажите пожалуйста, как сделать проверку на то, вылазит ли текст за границы кнопки (текст выводится в Баттон Кэпшн), чтобы можно было написать что-то вроде:

while toobig > 0 do
Button1.Font.Size := Button1.Font.Size - 1;

[northener]

Эх. Где мои тридцатые-сороковые?

function GetTextWidthInPixels(AText: string; AControl: TControl): integer;
// Copyright by Игорь Шевченко ©
var
propInfo: PPropInfo;
thisFont: TFont;
begin
  Result := 0;
  propInfo := GetPropInfo(AControl.ClassInfo, 'Font');
  if propInfo <> nil then begin
    thisFont := TFont(GetObjectProp(AControl, 'Font'));
    if Assigned(thisFont) then
      with TControlCanvas.Create do
        try
          Control := AControl;
          Font.Assign(thisFont);
          Result  := TextWidth(AText);
        finally
          Free;
        end;
  end;
end;

А кажется что это было только вчера.

[northener]

Ах да. Забыл сказать, что в uses надо добавить TypInfo.
Ну и лучше попробовать сначала в разных режимах Windows то самое условие, которое toobig.

[Dennis777]

Большое спасибо, все работает!