Help with FOCUS

DustinBowers · January 28, 2010

Hi. I'm new to AutoIt and this forum. I wrote a func to Place several Labels on a form, when the loop is finished placing them, i have another loop to detect users input by using a Select Case inside another While loop at the end of the function, the problem is, the first label placed on the form seems to keep the focus, I have tried GUISetState($PicMain, $GUI_FOCUS) to put the focus back onto the main form before the while loop starts running the Select Case code, but this doesnt work, it keeps trying to activate the first Case statement. Below is my entire code.

Func CalcCrop3()

Sleep(1000)

_ScreenCapture_Capture("Farm.jpg");Captures the screen view

msgbox(0, 'Done', 'Screen Capture Complete, Press OK to continue.')

GLOBAL $PicMain = GUICreate("FarmBot - [Calibration Mode]", 1024, 768, -3, -29); Creates window to place picture in

GLOBAL $ImgForm = GUICtrlCreatePic("Farm.JPG", 0, 0, 1024, 768); places picture in new window

GUISetState() ;Mayneed to add: @SW_SHOW

; GUICtrlSetState($PicMain, $GUI_FOCUS)

;=========THIS SECTION GETS THE 4 CORNERS OF YOUR FARM LAYOUT==============

MsgBox(0, "Crop Select", "Place curser over Top Crop and Press: [ENTER]")

$GetCrop = MouseGetPos()

Sleep(100)

INIWRITE("FarmBotBeta4.ini", "Calibrate", "FirstX", $GetCrop[0])

INIWRITE("FarmBotBeta4.ini", "Calibrate", "FirstY", $GetCrop[1])

MsgBox(0, "Crop Select", "Place curser over Bottom Crop and Press: [ENTER]")

$GetCrop = MouseGetPos()

Sleep(100)

INIWRITE("FarmBotBeta4.ini", "Calibrate", "LastX", $GetCrop[0])

INIWRITE("FarmBotBeta4.ini", "Calibrate", "LastY", $GetCrop[1])

MsgBox(0, "Crop Select", "Place curser over Left Crop and Press: [ENTER]")

$GetCrop = MouseGetPos()

Sleep(100)

INIWRITE("FarmBotBeta4.ini", "Calibrate", "LeftX", $GetCrop[0])

INIWRITE("FarmBotBeta4.ini", "Calibrate", "LeftY", $GetCrop[1])

MsgBox(0, "Crop Select", "Place curser over Right Crop and Press: [ENTER]")

$GetCrop = MouseGetPos()

Sleep(100)

INIWRITE("FarmBotBeta4.ini", "Calibrate", "RightX", $GetCrop[0])

INIWRITE("FarmBotBeta4.ini", "Calibrate", "RightY", $GetCrop[1])

Sleep(500)

;===================================================================================

;=============LOCAL VARIABLES LIST===================================================

Local $FirstX = IniRead("FarmBotBeta4.ini", "Calibrate", "FirstX", "Error")

Local $FirstY = IniRead("FarmBotBeta4.ini", "Calibrate", "FirstY", "Error")

Local $LastX = IniRead("FarmBotBeta4.ini", "Calibrate", "LastX", "Error")

Local $LastY = IniRead("FarmBotBeta4.ini", "Calibrate", "LastY", "Error")

Local $LeftX = IniRead("FarmBotBeta4.ini", "Calibrate", "LeftX", "ERROR")

Local $LeftY = IniRead("FarmBotBeta4.ini", "Calibrate", "LeftY", "ERROR")

Local $RightX = IniRead("FarmBotBeta4.ini", "Calibrate", "RightX", "ERROR")

Local $RightY = IniRead("FarmBotBeta4.ini", "Calibrate", "RightY", "ERROR")

Local $1StepX = $RightX - $FirstX

Local $1StepY = $RightY - $FirstY

Local $2StepX = $1StepX /19

Local $2StepY = $1StepY /19

Local $3StepX = 25

Local $3StepY = 12

Local $ColWidth = Round($1StepX / 25) + 1 ;Should return a value of 20 on my current farm.

INIWRITE("FarmBotBeta4.ini", "Calibrate", "ColWidth", $ColWidth)

Local $GetCrop[2];Not sure if this variable def is redundent.. may not be needed

Local $ColX = $FirstX

Local $ColY = $FirstY

Local $Counting = 0

Local $CropNum = 1

Local $Label1[576];Set to max num of fields available in farmville 24x24=576

Local $CropCoords[2]

Local $3BStepX = 25

Local $3BStepY = -12

Local $msg = 0

;=====================================================================================

Do

Local $i = 0

If $Counting = $ColWidth then ExitLoop

While $i <= $ColWidth

$TrueStepX = $i * $3StepX

$TrueStepY = $i * $3StepY

If $i = $ColWidth then EXITLOOP

$Label1[$CropNum] = GUICtrlCreateLabel($CropNum, Round($ColX + $TrueStepX, 0), Round($ColY + $TrueStepY, 0), 4, 4)

;IF THIS TEST SCRIPT SECTION DOESNT WORK. USE OLD SECTION BELOW

INIWRITE("Crops.ini", $CropNum, "XY", Round($ColX + $TrueStepX, 0) & "," & Round($ColY + $TrueStepY, 0))

;INIWRITE("Crops.ini", $CropNum, "Y", Round($ColY + $TrueStepY, 0))

;END NEW SECTION - BEGIN OLD SECTION

$i = $i + 1

$CropNum = $CropNum + 1 ; This counts total amount of crops

WEnd

$ColX = $ColX - Round($3BStepX, 0)

$ColY = $ColY - Round($3BStepY, 0)

$Counting = $Counting + 1

Until $Counting > $ColWidth

;Msgbox(0, "TEST", "Made it out of loop")

GUISetState($PicMain, $GUI_FOCUS)

While 1

$msg = GUIGetMsg(); may have to add: $PicMain inside ()

;sleep(500)

Select

Case $msg = $GUI_EVENT_CLOSE

;MsgBox(0, "Exit", "Thanks for using Farmbot!")

Call("Terminate")

Case $Label1[1]

GUICtrlSetBkColor($Label1[1], $GUI_BKCOLOR_TRANSPARENT)

GUICtrlSetColor ( $Label1[1], 0xFF0000)

iniwrite("Crops.ini", "1", "XY", "")