paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-09-01 23:40:26 +02:00
Code Issues Packages Projects Releases Wiki Activity

- Removed underscores from properties

Browse Source 
git-svn-id: trunk@7071 -
This commit is contained in:
marc 2005-04-12 21:21:11 +00:00
parent d926947285
commit 5a6ae1d91c
3 changed files with 15 additions and 9 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
lcl/include/spinedit.inc
View File

@ -52,9 +52,9 @@ begin
UpdateControl;
end;
function TCustomSpinEdit.Climb_RateIsStored: boolean;
function TCustomSpinEdit.ClimbRateIsStored: boolean;
begin
Result:=fClimbRate<>1;
Result := FClimbRate <> 1;
end;
function TCustomSpinEdit.GetModified: Boolean;

4
lcl/interfaces/gtk/gtkwsspin.pp
View File

@ -133,9 +133,9 @@ begin
AnAdjustment^.upper:=ACustomSpinEdit.MaxValue;
gtk_adjustment_changed(AnAdjustment);
end;
gtk_spin_button_set_digits(SpinWidget, ACustomSpinEdit.Decimal_Places);
gtk_spin_button_set_digits(SpinWidget, ACustomSpinEdit.DecimalPlaces);
gtk_spin_button_set_value(SpinWidget,ACustomSpinEdit.Value);
AnAdjustment^.step_increment := ACustomSpinEdit.Climb_Rate;
AnAdjustment^.step_increment := ACustomSpinEdit.ClimbRate;
end;
initialization

16
lcl/spin.pp
View File

@ -49,7 +49,7 @@ type
fValue: Single;
FValueEmpty: boolean;
fValueNeedsUpdate: boolean;
function Climb_RateIsStored: boolean;
function ClimbRateIsStored: boolean;
function GetModified: Boolean;
function GetSelLength: integer;
function GetSelStart: integer;
@ -90,13 +90,19 @@ type
property OnChange: TNotifyEvent read FOnChange write FOnChange;
property Text;
public
property Decimal_Places: Integer read fDecimals write SetDecimals default 2;
property Climb_Rate : Single read fClimbRate write SetClimbRate stored Climb_RateIsStored;
property DecimalPlaces: Integer read FDecimals write SetDecimals default 2;
property ClimbRate : Single read FClimbRate write SetClimbRate stored ClimbRateIsStored;
property MinValue: single read FMinValue write SetMinValue stored MinValueIsStored;
property MaxValue: single read FMaxValue write SetMaxValue stored MaxValueIsStored;
property TabStop default true;
property Value: Single read GetValue write SetValue stored ValueIsStored;
property ValueEmpty: boolean read FValueEmpty write SetValueEmpty default False;
published
// name compatebility for old configs
// strreamed data now still can be read
// TODO: remove
property Decimal_Places: Integer write SetDecimals;
property Climb_Rate : Single write SetClimbRate;
end;
@ -107,9 +113,9 @@ type
property Align;
property Anchors;
property BorderSpacing;
property Climb_Rate;
property ClimbRate;
property Constraints;
property Decimal_Places;
property DecimalPlaces;
property Enabled;
property MaxValue;
property MinValue;