home *** CD-ROM | disk | FTP | other *** search
/ DP Tool Club 16 / CD_ASCQ_16_0994.iso / news / 4611 / fw16d.ins / SOURCE / FUNCTION / MSGGET.PRG < prev    next >
Text File  |  1994-06-04  |  846b  |  36 lines
  1. #include "FiveWin.ch"
  2.  
  3. //----------------------------------------------------------------------------//
  4.  
  5. function MsgGet( cTitle, cText, uVar, cBmpFile )
  6.  
  7.    local oDlg
  8.    local uTemp := uVar
  9.    local lOk   := .f.
  10.  
  11.    DEFAULT cText := ""
  12.  
  13.    DEFINE DIALOG oDlg FROM 10, 20 TO 20, 62 TITLE cTitle
  14.  
  15.    @ 1,  5 SAY cText OF oDlg
  16.    @ 2,  5 GET uTemp OF oDlg
  17.  
  18.    if ! Empty( cBmpFile )
  19.       @ 1, 1 BITMAP FILENAME cBmpFile SIZE 20, 20 NO BORDER OF oDlg
  20.    endif
  21.  
  22.    @ 4,  4 BUTTON "&Aceptar"  OF oDlg SIZE 50, 12 ;
  23.       ACTION ( oDlg:End, lOk := .t. ) DEFAULT
  24.  
  25.    @ 4, 14 BUTTON "&Cancelar" OF oDlg SIZE 50, 12 ACTION ( oDlg:End(), lOk := .f. )
  26.  
  27.    ACTIVATE DIALOG oDlg CENTERED
  28.  
  29.    if lOk
  30.       uVar := uTemp
  31.    endif
  32.  
  33. return lOk
  34.  
  35. //----------------------------------------------------------------------------//
  36.