dialog style ws_pop and ximage

[Silvio.Falconi]

here not run this

Code: Select all  Expand view

#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

It's compiled but then not run on win 10
why ?

[cnavarro]

Please, create image at ON INIT clause dialog and try