home *** CD-ROM | disk | FTP | other *** search
/ DP Tool Club 16 / CD_ASCQ_16_0994.iso / news / 4611 / fw16d.ins / SAMPLES / TESTINI.PRG < prev    next >
Text File  |  1994-01-16  |  1KB  |  47 lines
  1. #include "FiveWin.ch"
  2.  
  3. //----------------------------------------------------------------------------//
  4.  
  5. function Main()
  6.  
  7.    local oWnd, oIni, oBar
  8.    local cTitle, cMsg, cLogo
  9.    local nRow  := 3, nCol := 5, nWidth := 50, nHeight := 50
  10.    local cBtn1 := "", cBtn2 := ""
  11.  
  12.    INI oIni FILE ".\MyApp"
  13.       GET cTitle SECTION "main" ENTRY "Title"   OF oIni DEFAULT "FiveWin App"
  14.       GET cMsg   SECTION "main" ENTRY "Message" OF oIni DEFAULT "Main message"
  15.  
  16.       GET cLogo   SECTION "Logo" ENTRY "File"    OF oIni
  17.       GET nRow    SECTION "Logo" ENTRY "Row"     OF oIni
  18.       GET nCol    SECTION "Logo" ENTRY "Col"     OF oIni
  19.       GET nWidth  SECTION "Logo" ENTRY "Width"   OF oIni
  20.       GET nHeight SECTION "Logo" ENTRY "Height"  OF oIni
  21.  
  22.       GET cBtn1   SECTION "ButtonBar" ENTRY "Button1" OF oIni
  23.       GET cBtn2   SECTION "ButtonBar" ENTRY "Button2" OF oIni
  24.    ENDINI
  25.  
  26.    DEFINE WINDOW oWnd FROM 1, 5 TO 20, 60 ;
  27.       TITLE cTitle
  28.  
  29.    DEFINE BUTTONBAR oBar OF oWnd
  30.  
  31.    if ! Empty( cBtn1 )
  32.       DEFINE BUTTON OF oBar FILE cBtn1
  33.    endif
  34.    if ! Empty( cBtn2 )
  35.       DEFINE BUTTON OF oBar FILE cBtn2
  36.    endif
  37.  
  38.    SET MESSAGE OF oWnd TO cMsg
  39.  
  40.    @ nRow, nCol BITMAP FILE cLogo SIZE nWidth, nHeight OF oWnd
  41.  
  42.    ACTIVATE WINDOW oWnd
  43.  
  44. return
  45.  
  46. //----------------------------------------------------------------------------//
  47.