Jump to content

Scrollbar causes freezing, Better way?


Recommended Posts

Hello,

Please see code below, When making the Scrollbar it causes the GUI to freeze.

If i remove the scrollbar it doesn't freeze.

Please see code below (to run you will need the config files see attached.)
Again, if i go to other tabs and try to scroll or even just exit the app the whole thing freezes? I apologize for my poor coding and messy coding lol.

 

Looking at my codei just realised you won't be able to run it as the paths are all set to a local share, You'd have to change the share path to your local.

 

Regards

Ant

 

#include <Array.au3>
#include <File.au3>
#include <GuiListView.au3>
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
#include <GuiTab.au3>
#include "GUIScrollbars_Ex.au3"
#include <StaticConstants.au3>
#include <String.au3>
    HotKeySet("{ESC}", "on_exit")
Opt("GUIOnEventMode", 1)
    Global $aArray4[55] = ["Apps", "ASK Alt Launch", "ASK In App", "ASK Launch", "ASK OneShot", "ASK Other", "Books", "Calendars", "Command & Control", "Communications", "Entertainment Other", "Factual Q&A", "Flash Briefing", "Flights", "Gallery", "General Search", "Help", "HHO Other", "Home Zeitgeist", "IFTTT", "Information Other", "Lists", "Local Search", "Memory", "Movies & Showtimes", "Music", "Notifications", "Other", "Phatic & Jokes", "Physical Shopping", "Prize Feedback", "Prize Launch", "Prize Oneshot", "Prize Rating", "Recipes", "Smart Home", "Sports Briefing", "Tablet: ContentOnly - Search", "Video", "Weather", "WhatTime/Day", "Wikipedia", "Zeitgeist"]
global $TurnsList[0][36]
global $OrigList[0][36]
global $TurnCounter
Global Const $ODT_TAB = 101
Global Const $ODS_SELECTED          = 0x0001
Global Const $ODA_DRAWENTIRE = 0x1
Global Const $ODS_FOCUS             = 0x0010
Global $XS_n
$test222 = 1
    SelectResults()
    while 1
   sleep(50)
WEnd
    
func SelectResults()
;Combobox to select whos results to load
Global $SelectResults = GUICreate("SelectReults", 200, 46)
GUISetOnEvent($GUI_EVENT_CLOSE, "On_Exit")
global $OutPutList = GUICtrlCreateCombo("", 0,0,200)
    Local $aFileList = _FileListToArray("\\ant\dept-eu\LHR13\Dept1\Badass\Content\output", Default, Default, True)
    If @error = 1 Then
        MsgBox($MB_SYSTEMMODAL, "", "Path was invalid.")
        Exit
    EndIf
    If @error = 4 Then
        MsgBox($MB_SYSTEMMODAL, "", "No file(s) were found.")
        Exit
     EndIf
_ArrayDelete($aFileList, 0)
$FileListSize = UBound($aFileList)
for $i = 0 to $FileListSize-1
$String = StringTrimLeft($aFileList[$i], 48)
$Rawr = GUICtrlSetData($OutPutList, $String)
Next
    
GUICtrlCreateButton("Load", 0, 25, 200)
GUICtrlSetOnEvent(-1, "LoadAnswers")
GUISetState()
    EndFunc
    func LoadAnswers() ;Returns $TurnsList array with full Users output/answers.
global $ChosenResults = guictrlread($OutPutList)
if $ChosenResults = "" Then
   MsgBox("", "", "Hey!, Value empty!")
Else
    Opt("GUIDataSeparatorChar", "-")
$ElementList = IniReadSectionNames("\\ant\dept-eu\LHR13\Dept1\Badass\Content\output\" & $ChosenResults)
_ArrayDelete($ElementList, 0)
    for $i = 2 to UBound($ElementList)-1
$TempValue = IniReadSection("\\ant\dept-eu\LHR13\Dept1\Badass\Content\output\" & $ChosenResults, $i)
$ValueToAdd = $TempValue[1][1] & "-" & $TempValue[2][1] & "-" & $TempValue[3][1] & "-" & $TempValue[4][1] & "-" & $TempValue[5][1]& "-" & $TempValue[6][1]& "-" & $TempValue[7][1]& "-" & $TempValue[8][1]& "-" & $TempValue[9][1]& "-" & $TempValue[10][1]& "-" & $TempValue[11][1]& "-" & $TempValue[12][1]& "-" & $TempValue[13][1]& "-" & $TempValue[14][1]& "-" & $TempValue[15][1]& "-" & $TempValue[16][1]& "-" & $TempValue[17][1]& "-" & $TempValue[18][1]& "-" & $TempValue[19][1]& "-" & $TempValue[20][1]& "-" & $TempValue[21][1]& "-" & $TempValue[22][1]& "-" & $TempValue[23][1]& "-" & $TempValue[24][1]& "-" & $TempValue[25][1]& "-" & $TempValue[26][1]& "-" & $TempValue[27][1]& "-" & $TempValue[28][1]& "-" & $TempValue[29][1] & "-" & $TempValue[30][1] & "-" & $TempValue[31][1] & "-" & $TempValue[32][1] & "-" & $TempValue[33][1]& "-" & $TempValue[34][1]& "-" & $TempValue[35][1]& "-" & $TempValue[36][1]
_ArrayAdd($TurnsList, $ValueToAdd, default, "-")
Next
EndIf
    LoadOrig()
EndFunc
    func LoadOrig() ;Returns $OrigList array with full questions
;Read the Original test answers and questions
global $ChosenResultsOrig = $TurnsList[1][35]
    Opt("GUIDataSeparatorChar", "-")
$ElementList = IniReadSectionNames("\\ant\dept-eu\LHR13\Dept1\Badass\Content\Tests\" & $ChosenResultsOrig)
_ArrayDelete($ElementList, 0)
    for $i = 2 to UBound($ElementList)-1
$TempValue = IniReadSection("\\ant\dept-eu\LHR13\Dept1\Badass\Content\Tests\" & $ChosenResultsOrig, $i)
$ValueToAdd = $TempValue[1][1] & "-" & $TempValue[2][1] & "-" & $TempValue[3][1] & "-" & $TempValue[4][1] & "-" & $TempValue[5][1]& "-" & $TempValue[6][1]& "-" & $TempValue[7][1]& "-" & $TempValue[8][1]& "-" & $TempValue[9][1]& "-" & $TempValue[10][1]& "-" & $TempValue[11][1]& "-" & $TempValue[12][1]& "-" & $TempValue[13][1]& "-" & $TempValue[14][1]& "-" & $TempValue[15][1]& "-" & $TempValue[16][1]& "-" & $TempValue[17][1]& "-" & $TempValue[18][1]& "-" & $TempValue[19][1]& "-" & $TempValue[20][1]& "-" & $TempValue[21][1]& "-" & $TempValue[22][1]& "-" & $TempValue[23][1]& "-" & $TempValue[24][1]& "-" & $TempValue[25][1]& "-" & $TempValue[26][1]& "-" & $TempValue[27][1]& "-" & $TempValue[28][1]& "-" & $TempValue[29][1] & "-" & $TempValue[30][1] & "-" & $TempValue[31][1] & "-" & $TempValue[32][1] & "-" & $TempValue[33][1]& "-" & $TempValue[34][1]& "-" & $TempValue[35][1]& "-" & $TempValue[36][1]
_ArrayAdd($OrigList, $ValueToAdd, default, "-")
Next
    PresentResults()
EndFunc
    func PresentResults() ;GUI To display results.
XPStyleToggle(1);turn xp themes off
    global $LoadSeg = GUICreate("Anthony's GSR Results Viewer", 1360, 768, 0, 0)    ;Create the Viewer GUI
GUISetOnEvent($GUI_EVENT_CLOSE, "ExitLoadSeg")                                    ;Close the Viewer (but not the APP)
$ScrollBarX = 3500
_GUIScrollbars_Generate($LoadSeg, 0, $ScrollBarX)
    
$hTab = GUICtrlCreateTab(0, 0, 9999,9999, $TCS_OWNERDRAWFIXED)                    ;Create the Tab Control
    
global $ChosenResults = guictrlread($OutPutList)                                ;Check which results are selected
if $ChosenResults = "" Then                                                        ;If results are not checked
   MsgBox("", "", "Results not selected")                                        ;Display a message telling to select results
Else                                                                            ;Else if results selected... Carry on.
$TurnsListSize = Ubound($TurnsList)                                                ;Check size of 'Turnslist' (results)
for $q = 0 to $TurnsListSize-1                                                    ;Loop for amount of turns (-1 as ubound includes 0)
if $TurnsList[$q][33] = 1 Then                                                    ;Check how many 'First turns' there are, for use with Tab creation
$TurnCounter = $TurnCounter+1                                                    ;Returns $TurnCounter = Amount of segments/tabs to create
EndIf                                                                            ;Close 'First turn check' check
Next
                                                                    ;Set ScrollBar Size
                                ;Activate ScrolLBar Size
    $StartValue = 0
for $p = 1 to $TurnCounter                                                      ;Start Main Loop for 'Amount of Turns' ($TurnCounter)
assign("mest" & $p, 0, 2)                                                        ;Set All Tab colors to default (mest = 0)
global $iBrushColor = 0xF9F6F6                                                    ;Set Tab Default Color
$TabNum = GUICtrlCreateTabItem("Batch " & $p)                                    ;Create Tab
    $YValue = 250+605                                                                ;Default YValue for Segmentation
$XValue = 25                                                                    ;Default XValue for Segmentation
$CatYValue = 200+605                                                            ;Default Category Y value for Segmentation
$ErrorCounter = 0                                                                ;ErrorCounter ??? Unsure what this is LOL
    $TimestampX = 265                                                                ;Default TimeStamp X value
$TimestampY = 90+150+20                                                            ;Default TimeStamp Y Value
$IndicatorX = 450                                                                ;Default Audio Indicator X Value
$IndicatorY = 90+150+20                                                            ;Default Audio Indicator Y Value
$startX = 665                                                                    ;Default Start Checkbox Value (X)
$startY = 85+150+20                                                                ;Default Start Checkbox Value (Y)
$EndX = 825                                                                        ;Default End Checkbox Value (X)
$EndY = 85+150+20                                                                ;Default End Checkbox Value (Y)
$DialogX = 950                                                                    ;Default DialogAnnotaion Vlaue (X)
$DialogY = 85+150+20                                                            ;Default DiaglogAnnotation Value (Y)
$Dialog2X = 950                                                                    ;Default DiaglogAnnotation two Value (X)
$Dialog2Y = 100+150+20                                                            ;Default DialogAnnotation two Value (Y)
$BorderY = 30+20                                                                ;Default Borders Value (Y)
    $Pic1 = GUICtrlCreatePic("\\ant\dept-eu\LHR13\Dept1\Badass\Content\test.bmp",0, 20, 0, 0)    ;Create Segmentation Background
GUICtrlSetState(-1, $GUI_DISABLE)                                                            ;Disable the background
     
    ;;;;;;;;;;;;;;;SegmentationStart;;;;;;;;;;;;;;;;;;;;;;
for $i = 1 to $TurnsList[$StartValue][32]                                                                                        ;Loop TurnsList array for how many in each turn (32 in config)
Assign("TimeStampLoad" & $i, GUICtrlCreateLabel($TurnsList[$StartValue][28], $TimestampX, $TimestampY, 55, 16), 2)                ;Create timestamp (using startvalue)
if $TurnsList[$StartValue][30] = $OrigList[$StartValue][30] and $TurnsList[$StartValue][31] = $OrigList[$StartValue][31] Then    ;If Segmentation matches orig question
Else                                                                                                                            ;Do nothing, Else if it doesn't match
GUICtrlSetColor(-1, 0xFF1818)                                                                                                    ;Set Text color to red
assign("mest" & $p, 1, 2)                                                                                                        ;Set Tab color to red
EndIf
    Assign("IncatorLoad" & $i, GUICtrlCreateLabel($TurnsList[$StartValue][29], $IndicatorX, $IndicatorY, 55, 16), 2)                ;Create Indicator (using startvalue)
if $TurnsList[$StartValue][30] = $OrigList[$StartValue][30] and $TurnsList[$StartValue][31] = $OrigList[$StartValue][31] Then    ;If Segmentation matches orig question
Else                                                                                                                            ;Do nothing, Else if it doesn't match
GUICtrlSetColor(-1, 0xFF1818)                                                                                                    ;Set Text color to red
assign("mest" & $p, 1, 2)                                                                                                        ;Set Tab color to red
EndIf
    Assign("StartLoad" & $i,  GUICtrlCreateCheckbox("", $startX, $startY, 25, 25), 2)                                                ;Create Start Checkbox (using startvalue)
if $TurnsList[$StartValue][30] = 1 Then                                                                                            ;Check if user has checked 'start checkbox'
GUICtrlSetState(-1, $GUI_CHECKED)                                                                                                ;If he has, check it here.
EndIf
Assign("EndLoad" & $i,  GUICtrlCreateCheckbox("", $EndX, $EndY, 25, 25), 2)                                                        ;Create End Checkbox (using startvalue)
if $TurnsList[$StartValue][31] = 1 Then                                                                                            ;Check if user has checked 'End Checkbox'
GUICtrlSetState(-1, $GUI_CHECKED)                                                                                                ;If he has, check it now
EndIf
    GUICtrlCreateLabel("User : ", $DialogX, $DialogY, 400, 16)                                                                        ;Create User (using startvalue)
if $TurnsList[$StartValue][30] = $OrigList[$StartValue][30] and $TurnsList[$StartValue][31] = $OrigList[$StartValue][31] Then    ;If Segmentation matches orig question
Else                                                                                                                            ;Do nothing, Else if it doesn't match
GUICtrlSetColor(-1, 0xFF1818)                                                                                                    ;Set Text color to red
assign("mest" & $p, 1, 2)                                                                                                        ;Set Tab color to red
EndIf
Assign("DialogLoad" & $i,  GUICtrlCreateLabel($TurnsList[$StartValue][0], $DialogX+25, $DialogY, 400, 16), 2)                    ;Create Dialog
if $TurnsList[$StartValue][30] = $OrigList[$StartValue][30] and $TurnsList[$StartValue][31] = $OrigList[$StartValue][31] Then    ;If Segmentation matches orig question
Else                                                                                                                            ;Do nothing, Else if it doesn't match
GUICtrlSetColor(-1, 0xFF1818)                                                                                                    ;Set Text color to red
assign("mest" & $p, 1, 2)                                                                                                        ;Set Tab color to red
EndIf
Assign("Dialog2Load" & $i,  GUICtrlCreateLabel($TurnsList[$StartValue][1], $Dialog2X+25, $Dialog2Y, 400, 16), 2)                ;Create Diaglog 2
if $TurnsList[$StartValue][30] = $OrigList[$StartValue][30] and $TurnsList[$StartValue][31] = $OrigList[$StartValue][31] Then    ;If Segmentation matches orig question
Else                                                                                                                            ;Do nothing, Else if it doesn't match
GUICtrlSetColor(-1, 0xFF1818)                                                                                                    ;Set Text color to red
assign("mest" & $p, 1, 2)                                                                                                        ;Set Tab color to red
EndIf
    GUICtrlCreateLabel("ASR : ", $Dialog2X, $Dialog2Y, 400, 16)                                                                        ;Create ASR
if $TurnsList[$StartValue][30] = $OrigList[$StartValue][30] and $TurnsList[$StartValue][31] = $OrigList[$StartValue][31] Then    ;If Segmentation matches orig question
Else                                                                                                                            ;Do nothing, Else if it doesn't match
GUICtrlSetColor(-1, 0xFF1818)                                                                                                    ;Set Text color to red
assign("mest" & $p, 1, 2)                                                                                                        ;Set Tab color to red
EndIf
    
;;;;;;;;;;;;;;;SegmentationEnd;;;;;;;;;;;;;;;;;;;;;;
    
;_ArrayDisplay($TurnsList)
;_ArrayDisplay($OrigList)
;;;;;;;;;;;;;;;TurnSTart;;;;;;;;;;;;;;;;;;;;;;
if $TurnsList[$StartValue][30] = 1 Then                                                                                            ;If first turn in segment, Create category (seen below)
$sList = ""                                                                                                                        ;Blank List variable
For $n = 0 To UBound($aArray4)-1                                                                                                ;Check Category size
$sList &= "-" & $aArray4[$n]                                                                                                    ;Populate List variable with categorys
Next
Assign("hCombo" & $i, GUICtrlCreateCombo("", 30, $CatYValue, 150, 20), 2)                                                        ;Create Combo Box
GUICtrlSetData(-1, $sList)                                                                                                        ;Fill Combobox with List
EndIf
    #Region Create Dialog Annotation
if $TurnsList[$StartValue][30] = 1 Then                                                                                         ;If 'End' was ticked (Create Dialog Annotation)
$Border2 =  GUICtrlCreateLabel("",$XValue+5, $YValue+320, 905, 135)                                                                ;Create Annotation border
GUICtrlSetStyle ($Border2, $WS_DISABLED)                                                                                        ;Disable border
GUICtrlSetBkColor(-1, 0xFFFECD)                                                                                                    ;Set Border color
    GUICtrlCreateLabel("Dialog Annotation", $XValue+15, $YValue+325, 150, 25)                                                        ;Dialog Annotation text
GUICtrlSetFont (-1,13, 800)                                                                                                        ;Set font bold+Size
GUICtrlSetBkColor(-1, 0xFFFECD)                                                                                                    ;Set background color
    
GUIStartGroup()                                                                                                                    ;Create Group Set
Assign("SuccessRadio" & $i, GUICtrlCreateRadio("Success", $XValue+15, $YValue+350, 68, 15), 2)                                    ;Create Success Radio
#region SuccessRadio Attributes
GUICtrlSetFont (-1,10)                                                                                                            ;Make Bold
GUICtrlSetBkColor(-1, 0xFFFECD)                                                                                                    ;Set background color
if $TurnsList[$StartValue][19] = 1 Then                                                                                            ;If user has checked, check now
GUICtrlSetState(-1, $GUI_CHECKED)                                                                                                ;Check now
EndIf
if $TurnsList[$StartValue][19] = $OrigList[$StartValue][19] Then                                                                ;If user has correct answer
Else                                                                                                                            ;Do nothing, else if incorrect -
GUICtrlSetColor(-1, 0xFF1818)                                                                                                    ;Change font color to red
assign("mest" & $p, 1, 2)                                                                                                        ;Change Tab to red
EndIf
#EndRegion
    Assign("AlternateActionRadio" & $i, GUICtrlCreateRadio("AlternateAction", $XValue+95, $YValue+350, 105, 20), 2)                    ;Create AlternateAction Radio
#region AktAction Attributes
GUICtrlSetFont (-1,10); bold
GUICtrlSetBkColor(-1, 0xFFFECD)
if $TurnsList[$StartValue][20] = 1 Then
GUICtrlSetState(-1, $GUI_CHECKED)
EndIf
if $TurnsList[$StartValue][20] = $OrigList[$StartValue][20] Then
Else
GUICtrlSetColor(-1, 0xFF1818)
assign("mest" & $p, 1, 2)
EndIf
#EndRegion
    Assign("UnactionableRadio" & $i, GUICtrlCreateRadio("Unactionable", $XValue+210, $YValue+350, 90, 20), 2)                        ;Create Unactionable Radio
#region Unactionable Attributes
GUICtrlSetFont (-1,10); bold
GUICtrlSetBkColor(-1, 0xFFFECD)
if $TurnsList[$StartValue][21] = 1 Then
GUICtrlSetState(-1, $GUI_CHECKED)
EndIf
if $TurnsList[$StartValue][21] = $OrigList[$StartValue][21] Then
Else
GUICtrlSetColor(-1, 0xFF1818)
assign("mest" & $p, 1, 2)
EndIf
#EndRegion
    Assign("IncorrectGoalRadio" & $i, GUICtrlCreateRadio("Incorrect", $XValue+310, $YValue+350, 80, 20), 2)                            ;Create Incorrect Radio
#region InccorectGoal Attributes
GUICtrlSetFont (-1,10); bold
GUICtrlSetBkColor(-1, 0xFFFECD)
if $TurnsList[$StartValue][22] = 1 Then
GUICtrlSetState(-1, $GUI_CHECKED)
EndIf
if $TurnsList[$StartValue][22] = $OrigList[$StartValue][22] Then
Else
GUICtrlSetColor(-1, 0xFF1818)
assign("mest" & $p, 1, 2)
EndIf
#EndRegion
    Assign("SystemErrorRadio" & $i, GUICtrlCreateRadio("SystemError", $XValue+390, $YValue+350, 100, 20), 2)                        ;Create SystemError Radio
#Region System Error Attributes
GUICtrlSetFont (-1,10); bold
GUICtrlSetBkColor(-1, 0xFFFECD)
if $TurnsList[$StartValue][23] = 1 Then
GUICtrlSetState(-1, $GUI_CHECKED)
EndIf
if $TurnsList[$StartValue][23] = $OrigList[$StartValue][23] Then
Else
GUICtrlSetColor(-1, 0xFF1818)
assign("mest" & $p, 1, 2)
EndIf
#EndRegion
    Assign("UserAbandonedRadio" & $i, GUICtrlCreateRadio("UserAbandoned", $XValue+490, $YValue+350, 120, 20), 2)                    ;Create UserAbandoned Radio
#Region UserAbandon Attrubutes
GUICtrlSetFont (-1,10); bold
GUICtrlSetBkColor(-1, 0xFFFECD)
if $TurnsList[$StartValue][24] = 1 Then
GUICtrlSetState(-1, $GUI_CHECKED)
EndIf
if $TurnsList[$StartValue][24] = $OrigList[$StartValue][24] Then
Else
GUICtrlSetColor(-1, 0xFF1818)
assign("mest" & $p, 1, 2)
EndIf
#EndRegion
    GUIStartGroup()
Assign("CompletedRadio" & $i,  GUICtrlCreateRadio("Completed", $XValue+15, $YValue+380, 70, 20), 2)
#Region CompleteRadio Attributes
GUICtrlSetFont (-1,10); bold
GUICtrlSetBkColor(-1, 0xFFFECD)
if $TurnsList[$StartValue][25] = 1 Then
GUICtrlSetState(-1, $GUI_CHECKED)
EndIf
if $TurnsList[$StartValue][25] = $OrigList[$StartValue][25] Then
Else
GUICtrlSetColor(-1, 0xFF1818)
assign("mest" & $p, 1, 2)
EndIf
#EndRegion
    Assign("FalseAlarmRadio" & $i, GUICtrlCreateRadio("False Alarm", $XValue+95, $YValue+380, 80, 20), 2)
#region FalseAlarm Attributes
GUICtrlSetFont (-1,10); bold
GUICtrlSetBkColor(-1, 0xFFFECD)
if $TurnsList[$StartValue][26] = 1 Then
GUICtrlSetState(-1, $GUI_CHECKED)
EndIf
if $TurnsList[$StartValue][26] = $OrigList[$StartValue][26] Then
Else
GUICtrlSetColor(-1, 0xFF1818)
assign("mest" & $p, 1, 2)
EndIf
#EndRegion
    Assign("InvestigateRadio" & $i, GUICtrlCreateRadio("Investigate", $XValue+210, $YValue+380, 80, 20), 2)
#region Investigate Attributes
GUICtrlSetFont (-1,10); bold
GUICtrlSetBkColor(-1, 0xFFFECD)
if $TurnsList[$StartValue][27] = 1 Then
GUICtrlSetState(-1, $GUI_CHECKED)
EndIf
if $TurnsList[$StartValue][27] = $OrigList[$StartValue][27] Then
Else
GUICtrlSetColor(-1, 0xFF1818)
assign("mest" & $p, 1, 2)
EndIf
#EndRegion
    $TempYvalue = 1
Else                                                                                                                            ;If not create shells
$TempYvalue = 0
    GUICtrlCreateLabel("Dialog Annotation", $XValue+15, $YValue+9999, 150, 25)                                            ;DialogAnnotation Shell
GUIStartGroup()
Assign("SuccessRadio" & $i, GUICtrlCreateRadio("Success", $XValue+15, $YValue+9999, 60, 15), 2)                        ;SuccessRadio Shell
Assign("AlternateActionRadio" & $i, GUICtrlCreateRadio("AlternateAction", $XValue+95, $YValue+9999, 105, 20), 2)    ;AltAction Shell
Assign("UnactionableRadio" & $i, GUICtrlCreateRadio("Unactionable", $XValue+210, $YValue+9999, 90, 20), 2)            ;Unactionable Shell
Assign("IncorrectGoalRadio" & $i, GUICtrlCreateRadio("Incorrect", $XValue+310, $YValue+9999, 80, 20), 2)            ;IncorrectGoal Shell
Assign("SystemErrorRadio" & $i, GUICtrlCreateRadio("SystemError", $XValue+390, $YValue+9999, 100, 20), 2)            ;SystemError Shell
Assign("UserAbandonedRadio" & $i, GUICtrlCreateRadio("UserAbandoned", $XValue+490, $YValue+9999, 120, 20), 2)        ;UserAbandon Shell
    GUIStartGroup()
Assign("CompletedRadio" & $i,  GUICtrlCreateRadio("Completed", $XValue+15, $YValue+9999, 70, 20), 2)                ;CompleteRadio Shell
Assign("FalseAlarmRadio" & $i, GUICtrlCreateRadio("False Alarm", $XValue+95, $YValue+9999, 80, 20), 2)                ;FalseAlarm Shell
Assign("InvestigateRadio" & $i, GUICtrlCreateRadio("Investigate", $XValue+210, $YValue+9999, 80, 20), 2)            ;Investigate Shell
EndIf
#EndRegion
#Region Turn Graphics
$Border =  GUICtrlCreateLabel("",$XValue+5, $YValue, 1300, 300)
GUICtrlSetBkColor(-1, 0xFFFECD)
GUICtrlSetStyle ($Border, $WS_DISABLED)
GUICtrlCreateGraphic($XValue+5,$YValue+300,1298,1,$SS_BLACKRECT)
GUICtrlCreateGraphic($XValue+5,$YValue,1298,1,$SS_BLACKRECT)
GUICtrlCreateGraphic($XValue+5,$YValue,1,300,$SS_BLACKRECT)
GUICtrlCreateGraphic($XValue+1300,$YValue,1,300,$SS_BLACKRECT)
    #EndRegion
#Region Turn Static Labels
local $Turn = GUICtrlCreateLabel(" Turn:" & $i, $XValue+5,$YValue-25, 100, 16)
GUICtrlSetFont (-1,13, 800); bold
    local $status = GUICtrlCreateLabel(" Status:", $XValue+10,$YValue+5, 64, 16)
GUICtrlSetFont (-1,13, 800); bold
GUICtrlSetBkColor(-1, 0xFFFECD)
    GUICtrlCreateLabel(" Error Type:", $XValue+10, $YValue+90, 96, 17)
GUICtrlSetFont (-1,13, 800); bold
GUICtrlSetBkColor(-1, 0xFFFECD)
    local $trans = GUICtrlCreateLabel("Trans.", $XValue+160, $YValue+15, 48, 16)
#Region TransOutput Attributes
GUICtrlSetFont (-1,13, 800); bold
GUICtrlSetBkColor(-1, 0xFFFECD)
$test = _StringBetween($TurnsList[$StartValue][0], "[G]", "[/G]")
$test2 = _StringBetween($TurnsList[$StartValue][0], "[/G]", "")
if not @error Then
$GreySize = StringLen($test[0])*4.5
Assign("Transoutput" & $i, GUICtrlCreateLabel($test[0], $XValue+220, $YValue+15, 500, 17), 2)
GUICtrlSetFont (-1,10); bold
GUICtrlSetBkColor(-1, 0xFFFECD)
GUICtrlSetColor(-1, 0xA9A9A9)
    Assign("Transoutput" & $i, GUICtrlCreateLabel($test2[0], $XValue+220+$GreySize, $YValue+15, 500, 17), 2)
GUICtrlSetFont (-1,10); bold
GUICtrlSetBkColor(-1, 0xFFFECD)
    Else
Assign("Transoutput" & $i, GUICtrlCreateLabel($TurnsList[$StartValue][0], $XValue+220, $YValue+15, 500, 17), 2)
GUICtrlSetFont (-1,10); bold
GUICtrlSetBkColor(-1, 0xFFFECD)
endIf
    local $status = GUICtrlCreateLabel("ASR:", $XValue+160, $YValue+35, 37, 16)
GUICtrlSetFont (-1,13, 800); bold
GUICtrlSetBkColor(-1, 0xFFFECD)
#EndRegion
    local $status = GUICtrlCreateLabel("ASR:", $XValue+160, $YValue+35, 37, 16)
#Region ASROutput Attributes
GUICtrlSetFont (-1,13, 800); bold
GUICtrlSetBkColor(-1, 0xFFFECD)
    $test = _StringBetween($TurnsList[$StartValue][1], "[G]", "[/G]")
$test2 = _StringBetween($TurnsList[$StartValue][1], "[/G]", "")
if not @error Then
$GreySize = StringLen($test[0])*5
Assign("ASRInput" & $i, GUICtrlCreateLabel($test[0],  $XValue+220, $YValue+35, 500, 17), 2)
GUICtrlSetFont (-1,10); bold
GUICtrlSetBkColor(-1, 0xFFFECD)
GUICtrlSetColor(-1, 0xA9A9A9)
    Assign("ASRInput" & $i, GUICtrlCreateLabel($test2[0], $XValue+220+$GreySize, $YValue+35, 500, 17), 2)
GUICtrlSetFont (-1,10); bold
GUICtrlSetBkColor(-1, 0xFFFECD)
    Else
Assign("ASRInput" & $i, GUICtrlCreateLabel($TurnsList[$StartValue][1], $XValue+220, $YValue+35, 500, 17), 2)
GUICtrlSetFont (-1,10); bold
GUICtrlSetBkColor(-1, 0xFFFECD)
endIf
#EndRegion
    local $status = GUICtrlCreateLabel("Annot.", $XValue+160, $YValue+65, 50, 16)
#Region AnnotOutput Attributes
GUICtrlSetFont (-1,13, 800); bold
GUICtrlSetBkColor(-1, 0xFFFECD)
$testlen = StringLen($TurnsList[$StartValue][2])
$NumberANnot = _IntFromString($testlen)
if $NumberANnot > 100 Then
Assign("ANNOTInput" & $i, GUICtrlCreateLabel($TurnsList[$StartValue][2], $XValue+220, $YValue+65, 9999, 17), 2)
GUICtrlSetFont (-1,10); bold
GUICtrlSetBkColor(-1, 0xFFFECD)
Else
Assign("ANNOTInput" & $i, GUICtrlCreateLabel($TurnsList[$StartValue][2], $XValue+220, $YValue+65, 684, 17), 2)
GUICtrlSetFont (-1,10); bold
GUICtrlSetBkColor(-1, 0xFFFECD)
EndIf
#EndRegion
    local $status = GUICtrlCreateLabel("NLU", $XValue+160, $YValue+90, 35, 16)
#Region NLUOutput Attributes
GUICtrlSetFont (-1,13, 800); bold
GUICtrlSetBkColor(-1, 0xFFFECD)
    $testlen = StringLen($TurnsList[$StartValue][3])
$NumberANnot = _IntFromString($testlen)
if $NumberANnot > 100 Then
Assign("NLUInput" & $i, GUICtrlCreateLabel($TurnsList[$StartValue][3], $XValue+220, $YValue+90, 9999, 17), 2)
GUICtrlSetFont (-1,10); bold
GUICtrlSetBkColor(-1, 0xFFFECD)
Else
Assign("NLUInput" & $i, GUICtrlCreateLabel($TurnsList[$StartValue][3], $XValue+220, $YValue+90, 684, 17), 2)
GUICtrlSetFont (-1,10); bold
GUICtrlSetBkColor(-1, 0xFFFECD)
EndIf
#EndRegion
    local $status = GUICtrlCreateLabel("EntityRes NLU", $XValue+160, $YValue+115, 116, 17)
#Region EntityResOutput Attributres
GUICtrlSetFont (-1,13, 800); bold
GUICtrlSetBkColor(-1, 0xFFFECD)
    $testlen = StringLen($TurnsList[$StartValue][4])
$NumbaEntitiy = _IntFromString($testlen)
;MsgBox("", "", $NumbaEntitiy)
Assign("ENTITYInput" & $i, GUICtrlCreateLabel($TurnsList[$StartValue][4], $XValue+295, $YValue+115, 1000, 17), 2)
GUICtrlSetFont (-1,10); bold
GUICtrlSetBkColor(-1, 0xFFFECD)
#EndRegion
    local $status = GUICtrlCreateLabel("Result", $XValue+160, $YValue+145, 50, 16)
GUICtrlSetFont (-1,13, 800); bold
GUICtrlSetBkColor(-1, 0xFFFECD)
Assign("RESULTInput" & $i, GUICtrlCreateLabel($TurnsList[$StartValue][5], $XValue+220, $YValue+145, 500, 17), 2)
GUICtrlSetFont (-1,10); bold
GUICtrlSetBkColor(-1, 0xFFFECD)
local $status = GUICtrlCreateLabel("TTS:`", $XValue+160, $YValue+165, 36, 16)
GUICtrlSetFont (-1,13, 800); bold
GUICtrlSetBkColor(-1, 0xFFFECD)
Assign("TTSInput" & $i, GUICtrlCreateLabel($TurnsList[$StartValue][6], $XValue+220, $YValue+165, 500, 17), 2)
GUICtrlSetFont (-1,10); bold
GUICtrlSetBkColor(-1, 0xFFFECD)
#EndRegion
#Region Non-Static Turn Labels
local $Turn = GUICtrlCreateLabel(" - " & $TurnsList[$StartValue][28] & " - AUDIO_INITIATOR:" & $TurnsList[$StartValue][29], $XValue+65,$YValue-20, 190, 20)
    Assign("Enpointcheck" & $i, GUICtrlCreateCheckbox("Endpoint(1)", $XValue+10, $YValue+110, 95, 25), 2)
#Region EndPoint Attributes
GUICtrlSetFont (-1,10); bold
GUICtrlSetBkColor(-1, 0xFFFECD)
if $TurnsList[$StartValue][7] = 1 Then
GUICtrlSetState(-1, $GUI_CHECKED)
EndIf
if $TurnsList[$StartValue][7] = $OrigList[$StartValue][7] Then
Else
GUICtrlSetColor(-1, 0xFF1818)
assign("mest" & $p, 1, 2)
EndIf
#EndRegion
    Assign("ASRcheck" & $i, GUICtrlCreateCheckbox("ASR (2)", $XValue+10, $YValue+130, 95, 25), 2)
#Region ASR Attributes
GUICtrlSetFont (-1,10); bold
GUICtrlSetBkColor(-1, 0xFFFECD)
if $TurnsList[$StartValue][8] = 1 Then
GUICtrlSetState(-1, $GUI_CHECKED)
EndIf
if $TurnsList[$StartValue][8] = $OrigList[$StartValue][8] Then
Else
GUICtrlSetColor(-1, 0xFF1818)
assign("mest" & $p, 1, 2)
EndIf
#EndRegion
    Assign("NLUIntent" & $i, GUICtrlCreateCheckbox("NLUIntent(3)", $XValue+10, $YValue+ 150, 95, 25), 2)
#Region NLUIntent Attributes
GUICtrlSetFont (-1,10); bold
GUICtrlSetBkColor(-1, 0xFFFECD)
if $TurnsList[$StartValue][9] = 1 Then
GUICtrlSetState(-1, $GUI_CHECKED)
EndIf
if $TurnsList[$StartValue][9] = $OrigList[$StartValue][9] Then
Else
GUICtrlSetColor(-1, 0xFF1818)
assign("mest" & $p, 1, 2)
EndIf
#EndRegion
    Assign("NLUSlotCheck" & $i, GUICtrlCreateCheckbox("NLUSlot(4)", $XValue+10, $YValue+170, 95, 25), 2)
#Region NLUSlotCheck Attributes
GUICtrlSetFont (-1,10); bold
GUICtrlSetBkColor(-1, 0xFFFECD)
if $TurnsList[$StartValue][10] = 1 Then
GUICtrlSetState(-1, $GUI_CHECKED)
EndIf
if $TurnsList[$StartValue][10] = $OrigList[$StartValue][10] Then
Else
GUICtrlSetColor(-1, 0xFF1818)
assign("mest" & $p, 1, 2)
EndIf
#EndRegion
    Assign("Entitycheck" & $i,  GUICtrlCreateCheckbox("EntityRes(5)", $XValue+10, $YValue+190, 95, 25), 2)
#Region EntityCheck Attributes
GUICtrlSetFont (-1,10); bold
GUICtrlSetBkColor(-1, 0xFFFECD)
if $TurnsList[$StartValue][11] = 1 Then
GUICtrlSetState(-1, $GUI_CHECKED)
EndIf
if $TurnsList[$StartValue][11] = $OrigList[$StartValue][11] Then
Else
GUICtrlSetColor(-1, 0xFF1818)
assign("mest" & $p, 1, 2)
EndIf
#EndRegion
    Assign("Confirmcheck" & $i,  GUICtrlCreateCheckbox("Confirmation(6)", $XValue+10, $YValue+210, 105, 25), 2)
#Region ConfirmCheck Attributes
GUICtrlSetFont (-1,10); bold
GUICtrlSetBkColor(-1, 0xFFFECD)
if $TurnsList[$StartValue][12] = 1 Then
GUICtrlSetState(-1, $GUI_CHECKED)
EndIf
if $TurnsList[$StartValue][12] = $OrigList[$StartValue][12] Then
Else
GUICtrlSetColor(-1, 0xFF1818)
assign("mest" & $p, 1, 2)
EndIf
#EndRegion
    Assign("resultcheck" & $i,  GUICtrlCreateCheckbox("Result(7)", $XValue+10, $YValue+230, 95, 25), 2)
#Region ResultCheck Attributes
GUICtrlSetFont (-1,10); bold
GUICtrlSetBkColor(-1, 0xFFFECD)
if $TurnsList[$StartValue][13] = 1 Then
GUICtrlSetState(-1, $GUI_CHECKED)
EndIf
if $TurnsList[$StartValue][13] = $OrigList[$StartValue][13] Then
Else
GUICtrlSetColor(-1, 0xFF1818)
assign("mest" & $p, 1, 2)
EndIf
#EndRegion
    Assign("transcheck" & $i,  GUICtrlCreateCheckbox("TransError(8)", $XValue+10, $YValue+250, 95, 25), 2)
#Region TransCheck Attributes
GUICtrlSetFont (-1,10); bold
GUICtrlSetBkColor(-1, 0xFFFECD)
if $TurnsList[$StartValue][14] = 1 Then
GUICtrlSetState(-1, $GUI_CHECKED)
EndIf
if $TurnsList[$StartValue][14] = $OrigList[$StartValue][14] Then
Else
GUICtrlSetColor(-1, 0xFF1818)
assign("mest" & $p, 1, 2)
EndIf
#EndRegion
    Assign("annotcheck" & $i, GUICtrlCreateCheckbox("AnnotError(9)", $XValue+10,$YValue+ 270, 95, 25), 2)
#Region AnnotCheck Attributes
GUICtrlSetFont (-1,10); bold
GUICtrlSetBkColor(-1, 0xFFFECD)
if $TurnsList[$StartValue][15] = 1 Then
GUICtrlSetState(-1, $GUI_CHECKED)
EndIf
if $TurnsList[$StartValue][15] = $OrigList[$StartValue][15] Then
Else
GUICtrlSetColor(-1, 0xFF1818)
assign("mest" & $p, 1, 2)
EndIf
#EndRegion
    GUIStartGroup()
Assign("Correctradio" & $i, GUICtrlCreateRadio("Correct", $XValue+10, $YValue+28, 120, 15), 2)
#Region CorrectRadio Attributes
GUICtrlSetFont (-1,10); bold
GUICtrlSetBkColor(-1, 0xFFFECD)
if $TurnsList[$StartValue][16] = 1 Then
GUICtrlSetState(-1, $GUI_CHECKED)
EndIf
if $TurnsList[$StartValue][16] = $OrigList[$StartValue][16] Then
Else
GUICtrlSetColor(-1, 0xFF1818)
assign("mest" & $p, 1, 2)
EndIf
#EndRegion
    Assign("Incorrectradio" & $i, GUICtrlCreateRadio("Incorrect", $XValue+10, $YValue+45, 120, 20), 2)
#Region Incorrect Attributes
GUICtrlSetFont (-1,10); bold
GUICtrlSetBkColor(-1, 0xFFFECD)
if $TurnsList[$StartValue][17] = 1 Then
GUICtrlSetState(-1, $GUI_CHECKED)
EndIf
if $TurnsList[$StartValue][17] = $OrigList[$StartValue][17] Then
Else
GUICtrlSetColor(-1, 0xFF1818)
assign("mest" & $p, 1, 2)
EndIf
#EndRegion
    Assign("Unclearradio" & $i, GUICtrlCreateRadio("Unclear [SDK ONLY]", $XValue+10, $YValue+65, 137, 20), 2)
#Region Unclear Attributes
GUICtrlSetFont (-1,10); bold
GUICtrlSetBkColor(-1, 0xFFFECD)
if $TurnsList[$StartValue][18] = 1 Then
GUICtrlSetState(-1, $GUI_CHECKED)
EndIf
if $TurnsList[$StartValue][18] = $OrigList[$StartValue][18] Then
Else
GUICtrlSetColor(-1, 0xFF1818)
assign("mest" & $p, 1, 2)
EndIf
#EndRegion
    #EndRegion
     
     
     
     
     
     
    ;;;;;;;;;;;;;;;TurnEnd;;;;;;;;;;;;;;;;;;;;;;
    
;;;;;;;;;;;;;;;ChangeingValues;;;;;;;;;;;;;;
if $TempYvalue = 0 Then
$YValue = $YValue + 355
$CatYValue = $CatYValue + 350
EndIf
    if $TempYvalue = 1 Then
   $YValue = $YValue + 535
   $CatYValue = $CatYValue+535
EndIf
    
$StartValue = $StartValue+1                                                                                                        ;Increase Startvalue for next loop
$TimestampY = $TimestampY+45                                                                                                    ;Increase TimestampY for next loop
$IndicatorY = $IndicatorY+45                                                                                                    ;Increase Indicator Y for next loop
$startY = $startY+45                                                                                                            ;Increase Start check for next loop
$EndY = $EndY+45                                                                                                                ;Increase End check for next loop
$DialogY = $DialogY+45                                                                                                            ;Increase Dialog Y for next loop
$Dialog2Y = $Dialog2Y+45                                                                                                        ;Increase Dialog 2 Y for next loop
$TimestampY = $TimestampY+45
$IndicatorY = $IndicatorY+45
$startY = $startY+45
$EndY = $EndY+45
$DialogY = $DialogY+45
$Dialog2Y = $Dialog2Y+45
global $TimestampYNew = $TimestampY
$FirstOver = 1
    ;;;;;;;;;;;;;;;ChangeingValues;;;;;;;;;;;;;;
    Next
     
     
    
Next
EndIf
    GUIRegisterMsg($WM_DRAWITEM, "WM_DRAWITEM")
GUISetState()
    
EndFunc
    
#region ExternalFunc
Func WM_DRAWITEM($hWnd, $Msg, $wParam, $lParam)
    Local $DRAWITEMSTRUCT
        $DRAWITEMSTRUCT = DllStructCreate("uint cType;uint cID;uint itmID;uint itmAction;uint itmState;" & _
                                  "hwnd hItm;hwnd hDC;dword itmRect[4];dword itmData", $lParam)
        If DllStructGetData($DRAWITEMSTRUCT, "cType") <> $ODT_TAB Then Return $GUI_RUNDEFMSG
        Local $cID = DllStructGetData($DRAWITEMSTRUCT, "cID")
    Local $itmID = DllStructGetData($DRAWITEMSTRUCT, "itmID")
    Local $itmAction = DllStructGetData($DRAWITEMSTRUCT, "itmAction")
    Local $itmState = DllStructGetData($DRAWITEMSTRUCT, "itmState")
    Local $hItm = DllStructGetData($DRAWITEMSTRUCT, "hItm")
    Local $hDC = DllStructGetData($DRAWITEMSTRUCT, "hDC")
        If $itmAction <> $ODA_DRAWENTIRE Then Return $GUI_RUNDEFMSG
        Local $iTextColor, $itmText
        Switch $itmID
    Case 0
                if $mest1 = 1 Then
            $iBrushColor = 0x350EFA
         Else
            $iBrushColor = 0x949191
         EndIf
            Case 1
                if $mest2 = 1 Then
            $iBrushColor = 0x350EFA
         Else
            $iBrushColor = 0x949191
         EndIf
          Case 2
               if $mest3 = 1 Then
            $iBrushColor = 0x350EFA
         Else
            $iBrushColor = 0x949191
         EndIf
          Case 3
            if $mest4 = 1 Then
            $iBrushColor = 0x350EFA
         Else
            $iBrushColor = 0x949191
         EndIf
                   Case 4
            if $mest5 = 1 Then
            $iBrushColor = 0x350EFA
         Else
            $iBrushColor = 0x949191
         EndIf
                   Case 5
            if $mest6 = 1 Then
            $iBrushColor = 0x350EFA
         Else
            $iBrushColor = 0x949191
         EndIf
                   Case 6
            if $mest7 = 1 Then
            $iBrushColor = 0x350EFA
         Else
            $iBrushColor = 0x949191
         EndIf
                   Case 7
            if $mest8 = 1 Then
            $iBrushColor = 0x350EFA
         Else
            $iBrushColor = 0x949191
         EndIf
                   Case 8
            if $mest9 = 1 Then
            $iBrushColor = 0x350EFA
         Else
            $iBrushColor = 0x949191
         EndIf
                   Case 9
            if $mest10 = 1 Then
            $iBrushColor = 0x350EFA
         Else
            $iBrushColor = 0x949191
         EndIf
                   Case 10
            if $mest11 = 1 Then
            $iBrushColor = 0x350EFA
         Else
            $iBrushColor = 0x949191
         EndIf
                   Case 11
            if $mest12 = 1 Then
            $iBrushColor = 0x350EFA
         Else
            $iBrushColor = 0x949191
         EndIf
                            Case 12
            if $mest13 = 1 Then
            $iBrushColor = 0x350EFA
         Else
            $iBrushColor = 0x949191
         EndIf
                            Case 13
            if $mest14 = 1 Then
            $iBrushColor = 0x350EFA
         Else
            $iBrushColor = 0x949191
         EndIf
                            Case 14
            if $mest15 = 1 Then
            $iBrushColor = 0x350EFA
         Else
            $iBrushColor = 0x949191
         EndIf
                            Case 15
            if $mest16 = 1 Then
            $iBrushColor = 0x350EFA
         Else
            $iBrushColor = 0x949191
         EndIf
                            Case 16
            if $mest17 = 1 Then
            $iBrushColor = 0x350EFA
         Else
            $iBrushColor = 0x949191
         EndIf
                            Case 17
            if $mest18 = 1 Then
            $iBrushColor = 0x350EFA
         Else
            $iBrushColor = 0x949191
         EndIf
                            Case 18
            if $mest19 = 1 Then
            $iBrushColor = 0x350EFA
         Else
            $iBrushColor = 0x949191
         EndIf
                            Case 19
            if $mest20 = 1 Then
            $iBrushColor = 0x350EFA
         Else
            $iBrushColor = 0x949191
         EndIf
                            Case 20
            if $mest21 = 1 Then
            $iBrushColor = 0x350EFA
         Else
            $iBrushColor = 0x949191
         EndIf
                                 Case 21
            if $mest22 = 1 Then
            $iBrushColor = 0x350EFA
         Else
            $iBrushColor = 0x949191
         EndIf
                                 Case 22
            if $mest23 = 1 Then
            $iBrushColor = 0x350EFA
         Else
            $iBrushColor = 0x949191
         EndIf
                                 Case 23
            if $mest24 = 1 Then
            $iBrushColor = 0x350EFA
         Else
            $iBrushColor = 0x949191
         EndIf
                                 Case 24
            if $mest25 = 1 Then
            $iBrushColor = 0x350EFA
         Else
            $iBrushColor = 0x949191
         EndIf
                                 Case 25
            if $mest26 = 1 Then
            $iBrushColor = 0x350EFA
         Else
            $iBrushColor = 0x949191
         EndIf
                                 Case 26
            if $mest27 = 1 Then
            $iBrushColor = 0x350EFA
         Else
            $iBrushColor = 0x949191
         EndIf
                                 Case 27
            if $mest28 = 1 Then
            $iBrushColor = 0x350EFA
         Else
            $iBrushColor = 0x949191
         EndIf
                                 Case 28
            if $mest29 = 1 Then
            $iBrushColor = 0x350EFA
         Else
            $iBrushColor = 0x949191
         EndIf
                                 Case 29
            if $mest30 = 1 Then
            $iBrushColor = 0x350EFA
         Else
            $iBrushColor = 0x949191
         EndIf
                                 Case 30
            if $mest31 = 1 Then
            $iBrushColor = 0x350EFA
         Else
            $iBrushColor = 0x949191
         EndIf
                                 Case 31
            if $mest32 = 1 Then
            $iBrushColor = 0x350EFA
         Else
            $iBrushColor = 0x949191
         EndIf
                                 Case 32
            if $mest33 = 1 Then
            $iBrushColor = 0x350EFA
         Else
            $iBrushColor = 0x949191
         EndIf
                                 Case 33
            if $mest34 = 1 Then
            $iBrushColor = 0x350EFA
         Else
            $iBrushColor = 0x949191
         EndIf
                                 Case 34
            if $mest35 = 1 Then
            $iBrushColor = 0x350EFA
         Else
            $iBrushColor = 0x949191
         EndIf
                                 Case 35
            if $mest36 = 1 Then
            $iBrushColor = 0x350EFA
         Else
            $iBrushColor = 0x949191
         EndIf
                                 Case 36
            if $mest37 = 1 Then
            $iBrushColor = 0x350EFA
         Else
            $iBrushColor = 0x949191
         EndIf
                                 Case 37
            if $mest38 = 1 Then
            $iBrushColor = 0x350EFA
         Else
            $iBrushColor = 0x949191
         EndIf
                                 Case 38
            if $mest39 = 1 Then
            $iBrushColor = 0x350EFA
         Else
            $iBrushColor = 0x949191
         EndIf
                           Case 39
            if $mest40 = 1 Then
            $iBrushColor = 0x350EFA
         Else
            $iBrushColor = 0x949191
         EndIf
                                 Case 40
            if $mest41 = 1 Then
            $iBrushColor = 0x350EFA
         Else
            $iBrushColor = 0x949191
         EndIf
        EndSwitch
        DLLCall("gdi32.dll","int","SetBkMode", "hwnd", $hDC, "int", 1)
        Local $iBrush = DLLCall("gdi32.dll","hwnd","CreateSolidBrush", "int", $iBrushColor)
    $iBrush = $iBrush[0]
        Local $iBrushOld = _WinAPI_SelectObject($hDC, $iBrush)
        DLLCall("user32.dll","int","FillRect", "hwnd", $hDC, "ptr", DllStructGetPtr($DRAWITEMSTRUCT, "itmRect"), "hwnd", $iBrush)
        Local $tBuffer = DllStructCreate("char[256]")
    DllStructSetData($tBuffer, 1, "Batch" & $itmID+1)
    $itmText = DllStructGetData($tBuffer, 1)
        DllStructSetData($DRAWITEMSTRUCT, "itmRect", DllStructGetData($DRAWITEMSTRUCT, "itmRect", 1) + 10, 1)
    DllStructSetData($DRAWITEMSTRUCT, "itmRect", DllStructGetData($DRAWITEMSTRUCT, "itmRect", 2) + 2, 2)
        DllCall("user32.dll", "int", "DrawText", "hwnd", $hDC, "str", $itmText, "int", StringLen($itmText), _
            "ptr", DllStructGetPtr($DRAWITEMSTRUCT, "itmRect"), "int", $DT_LEFT)
        _WinAPI_SelectObject($hDC, $iBrushOld)
    _WinAPI_DeleteObject($iBrush)
        Return $GUI_RUNDEFMSG
EndFunc
    Func XPStyleToggle($Off = 1)
     If Not StringInStr(@OSTYPE, "WIN32_NT") Then Return 0
         If $Off Then
        $XS_n = DllCall("uxtheme.dll", "int", "GetThemeAppProperties")
         DllCall("uxtheme.dll", "none", "SetThemeAppProperties", "int", 0)
         Return 1
     ElseIf IsArray($XS_n) Then
         DllCall("uxtheme.dll", "none", "SetThemeAppProperties", "int", $XS_n[0])
         $XS_n = ""
         Return 1
     EndIf
     Return 0
 EndFunc
    Func _IntFromString($s_str)
    ; strip non digit from string
    Return Int(StringRegExpReplace($s_str, "[^\d\.]", ""))
 EndFunc
#EndRegion
    func ExitLoadSeg()
GUISetState(@sw_hide, $LoadSeg)
EndFunc
    func On_Exit()
Exit
EndFunc

Temp.zip

Edited by Clerythecleric
Link to post
Share on other sites
  • Moderators

Clerythecleric,

You produce a small reproducer script that shows the problem and as the author of the Scrollbars UDF I will perhaps take a look. Asking me to trawl through nearly 1000 lines of code you admit will not run without modification is just not going to work.

M23

Public_Domain.png.2d871819fcb9957cf44f4514551a2935.png Any of my own code posted anywhere on the forum is available for use by others without any restriction of any kind

Open spoiler to see my UDFs:

Spoiler

ArrayMultiColSort ---- Sort arrays on multiple columns
ChooseFileFolder ---- Single and multiple selections from specified path treeview listing
Date_Time_Convert -- Easily convert date/time formats, including the language used
ExtMsgBox --------- A highly customisable replacement for MsgBox
GUIExtender -------- Extend and retract multiple sections within a GUI
GUIFrame ---------- Subdivide GUIs into many adjustable frames
GUIListViewEx ------- Insert, delete, move, drag, sort, edit and colour ListView items
GUITreeViewEx ------ Check/clear parent and child checkboxes in a TreeView
Marquee ----------- Scrolling tickertape GUIs
NoFocusLines ------- Remove the dotted focus lines from buttons, sliders, radios and checkboxes
Notify ------------- Small notifications on the edge of the display
Scrollbars ----------Automatically sized scrollbars with a single command
StringSize ---------- Automatically size controls to fit text
Toast -------------- Small GUIs which pop out of the notification area

 

Link to post
Share on other sites

Also when  i tried to run this i noticed this thing:

Not sure if intended or not, but seems the filenames are trimmed.

And maybe you could include the GUIScrollbars_Ex.au3 in the zip, or at least the link to the topic where it is.

Untitled.png

Edited by careca
Spoiler

Renamer - Rename files and folders, remove portions of text from the filename etc.

GPO Tool - Export/Import Group policy settings.

MirrorDir - Synchronize/Backup/Mirror Folders

BeatsPlayer - Music player.

Params Tool - Right click an exe to see it's parameters or execute them.

String Trigger - Triggers pasting text or applications or internet links on specific strings.

Inconspicuous - Hide files in plain sight, not fully encrypted.

Regedit Control - Registry browsing history, quickly jump into any saved key.

Time4Shutdown - Write the time for shutdown in minutes.

Power Profiles Tool - Set a profile as active, delete, duplicate, export and import.

Finished Task Shutdown - Shuts down pc when specified window/Wndl/process closes.

NetworkSpeedShutdown - Shuts down pc if download speed goes under "X" Kb/s.

IUIAutomation - Topic with framework and examples

Au3Record.exe

Link to post
Share on other sites

Create an account or sign in to comment

You need to be a member in order to leave a comment

Create an account

Sign up for a new account in our community. It's easy!

Register a new account

Sign in

Already have an account? Sign in here.

Sign In Now
  • Recently Browsing   0 members

    No registered users viewing this page.

×
×
  • Create New...