/usr/lib/lazarus/0.9.30.4/lcl/spin.pp is in lazarus-src-0.9.30.4 0.9.30.4-6.
This file is owned by root:root, with mode 0o644.
The actual contents of the file can be viewed below.
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95 96 97 98 99 100 101 102 103 104 105 106 107 108 109 110 111 112 113 114 115 116 117 118 119 120 121 122 123 124 125 126 127 128 129 130 131 132 133 134 135 136 137 138 139 140 141 142 143 144 145 146 147 148 149 150 151 152 153 154 155 156 157 158 159 160 161 162 163 164 165 166 167 168 169 170 171 172 173 174 175 176 177 178 179 180 181 182 183 184 185 186 187 188 189 190 191 192 193 194 195 196 197 198 199 200 201 202 203 204 | {
/***************************************************************************
Spin.pp
--------
Initial Revision : Fri Apr 23 1999 10:29am
Shane Miller
mailing list:lazarus@miraclec.com
***************************************************************************/
*****************************************************************************
* *
* This file is part of the Lazarus Component Library (LCL) *
* *
* See the file COPYING.modifiedLGPL.txt, included in this distribution, *
* for details about the copyright. *
* *
* This program is distributed in the hope that it will be useful, *
* but WITHOUT ANY WARRANTY; without even the implied warranty of *
* MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. *
* *
*****************************************************************************
}
unit Spin;
{$mode objfpc}{$H+}
interface
uses
Types, Classes, Controls, SysUtils, LCLType, LCLProc, ClipBrd, StdCtrls;
type
{ TCustomFloatSpinEdit }
TCustomFloatSpinEdit = class(TCustomEdit)
private
FIncrement: Double;
FDecimals: Integer;
FMaxValue: Double;
FMinValue: Double;
FValue: Double;
FValueEmpty: Boolean;
FUpdatePending: Boolean;
FValueChanged: Boolean;
procedure SetMaxValue(const AValue: Double);
procedure SetMinValue(const AValue: Double);
procedure SetValueEmpty(const AValue: Boolean);
procedure UpdateControl;
protected
class procedure WSRegisterClass; override;
function RealGetText: TCaption; override;
procedure TextChanged; override;
procedure SetDecimals(ADecimals: Integer);
function GetValue: Double;
procedure SetValue(const AValue: Double);
procedure SetIncrement(const AIncrement: Double);
procedure InitializeWnd; override;
procedure FinalizeWnd; override;
procedure Loaded; override;
procedure KeyPress(var Key: char); override;
class function GetControlClassDefaultSize: TSize; override;
public
constructor Create(TheOwner: TComponent); override;
function GetLimitedValue(const AValue: Double): Double;
function ValueToStr(const AValue: Double): String;
function StrToValue(const S: String): Double;
public
property DecimalPlaces: Integer read FDecimals write SetDecimals default 2;
property Increment: Double read FIncrement write SetIncrement;
property MinValue: Double read FMinValue write SetMinValue;
property MaxValue: Double read FMaxValue write SetMaxValue;
property Value: Double read GetValue write SetValue;
property ValueEmpty: Boolean read FValueEmpty write SetValueEmpty default False;
end;
{ TFloatSpinEdit }
TFloatSpinEdit = class(TCustomFloatSpinEdit)
public
property AutoSelected;
published
property Align;
property Anchors;
property AutoSelect;
property AutoSize;
property BorderSpacing;
property Color;
property Constraints;
property DecimalPlaces;
property Enabled;
property Font;
property Increment;
property MaxValue;
property MinValue;
property OnChange;
property OnChangeBounds;
property OnClick;
property OnEditingDone;
property OnEnter;
property OnExit;
property OnKeyDown;
property OnKeyPress;
property OnKeyUp;
property OnMouseDown;
property OnMouseMove;
property OnMouseUp;
property OnResize;
property OnUTF8KeyPress;
property ParentFont;
property ParentShowHint;
property PopupMenu;
property ReadOnly;
property ShowHint;
property TabStop;
property TabOrder;
property Value;
property Visible;
end;
{ TCustomSpinEdit }
TCustomSpinEdit = class(TCustomFloatSpinEdit)
private
function GetIncrement: integer;
function GetMaxValue: integer;
function GetMinValue: integer;
function GetValue: integer;
procedure SetIncrement(const AValue: integer);
procedure SetMaxValue(const AValue: integer);
procedure SetMinValue(const AValue: integer);
procedure SetValue(const AValue: integer);
public
constructor Create(TheOwner: TComponent); override;
public
property Value: integer read GetValue write SetValue default 0;
property MinValue: integer read GetMinValue write SetMinValue default 0;
property MaxValue: integer read GetMaxValue write SetMaxValue default 100;
property Increment: integer read GetIncrement write SetIncrement default 1;
end;
{ TSpinEdit }
TSpinEdit = class(TCustomSpinEdit)
public
property AutoSelected;
published
property Align;
property Anchors;
property AutoSelect;
property AutoSize;
property BorderSpacing;
property Color;
property Constraints;
property Enabled;
property Font;
property Increment;
property MaxValue;
property MinValue;
property OnChange;
property OnChangeBounds;
property OnClick;
property OnEditingDone;
property OnEnter;
property OnExit;
Property OnKeyDown;
property OnKeyPress;
Property OnKeyUp;
property OnMouseDown;
property OnMouseMove;
property OnMouseUp;
property OnResize;
property OnUTF8KeyPress;
property ParentFont;
property ParentShowHint;
property PopupMenu;
property ReadOnly;
property ShowHint;
property TabStop;
property TabOrder;
property Value;
property Visible;
end;
procedure Register;
implementation
uses
WSSpin;
procedure Register;
begin
RegisterComponents('Misc', [TSpinEdit, TFloatSpinEdit]);
end;
{$I spinedit.inc}
end.
|