main_mi.pas

/////////////////// Demo how to use Multi-Input with uos ////////////////////

unit main_mi;

{$mode objfpc}{$H+}

interface

uses
  uos_flat,
  Forms,
  Dialogs,
  SysUtils,
  fileutil,
  Graphics,
  ctypes,
  StdCtrls,
  ComCtrls,
  ExtCtrls,
  Classes,
  Controls;

type

  { TForm1 }

  TForm1 = class(TForm)
    Button1: TButton;
    Button10: TButton;
    Button11: TButton;
    Button13: TButton;
    Button14: TButton;
    Button15: TButton;
    Button16: TButton;
    Button17: TButton;
    Button2: TButton;
    Button3: TButton;
    Button4: TButton;
    Button5: TButton;
    Button7: TButton;
    Button8: TButton;
    CheckBox1: TCheckBox;
    CheckBox2: TCheckBox;
    CheckBox3: TCheckBox;
    CheckBox4: TCheckBox;
    CheckBox5: TCheckBox;
    CheckBox6: TCheckBox;
    CheckBox7: TCheckBox;
    CheckBox8: TCheckBox;
    Label12: TLabel;
    mp3input: TCheckBox;
    Edit1: TEdit;
    Edit10: TEdit;
    Edit11: TEdit;
    Edit2: TEdit;
    Edit3: TEdit;
    Edit4: TEdit;
    Edit5: TEdit;
    Edit6: TEdit;
    Edit7: TEdit;
    Edit8: TEdit;
    Edit9: TEdit;
    Label1: TLabel;
    Label10: TLabel;
    Label11: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    Label5: TLabel;
    Label6: TLabel;
    Label7: TLabel;
    Label8: TLabel;
    Label9: TLabel;
    OpenDialog1: TOpenDialog;
    PaintBox1: TPaintBox;
    Shape1: TShape;
    Shape2: TShape;
    Shape3: TShape;
    Shape4: TShape;
    Shape5: TShape;
    Shape6: TShape;
    Shape7: TShape;
    Shape8: TShape;
    Shape9: TShape;
    TrackBar1: TTrackBar;
    TrackBar2: TTrackBar;
    TrackBar3: TTrackBar;
    TrackBar4: TTrackBar;
    TrackBar5: TTrackBar;
    TrackBar6: TTrackBar;
    TrackBar7: TTrackBar;
    TrackBar8: TTrackBar;
    procedure Button11Click(Sender: TObject);
    procedure Button17Click(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure Button10Click(Sender: TObject);
    procedure Button13Click(Sender: TObject);
    procedure Button14Click(Sender: TObject);
    procedure Button15Click(Sender: TObject);
    procedure Button16Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure Button3Click(Sender: TObject);
    procedure Button4Click(Sender: TObject);
    procedure Button5Click(Sender: TObject);
    procedure Button7Click(Sender: TObject);
    procedure Button8Click(Sender: TObject);
    procedure CheckBox1Change(Sender: TObject);
    procedure CheckBox2Change(Sender: TObject);
    procedure CheckBox3Change(Sender: TObject);
    procedure CheckBox4Change(Sender: TObject);
    procedure CheckBox5Change(Sender: TObject);
    procedure CheckBox6Change(Sender: TObject);
    procedure CheckBox7Change(Sender: TObject);
    procedure CheckBox8Change(Sender: TObject);
    procedure FormActivate(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure FormDestroy(Sender: TObject);
    procedure PaintBox1Paint(Sender: TObject);

    procedure ClosePlayer0;
    procedure TrackBar1Change(Sender: TObject);
    procedure TrackBar2Change(Sender: TObject);
    procedure TrackBar3Change(Sender: TObject);
    procedure TrackBar4Change(Sender: TObject);
    procedure TrackBar5Change(Sender: TObject);
    procedure TrackBar6Change(Sender: TObject);
    procedure TrackBar7Change(Sender: TObject);
    procedure TrackBar8Change(Sender: TObject);


  private
    { private declarations }
  public

    { public declarations }
  end;

procedure uos_logo();


var
  Form1: TForm1;
  BufferBMP: TBitmap;
  PlayerIndex0, inindex1, inindex2, inindex3, inindex4, mut, inindex5, inindex6, inindex7, inindex8, channels: cardinal;


implementation

{$R *.lfm}

{ TForm1 }

procedure TForm1.ClosePlayer0;
begin
  button16.Enabled := False;
  button15.Enabled := False;
  button3.Enabled  := False;
  button14.Enabled := False;
  button2.Enabled  := True;
end;

procedure TForm1.TrackBar1Change(Sender: TObject);
begin
  if (button14.Enabled = False) then
    uos_InputSetDSPVolume(PlayerIndex0, InIndex1, TrackBar1.position / 100,
      TrackBar1.position / 100, True);
end;

procedure TForm1.TrackBar2Change(Sender: TObject);
begin
  if (button14.Enabled = False) then
    uos_InputSetDSPVolume(PlayerIndex0, InIndex2, TrackBar2.position / 100,
      TrackBar2.position / 100, True);
end;

procedure TForm1.TrackBar3Change(Sender: TObject);
begin
  if (button14.Enabled = False) then
    uos_InputSetDSPVolume(PlayerIndex0, InIndex3, TrackBar3.position / 100,
      TrackBar3.position / 100, True);
end;

procedure TForm1.TrackBar4Change(Sender: TObject);
begin
  if (button14.Enabled = False) then
    uos_InputSetDSPVolume(PlayerIndex0, InIndex4, TrackBar4.position / 100,
      TrackBar4.position / 100, True);
end;

procedure TForm1.TrackBar5Change(Sender: TObject);
begin
  if (button14.Enabled = False) then
    uos_InputSetDSPVolume(PlayerIndex0, InIndex8, TrackBar5.position / 100,
      TrackBar5.position / 100, True);
end;

procedure TForm1.TrackBar6Change(Sender: TObject);
begin
  if (button14.Enabled = False) then
    uos_InputSetDSPVolume(PlayerIndex0, InIndex5, TrackBar6.position / 100,
      TrackBar6.position / 100, True);
end;

procedure TForm1.TrackBar7Change(Sender: TObject);
begin
  if (button14.Enabled = False) then
    uos_InputSetDSPVolume(PlayerIndex0, InIndex6, TrackBar7.position / 100,
      TrackBar7.position / 100, True);
end;

procedure TForm1.TrackBar8Change(Sender: TObject);
begin
  if (button14.Enabled = False) then
    uos_InputSetDSPVolume(PlayerIndex0, InIndex7, TrackBar8.position / 100,
      TrackBar8.position / 100, True);
end;


procedure TForm1.FormActivate(Sender: TObject);
var
  ordir: string;
{$IFDEF Darwin}
  opath: string;
            {$ENDIF}
begin
  uos_logo();
  ordir := application.Location;
  {$IFDEF Windows}
     {$if defined(cpu64)}
  Edit1.Text := ordir + 'lib\Windows\64bit\LibPortaudio-64.dll';
  Edit2.Text := ordir + 'lib\Windows\64bit\LibSndFile-64.dll';
  Edit3.Text := ordir + 'lib\Windows\64bit\LibMpg123-64.dll';
   {$else}
  Edit1.Text := ordir + 'lib\Windows\32bit\LibPortaudio-32.dll';
  Edit2.Text := ordir + 'lib\Windows\32bit\LibSndFile-32.dll';
  Edit3.Text := ordir + 'lib\Windows\32bit\LibMpg123-32.dll';
   {$endif}
  {$ENDIF}

  {$IFDEF Darwin}
   {$IFDEF CPU32}
  opath := ordir;
  opath := copy(opath, 1, Pos('/uos', opath) - 1);
  Edit1.Text := opath + '/lib/Mac/32bit/LibPortaudio-32.dylib';
  Edit2.Text := opath + '/lib/Mac/32bit/LibSndFile-32.dylib';
  Edit3.Text := opath + '/lib/Mac/32bit/LibMpg123-32.dylib';

   {$ENDIF}
    {$IFDEF CPU64}
  opath := ordir;
  opath := copy(opath, 1, Pos('/uos', opath) - 1);
  Edit1.Text := opath + '/lib/Mac/64bit/LibPortaudio-64.dylib';
  Edit2.Text := opath + '/lib/Mac/64bit/LibSndFile-64.dylib';
  Edit3.Text := opath + '/lib/Mac/64bit/LibMpg123-64.dylib';
    {$ENDIF}
    {$ENDIF}

    {$if defined(cpu64) and defined(linux) }
  Edit1.Text := ordir + 'lib/Linux/64bit/LibPortaudio-64.so';
  Edit2.Text := ordir + 'lib/Linux/64bit/LibSndFile-64.so';
  Edit3.Text := ordir + 'lib/Linux/64bit/LibMpg123-64.so';
 {$ENDIF}

   {$if defined(CPUAMD64) and defined(openbsd) }
  Edit1.Text := ordir + 'lib/OpenBSD/64bit/LibPortaudio-64.so';
  Edit2.Text := ordir + 'lib/OpenBSD/64bit/LibSndFile-64.so';
  Edit3.Text := ordir + 'lib/OpenBSD/64bit/LibMpg123-64.so';
 {$ENDIF}

{$if defined(cpu86) and defined(linux)}
  Edit1.Text := ordir + 'lib/Linux/32bit/LibPortaudio-32.so';
  Edit2.Text := ordir + 'lib/Linux/32bit/LibSndFile-32.so';
  Edit3.Text := ordir + 'lib/Linux/32bit/LibMpg123-32.so';
  {$ENDIF}
   {$if defined(linux) and defined(cpuarm)}
  Edit1.Text := ordir + 'lib/Linux/arm_raspberrypi/libportaudio-arm.so';
  Edit2.Text := ordir + 'lib/Linux/arm_raspberrypi/libsndfile-arm.so';
  Edit3.Text := ordir + 'lib/Linux/arm_raspberrypi/libmpg123-arm.so';
  {$ENDIF}

{$IFDEF freebsd}
    {$if defined(cpu64)}
   Edit1.Text := ordir + 'lib/FreeBSD/64bit/libportaudio-64.so';
   Edit2.Text := ordir + 'lib/FreeBSD/64bit/libsndfile-64.so';
   Edit3.Text := ordir + 'lib/FreeBSD/64bit/libmpg123-64.so';
  {$else}
  Edit1.Text := ordir + 'lib/FreeBSD/32bit/libportaudio-32.so';
  Edit2.Text := ordir + 'lib/FreeBSD/32bit/libsndfile-32.so';
  Edit3.Text := ordir + 'lib/FreeBSD/32bit/libmpg123-32.so';
  {$endif}
    {$ENDIF}

  opendialog1.Initialdir := application.Location + 'sound';

  Edit4.Text  := application.Location + 'sound' + directoryseparator + 'test.wav';
  Edit5.Text  := application.Location + 'sound' + directoryseparator + 'test.ogg';
  Edit6.Text  := application.Location + 'sound' + directoryseparator + 'test.wav';
  Edit7.Text  := application.Location + 'sound' + directoryseparator + 'test.flac';
  Edit8.Text  := application.Location + 'sound' + directoryseparator + 'test.ogg';
  Edit9.Text  := application.Location + 'sound' + directoryseparator + 'test.flac';
  Edit10.Text := application.Location + 'sound' + directoryseparator + 'test.wav';
  Edit11.Text := application.Location + 'sound' + directoryseparator + 'test.ogg';

end;

procedure TForm1.PaintBox1Paint(Sender: TObject);
begin
  PaintBox1.Canvas.Draw(0, 0, BufferBMP);
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  // Load the libraries
   // function uos_loadlib(PortAudioFileName, SndFileFileName, Mpg123FileName, Mp4ffFileName, FaadFileName,  opusfilefilename, libxmpfilename: PChar) : LongInt;

{$if defined(CPUAMD64) and defined(linux) }
     // For Linux amd64, check libsndfile.so
if (Edit2.Text <> 'system') and (Edit2.Text <> '') then
  if uos_TestLoadLibrary(PChar(edit2.Text)) = false then
   edit2.Text := edit2.Text + '.2';
   
if (Edit1.Text <> 'system') and (Edit1.Text <> '') then     
  if uos_TestLoadLibrary(PChar(edit1.Text)) = false then
   edit1.Text := edit1.Text + '.2';   
{$endif}

  if uos_LoadLib(PChar(edit1.Text), PChar(edit2.Text), PChar(edit3.Text), nil, nil, nil, nil) = 0 then
  begin
    form1.hide;
    form1.Position  := podefault;
    button1.Caption := 'Libraries are loaded...';
    button1.Enabled := False;
    edit1.ReadOnly  := True;
    edit2.ReadOnly  := True;
    edit3.ReadOnly  := True;
    form1.Height    := 478;
    form1.Position  := poScreenCenter;
    button2.click;
    form1.Show;
  end
  else
  begin

    if uosLoadResult.PAloaderror = 1 then
      MessageDlg(edit1.Text + ' do not exist...', mtWarning, [mbYes], 0);
    if uosLoadResult.PAloaderror = 2 then
      MessageDlg(edit1.Text + ' do not load...', mtWarning, [mbYes], 0);
    if uosLoadResult.SFloaderror = 1 then
      MessageDlg(edit2.Text + ' do not exist...', mtWarning, [mbYes], 0);
    if uosLoadResult.SFloaderror = 2 then
      MessageDlg(edit2.Text + ' do not load...', mtWarning, [mbYes], 0);

  end;

end;

procedure TForm1.Button11Click(Sender: TObject);
begin
  if opendialog1.Execute then
    edit10.Text := opendialog1.FileName;
end;

procedure TForm1.Button17Click(Sender: TObject);
begin
  if opendialog1.Execute then
    edit11.Text := opendialog1.FileName;
end;

procedure TForm1.Button10Click(Sender: TObject);
begin
  if opendialog1.Execute then
    edit6.Text := opendialog1.FileName;
end;

procedure TForm1.Button13Click(Sender: TObject);
begin
  if opendialog1.Execute then
    edit7.Text := opendialog1.FileName;
end;

procedure TForm1.Button14Click(Sender: TObject);
begin

  button15.Enabled := True;
  button3.Enabled  := True;
  button14.Enabled := False;
  button16.Enabled := False;
  button2.Enabled  := False;

  // set the volume from the sliders.
  TrackBar1Change(self);
  TrackBar2Change(self);
  TrackBar3Change(self);
  TrackBar4Change(self);
  TrackBar5Change(self);
  TrackBar6Change(self);
  TrackBar7Change(self);
  TrackBar8Change(self);
  
  // Ok let start it
  uos_Play(PlayerIndex0);
 end;

procedure TForm1.Button15Click(Sender: TObject);
begin
  uos_Pause(PlayerIndex0);
  button15.Enabled := False;
  button16.Enabled := True;
end;


procedure TForm1.Button16Click(Sender: TObject);
begin
  uos_RePlay(PlayerIndex0);
  button16.Enabled := False;
  button15.Enabled := True;
end;

procedure TForm1.Button2Click(Sender: TObject);
var
  ratioendlessloop: shortint;
begin
  PlayerIndex0 := 0;

  channels := 2; // (stereo output)

  uos_Stop(PlayerIndex0);
  sleep(100);
  application.ProcessMessages;

  uos_CreatePlayer(PlayerIndex0);

  if mp3input.Checked then
    ratioendlessloop := 4
  else
    ratioendlessloop := 1;

  //// add input from audio file with custom parameters
  //////////// PlayerIndex : Index of a existing Player
  ////////// FileName : filename of audio file
  ////////// OutputIndex : OutputIndex of existing Output // -1 : all output, -2: no output, other integer : existing output)
  ////////// SampleFormat : -1 default : Int16 : (0: Float32, 1:Int32, 2:Int16) SampleFormat of Input can be <= SampleFormat float of Output
  //////////// FramesCount : default : -1 (65536)
  //  result : -1 nothing created, otherwise Input Index in array
  inindex1 := uos_AddFromFile(PlayerIndex0, PChar(Edit4.Text), -1, 0, 1024);
  inindex2 := uos_AddFromFile(PlayerIndex0, PChar(Edit5.Text), -1, 0, 1024);
  inindex3 := uos_AddFromFile(PlayerIndex0, PChar(Edit6.Text), -1, 0, 1024);
  inindex4 := uos_AddFromFile(PlayerIndex0, PChar(Edit7.Text), -1, 0, 1024);
  inindex5 := uos_AddFromFile(PlayerIndex0, PChar(Edit8.Text), -1, 0, 1024);
  inindex6 := uos_AddFromFile(PlayerIndex0, PChar(Edit9.Text), -1, 0, 1024);
  inindex7 := uos_AddFromFile(PlayerIndex0, PChar(Edit10.Text), -1, 0, 1024);
  inindex8 := uos_AddFromFile(PlayerIndex0, PChar(Edit11.Text), -1, 0, 1024);

  // This for a dummy endless input, set enable to true, must be last input
  // Needed to make all input reach the end.

  mut := uos_AddFromEndlessMuted(PlayerIndex0, 2, 1024 div ratioendlessloop);
  uos_inputsetenable(PlayerIndex0, mut, True);

  ///// DSP Volume changer
  ////////// PlayerIndex1 : Index of a existing Player
  ////////// In1Index : InputIndex of a existing input
  ////////// VolLeft : Left volume  ( from 0 to 1 => gain > 1 )
  ////////// VolRight : Right volume

  uos_InputAddDSPVolume(PlayerIndex0, InIndex1, 1, 1);
  uos_InputAddDSPVolume(PlayerIndex0, InIndex2, 1, 1);
  uos_InputAddDSPVolume(PlayerIndex0, InIndex3, 1, 1);
  uos_InputAddDSPVolume(PlayerIndex0, InIndex4, 1, 1);
  uos_InputAddDSPVolume(PlayerIndex0, InIndex5, 1, 1);
  uos_InputAddDSPVolume(PlayerIndex0, InIndex6, 1, 1);
  uos_InputAddDSPVolume(PlayerIndex0, InIndex7, 1, 1);
  uos_InputAddDSPVolume(PlayerIndex0, InIndex8, 1, 1);

  //// add a Output into device with custom parameters
  //////////// PlayerIndex : Index of a existing Player
  //////////// Device ( -1 is default Output device )
  //////////// Latency  ( -1 is latency suggested ) )
  //////////// SampleRate : delault : -1 (44100)
  //////////// Channels : delault : -1 (2:stereo) (0: no channels, 1:mono, 2:stereo, ...)
  //////////// SampleFormat : -1 default : Int16 : (0: Float32, 1:Int32, 2:Int16)
  //////////// FramesCount : default : -1 (65536)
  // ChunkCount : default : -1 (= 512)
  //  result : -1 nothing created, otherwise Output Index in array
 {$if defined(cpuarm) or defined(cpuaarch64)}  // need a lower latency
   uos_AddIntoDevOut(PlayerIndex0, -1, 0.3, -1, -1, 0, 1024, -1);
     {$else}
  uos_AddIntoDevOut(PlayerIndex0, -1, 0.3, -1, -1, 0, 1024, -1);
  {$endif}

  CheckBox1Change(Sender);
  CheckBox2Change(Sender);
  CheckBox3Change(Sender);
  CheckBox4Change(Sender);
  CheckBox5Change(Sender);
  CheckBox6Change(Sender);
  CheckBox7Change(Sender);
  CheckBox8Change(Sender);

  /////// procedure to execute when stream is terminated
  uos_EndProc(PlayerIndex0, @ClosePlayer0);
  ///// Assign the procedure of object to execute at end
  //////////// PlayerIndex : Index of a existing Player
  //////////// ClosePlayer1 : procedure of object to execute inside the loop

  application.ProcessMessages;

  button14.Enabled := True;
end;


procedure TForm1.Button3Click(Sender: TObject);
begin
  uos_Stop(PlayerIndex0);
  sleep(100);
  button2.Enabled := True;
  button3.Enabled := False;
  ClosePlayer0;
end;

procedure TForm1.Button4Click(Sender: TObject);
begin
  if opendialog1.Execute then
    edit4.Text := opendialog1.FileName;
end;

procedure TForm1.Button5Click(Sender: TObject);
begin
  if opendialog1.Execute then
    edit8.Text := opendialog1.FileName;
end;


procedure TForm1.Button7Click(Sender: TObject);
begin
  if opendialog1.Execute then
    edit5.Text := opendialog1.FileName;
end;

procedure TForm1.Button8Click(Sender: TObject);
begin
  if opendialog1.Execute then
    edit9.Text := opendialog1.FileName;
end;

procedure TForm1.CheckBox1Change(Sender: TObject);
begin
  uos_InputSetEnable(PlayerIndex0, InIndex1, checkbox1.Checked);
end;

procedure TForm1.CheckBox2Change(Sender: TObject);
begin
  uos_InputSetEnable(PlayerIndex0, InIndex2, checkbox2.Checked);
end;

procedure TForm1.CheckBox3Change(Sender: TObject);
begin
  uos_InputSetEnable(PlayerIndex0, InIndex5, checkbox3.Checked);
end;

procedure TForm1.CheckBox4Change(Sender: TObject);
begin
  uos_InputSetEnable(PlayerIndex0, InIndex6, checkbox4.Checked);
end;

procedure TForm1.CheckBox5Change(Sender: TObject);
begin
  uos_InputSetEnable(PlayerIndex0, InIndex3, checkbox5.Checked);
end;

procedure TForm1.CheckBox6Change(Sender: TObject);
begin
  uos_InputSetEnable(PlayerIndex0, InIndex4, checkbox6.Checked);
end;

procedure TForm1.CheckBox7Change(Sender: TObject);
begin
  uos_InputSetEnable(PlayerIndex0, InIndex7, checkbox7.Checked);
end;

procedure TForm1.CheckBox8Change(Sender: TObject);
begin
  uos_InputSetEnable(PlayerIndex0, InIndex8, checkbox8.Checked);
end;


procedure uos_logo();
var
  xpos, ypos: integer;
  ratio: double;
begin
  xpos      := 0;
  ypos      := 0;
  ratio     := 1;
  BufferBMP := TBitmap.Create;
  with form1 do
  begin
    form1.PaintBox1.Parent.DoubleBuffered := True;
    PaintBox1.Height := round(ratio * 116);
    PaintBox1.Width  := round(ratio * 100);
    BufferBMP.Height := PaintBox1.Height;
    BufferBMP.Width  := PaintBox1.Width;
    BufferBMP.Canvas.AntialiasingMode := amOn;
    BufferBMP.Canvas.Pen.Width := round(ratio * 6);
    BufferBMP.Canvas.brush.Color := clmoneygreen;
    BufferBMP.Canvas.FillRect(0, 0, PaintBox1.Width, PaintBox1.Height);
    BufferBMP.Canvas.Pen.Color := clblack;
    BufferBMP.Canvas.brush.Color := $70FF70;
    BufferBMP.Canvas.Ellipse(round(ratio * (22) + xpos),
      round(ratio * (30) + ypos), round(ratio * (72) + xpos),
      round(ratio * (80) + ypos));
    BufferBMP.Canvas.brush.Color := clmoneygreen;
    BufferBMP.Canvas.Arc(round(ratio * (34) + xpos), round(ratio * (8) + ypos),
      round(ratio * (58) + xpos), round(ratio * (32) + ypos), round(ratio * (58) + xpos),
      round(ratio * (20) + ypos), round(ratio * (46) + xpos),
      round(ratio * (32) + xpos));
    BufferBMP.Canvas.Arc(round(ratio * (34) + xpos), round(ratio * (32) + ypos),
      round(ratio * (58) + xpos), round(ratio * (60) + ypos), round(ratio * (34) + xpos),
      round(ratio * (48) + ypos), round(ratio * (46) + xpos),
      round(ratio * (32) + ypos));
    BufferBMP.Canvas.Arc(round(ratio * (-28) + xpos), round(ratio * (18) + ypos),
      round(ratio * (23) + xpos), round(ratio * (80) + ypos), round(ratio * (20) + xpos),
      round(ratio * (50) + ypos), round(ratio * (3) + xpos), round(ratio * (38) + ypos));
    BufferBMP.Canvas.Arc(round(ratio * (70) + xpos), round(ratio * (18) + ypos),
      round(ratio * (122) + xpos), round(ratio * (80) + ypos),
      round(ratio * (90 - xpos)),
      round(ratio * (38) + ypos), round(ratio * (72) + xpos),
      round(ratio * (50) + ypos));
    BufferBMP.Canvas.Font.Name := 'Arial';
    BufferBMP.Canvas.Font.Size := round(ratio * 10);
    BufferBMP.Canvas.TextOut(round(ratio * (4) + xpos),
      round(ratio * (83) + ypos), 'United Openlib');
    BufferBMP.Canvas.Font.Size := round(ratio * 7);
    BufferBMP.Canvas.TextOut(round(ratio * (20) + xpos),
      round(ratio * (101) + ypos), 'of');
    BufferBMP.Canvas.Font.Size := round(ratio * 10);
    BufferBMP.Canvas.TextOut(round(ratio * (32) + xpos),
      round(ratio * (98) + ypos), 'Sound');
  end;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
  form1.Height := 148;
end;

procedure TForm1.FormDestroy(Sender: TObject);
begin
  uos_free;
  BufferBMP.free;
end;

end.