diff options
author | Graeme Geldenhuys <graeme@mastermaths.co.za> | 2010-05-05 13:06:30 +0200 |
---|---|---|
committer | Graeme Geldenhuys <graeme@mastermaths.co.za> | 2010-05-05 13:06:30 +0200 |
commit | 4930af8bbdc94132ed464717b75e39d6e9f856cb (patch) | |
tree | 25ddfd92c5d0b151f862755f74ab6677916cc6c1 /src/gui | |
parent | e58d47526b21c0e7a975ca393c64ae5dc152deaa (diff) | |
download | fpGUI-4930af8bbdc94132ed464717b75e39d6e9f856cb.tar.xz |
Minor optimization in property settings order for CreateLabel()
Diffstat (limited to 'src/gui')
-rw-r--r-- | src/gui/fpg_label.pas | 14 |
1 files changed, 7 insertions, 7 deletions
diff --git a/src/gui/fpg_label.pas b/src/gui/fpg_label.pas index 708a6204..00c6e484 100644 --- a/src/gui/fpg_label.pas +++ b/src/gui/fpg_label.pas @@ -107,19 +107,19 @@ begin Result.Top := y; Result.Text := AText; Result.LineSpace := ALineSpace; - if w = 0 then - begin - Result.Width := Result.Font.TextWidth(Result.Text); - Result.FAutoSize := True; - end - else - Result.Width := w; if h < Result.Font.Height then Result.Height:= Result.Font.Height else Result.Height:= h; Result.Alignment:= HAlign; Result.Layout:= VAlign; + if w = 0 then + begin + Result.Width := Result.Font.TextWidth(Result.Text); + Result.AutoSize := True; + end + else + Result.Width := w; end; { TfpgCustomLabel } |