Custom Query

Currently reads "When 3 months is are to '2004/1/31' then the result will be 2004/04/30"

Should read When 3 months is ADDED to '2004/1/31' then the result will be 2004/04/30

GUICtrlCreateGraphic is not obeying AutoItSetOption("GUIResizeMode", $GUI_DOCKALL). The following script will demonstrate this issue. Click its 'Toggle Width' button repeatidly to see the effect. The "Exit" button stays where it was placed, $button_the GUICtrlCreateGraphic shifts left and right when the button is clicked.

#include <GUIConstantsEx.au3>

$sTitle = "GUICtrlCreateGraphic Doesn't Obey Resize"
$iRed = 0xff0000
$iBlue = 0x0000ff

GUICreate($sTitle, 230, 270)
;;  The following has no effect on GUICtrlCreateGraphic()
AutoItSetOption("GUIResizeMode", $GUI_DOCKALL)
;;
$gr1 = GUICtrlCreateGraphic(10, 10, 100, 100)
GUICtrlSetColor(-1, $iBlue)
;;
$gr2 = GUICtrlCreateGraphic(120, 10, 100, 100)
GUICtrlSetColor(-1, $iRed)
;;
$iButton = GUICtrlCreateButton("Toggle Width", 10, 120, 100, 20)
$iExit = GUICtrlCreateButton("Exit", 130, 120, 80, 20)
;;
$iLabel = GUICtrlCreateLabel("Click the Toggle Width button" &@LF& "a few times.", 40, 150, 200, 50)
$iLabe2 = GUICtrlCreateLabel("GUICtrlCreateGraphic objects 'resize' even" &@LF& "though option GUIResizeMode" &@LF& "$GUI_DOCKALL is set to" &@LF& "$GUI_DOCKALL.  Other controls okay.", 10, 200, 210, 70)

GUISetState(@SW_SHOW)

$iSize = 1
While 1
  $iMsg = GUIGetMsg()
  Switch $iMsg
    Case $GUI_EVENT_CLOSE
      ExitLoop
    Case $iExit
      ExitLoop
    Case $iButton
      $a1 = WinGetPos($sTitle, "")
      If $iSize = 1 Then
        WinMove($sTitle, "", $a1[0], $a1[1], 150, $a1[3])
        GUICtrlSetData($iLabel, "The Red Graphic" & @LF & "Window Moved." & @LF & "So did the Blue.")
        GUICtrlSetColor($iLabel, $iRed)
        $iSize = 2
      Else
        WinMove($sTitle, "", $a1[0], $a1[1], 230, $a1[3])
        GUICtrlSetData($iLabel, "Click the Toggle Width button" &@LF& "a few times.")
        GUICtrlSetColor($iLabel, -1)
        $iSize = 1
      EndIf
  EndSwitch
WEnd

I'd like to request a change to _ArrayConcatenate. Specifically, I'd like to include the ability to have a starting index for the target array. This is useful for when you don't want to include $array[0] (which sometimes contains the array size) in the resulting concatenated array.

I took the liberty of modifying the code so it could be a simple cut and paste job for the next beta release, assuming there are no errors and it doesn't break anything.

; #FUNCTION# ====================================================================================================================
; Name...........: _ArrayConcatenate
; Description ...: Concatenate two arrays.
; Syntax.........: _ArrayConcatenate(ByRef $avArrayTarget, Const ByRef $avArraySource)
; Parameters ....: $avArrayTarget - The array to concatenate onto
;                  $avArraySource - The array to concatenate from
; Return values .: Success - $avArrayTarget's new size
;                  Failure - 0, sets @error to:
;                  |1 - $avArrayTarget is not an array
;                  |2 - $avArraySource is not an array
;                  |3 - $avArrayTarget is not a 1 dimensional array
;                  |4 - $avArraySource is not a 1 dimensional array
;                  |5 - $avArrayTarget and $avArraySource is not a 1 dimensional array
; Author ........: Ultima
; Modified.......: Partypooper - added target start index
; Remarks .......:
; Related .......: _ArrayAdd, _ArrayPush
; Link ..........:
; Example .......: Yes
; ===============================================================================================================================
Func _ArrayConcatenate(ByRef $avArrayTarget, Const ByRef $avArraySource, $iStart = 0)
	If Not IsArray($avArrayTarget) Then Return SetError(1, 0, 0)
	If Not IsArray($avArraySource) Then Return SetError(2, 0, 0)
	If UBound($avArrayTarget, 0) <> 1 Then
		If UBound($avArraySource, 0) <> 1 Then Return SetError(5, 0, 0)
		Return SetError(3, 0, 0)
	EndIf
	If UBound($avArraySource, 0) <> 1 Then Return SetError(4, 0, 0)

	Local $iUBoundTarget = UBound($avArrayTarget) - $iStart, $iUBoundSource = UBound($avArraySource)
	ReDim $avArrayTarget[$iUBoundTarget + $iUBoundSource]
	For $i = $iStart To $iUBoundSource - 1
		$avArrayTarget[$iUBoundTarget + $i] = $avArraySource[$i]
	Next

	Return $iUBoundTarget + $iUBoundSource
EndFunc   ;==>_ArrayConcatenate