$GUI_ONTOP

livewire · February 6, 2006

In new beta 3.1.1.107, how can I make this script have the buttons and labels appear on top of the graphic control so that I can click them (obviously without resizing the graphic control).

This script worked as is in beta 3.1.1.106. **Note: Important part of code is GUI control creation part...pretty much ignore the rest.

#include <GuiConstants.au3>
#include <File.au3>
#include <Array.au3>
$scale = 30
$XScreenSize = 700
$YScreenSize = 700

Global $glCounter = 0
Global $XABS
Global $YABS
Global $EARLY_EXIT

$GUI_Handle = GuiCreate("Grab 'N Draw", 176, 161,(@DesktopWidth-176)/2, (@DesktopHeight-161)/2)

$Button_1 = GuiCtrlCreateButton("Select", 50, 135, 75, 20)
$List_2 = GuiCtrlCreateList("List3", 10, 20, 160, 110)
$Label_3 = GuiCtrlCreateLabel("Select IP to use:", 45, 5, 80, 15)

$IP_STRING = "|127.0.0.1"
If @IPAddress1 <> "0.0.0.0" And @IPAddress1 <> "127.0.0.1" Then
    $IP_STRING &= "|" & @IPAddress1
EndIf
If @IPAddress2 <> "0.0.0.0" And @IPAddress2 <> "127.0.0.1" Then
    $IP_STRING &= "|" & @IPAddress2
EndIf
If @IPAddress3 <> "0.0.0.0" And @IPAddress3 <> "127.0.0.1" Then
    $IP_STRING &= "|" & @IPAddress3
EndIf
If @IPAddress4 <> "0.0.0.0" And @IPAddress4 <> "127.0.0.1" Then
    $IP_STRING &= "|" & @IPAddress4
EndIf

GUICtrlSetData($List_2,$IP_STRING,"127.0.0.1")

GuiSetState()
While 1
    $msg = GuiGetMsg()
    Select
    Case $msg = $Button_1
        $IP_TO_USE = GUICtrlRead($List_2)
        GUISetState(@SW_HIDE,$GUI_Handle)
        ExitLoop
    Case $msg = $GUI_EVENT_CLOSE
        $EARLY_EXIT = 1
        Exit
    Case Else
       ;;;
    EndSelect
WEnd

$nGridSize = 10
Dim $FileArray[1]
Dim $FloatArray[1000000]
$main = GUICreate("Grab 'N Draw", $XScreenSize, $YScreenSize, (@DesktopWidth - $XScreenSize)/2, 1, BitOr($WS_POPUP, $WS_CAPTION, $WS_SYSMENU, $WS_MINIMIZEBOX, $WS_THICKFRAME))
$init_button = GUICtrlCreateButton("Init",430,670,50,20)
$Draw_Button = GUICtrlCreateButton("Draw",490,670,50,20)
$File_Write_Button = GUICtrlCreateButton("2File",550,670,50,20)
$File_Read_Button = GUICtrlCreateButton("FromFile",610,670,50,20)
$total_queues = GUICtrlCreateLabel("Total Ques:",75,675,100,20)
$num_of_queues_label = GUICtrlCreateLabel("0",140,675,100,20)
$input = GUICtrlCreateInput($scale,350,670,50,20)
$updown = GUICtrlCreateUpdown($input)
$pkts = GUICtrlCreateLabel("Packets Received:",200,675,100,20)
$label = GUICtrlCreateLabel("0",300,675,40,20)
$GRID = GUICtrlCreateGraphic(0, 0, 1024, 768)

init_screen()
GUISetState()
UDPStartup()

$socket = UDPBind($IP_TO_USE, 20000)
If @error Then Exit

$index = 0
$array_count = 0
While 1
    $data = UDPRecv($socket, 2000)
    If $data <> "" Then
        $split_data = StringSplit($data,@LF)
        For $i = 1 To $split_data[0] - 1
            $FloatArray[$index] = $split_data[$i]
            $index += 1
        Next
        
        $glCounter += 1
        GUICtrlSetData($label,$glCounter)
        ContinueLoop
    EndIf
    
    $msg = GUIGetMsg()
    Select
    Case $msg = $init_button
        $index = 0
        $array_count = 0
        GUICtrlDelete($GRID)
        $GRID = GUICtrlCreateGraphic(0, 0, 1024, 768)
        init_screen()
        GUICtrlSetData($label,0)
        GUICtrlSetData($num_of_queues_label,0)
        $glCounter = 0
        GUICtrlSetGraphic($GRID,$GUI_GR_REFRESH)
        WinSetTitle(WinGetTitle($main),"","Grab 'N Draw")
    Case $msg = $Draw_Button
        _DrawAll($FloatArray)
    Case $msg = $File_Read_Button
        $selected = FileOpenDialog("Draw4Real",@DesktopDir,"Que Files (*.que)")
        If Not @error Then
            _FileReadToArray($selected,$FileArray)
            _DrawFromFile($FileArray)
        EndIf
    Case $msg = $File_Write_Button
        $chosen_file = FileSaveDialog("Grab 'N Draw",@DesktopDir,"Queues (*.que)",18,"recv.que")
        If Not @error Then
            If FileExists($chosen_file) Then
                $fhndl = FileOpen($chosen_file,2)
                FileClose($fhndl)
            EndIf
            $fhndl = FileOpen($chosen_file,1)
            
            #comments-start
            For $i = 1 To $split_data[0]
                FileWriteLine($fhndl,"array[" & $array_count & "] = " & $split_data[$i] & ";")
                $array_count += 1
            Next
            FileWriteLine($fhndl,"/////////////////////////")
            $array_count = 0
            #comments-end
            
            For $i = 0 To $index - 1
                FileWriteLine($fhndl,$FloatArray[$i])
                $array_count += 1
            Next
            
            FileClose($fhndl)
            MsgBox(0,"Grab 'N Draw",'Queues written to file: "' & $chosen_file & '"')
        EndIf
    Case $msg = $GUI_EVENT_CLOSE
        Exit
    Case Else
       ;;; 
    EndSelect
WEnd

Func _DrawFromFile(ByRef $FArray)
    MsgBox(0,"Testing","Called Draw From File")
EndFunc

Func _DrawAll(ByRef $FArray)
    MsgBox(0,"Testing","Called Draw All")
EndFunc

Func _DrawGrid(ByRef $array,$i)
    MsgBox(0,"Testing","Called Draw Grid")
EndFunc  ;==>_DrawGrid

Func GetXCartCoords($x)
    $x = $x + $XScreenSize/2
    return $x
EndFunc

Func GetYCartCoords($y)
    $y = -$y + $YScreenSize/2
    return $y
EndFunc

Func init_screen()
    GUICtrlSetGraphic($GRID, $GUI_GR_PIXEL,GetXCartCoords(0),GetYCartCoords(0))
    GUICtrlSetGraphic($GRID, $GUI_GR_PIXEL,GetXCartCoords(0),GetYCartCoords(0))
    GUICtrlSetGraphic($GRID, $GUI_GR_PIXEL,GetXCartCoords(1),GetYCartCoords(0))
    GUICtrlSetGraphic($GRID, $GUI_GR_PIXEL,GetXCartCoords(1),GetYCartCoords(1))
    GUICtrlSetGraphic($GRID, $GUI_GR_PIXEL,GetXCartCoords(1),GetYCartCoords(-1))
    GUICtrlSetGraphic($GRID, $GUI_GR_PIXEL,GetXCartCoords(0),GetYCartCoords(1))
    GUICtrlSetGraphic($GRID, $GUI_GR_PIXEL,GetXCartCoords(0),GetYCartCoords(-1))
    GUICtrlSetGraphic($GRID, $GUI_GR_PIXEL,GetXCartCoords(-1),GetYCartCoords(1))
    GUICtrlSetGraphic($GRID, $GUI_GR_PIXEL,GetXCartCoords(-1),GetYCartCoords(0))
    GUICtrlSetGraphic($GRID, $GUI_GR_PIXEL,GetXCartCoords(-1),GetYCartCoords(-1))
EndFunc

Func OnAutoItExit()
    If Not $EARLY_EXIT Then
        UDPCloseSocket($socket)
        UDPShutdown()
    EndIf
EndFunc

SmOke_N · February 7, 2006

Disable the pic with guictrlsetdata()

Valuater · February 7, 2006

Disable the pic with guictrlsetdata()

?????

What State are you in?

8)

Edited February 7, 2006 by Valuater

livewire · February 7, 2006

There is no "pic" involved. Just a graphic, labels, updown, and buttons. I want to be able to see and use the buttons, labels, etc. "on top" of the graphic. GUICtrlSetState($GRID,$GUI_DISABLE) did nothing for me.

livewire · February 7, 2006

OK...I had to move the Graphic creation before the button, label, etc. creation. This causes my init function to not work however (the buttons and label get covered back up). Also, I cannot update the Graphic while it is disabled (can't see the updates)...any insight or other approaches?

Updated code:

#include <GuiConstants.au3>
#include <File.au3>
#include <Array.au3>
$scale = 30
$XScreenSize = 700
$YScreenSize = 700

Global $glCounter = 0
Global $XABS
Global $YABS
Global $EARLY_EXIT

$GUI_Handle = GuiCreate("Grab 'N Draw", 176, 161,(@DesktopWidth-176)/2, (@DesktopHeight-161)/2)

$Button_1 = GuiCtrlCreateButton("Select", 50, 135, 75, 20)
$List_2 = GuiCtrlCreateList("List3", 10, 20, 160, 110)
$Label_3 = GuiCtrlCreateLabel("Select IP to use:", 45, 5, 80, 15)

$IP_STRING = "|127.0.0.1"
If @IPAddress1 <> "0.0.0.0" And @IPAddress1 <> "127.0.0.1" Then
    $IP_STRING &= "|" & @IPAddress1
EndIf
If @IPAddress2 <> "0.0.0.0" And @IPAddress2 <> "127.0.0.1" Then
    $IP_STRING &= "|" & @IPAddress2
EndIf
If @IPAddress3 <> "0.0.0.0" And @IPAddress3 <> "127.0.0.1" Then
    $IP_STRING &= "|" & @IPAddress3
EndIf
If @IPAddress4 <> "0.0.0.0" And @IPAddress4 <> "127.0.0.1" Then
    $IP_STRING &= "|" & @IPAddress4
EndIf

GUICtrlSetData($List_2,$IP_STRING,"127.0.0.1")

GuiSetState()
While 1
    $msg = GuiGetMsg()
    Select
    Case $msg = $Button_1
        $IP_TO_USE = GUICtrlRead($List_2)
        GUISetState(@SW_HIDE,$GUI_Handle)
        ExitLoop
    Case $msg = $GUI_EVENT_CLOSE
        $EARLY_EXIT = 1
        Exit
    Case Else
      ;;;
    EndSelect
WEnd

$nGridSize = 10
Dim $FileArray[1]
Dim $FloatArray[1000000]
$main = GUICreate("Grab 'N Draw", $XScreenSize, $YScreenSize, (@DesktopWidth - $XScreenSize)/2, 1, BitOr($WS_POPUP, $WS_CAPTION, $WS_SYSMENU, $WS_MINIMIZEBOX, $WS_THICKFRAME))
$GRID = GUICtrlCreateGraphic(0, 0, 1024, 768)
GUICtrlSetState($GRID,$GUI_DISABLE)
$init_button = GUICtrlCreateButton("Init",430,670,50,20)
$Draw_Button = GUICtrlCreateButton("Draw",490,670,50,20)
$File_Write_Button = GUICtrlCreateButton("2File",550,670,50,20)
$File_Read_Button = GUICtrlCreateButton("FromFile",610,670,50,20)
$total_queues = GUICtrlCreateLabel("Total Ques:",75,675,100,20)
$num_of_queues_label = GUICtrlCreateLabel("0",140,675,100,20)
$input = GUICtrlCreateInput($scale,350,670,50,20)
$updown = GUICtrlCreateUpdown($input)
$pkts = GUICtrlCreateLabel("Packets Received:",200,675,100,20)
$label = GUICtrlCreateLabel("0",300,675,40,20)

init_screen()
GUISetState()
UDPStartup()

$socket = UDPBind($IP_TO_USE, 20000)
If @error Then Exit

$index = 0
$array_count = 0
While 1
    $data = UDPRecv($socket, 2000)
    If $data <> "" Then
        $split_data = StringSplit($data,@LF)
        For $i = 1 To $split_data[0] - 1
            $FloatArray[$index] = $split_data[$i]
            $index += 1
        Next
        
        $glCounter += 1
        GUICtrlSetData($label,$glCounter)
        ContinueLoop
    EndIf
    
    $msg = GUIGetMsg()
    Select
    Case $msg = $init_button
        $index = 0
        $array_count = 0
        GUICtrlDelete($GRID)
        $GRID = GUICtrlCreateGraphic(0, 0, 1024, 768)
        init_screen()
        GUICtrlSetData($label,0)
        GUICtrlSetData($num_of_queues_label,0)
        $glCounter = 0
        GUICtrlSetGraphic($GRID,$GUI_GR_REFRESH)
        GUICtrlSetState($GRID,$GUI_DISABLE)
        WinSetTitle(WinGetTitle($main),"","Grab 'N Draw")
    Case $msg = $Draw_Button
        _DrawAll($FloatArray)
    Case $msg = $File_Read_Button
        $selected = FileOpenDialog("Draw4Real",@DesktopDir,"Que Files (*.que)")
        If Not @error Then
            _FileReadToArray($selected,$FileArray)
            _DrawFromFile($FileArray)
        EndIf
    Case $msg = $File_Write_Button
        $chosen_file = FileSaveDialog("Grab 'N Draw",@DesktopDir,"Queues (*.que)",18,"recv.que")
        If Not @error Then
            If FileExists($chosen_file) Then
                $fhndl = FileOpen($chosen_file,2)
                FileClose($fhndl)
            EndIf
            $fhndl = FileOpen($chosen_file,1)
            
            #comments-start
            For $i = 1 To $split_data[0]
                FileWriteLine($fhndl,"array[" & $array_count & "] = " & $split_data[$i] & ";")
                $array_count += 1
            Next
            FileWriteLine($fhndl,"/////////////////////////")
            $array_count = 0
            #comments-end
            
            For $i = 0 To $index - 1
                FileWriteLine($fhndl,$FloatArray[$i])
                $array_count += 1
            Next
            
            FileClose($fhndl)
            MsgBox(0,"Grab 'N Draw",'Queues written to file: "' & $chosen_file & '"')
        EndIf
    Case $msg = $GUI_EVENT_CLOSE
        Exit
    Case Else
      ;;;
    EndSelect
WEnd

Func _DrawFromFile(ByRef $FArray)
    MsgBox(0,"Testing","Called Draw From File")
EndFunc

Func _DrawAll(ByRef $FArray)
    MsgBox(0,"Testing","Called Draw All")
EndFunc

Func _DrawGrid(ByRef $array,$i)
    MsgBox(0,"Testing","Called Draw Grid")
EndFunc ;==>_DrawGrid

Func GetXCartCoords($x)
    $x = $x + $XScreenSize/2
    return $x
EndFunc

Func GetYCartCoords($y)
    $y = -$y + $YScreenSize/2
    return $y
EndFunc

Func init_screen()
    GUICtrlSetGraphic($GRID, $GUI_GR_PIXEL,GetXCartCoords(0),GetYCartCoords(0))
    GUICtrlSetGraphic($GRID, $GUI_GR_PIXEL,GetXCartCoords(0),GetYCartCoords(0))
    GUICtrlSetGraphic($GRID, $GUI_GR_PIXEL,GetXCartCoords(1),GetYCartCoords(0))
    GUICtrlSetGraphic($GRID, $GUI_GR_PIXEL,GetXCartCoords(1),GetYCartCoords(1))
    GUICtrlSetGraphic($GRID, $GUI_GR_PIXEL,GetXCartCoords(1),GetYCartCoords(-1))
    GUICtrlSetGraphic($GRID, $GUI_GR_PIXEL,GetXCartCoords(0),GetYCartCoords(1))
    GUICtrlSetGraphic($GRID, $GUI_GR_PIXEL,GetXCartCoords(0),GetYCartCoords(-1))
    GUICtrlSetGraphic($GRID, $GUI_GR_PIXEL,GetXCartCoords(-1),GetYCartCoords(1))
    GUICtrlSetGraphic($GRID, $GUI_GR_PIXEL,GetXCartCoords(-1),GetYCartCoords(0))
    GUICtrlSetGraphic($GRID, $GUI_GR_PIXEL,GetXCartCoords(-1),GetYCartCoords(-1))
EndFunc

Func OnAutoItExit()
    If Not $EARLY_EXIT Then
        UDPCloseSocket($socket)
        UDPShutdown()
    EndIf
EndFunc

Edited February 7, 2006 by livewire

SmOke_N · February 7, 2006

?????
What State are you in?
8)

Hey, I had been up for 22 hours o:) when I answered that... cut me some slack. :lmao:

sfranzyshen · February 10, 2006

z-order

livewire · February 14, 2006

Latest beta (3.1.1.108) fixed the problem

Thanks,

Livewire

Sign In

$GUI_ONTOP

Recommended Posts

livewire

Link to comment

Share on other sites

SmOke_N

Link to comment

Share on other sites

Valuater

Link to comment

Share on other sites

livewire

Link to comment

Share on other sites

livewire

Link to comment

Share on other sites

SmOke_N

Link to comment

Share on other sites

sfranzyshen

Link to comment

Share on other sites

livewire

Link to comment

Share on other sites

Create an account or sign in to comment

Create an account

Sign in

Recently Browsing 0 members

Browse

AutoIt Resources

Release

Beta