FiveTech Software tech support forums

Code: Select all

#INCLUDE "FiveWin.ch"
#include "fwinkey.ch"

FUNCTION test()
   local oDlg
   local oBrush
   DEFINE BRUSH oBrush  COLOR nRGB(240,240,245)

   DEFINE DIALOG oDlg RESOURCE "OPENENDATABASE" BRUSH oBrush  TRANSPARENT
   ACTIVATE DIALOG oDlg CENTERED

RETURN nil

Code: Select all

#include "c:\fwh\FWH710\include\WinApi.ch"

OPEN  ICON    folder2.ico

#ifdef __FLAT__
  1 24 "c:\fwh\FWH710\samples\WinXP\WindowsXP.Manifest"
#endif


OPENENDATABASE DIALOG 73, 37, 144, 48
STYLE DS_MODALFRAME | 0x4L | WS_POPUP | WS_VISIBLE | WS_CAPTION
CAPTION "Opening database"
FONT 8, "MS Sans Serif"
{
 LTEXT "Please wait...", -1, 55, 19, 57, 8
 ICON "open", -1, 20, 12, 21, 20
 GROUPBOX "", -1, 5, 2, 134, 38, BS_GROUPBOX
}