home *** CD-ROM | disk | FTP | other *** search
/ C/C++ User's Journal & Wi…eveloper's Journal Tools / C-C__Users_Journal_and_Windows_Developers_Journal_Tools_1997.iso / sbdemo / p15.sb < prev    next >
Text File  |  1996-10-24  |  1KB  |  30 lines
  1. DIM rc As RECT
  2. SBV_FONTFACE = "Times New Roman"
  3. SBV_FONTWEIGHT = 700
  4. SBV_FONTSIZE = 48
  5. SBV_BGRCOLOR = RGB&(255,255,0)
  6. SBV_BORDER = 10
  7. SBV_BORDERSTYLE = SBC_FRAMEUP
  8. SBV_SHADOW = 16
  9. hWnd% = PopupWindow(SBC_CENTER,SBC_CENTER,400,300,\
  10.                     SBC_MODELESS or SBC_FILLBGR)
  11. PopupString(hWnd%, "Hello,",20, 20, 400, 150, RGB&(128,0,0),\
  12.             SBC_NULLCOLOR, DT_LEFT or DT_VCENTER or DT_SINGLELINE)
  13. PopupString(hWnd%, "Hello,",15, 15, 395, 145, RGB&(255,0,0),\
  14.             SBC_NULLCOLOR, DT_LEFT or DT_VCENTER or DT_SINGLELINE)
  15.  
  16. RectSet(rc, 15,15,400,150)
  17. PopupSetEffect(SBC_EFF_SLIDE, SBC_DIR_R2L, 1, 1, 1)
  18. PopupUpdate(hWnd%,  rc, SBC_EFFECT)
  19.  
  20. PopupString(hWnd%, "World!",5, 170, 380, 300, RGB&(0,0,128),\
  21.             SBC_NULLCOLOR, DT_RIGHT or DT_VCENTER or DT_SINGLELINE)
  22. PopupString(hWnd%, "World!",0, 165, 375, 295, RGB&(0,0,255),\
  23.             SBC_NULLCOLOR, DT_RIGHT or DT_VCENTER or DT_SINGLELINE)
  24.  
  25. RectSet(rc, 0,165,380,300)
  26. PopupSetEffect(SBC_EFF_SLIDE, SBC_DIR_B2T, 1, 1, 1)
  27. PopupUpdate(hWnd%,  rc, SBC_EFFECT)
  28.  
  29. WaitInput(SBC_KEYBOARDINPUT or SBC_MOUSEINPUT or SBC_IGNOREALLINPUT)
  30.