Автор | Сообщение |
|
| |
Пост N: 5756
Зарегистрирован: 17.05.05
|
|
Отправлено: 22.06.16 15:36. Заголовок: WVT создать окно под картинку
Вывожу картинку в отдельном окне , но похоже что то не учитываю , так как пикча скажем 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 )))
|
|
|
Новых ответов нет
[см. все]
|
|
|
| |
Пост N: 5758
Зарегистрирован: 17.05.05
|
|
Отправлено: 22.06.16 21:39. Заголовок: Проехали ,решил...
Проехали ,решил.
|
|
|