WVT создать окно под картинку

Форум » [x]Harbour » WVT создать окно под картинку » Ответить

WVT создать окно под картинку

Dima: Вывожу картинку в отдельном окне , но похоже что то не учитываю , так как пикча скажем 640 на 480 получается несколько растянутой. Алгоритм примерно таков [pre2] 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.) [/pre2] Dima пишет: [quote]// устанавливаю размеры окна hb_gtInfo(HB_GTI_SCREENWIDTH,nFrmWidth) hb_gtInfo(HB_GTI_SCREENHEIGHT,nFrmHeight) [/quote] Хотя правильнее было бы юзать размеры шрифта (но тут что то я потерялся) [pre2] hb_gtInfo( HB_GTI_FONTWIDTH, INT(( nFrmWidth / 80 ))) hb_gtInfo( HB_GTI_FONTSIZE, INT(( nFrmHeight / 25 ))) [/pre2]

Ответов - 1

Dima: Проехали ,решил.

полная версия страницы