Creating various Edit components via helper functions now call UpdateWindowState

This means that the internal state of the result component instances
are set correctly - without extra developer intervention.

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;