u_icy_clientlistenconfig.pas

Voice Commnucation Components for Delphi

(*
	----------------------------------------------

	  u_icy_clientListenConfig.pas
	  Icy Streaming Client Demo application - listener config form

	----------------------------------------------
	  This source code cannot be used without
	  proper license granted to you as a private
	  person or an entity by the Lake of Soft, Ltd

	  Visit http://lakeofsoft.com/ for more information.

	  Copyright (c) 2001, 2007 Lake of Soft, Ltd
		     All rights reserved
	----------------------------------------------

	  created by:
		Lake, 19 May 2003

	  modified by:
		Lake, May-Dec 2003
		Lake, Mar 2004
		Lake, Oct 2005
		Lake, Feb 2006

	----------------------------------------------
*)

{$I unaDef.inc}

unit
  u_icy_clientListenConfig;

interface

uses
  Windows, unaTypes, Forms,
  ExtCtrls, StdCtrls, Controls, Classes, Dialogs;

type
  Tc_form_lstConfig = class(TForm)
    Bevel1: TBevel;
    Button1: TButton;
    Button2: TButton;
    c_comboBox_dest: TComboBox;
    Label12: TLabel;
    Button4: TButton;
    c_edit_decoder: TEdit;
    c_button_browse: TButton;
    c_openDialog_dll: TOpenDialog;
    c_rb_ACM: TRadioButton;
    c_rb_DLL: TRadioButton;
    procedure FormShow(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure c_button_browseClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  c_form_lstConfig: Tc_form_lstConfig;

  
implementation


{$R *.dfm}

uses
  u_icy_client;

// --  --
procedure Tc_form_lstConfig.FormShow(Sender: TObject);
begin
  c_comboBox_dest.itemIndex := c_form_main.lstDestination;
  //c_form_main.lstDestPath;
  c_edit_decoder.text := c_form_main.lstDecoder;
end;

// --  --
procedure Tc_form_lstConfig.Button2Click(Sender: TObject);
begin
  c_form_main.lstDestination := c_comboBox_dest.itemIndex;
  //c_form_main.lstDestPath;
  c_form_main.lstDecoder := c_edit_decoder.text;
end;

// --  --
procedure Tc_form_lstConfig.c_button_browseClick(Sender: TObject);
begin
  if (c_openDialog_dll.execute()) then
    c_edit_decoder.text := c_openDialog_dll.fileName;
end;


end.