I'am moving a appliation from FW to FWH and have a problem with showing meta-files.
I have created a little sample that works in FW and not in FWH
- Code: Select all Expand view
#INCLUDE "fivewin.CH"
static sWnd
static sscaling := 3
func test()
local oS: =5200
local sx_offset := 0
local sy_offset := 0
local sregio := 3000
DEFINE WINDOW sWnd TITLE 'Test' VSCROLL HSCROLL
oMeta := TMetaFile():New( 38, 0, sregio+38, sregio,'tmp.dt',sWnd,CLR_BLACK,CLR_WHITE,sscaling,sscaling )
ACTIVATE WINDOW sWnd MAXIMIZED ;
VALID ( sWndOpen := .f. , .t.) on init sscale()
RETURN nil
FUNCTION sscale()
local vverhouding:=1
IF (sWnd:nright)-(sWnd:nleft) / (sWnd:nbottom - sWnd:ntop ) > 1.34
vverhouding =(1024/768)/ ((sWnd:nright-sWnd:nleft) / (sWnd:nbottom - sWnd:ntop )) *1.15
ENDIF
sscaling := 5200 / ((sWnd:nright-sWnd:nleft) / 1032* vverhouding)
oMeta:nWidth := sscaling
oMeta:nHeight := sscaling
oMeta:Refresh()
RETURN nil
The meta file is located
http://www.vms.be/FWTest/tmp.dt
Can anyone tell me why this is not working in FWH?
Thanks,
Marc