paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-12-16 03:20:33 +01:00
Code Issues Packages Projects Releases Wiki Activity

MG: fixed unallocated spinedit handle bug

Browse Source 
git-svn-id: trunk@3243 -
This commit is contained in:
lazarus 2002-08-25 14:27:45 +00:00
parent 6670f3b92c
commit 60de83b33e
2 changed files with 31 additions and 19 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

45
lcl/include/spinedit.inc
View File

@ -19,21 +19,26 @@
{-----------------------------------------------------------------------------}
procedure TSpinEdit.UpdateControl;
begin
CNSendMessage(LM_SetProperties,self,nil);
if not HandleAllocated then exit;
CNSendMessage(LM_SetProperties,Self,nil);
fValueNeedsUpdate:=false;
end;
{-----------------------------------------------------------------------------}
procedure TSpinEdit.SetClimbRate(Num : Single);
begin
fClimbRate := Num;
UpdateControl;
if fClimbRate = Num then exit;
fClimbRate := Num;
UpdateControl;
end;
{-----------------------------------------------------------------------------}
Procedure TSpinEdit.SetValue(num : Single);
begin
FValue := Num;
UpdateControl;
if FValue = Num then exit;
FValue := Num;
fValueNeedsUpdate:=true;
UpdateControl;
end;
{-----------------------------------------------------------------------------}
@ -41,30 +46,33 @@ Function TSpinEdit.GetValue : Single;
Var
Temp : Real;
begin
CNSendMessage(LM_GETVALUE,Self,@Temp);
FValue := Temp;
getvalue := fValue;
if HandleAllocated and (not fValueNeedsUpdate) then begin
CNSendMessage(LM_GETVALUE,Self,@Temp);
FValue := Temp;
end;
GetValue := fValue;
end;
{-----------------------------------------------------------------------------}
procedure TSpinEdit.SetDecimals(Num : Integer);
begin
fDecimals := Num;
UpdateControl;
if fDecimals = Num then exit;
fDecimals := Num;
UpdateControl;
end;
{-----------------------------------------------------------------------------}
constructor TSpinEdit.Create(AOwner : TComponent);
begin
inherited Create(AOwner);
fCompStyle := csSpinEdit;
inherited Create(AOwner);
fCompStyle := csSpinEdit;
fClimbRate := 1;
fDecimals := 2;
fValue := 1;
setbounds(1,1,50,20);
fClimbRate := 1;
fDecimals := 2;
fValue := 1;
fValueNeedsUpdate := true;
SetBounds(1,1,50,20);
end;
{-----------------------------------------------------------------------------}
@ -72,3 +80,6 @@ destructor TSpinEdit.Destroy;
begin
inherited Destroy;
end;
// included by spin.pp

5
lcl/spin.pp
View File

@ -36,11 +36,12 @@ uses
type
TSpinEdit = class(TWinControl)
private
fdecimals : Integer;
fDecimals : Integer;
fValue : Single;
fClimbRate : Single;
fValueNeedsUpdate: boolean;
Procedure UpdateControl;
protected
protected
procedure SetDecimals(num : Integer);
Function GetValue : Single;
procedure SetValue(Num : Single);