Fix a small bug in TLabel.AutoSize

Mirror

Fix a small bug in TLabel.AutoSize (Views: 704)

Problem/Question/Abstract:

Fix a small bug in TLabel.AutoSize

Answer:

If you switch between small fonts and large fonts, your labels' sizes will not be fixed. AutoSize works only when you change the label's caption or when you switch the property AutoSize on.

The following piece of code could be run e.g. in FormCreate to fix the sizes.


for I := 0 to ComponentCount - 1 do
  if Components[I] is TLabel then
    with TLabel(Components[I]) do
      if AutoSize = True then
      begin
        AutoSize := False;
        AutoSize := True;
      end;

<< Back to main page