Jump to content

Leaderboard

Popular Content

Showing content with the highest reputation on 06/24/2017 in all areas

  1. Deye

    unicode character on gui

    Try adding right after GUICtrlSetFont(-1, 10, 600, -1, "WingDings 3")
    1 point
  2. "IND" stands for "indeterminate". That's why you can't rely on the results of all your operations (in variation of "garbage in, garbage out": IND in, IND out ) https://stackoverflow.com/questions/347920/what-do-1-inf00-1-ind00-and-1-ind-mean
    1 point
  3. I believe the last three MsgBoxes are being compared by string rather than number. For checking for undefined you can use something I found in another post: Global $zd = StringStripWS(0/0, 3) MsgBox(4096, 'Is Number', StringCompare($zd, String(Number($zd))) > 0 ? "Result : " & $zd & @CRLF & "Is a number : " & False : "Result : " & $zd & @CRLF & "Is a number : " & True)
    1 point
  4. What exactly are you expecting, and what are you getting that isn't as expected? AutoIt isn't Javascript, so you can't compare apples to oranges, compare it to what you expect the answer to be and let us know what that is.
    1 point
  5. Schrödinger's float is both greater than and less than zero.
    1 point
  6. Here is a basic regex-based lexer, very versatile If the text in the richedit is very long this can be easily adapted to manage the last added line only instead of the whole text #include <EditConstants.au3> #include <Color.au3> #include <GUIConstantsEx.au3> #include <GuiRichEdit.au3> #include <WindowsConstants.au3> Global $Form1 = GUICreate("Form1", 615, 437, 192, 124) ;Global $Edit1 = GUICtrlCreateEdit("", 32, 32, 561, 377) Global $Edit1 = _GUICtrlRichEdit_Create($Form1, "", 32, 32, 561, 377, BitOR($ES_MULTILINE, $WS_VSCROLL, $ES_AUTOVSCROLL)) _GUICtrlRichEdit_AppendText($Edit1, "WARNING - The test ran unsuccessfully!" & @CRLF) _GUICtrlRichEdit_AppendText($Edit1, "PASS - The test ran successfully 2!" & @CRLF) _GUICtrlRichEdit_AppendText($Edit1, "WARNING - The test ran unsuccessfully again!" & @CRLF) _colors($Edit1) GUISetState(@SW_SHOW) While 1 $nMsg = GUIGetMsg() Switch $nMsg Case $GUI_EVENT_CLOSE Exit EndSwitch WEnd Func _colors($hRichEdit) Local $red = 0x8888FF, $green = 0x00d65c ; 0xBBGGRR Local $matchstart, $matchlen, $offset = 1 Local $txt = _GUICtrlRichEdit_GetText($hRichEdit), $len = StringLen($txt) _GUICtrlRichEdit_PauseRedraw($hRichEdit) While $offset < $len $res = StringRegExp($txt, '(?|WARNING|PASS)', 1, $offset) $offset = @extended If not IsArray($res) Then Exitloop $match = $res[0] $matchlen = StringLen($match) $matchend = $offset-1 $matchstart = $matchend-$matchlen _GUICtrlRichEdit_SetSel($hRichEdit, $matchstart, $matchend) Switch $match Case "WARNING" _GUICtrlRichEdit_SetCharBkColor($hRichEdit, $red) Case "PASS" _GUICtrlRichEdit_SetCharBkColor($hRichEdit, $green) EndSwitch Wend _GUICtrlRichEdit_SetSel($hRichEdit, -1, -1) _GUICtrlRichEdit_ResumeRedraw($hRichEdit) EndFunc
    1 point
  7. Hmmm I use this when I'm using consoles in my applications So I can append formatted text using html tags (or like html tags, because <color> is not really a html tag). I think I put color and bkcolor in their own tag because I don't change the fonts of my consoles, just color, bkcolor, and attributes. This was back when I was learning how to use regexp so it's (kind of?) inefficient but it does all the work for you lol All you'd have to do is _GUICtrlRichEdit_AppendHtmlText($Edit1, "<bkcolor=0x8888FF>WARNING</bkcolor> - The test ran unsuccessfully!" & @CRLF) _GUICtrlRichEdit_AppendHtmlText($Edit1, "<bkcolor=0x00d65c>PASS</bkcolor> - The test ran successfully 2!" & @CRLF) _GUICtrlRichEdit_AppendHtmlText($Edit1, "<bkcolor=0x8888FF>WARNING</bkcolor> - The test ran unsuccessfully again!" & @CRLF)
    1 point
  8. I usually use: https://social.msdn.microsoft.com/Forums/sqlserver/en-US/home?category=sqlserver I have perused: https://www.sqlservercentral.com/Forums/ before but have never asked any questions there.
    1 point
  9. Jos

    KB 3008923 error help

    In my humble opinion this won't be enough to help you. Why can't you make a simple reproducer script that opens 8 pages from hardcoded URL's to see if that works or errors out. In case it works, add the bit to open the excel and read the url's from there. Then you can post it back to show us to see if we can help debug it. In case you are unable to do so you really need to stop expecting people to help as you only get wild stabs in the dark. Jos
    1 point
  10. mLipok

    KB 3008923 error help

    Did you look here: How to use IE.au3 UDF with AutoIt v3.3.14.x
    1 point
  11. InnI

    [SOLVED] GDI animation Help

    #include <GDIPlus.au3> _GDIPlus_Startup() $hImage = _GDIPlus_ImageLoadFromFile("CD.png") $aDim = _GDIPlus_ImageGetDimension($hImage) $hBufImg = _GDIPlus_BitmapCreateFromScan0($aDim[0], $aDim[1]) $hBufGraph = _GDIPlus_ImageGetGraphicsContext($hBufImg) _GDIPlus_GraphicsTranslateTransform($hBufGraph, $aDim[0] / 2, $aDim[1] / 2) $iBackColor = 0xFFFFFFF0 $hGUI = GUICreate("CD Animation", $aDim[0], $aDim[1]) GUISetBkColor($iBackColor) GUISetState() $hGraphics = _GDIPlus_GraphicsCreateFromHWND($hGUI) $iAngle = 5 ; rotate speed Do _GDIPlus_GraphicsRotateTransform($hBufGraph, $iAngle) _GDIPlus_GraphicsClear($hBufGraph, $iBackColor) _GDIPlus_GraphicsDrawImage($hBufGraph, $hImage, -$aDim[0] / 2, -$aDim[1] / 2) _GDIPlus_GraphicsDrawImage($hGraphics, $hBufImg, 0, 0) Until GUIGetMsg() = -3 _GDIPlus_ImageDispose($hBufImg) _GDIPlus_ImageDispose($hImage) _GDIPlus_GraphicsDispose($hBufGraph) _GDIPlus_GraphicsDispose($hGraphics) _GDIPlus_Shutdown()
    1 point
  12. dexto

    A Non-Strict JSON UDF (JSMN)

    Implementation of the JSMN using Map available in Autoit Beta (3.3.15): #Region ;**** Directives created by AutoIt3Wrapper_GUI **** #AutoIt3Wrapper_Version=Beta #EndRegion ;**** Directives created by AutoIt3Wrapper_GUI **** #include "jsonMap.au3" $json = '{"test":"yay"}' $test = Json_Decode($json) ConsoleWrite($test['test'] & @CRLF) $test['test'] = 'horray!!!' ConsoleWrite($test['test'] & @CRLF) ConsoleWrite(Json_Encode($test) & @CRLF) jsonMap.au3
    1 point
×
×
  • Create New...