1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:

type
  TFUpDownValue = class(TFrame)
    EdtValue: TEdit;
    UpdValue: TUpDown;
  private
    { Private declarations }
    pValue, pStep, pMin, pMax: Real;
    procedure SetValue( value: Real );
    procedure SetStep( step: Real );
    procedure SetMin( min: Real );
    procedure SetMax( max: Real );
  public
    { Public declarations }
    FOnChange: TCallbackProcedure;
    procedure SetProperties( value, step, min, max: Real );
  published
    property Value: Real    read pValue     write SetValue;
    property Step: Real     read pStep      write SetStep;
    property Min: Real      read pMin       write SetMin;
    property Max: Real      read pMax       write SetMax;
  end;