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

LCL T(Float)SpinEdit: Single properties storing

Browse Source 
git-svn-id: trunk@11398 -
This commit is contained in:
tombo 2007-06-28 16:18:05 +00:00
parent 77b45f8368
commit efa8463c35
2 changed files with 8 additions and 19 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

15
lcl/include/spinedit.inc
View File

@ -33,11 +33,6 @@ begin
end;
end;
function TCustomFloatSpinEdit.ValueIsStored: Boolean;
begin
Result := True; // fpc bug, default value is always 0
end;
function TCustomFloatSpinEdit.RealGetText: TCaption;
begin
if HandleAllocated then
@ -65,14 +60,10 @@ begin
UpdateControl;
end;
function TCustomFloatSpinEdit.MaxValueIsStored: Boolean;
function TCustomFloatSpinEdit.IsStored: boolean;
begin
Result := True; // fpc bug, default value is always 0
end;
function TCustomFloatSpinEdit.MinValueIsStored: Boolean;
begin
Result := True; // fpc bug, default value is always 0
// workaround for FPC bug
Result := True;
end;
procedure TCustomFloatSpinEdit.SetMinValue(const AValue: Single);

12
lcl/spin.pp
View File

@ -45,13 +45,11 @@ type
FValueEmpty: Boolean;
FUpdatePending: Boolean;
FValueChanged: Boolean;
function MaxValueIsStored: Boolean;
function MinValueIsStored: Boolean;
procedure SetMaxValue(const AValue: Single);
procedure SetMinValue(const AValue: Single);
procedure SetValueEmpty(const AValue: Boolean);
procedure UpdateControl;
function ValueIsStored: Boolean;
function IsStored: Boolean; // FPC bug workaround
protected
function RealGetText: TCaption; override;
procedure TextChanged; override;
@ -70,10 +68,10 @@ type
function StrToValue(const S: String): Single;
public
property DecimalPlaces: Integer read FDecimals write SetDecimals default 2;
property Increment: Single read FIncrement write SetIncrement default 1;
property MinValue: Single read FMinValue write SetMinValue default 0;
property MaxValue: Single read FMaxValue write SetMaxValue default 100;
property Value: Single read GetValue write SetValue default 0;
property Increment: Single read FIncrement write SetIncrement stored IsStored default 1;
property MinValue: Single read FMinValue write SetMinValue stored IsStored default 0;
property MaxValue: Single read FMaxValue write SetMaxValue stored IsStored default 100;
property Value: Single read GetValue write SetValue stored IsStored default 0;
property ValueEmpty: Boolean read FValueEmpty write SetValueEmpty default False;
end;