paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-13 11:49:24 +02:00
Code Issues Packages Projects Releases Wiki Activity

fixed TSpinEdit.Value

Browse Source 
git-svn-id: trunk@3815 -
This commit is contained in:
mattias 2003-01-18 19:03:38 +00:00
parent 868a4a7ef3
commit f70a980e24
2 changed files with 10 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
lcl/include/spinedit.inc
View File

@ -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);

5
lcl/spin.pp
View File

@ -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