I think, this is now a bug and not my fault <_<...
Code: Select all
;
; Avatar Maker
;
Global lAvatarImg.l
lAvatarImg = CatchImage(#PB_Any, ?resAvatar_Start)
If lAvatarImg
If OpenWindow(1, 1, 1, ImageWidth(lAvatarImg), ImageHeight(lAvatarImg), "Avatar")
Debug ImageWidth(lAvatarImg) ; is 100
Debug WindowWidth(1) ; But this is 106 o_O
CreateGadgetList(WindowID(1))
ImageGadget(2, 0, 0, ImageWidth(lAvatarImg), ImageHeight(lAvatarImg), ImageID(lAvatarImg))
Repeat
Select WindowEvent()
Case #PB_Event_CloseWindow
Break
EndSelect
ForEver
EndIf
EndIf
DataSection
resAvatar_Start:
IncludeBinary "C:\Avatar.bmp"
resAvatar_Stopp:
EndDataSection