www.pudn.com > d4psp31.zip > fmGotoPosition.pas, change:1997-01-02,size:878b


unit fmGotoPosition; 
 
interface 
 
uses 
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, 
  StdCtrls, Buttons, ComCtrls; 
 
type 
  TGotoPositionForm = class(TForm) 
    Label1: TLabel; 
    edBar: TEdit; 
    UpDown1: TUpDown; 
    edBeat: TEdit; 
    UpDown2: TUpDown; 
    edTick: TEdit; 
    UpDown3: TUpDown; 
    btnOK: TBitBtn; 
    btnCancel: TBitBtn; 
    BitBtn3: TBitBtn; 
    procedure BitBtn3Click(Sender: TObject); 
  private 
    { Private declarations } 
  public 
    { Public declarations } 
  end; 
 
var 
  GotoPositionForm: TGotoPositionForm; 
 
implementation 
 
{$R *.DFM} 
 
uses fmMainForm; 
 
procedure TGotoPositionForm.BitBtn3Click(Sender: TObject); 
begin 
  MainForm.MidiPlayer.SetBarPos(StrToInt (edBar.Text) - 1, strToInt (edBeat.Text) - 1, StrToInt (edTick.Text)); 
  MainForm.DisplayCurrentPosition 
end; 
 
end.