Custom Query

;Following sample program demonstrates problem.

#include <array.au3>

Dim $array[10], $cnt

$array[1] = "cba"

$array[2] = "1ba"

$array[3] = "abc"

$array[0] = 3

MSGBOX(0,"BEFORE SORT", $array[0]&" "&$array[1]&" "&$array[2]&" "&$array[3])

;MSGBOX "BEFORE SORT" displays: 3 cba 1ba abc

_ArraySort( $array)

MSGBOX(0,"AFTER SORT", $array[0]&" "&$array[1]&" "&$array[2]&" "&$array[3])

;MSGBOX "AFTER SORT" displays: 0 abc 0 cba

;Should be: 3 1ba abc cba

Exit

If you try this code:

$str = "Hello" & $str

MsgBox(0, "Test", $str)

you will get an error "$str possibly used before declaration"

I understand this would produce an infinite loop, but the variable is technically declared, is it not?

The first time you click on the button at the bottom, the label, which gives the color to the tab, disappears, then if you click on a tab and on the button again, the label is visible. Running 3.2.10.0 on Windows 2000. If I click on the button on tab 1, the label disappears most of the times, bug or what ?

#include <GuiConstantsEx.au3>
#include <GuiTab.au3>
Global $ColorTab, $TabItem, $go, $msg

$main = GUICreate ("Test", 400,300)
GUISetBkColor (0)
$TabItem = GUICtrlCreateTab(5, 5,390, 260)
GUICtrlCreateTabItem ("Tab item - 1")
$button1 = GUICtrlCreateButton ("test", 35, 35, 35,35)
GUICtrlCreateTabItem ("Tab item - 2")
GUICtrlCreateTabItem ("Tab item - 3")
GUICtrlCreateTabItem ("Tab item - 4")
GUICtrlCreateTabItem ("")
$go = GUICtrlCreateButton ("test", 5, 270, 390,25)

_GUICtrlTab_SetCurSel(GUICtrlGetHandle($TabItem),0)
_GUICtrlTab_SetCurFocus(GUICtrlGetHandle($TabItem),0)
TabEvent()

GUISetState ()
While 1
    $msg = GUIGetMsg ()
    If $msg = $gui_event_close Then ExitLoop
    if $msg = $TabItem Then TabEvent()
    if $msg = $go Then Tab1()
    if $msg = $button1 Then Tab1()
WEnd

Func TabEvent()
	Local $l_tab, $l_tabX, $l_tabY, $l_margin, $l_coord, $l_text
   ; $test = IniRead ("test.ini", "Selected", "Tab item selected" , 0)
   	$l_tabX = 5
	$l_tabY = 5
	$l_margin = 1
    $l_tab = _GUICtrlTab_GetCurSel(GUICtrlGetHandle($TabItem))
    $l_coord = _GUICtrlTab_GetItemRect(GUICtrlGetHandle($TabItem), $l_tab); Get coordinates of TabItem
    $l_text = _GUICtrlTab_GetItemText(GUICtrlGetHandle($TabItem), $l_tab); Get text of TabItem
    ;If $test <> $l_tab  Then
    	GUICtrlDelete($ColorTab)
        $ColorTab = GUICtrlCreateLabel($l_text, $l_tabX + $l_coord[0] + $l_margin, $l_tabY + $l_coord[1] + $l_margin, $l_coord[2] - $l_coord[0] - ($l_margin * 2), $l_coord[3] - $l_coord[1] - ($l_margin * 2), BitOR($SS_NOTIFY, $SS_CENTER, $SS_SUNKEN))
        GUICtrlsetBkColor ($ColorTab,0xFFFFC0 ); set the color of the label
     ;   IniWrite ("test.ini", "Selected", "Tab item selected", $l_tab)
      ;  $test = $l_tab
    ;EndIf
    _GUICtrlTab_SetCurFocus(GUICtrlGetHandle($TabItem),$l_tab)
EndFunc
Func Tab1()
    If $msg = $go Then
        MsgBox (0, "", _GUICtrlTab_GetItemState ($main,0))
    EndIf
EndFunc