FiveTech Support Forums

#include "FiveWin.ch"
#include "Constant.ch"
Function Test()
   local oDlg,oBrw,oFont,oBold,oFontBtn
   local nBottom   := 22
   local nRight    := 60
   local nWidth    := Max( nRight * DLG_CHARPIX_W, 180 )
   local nHeight   := nBottom * DLG_CHARPIX_H
   local oImageBig
   local cImage :="links.png"

 DEFINE DIALOG oDlg SIZE nWidth, nHeight PIXEL ;
   COLOR 0, CLR_WHITE ;
       STYLE WS_POPUP

    @ 0, 0 XIMAGE oImageBig ;
             FILENAME cImage ;
             OF oDlg ;
              SIZE 50,50 ;
             UPDATE NOBORDER

    oImageBig:bRClicked  := { || NIL }
    oImageBig:ltransparent:=.f.
    oImageBig:nUserControl :=0

ACTIVATE DIALOG oDlg  CENTERED