[JVCL-Checkins] CVS: dev/p3/examples/JediSurveyor/common JvSurveyIntf.pas,1.4,1.5

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

Update of /cvsroot/jvcl/dev/p3/examples/JediSurveyor/common
In directory sc8-pr-cvs1:/tmp/cvs-serv11443/p3/examples/JediSurveyor/common

Modified Files:
	JvSurveyIntf.pas 
Log Message:
Reporter:
Shows comments in report

Surveyor:
Fixed bug with multi-selected radiobuttons
Added Save button (in case user can't send e-mail directly from program)



Index: JvSurveyIntf.pas
===================================================================
RCS file: /cvsroot/jvcl/dev/p3/examples/JediSurveyor/common/JvSurveyIntf.pas,v
retrieving revision 1.4
retrieving revision 1.5
diff -C2 -d -r1.4 -r1.5
*** JvSurveyIntf.pas	22 Mar 2003 13:39:41 -0000	1.4
--- JvSurveyIntf.pas	27 Mar 2003 21:21:12 -0000	1.5
***************
*** 1,9 ****
  unit JvSurveyIntf;
  
  interface
- uses
-   StdVCL;
  
  type
    TJvSurveyType = (
      stExclusive,  // single choice
--- 1,15 ----
+ {$I JVCL.INC}
  unit JvSurveyIntf;
  
  interface
  
  type
+ {$IFNDEF COMPILER6_UP}
+ {$M+}
+   IInvokable = interface(IUnknown)
+   end;
+ {$M-}
+ {$ENDIF}
+ 
    TJvSurveyType = (
      stExclusive,  // single choice
***************
*** 12,16 ****
    TJvSurveyFileFormat = (ffText,ffBinary);
    // one item in a survey
!   IJvSurveyItem = interface
    ['{D94E8215-2B22-44AE-9BE5-2B3784FAC7D9}']
      function GetID:integer;
--- 18,22 ----
    TJvSurveyFileFormat = (ffText,ffBinary);
    // one item in a survey
!   IJvSurveyItem = interface(IInvokable)
    ['{D94E8215-2B22-44AE-9BE5-2B3784FAC7D9}']
      function GetID:integer;
***************
*** 44,48 ****
  
    // a list of survey items
!   IJvSurveyItems = interface
    ['{B059D82D-0575-4E40-BAC2-38117CEAAC2C}']
      function GetItem(Index:integer):IJvSurveyItem;
--- 50,54 ----
  
    // a list of survey items
!   IJvSurveyItems = interface(IInvokable)
    ['{B059D82D-0575-4E40-BAC2-38117CEAAC2C}']
      function GetItem(Index:integer):IJvSurveyItem;
***************
*** 59,63 ****
  
    // info about person taking survey
!   IJvSurveyTaker = interface
    ['{FB6704CD-B5BE-4C43-9B91-429FA8B9968B}']
      function GetUserName:WideString;
--- 65,69 ----
  
    // info about person taking survey
!   IJvSurveyTaker = interface(IInvokable)
    ['{FB6704CD-B5BE-4C43-9B91-429FA8B9968B}']
      function GetUserName:WideString;
***************
*** 76,80 ****
  
    // the survey itself
!   IJvSurvey = interface
    ['{487E8927-AAC7-45BD-BCF3-26CDFB549676}']
      function GetID:integer;
--- 82,86 ----
  
    // the survey itself
!   IJvSurvey = interface(IInvokable)
    ['{487E8927-AAC7-45BD-BCF3-26CDFB549676}']
      function GetID:integer;