diff options
Diffstat (limited to 'src')
| -rw-r--r-- | src/gui/fpg_edit.pas | 4 |
1 files changed, 4 insertions, 0 deletions
diff --git a/src/gui/fpg_edit.pas b/src/gui/fpg_edit.pas index 6962a80a..689b98ae 100644 --- a/src/gui/fpg_edit.pas +++ b/src/gui/fpg_edit.pas @@ -397,6 +397,7 @@ begin Result.Height := TfpgEdit(Result).FFont.Height + 4 + (Result.FHeightMargin * 2) else Result.Height:= h; + Result.UpdateWindowPosition; end; function CreateEditInteger(AOwner: TComponent; x, y, w, h: TfpgCoord; AShowThousand: boolean= True): TfpgEditInteger; @@ -410,6 +411,7 @@ begin Result.Height := TfpgEditInteger(Result).FFont.Height + 4 + (Result.FHeightMargin * 2) else Result.Height:= h; + Result.UpdateWindowPosition; end; function CreateEditFloat(AOwner: TComponent; x, y, w, h: TfpgCoord; AShowThousand: boolean= True; @@ -426,6 +428,7 @@ begin Result.Height := TfpgEditFloat(Result).FFont.Height + 4 + (Result.FHeightMargin * 2) else Result.Height:= h; + Result.UpdateWindowPosition; end; function CreateEditCurrency(AOwner: TComponent; x, y, w, h: TfpgCoord; AShowThousand: boolean= True; @@ -441,6 +444,7 @@ begin Result.Height := TfpgEditCurrency(Result).FFont.Height + 4 + (Result.FHeightMargin * 2) else Result.Height:= h; + Result.UpdateWindowPosition; end; |