Что нового

Неразбериха с ControlGetPos

GUIMish

Знающий
Сообщения
122
Репутация
12
Здравствуйте, у меня проблема с ControlGetPos, никак не могу понять в чем ошибка, он выдает:
[box title=Subscript used with non-Array variable.:]If $Width > $picPos[2] Then
If $Width > $picPos^ ERROR[/box]

Помогите пожалуйста мне понять ошибку?
Вот код:
Код:
#Include <GDIPlus.au3>
Global $File = "Photo-0048.jpg"
$Window = GUICreate("Окно", 200, 300, -1, -1, 0x00040000)
   _GDIPlus_Startup()
   $Pos = WinGetPos($Window)

$Pic = GUICtrlCreatePic("", 0, 0, $Pos[2], $Pos[3] - 90)
   $picPos = ControlGetPos("", "", $Pic)

$Pic2 = GUICtrlCreatePic($File, 0, 0, $Pos[2], $Pos[3] - 90)
   
   $hBitmap = _GDIPlus_BitmapCreateFromFile($File)
   $Width = _GDIPlus_ImageGetWidth($hBitmap)
   $Height = _GDIPlus_ImageGetHeight($hBitmap)

If $Width > $picPos[2] Then
   GUICtrlSetPos($Pic2, 100, 100, 100, 100)
Else
   GUICtrlSetPos($Pic2, 50, 50, $Width, $Height)
EndIf

GUISetState()
While 1
   Switch GUIGetMsg()
	  Case -3
		 ExitLoop
   EndSwitch
WEnd

Извините за название темы, не знал как назвать! :-[
 

Garrett

Модератор
Локальный модератор
Сообщения
3,999
Репутация
967
Код:
$picPos = ControlGetPos($Window, "", $Pic)
 
Верх