uploadringtone.pas

Gestione Cellulari Nokia

unit uploadringtone;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  StdCtrls, Spin,mainunit;

type
  TfrmUploadringtone = class(TForm)
    sptxtlocation: TSpinEdit;
    Label1: TLabel;
    btnOk: TButton;
    Cancel: TButton;
  private
    { Private declarations }
  public
    { Public declarations }
    function ShowForm:integer;

  end;

var
  frmUploadringtone: TfrmUploadringtone;

implementation

{$R *.DFM}

function TfrmUploadringtone.ShowForm:integer;
begin
  sptxtlocation.MaxValue:=frmMain.fBus1.PhoneInfo.Total_Ringtones;
  sptxtlocation.MinValue:=1;
  sptxtlocation.Value:=1;
  if Showmodal = mrOk then
    Result:=sptxtlocation.Value
  else
    Result:=-1;
end;
end.