Серый форум — AHK: Корректное отображение в GUI бинаризированных изображений

Re: AHK: Корректное отображение в GUI бинаризированных изображений

null@example.com (teadrinker) — Wed, 15 Apr 2020 21:11:44 +0000

Частично.

Re: AHK: Корректное отображение в GUI бинаризированных изображений

null@example.com (DD) — Wed, 15 Apr 2020 19:04:57 +0000

teadrinker пишет:

Нужно удалить прежний hBitmap, затем получить новый тем же способом, потом установить его на картинку с помощью STM_SETIMAGE.

Тут про это? — http://forum.script-coding.com/viewtopi … 30#p132530

Re: AHK: Корректное отображение в GUI бинаризированных изображений

null@example.com (teadrinker) — Wed, 15 Apr 2020 16:35:43 +0000

Да не, не должно.

Re: AHK: Корректное отображение в GUI бинаризированных изображений

null@example.com (DD) — Mon, 13 Apr 2020 18:30:02 +0000

Будет ли это вести себя как с GuiControl, или окно будет мелькать? С "Gui Destroy" — мелькает.

Re: AHK: Корректное отображение в GUI бинаризированных изображений

null@example.com (teadrinker) — Sun, 12 Apr 2020 13:28:23 +0000

Вместе с GuiControl никак. Нужно удалить прежний hBitmap, затем получить новый тем же способом, потом установить его на картинку с помощью STM_SETIMAGE.

Re: AHK: Корректное отображение в GUI бинаризированных изображений

null@example.com (DD) — Sat, 11 Apr 2020 00:47:19 +0000

Не пойму, как использовать код вместе с GuiControl? То есть, когда сначала выводится первая страница, а потом в цикле, в зависимости от содержимого переменной page — в GUI подгружаются другие страницы:


CtrlHeight := (90 * A_ScreenHeight//100)

pToken := Gdip_Startup()
pBitmap := Gdip_CreateBitmapFromFile("E:\SCANz\00128.tif")
Gdip_GetImageDimensions(pBitmap, Width, Height)
CtrlWidth := Width/Height*CtrlHeight
pNewBitmap := Gdip_CreateBitmap(CtrlWidth, CtrlHeight)
G := Gdip_GraphicsFromImage(pNewBitmap)
Gdip_SetInterpolationMode(G, HighQualityBicubic := 7)
Gdip_SetSmoothingMode(G, AntiAlias := 4)
Gdip_DrawImage(G, pBitmap, 0, 0, CtrlWidth, CtrlHeight, 0, 0, Width, Height)
hBitmap := Gdip_CreateHBITMAPFromBitmap(pNewBitmap)
Gdip_DisposeImage(pNewBitmap)
Gdip_DisposeImage(pBitmap)
Gdip_DeleteGraphics(G)
Gdip_Shutdown(pToken)

Gui, -DPIScale
Gui, -Caption +AlwaysOnTop +HWNDhWin  +Lastfound 
Gui, Margin, 0, 0
Gui, Add, Pic, h%CtrlHeight% vGuiPic, HBITMAP:%hBitmap%

oSM := ComObjCreate("com.sun.star.ServiceManager")

loop
{
sleep 1

global pic_ext
global pic_pth

   oDesk := oSM.createInstance("com.sun.star.frame.Desktop")
   page := oDesk.CurrentComponent.CurrentController.ViewCursor.getPage
   if (oldpage != page) {
      oldpage := page
      oDesk.CurrentComponent.CurrentController.ViewSettings.ZoomType := 2


      Gui, Show, NA
      GuiControl, , GuiPic, E:\SCANz\%page%.tif
   }
}
return

Re: AHK: Корректное отображение в GUI бинаризированных изображений

null@example.com (DD) — Sat, 11 Apr 2020 00:20:05 +0000

Ну разве со второй попытки удалось) —

MsgBox % (70 * A_ScreenHeight//100)

Re: AHK: Корректное отображение в GUI бинаризированных изображений

null@example.com (teadrinker) — Sat, 11 Apr 2020 00:00:13 +0000

Ну это нерешаемая задача.

Re: AHK: Корректное отображение в GUI бинаризированных изображений

null@example.com (DD) — Fri, 10 Apr 2020 23:54:36 +0000

Как в проценты перевести?

MsgBox % A_ScreenHeight * (70 - A_ScreenHeight/100)

Re: AHK: Корректное отображение в GUI бинаризированных изображений

null@example.com (teadrinker) — Fri, 10 Apr 2020 23:27:50 +0000

Высота экрана в переменной A_ScreenHeight.

Re: AHK: Корректное отображение в GUI бинаризированных изображений

null@example.com (DD) — Fri, 10 Apr 2020 22:49:06 +0000

А как бы высоту "CtrlHeight := 700" задавать в процентах — 70% от высоты экрана?

Re: AHK: Корректное отображение в GUI бинаризированных изображений

null@example.com (teadrinker) — Fri, 10 Apr 2020 21:49:46 +0000

Через GDI+ можно:

CtrlHeight := 700

pToken := Gdip_Startup()
pBitmap := Gdip_CreateBitmapFromFile(A_Desktop . "\bse2_ocred_17.tif")
Gdip_GetImageDimensions(pBitmap, Width, Height)
CtrlWidth := Width/Height*CtrlHeight
pNewBitmap := Gdip_CreateBitmap(CtrlWidth, CtrlHeight)
G := Gdip_GraphicsFromImage(pNewBitmap)
Gdip_SetInterpolationMode(G, HighQualityBicubic := 7)
Gdip_SetSmoothingMode(G, AntiAlias := 4)
Gdip_DrawImage(G, pBitmap, 0, 0, CtrlWidth, CtrlHeight, 0, 0, Width, Height)
hBitmap := Gdip_CreateHBITMAPFromBitmap(pNewBitmap)
Gdip_DisposeImage(pNewBitmap)
Gdip_DisposeImage(pBitmap)
Gdip_DeleteGraphics(G)
Gdip_Shutdown(pToken)

Gui, Margin, 0, 0
Gui, Add, Pic,, HBITMAP:%hBitmap%
Gui, Show
Return

GuiClose:
   ExitApp

AHK: Корректное отображение в GUI бинаризированных изображений

null@example.com (DD) — Fri, 10 Apr 2020 01:27:46 +0000

Как корректно отобразить в GUI бинаризированное изображение больших форматов — такое, как по ссылке https://yadi.sk/d/eeZqGGw6FQRS3Q? Чтобы оно выглядело примерно так, как в стандартном средстве просмотра Windows — пропорционально и без искажений, так как даже точное указание размеров не помогает —

gui, -dpiscale
gui, -caption +resize
gui, add, picture, h700 vmypic, %A_Desktop%\bse2_ocred_17.tif
gui, show
return

guisize:
/*
;изменение размеров картинки в GUI без сохранения пропорций
GuiControl, Move, mypic, % "w" . A_GuiWidth . " h" . A_GuiHeight
winset redraw
*/

;изменение размеров картинки в GUI с сохранением пропорций
GuiControl, Move, mypic, % "w" . A_GuiWidth . " h" . A_GuiWidth
winmove, A,,,, A_GuiWidth, A_GuiWidth
winset redraw
return