unit Dpi.Spin;

interface

uses
  Classes, SysUtils, Spin, Dpi.Controls;

type
  { TDpiSpinEdit }

  TDpiSpinEdit = class(TWinControl)
  private
    NativeSpinEdit: TSpinEdit;
  public
    function GetNativeSpinEdit: TSpinEdit;
    constructor Create(TheOwner: TComponent); override;
    destructor Destroy; override;
  end;


implementation

{ TDpiSpinEdit }

function TDpiSpinEdit.GetNativeSpinEdit: TSpinEdit;
begin
  if not Assigned(NativeSpinEdit) then NativeSpinEdit := TSpinEdit.Create(nil);
    Result := NativeSpinEdit;
end;

constructor TDpiSpinEdit.Create(TheOwner: TComponent);
begin
  inherited Create(TheOwner);
end;

destructor TDpiSpinEdit.Destroy;
begin
  FreeAndNil(NativeSpinEdit);
  inherited;
end;


end.