FiveTech Software tech support forums

Code: Select all

DEFINE BRUSH oBrush FILENAME "VFATEC01.BMP"

DEFINE DIALOG oWnd RESOURCE "MEMORY" BRUSH oBrush TRANSPARENT ICON oIcone
     REDEFINE SAY oSay[3] TRANSPARENT ID 101          COLOR CLR_HRED  FONT oFont[2] OF oWnd UPDATE
ACTIVATE DIALOG oWnd

Code: Select all

#include "FiveWin.ch"

function Main()

   local oDlg, oSay

   DEFINE BRUSH oBrush FILENAME "test.BMP" 

   DEFINE DIALOG oDlg RESOURCE "test" BRUSH oBrush TRANSPARENT

   REDEFINE SAY oSay TRANSPARENT ID 101 COLOR CLR_HRED OF oDlg UPDATE 

   REDEFINE BUTTON ID 1 OF oDlg ACTION oSay:SetText( Time() )

   ACTIVATE DIALOG oDlg 

return nil

Code: Select all

1 24 "WindowsXP.Manifest" 

test DIALOG 67, 59, 194, 119
STYLE DS_MODALFRAME | WS_POPUP | WS_VISIBLE | WS_CAPTION | WS_SYSMENU
CAPTION "Test"
FONT 8, "MS Sans Serif"
{
 DEFPUSHBUTTON "OK", IDOK, 75, 97, 50, 14
 PUSHBUTTON "Cancel", IDCANCEL, 135, 97, 50, 14
 LTEXT "Text", 101, 28, 35, 60, 8
}