Вывожу картинку в отдельном окне , но похоже что то не учитываю , так как
пикча скажем 640 на 480 получается несколько растянутой.
Алгоритм примерно таков

 
 pGT1 := hb_gtCreate( "WVG" ) 
 pGT := hb_gtSelect( pGT1 ) 
 hBitmap := BT_BitmapLoadFile (cfile) // эти сырцы BT_* дернул с Минигуи    
 nImgWidth  := BT_BitmapWidth (hBitmap) 
 nImgHeight := BT_BitmapHeight (hBitmap) 
 BT_BitmapRelease (hBitmap) 
 nAspRatio := nImgWidth / nImgHeight 
  
 nFrmHeight := MIN( nImgHeight, 0.85*HB_GtInfo(HB_GTI_DESKTOPHEIGHT) ) 
 nFrmWidth := (0.85*HB_GtInfo(HB_GTI_DESKTOPHEIGHT)) * nAspRatio - 40 
  
 // устанавливаю размеры окна 
 hb_gtInfo(HB_GTI_SCREENWIDTH,nFrmWidth) 
 hb_gtInfo(HB_GTI_SCREENHEIGHT,nFrmHeight) 
  
 // вывожу пикчу 
 Wvt_DrawImage( 0, 0, MaxRow(), MaxCol(), cfile,,.f.)

Dima пишет:

цитата:

// устанавливаю размеры окна
hb_gtInfo(HB_GTI_SCREENWIDTH,nFrmWidth)
hb_gtInfo(HB_GTI_SCREENHEIGHT,nFrmHeight)

Хотя правильнее было бы юзать размеры шрифта (но тут что то я потерялся)

 
 hb_gtInfo( HB_GTI_FONTWIDTH, INT(( nFrmWidth / 80 )))  
 hb_gtInfo( HB_GTI_FONTSIZE,  INT(( nFrmHeight / 25 )))