Здравствуйте, у меня проблема с ControlGetPos, никак не могу понять в чем ошибка, он выдает:
[box title=Subscript used with non-Array variable.:]If $Width > $picPos[2] Then
If $Width > $picPos^ ERROR[/box]
Помогите пожалуйста мне понять ошибку?
Вот код:
Извините за название темы, не знал как назвать! :-[
[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
Извините за название темы, не знал как назвать! :-[