2005. február 25., péntek

Fix a small bug in TLabel.AutoSize


Fix a small bug in TLabel.AutoSize


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
        AutoSize := False;
        AutoSize := True;

Nincsenek megjegyzések:

Megjegyzés küldése