Make(delphi)
Add(BASS_Version,10183901,189,238)
{
 link(onCheckOk,12302345:doInit,[])
 link(onCheckFailed,109118:doMessage,[(233,251)(233,293)])
}
Add(Message,11232751,189,287)
{
 Message="Error BASS initialization"
 Caption="Error"
 Icon=1
}
Add(Message,109118,245,287)
{
 Message="Incorrect version of BASS library "
 Caption="Error"
 Icon=1
}
Add(MainForm,16358250,56,224)
{
 Width=404
 Height=100
 Caption="BASS record demo"
 Point(Handle)
 link(onCreate,4252681:doInit,[])
}
Add(BASS_Init,4252681,133,238)
{
 link(onInit,10183901:doCheck,[])
 link(onError,11232751:doMessage,[(177,251)(177,293)])
 link(Handle,16358250:Handle,[(153,226)(107,226)(107,268)(62,268)])
}
Add(Edit,12373576,287,77)
{
 Left=15
 Top=15
 Width=350
 Text=""
}
Add(Button,13089460,189,77)
{
 Left=365
 Top=15
 Width=20
 Caption="..."
 link(onClick,12854261:doExecute,[])
}
Add(Button,13708268,189,126)
{
 Left=15
 Top=45
 Caption="Record"
 link(onClick,5066922:doStart,[])
}
Add(Button,14140950,189,175)
{
 Left=80
 Top=45
 Caption="Stop"
 link(onClick,5066922:doStop,[(254,181)(254,139)])
}
Add(BASS_RecordCenter,12302345,245,238)
{
 link(onError,11713735:doMessage,[(289,251)(289,293)])
}
Add(BASS_RecordStart,5066922,287,126)
{
 Freq=44100
 link(FileName,12373576:Text,[])
}
Add(Message,11713735,301,287)
{
 Message="InitRecord failed!"
 Caption="Error"
 Icon=1
}
Add(SDialog,12854261,238,77)
{
 link(onExecute,12373576:doText,[])
}