Что нового

Как сделать, чтоб иконки загружаемые из ресурса на кнопке не растягивались.

StarEdik

Новичок
Сообщения
365
Репутация
4
Привет всем.
Сложность такая. После компиляции иконки, загружаемые из ресурса на кнопке растягиваются. При запуске с редактора все ОК. Может, кто та сталкивался с этой проблемой.Что я не так делаю.Спасибо.
Код:
#AutoIt3Wrapper_Res_Icon_Add=Resources\1.ico
#AutoIt3Wrapper_Res_Icon_Add=Resources\2.ico

#include <ButtonConstants.au3>
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
HotKeySet('{Esc}', '_Exit')
$Form1 = GUICreate("Form1", 200, 80, 192, 114)
$Button1 = GUICtrlCreateButton("", 8, 16, 41, 37,$BS_ICON)
GUICtrlSetImage(-1,@ScriptFullPath, 201,-1)
$Button2 = GUICtrlCreateButton("", 56, 16, 41, 37,$BS_ICON)
GUICtrlSetImage(-1,@ScriptFullPath, 202, -1)
$Button3 = GUICtrlCreateButton("", 104, 16, 41, 37,$BS_ICON)
GUICtrlSetImage(-1, @ScriptDir & "\Resources\1.ico", -1)
$Button4 = GUICtrlCreateButton("", 152, 16, 41, 37,$BS_ICON)
GUICtrlSetImage(-1, @ScriptDir & "\Resources\2.ico", -1)
GUISetState(@SW_SHOW)

While 1
	$nMsg = GUIGetMsg()
	Switch $nMsg
		Case $GUI_EVENT_CLOSE
			Exit

	EndSwitch
WEnd

Func _Exit()
    Exit
EndFunc
 

madmasles

Модератор
Глобальный модератор
Сообщения
7 790
Репутация
2 319
StarEdik,
Замените на
Код:
;...
GUICtrlSetImage(-1,@ScriptFullPath, 201, 0)
;...
GUICtrlSetImage(-1, @ScriptDir & "\Resources\1.ico", 0, 0)
;...
 
Автор
StarEdik

StarEdik

Новичок
Сообщения
365
Репутация
4
madmasles
:smile:Спасибо вам за лаконичный и удовлетворяющий ответ. Благодарю. :smile:
 
Верх