Custom Query

; |[0] - Month ; |[1] - Day ; |[2] - Year ; |[3] - Hour ; |[4] - Minutes ; |[5] - Seconds ; |[6] - Milliseconds ; |[7] - Day of week

Func _Date_Time_FileTimeToStr(ByRef $tFileTime, $bFmt = 0)

Local $aDate = _Date_Time_FileTimeToArray($tFileTime) If @error Then Return SetError(@error, @extended, "")

If $bFmt Then

Return StringFormat("%04d/%02d/%02d %02d:%02d:%02d", $aDate[2], $aDate[1], $aDate[0], $aDate[3], $aDate[4], $aDate[5])

Else

Return StringFormat("%02d/%02d/%04d %02d:%02d:%02d", $aDate[0], $aDate[1], $aDate[2], $aDate[3], $aDate[4], $aDate[5])

EndIf

EndFunc ;==>_Date_Time_FileTimeToStr

;--------------------------------------------

Func _Date_Time_FileTimeToStr(ByRef $tFileTime, $bFmt = 0)

Local $aDate = _Date_Time_FileTimeToArray($tFileTime) If @error Then Return SetError(@error, @extended, "")

If $bFmt Then

Return StringFormat("%04d/%02d/%02d %02d:%02d:%02d", $aDate[2], $aDate[0], $aDate[1], $aDate[3], $aDate[4], $aDate[5])

Else

Return StringFormat("%02d/%02d/%04d %02d:%02d:%02d", $aDate[0], $aDate[1], $aDate[2], $aDate[3], $aDate[4], $aDate[5])

EndIf

EndFunc ;==>_Date_Time_FileTimeToStr

_WinAPI_CallWindowProc() and _WinAPI_DefWindowProc() still use the ANSI version of the API functions.

_GUICtrlRichEdit_GetZoom

; Remarks .......: MSDN claims that EM_SETZOOM works from 1.56% (1/64) to 6400$ (64/1) but testing shows that ; it only works reliably for the values shown above

FALSE

I send you my proposal for changing the function _GUICtrlRichEdit_GetZoom with an example, who works fine on my computer(values between 2 to 6399). with the code hereafter you can reduce zoom under 100% :

== #AutoIt3Wrapper_Au3Check_Parameters= -d -w 1 -w 2 -w 3 -w 4 -w 5 -w 6 #include <GuiRichEdit.au3> #include <GUIConstantsEx.au3> #include <WindowsConstants.au3>

Global $lblMsg, $hRichEdit

Main()

Func Main()

Local $hGui, $iMsg, $btnNext, $iStep = 0 $hGui = GUICreate("Example (" & StringTrimRight(@ScriptName,4) &")", 320, 350, -1, -1)

$hRichEdit = _GUICtrlRichEdit_Create($hGui, "This is a test.", 10, 20, 300, 190, BitOR($ES_MULTILINE, $WS_VSCROLL, $ES_AUTOVSCROLL)) $slider = GUICtrlCreateSlider(55, 245, 260, 30) $lblZoom = GUICtrlCreateLabel("Zoom 100%", 10, 245, 40, 30)

;Zoom $iZoomFocal = 5 ; possible value between 1, 63.99 : Msoffice value is 4 $iZoomCurrent = 100 ;percent Default Value $iZoomScaleMax = int($iZoomCurrent * $iZoomFocal);percent $iZoomScaleMin = 10 ;percent

GUICtrlSetLimit ($slider, $iZoomScaleMax, $iZoomScaleMin) GUICtrlSetData($slider,$iZoomCurrent)

GUISetState()

Do

$msg = GUIGetMsg()

If $msg = $slider Then

$iZoomCurrent = GUICtrlRead($slider)

GUICtrlRichEdit_SetZoom($hRichEdit, $iZoomCurrent)

GUICtrlSetData($lblZoom, "Zoom : " & $iZoomCurrent & " %" )

EndIf

Until $msg = $GUI_EVENT_CLOSE

EndFunc ;==>Main

Func Report($sMsg)

GUICtrlSetData($lblMsg, $sMsg)

EndFunc ;==>Report

; ;PROPOSAL ; Func GUICtrlRichEdit_SetZoom($hWnd, $iPercent)

If Not IsHWnd($hWnd) Then Return SetError(101, 0, False) If Not GCR_IsNumeric($iPercent, ">1") Then Return SetError(1021, 0, False) If Not GCR_IsNumeric($iPercent, "<6400") Then Return SetError(1021, 0, False)

Return _SendMessage($hWnd, $EM_SETZOOM, $iPercent, 100) <> 0

EndFunc ;==>_GUICtrlRichEdit_SetZoom

==