From f70a980e24f772285de0766805b75b9e51455e25 Mon Sep 17 00:00:00 2001
From: mattias <nc-gaertnma@netcologne.de>
Date: Sat, 18 Jan 2003 19:03:38 +0000
Subject: [PATCH] fixed TSpinEdit.Value

git-svn-id: trunk@3815 -
---
 lcl/include/spinedit.inc | 8 +++++++-
 lcl/spin.pp              | 5 +++--
 2 files changed, 10 insertions(+), 3 deletions(-)

diff --git a/lcl/include/spinedit.inc b/lcl/include/spinedit.inc
index 2ed523f2b4..c2592cf45d 100644
--- a/lcl/include/spinedit.inc
+++ b/lcl/include/spinedit.inc
@@ -32,6 +32,12 @@ begin
   UpdateControl;
 end;
 
+procedure TSpinEdit.InitializeWnd;
+begin
+  inherited InitializeWnd;
+  UpdateControl;
+end;
+
 {-----------------------------------------------------------------------------}
 Procedure TSpinEdit.SetValue(num : Single);
 begin
@@ -44,7 +50,7 @@ end;
 {-----------------------------------------------------------------------------}
 Function TSpinEdit.GetValue : Single;
 Var
-  Temp : Real;
+  Temp : Single;
 begin
   if HandleAllocated and (not fValueNeedsUpdate) then begin
     CNSendMessage(LM_GETVALUE,Self,@Temp);
diff --git a/lcl/spin.pp b/lcl/spin.pp
index c90a07b27f..95b111700c 100644
--- a/lcl/spin.pp
+++ b/lcl/spin.pp
@@ -46,6 +46,7 @@ type
     Function GetValue : Single;
     procedure SetValue(Num : Single);
     procedure SetClimbRate(num : Single);
+    procedure InitializeWnd; override;
   public
     constructor Create(AOwner : TComponent); override;
     destructor Destroy; override;
@@ -53,14 +54,14 @@ type
     property Align;
     property Decimal_Places : Integer read fDecimals write SetDecimals;
     property Enabled;
-    property Value : Single read GetValue write SetValue;
+    property Value: Single read GetValue write SetValue;
     property Climb_Rate : Single read fClimbRate write SetClimbRate;
     property Visible;
     property OnEnter;
     property OnExit;
     property PopupMenu;
     property ShowHint;
-	end;
+  end;
 
 Implementation