[JVCL-Checkins] CVS: jvcl/examples/HID/ReadWriteDemo SimpleHIDWrite.dpr,1.1,1.2 Unit1.dfm,1.2,1.3 Unit1.pas,1.2,1.3

[Peter T. <pe...@us...>]

Update of /cvsroot/jvcl/jvcl/examples/HID/ReadWriteDemo
In directory sc8-pr-cvs1:/tmp/cvs-serv24148/examples/HID/ReadWriteDemo

Modified Files:
	SimpleHIDWrite.dpr Unit1.dfm Unit1.pas 
Log Message:
Updates to compile with D5

Index: SimpleHIDWrite.dpr
===================================================================
RCS file: /cvsroot/jvcl/jvcl/examples/HID/ReadWriteDemo/SimpleHIDWrite.dpr,v
retrieving revision 1.1
retrieving revision 1.2
diff -C2 -d -r1.1 -r1.2
*** SimpleHIDWrite.dpr	11 Jul 2002 12:16:47 -0000	1.1
--- SimpleHIDWrite.dpr	19 Nov 2002 18:44:52 -0000	1.2
***************
*** 3,7 ****
  uses
    Forms,
!   Unit1 in 'Unit1.pas' {Form1},
    Unit2 in 'Unit2.pas' {InfoForm};
  
--- 3,7 ----
  uses
    Forms,
!   Unit1 in 'Unit1.pas' {frmMain},
    Unit2 in 'Unit2.pas' {InfoForm};
  
***************
*** 10,14 ****
  begin
    Application.Initialize;
!   Application.CreateForm(TForm1, Form1);
    Application.Run;
  end.
--- 10,15 ----
  begin
    Application.Initialize;
!   Application.CreateForm(TfrmMain, frmMain);
!   Application.CreateForm(TInfoForm, InfoForm);
    Application.Run;
  end.

Index: Unit1.dfm
===================================================================
RCS file: /cvsroot/jvcl/jvcl/examples/HID/ReadWriteDemo/Unit1.dfm,v
retrieving revision 1.2
retrieving revision 1.3
diff -C2 -d -r1.2 -r1.3
*** Unit1.dfm	23 Jul 2002 06:15:08 -0000	1.2
--- Unit1.dfm	19 Nov 2002 18:44:52 -0000	1.3
***************
*** 1,3 ****
! object Form1: TForm1
    Left = 300
    Top = 121
--- 1,3 ----
! object frmMain: TfrmMain
    Left = 300
    Top = 121

Index: Unit1.pas
===================================================================
RCS file: /cvsroot/jvcl/jvcl/examples/HID/ReadWriteDemo/Unit1.pas,v
retrieving revision 1.2
retrieving revision 1.3
diff -C2 -d -r1.2 -r1.3
*** Unit1.pas	19 Nov 2002 15:27:43 -0000	1.2
--- Unit1.pas	19 Nov 2002 18:44:52 -0000	1.3
***************
*** 8,12 ****
  
  type
!   TForm1 = class(TForm)
      ListBox1: TListBox;
      WriteButton: TButton;
--- 8,12 ----
  
  type
!   TfrmMain = class(TForm)
      ListBox1: TListBox;
      WriteButton: TButton;
***************
*** 39,43 ****
  
  var
!   Form1: TForm1;
    TheDev: TJvHidDevice;
  
--- 39,43 ----
  
  var
!   frmMain: TfrmMain;
    TheDev: TJvHidDevice;
  
***************
*** 48,52 ****
  {$R *.DFM}
  
! procedure TForm1.HidCtlDeviceChange(Sender: TObject);
  var
    I: Integer;
--- 48,52 ----
  {$R *.DFM}
  
! procedure TfrmMain.HidCtlDeviceChange(Sender: TObject);
  var
    I: Integer;
***************
*** 75,79 ****
  end;
  
! function TForm1.HidCtlEnumerate(const HidDev: TJvHidDevice;
    const Index: Integer): Boolean;
  var
--- 75,79 ----
  end;
  
! function TfrmMain.HidCtlEnumerate(const HidDev: TJvHidDevice;
    const Index: Integer): Boolean;
  var
***************
*** 94,98 ****
  end;
  
! procedure TForm1.FormActivate(Sender: TObject);
  var
    I, J: Integer;
--- 94,98 ----
  end;
  
! procedure TfrmMain.FormActivate(Sender: TObject);
  var
    I, J: Integer;
***************
*** 118,122 ****
  end;
  
! procedure TForm1.FormDestroy(Sender: TObject);
  var
    I: Integer;
--- 118,122 ----
  end;
  
! procedure TfrmMain.FormDestroy(Sender: TObject);
  var
    I: Integer;
***************
*** 130,134 ****
  end;
  
! procedure TForm1.InfoButtonClick(Sender: TObject);
  begin
    if (ListBox1.Items.Count > 0) and
--- 130,134 ----
  end;
  
! procedure TfrmMain.InfoButtonClick(Sender: TObject);
  begin
    if (ListBox1.Items.Count > 0) and
***************
*** 141,145 ****
  end;
  
! procedure TForm1.DoRead(Feature: Boolean);
  var
    I: Integer;
--- 141,145 ----
  end;
  
! procedure TfrmMain.DoRead(Feature: Boolean);
  var
    I: Integer;
***************
*** 186,190 ****
  end;
  
! procedure TForm1.DoWrite(Feature: Boolean);
  var
    I: Integer;
--- 186,190 ----
  end;
  
! procedure TfrmMain.DoWrite(Feature: Boolean);
  var
    I: Integer;
***************
*** 230,244 ****
  end;
  
! procedure TForm1.ReadButtonClick(Sender: TObject);
  begin
    DoRead(Sender = GetFeatureButton);
  end;
  
! procedure TForm1.WriteButtonClick(Sender: TObject);
  begin
    DoWrite(Sender = SetFeatureButton);
  end;
  
! procedure TForm1.ListBox1Click(Sender: TObject);
  var
    I: Integer;
--- 230,244 ----
  end;
  
! procedure TfrmMain.ReadButtonClick(Sender: TObject);
  begin
    DoRead(Sender = GetFeatureButton);
  end;
  
! procedure TfrmMain.WriteButtonClick(Sender: TObject);
  begin
    DoWrite(Sender = SetFeatureButton);
  end;
  
! procedure TfrmMain.ListBox1Click(Sender: TObject);
  var
    I: Integer;