Jump to content
Clerythecleric

Scrollbar causes freezing, Better way?

Recommended Posts

Clerythecleric

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

Share this post


Link to post
Share on other sites
Melba23

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


Any of my own code posted anywhere on the forum is available for use by others without any restriction of any kind._______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

 

Share this post


Link to post
Share on other sites
careca

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

Paster - Main function is to paste text, but has more functions.

OpenW - Open With... alternative, Open any file with any application, set it's icon, set application as default.

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

BeatsPlayer - Music player.

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

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.

Firefox Profile Backup - Backup/restore previously saved profile.

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

Share this post


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

×

Important Information

We have placed cookies on your device to help make this website better. You can adjust your cookie settings, otherwise we'll assume you're okay to continue.