Astel064
Помог мой пост, ставь +!
- Сообщения
- 276
- Репутация
- 51
Здравствуйте, обитатели форума
Прошу помощи - нужно отобразить PNG картинку, учитывая, что в некоторых местах она бесцветна, плюс прикрепить к этой картинке несколько надписей (чуть правее градусника, капли и спидометра (или монометра), как на изображениях в прикреплениях.
Пока-что у меня получилось только отобразить изображение с помощью этого, но как прикрепить к ней надписи - не знаю.
Вот скрипт, на всякий случай:
Архив (на случай, если не прикрепятся файлы)
Прошу помощи - нужно отобразить PNG картинку, учитывая, что в некоторых местах она бесцветна, плюс прикрепить к этой картинке несколько надписей (чуть правее градусника, капли и спидометра (или монометра), как на изображениях в прикреплениях.
Пока-что у меня получилось только отобразить изображение с помощью этого, но как прикрепить к ней надписи - не знаю.
Вот скрипт, на всякий случай:
Код:
#Include <GDIPlus.au3>
#Include <Pop-ups.au3>
Opt('MustDeclareVars', 1)
Opt('TrayAutoPause', 0)
_GDIPlus_Startup()
Global $hImage = _GDIPlus_ImageLoadFromFile(@ScriptDir & '\Что имеется.png')
Global $hPopup = _Popup_Register()
_Popup_Show($hPopup, _GDIPlus_BitmapCreateHBITMAPFromBitmap($hImage), 1, @DesktopWidth - 300, @DesktopHeight - 200, -1)
While 1
Sleep(1000)
WEnd
_GDIPlus_Shutdown()
Func _GDIPlus_GraphicsSetTextRenderingHint($hGraphics, $iTextRenderingHint)
Local $aResult = DllCall($ghGDIPDll, 'uint', 'GdipSetTextRenderingHint', 'ptr', $hGraphics, 'int', $iTextRenderingHint)
If @error Then
Return SetError(1, 0, 0)
Else
If $aResult[0] Then
Return SetError($aResult[0], 0, 0)
EndIf
EndIf
Return 1
EndFunc ;==>_GDIPlus_GraphicsSetTextRenderingHint
Архив (на случай, если не прикрепятся файлы)