Beiträge von lachi

[autoit]

#region ;**** Directives created by AutoIt3Wrapper_GUI ****
#AutoIt3Wrapper_Compression=4
#AutoIt3Wrapper_UseX64=n
#endregion ;**** Directives created by AutoIt3Wrapper_GUI ****

[/autoit] [autoit][/autoit] [autoit]

#region # Includes and Options
#include-once
#include <ComboConstants.au3>
#include <GuiComboBox.au3>
#include <GuiComboBoxEx.au3>
#include <GUIConstantsEx.au3>
#include <WinAPI.au3>
#include <WindowsConstants.au3>

[/autoit] [autoit][/autoit] [autoit]

;~ Opt("MustDeclareVars", 1)
Opt("WinTitleMatchMode", 2) ; Option for the Window find function 1=start, 2=subStr, 3=exact, 4=advanced, -1 to -4=Nocase
Opt("TCPTimeout", 100)
#endregion # Includes and Options

[/autoit] [autoit][/autoit] [autoit]

#region # GUI
; Create the GUI
$Form1 = GUICreate("Form1", 400, 300, 192, 124)
;~ $Form1 = _PMNewGUI($iGUIWidth, $iGUIHeight, $sGUITitle, $sGUITitle, $WS_POPUP, "", "", True) ; $WS_POPUP -> Without Microsoft Windows border

[/autoit] [autoit][/autoit] [autoit]

$h_input_1 = _GUICtrlComboBox_Create($Form1, "", 15, 30, 200, 21, $CBS_DROPDOWN)
$h_input_2 = _GUICtrlComboBox_Create($Form1, "", 15, 60, 200, 21, $CBS_DROPDOWN)
$h_input_3 = _GUICtrlComboBox_Create($Form1, "", 15, 90, 200, 21, $CBS_DROPDOWN)

[/autoit] [autoit][/autoit] [autoit]

; Set fonts
$h_GUI_ZielendpunktComboFont = _WinAPI_CreateFont(12, "", "", "", 800, 0, 0, 0, "", "", "", "", "", "")
_WinAPI_SetFont($h_input_1, $h_GUI_ZielendpunktComboFont, False)
_WinAPI_SetFont($h_input_2, $h_GUI_ZielendpunktComboFont, False)
_WinAPI_SetFont($h_input_3, $h_GUI_ZielendpunktComboFont, False)

[/autoit] [autoit][/autoit] [autoit]

Local $a_iwas[5] = ["4", "Hallo (1.2.3)", "Baum (2.3.4)", "Katze (6.6.6)", "Haus (2.2.3)"]

[/autoit] [autoit][/autoit] [autoit]

_GUICtrlComboBox_BeginUpdate($h_input_1)
_GUICtrlComboBox_BeginUpdate($h_input_2)
_GUICtrlComboBox_BeginUpdate($h_input_3)

[/autoit] [autoit][/autoit] [autoit]

For $i = 1 To $a_iwas[0] Step 1
_GUICtrlComboBox_AddString($h_input_1, $a_iwas[$i])
_GUICtrlComboBox_AddString($h_input_2, $a_iwas[$i])
_GUICtrlComboBox_AddString($h_input_3, $a_iwas[$i])
Next

[/autoit] [autoit][/autoit] [autoit]

_GUICtrlComboBox_EndUpdate($h_input_1)
_GUICtrlComboBox_EndUpdate($h_input_2)
_GUICtrlComboBox_EndUpdate($h_input_3)

[/autoit] [autoit][/autoit] [autoit]

GUISetState(@SW_SHOW)
#endregion # GUI

[/autoit] [autoit][/autoit] [autoit]

#region # programm

[/autoit] [autoit][/autoit] [autoit]

; Register functions
GUIRegisterMsg($WM_COMMAND, "_Dropdown_Change") ; Filteroption for the Location Dropdowns

[/autoit] [autoit][/autoit] [autoit]

Local $wait_loop = 0
Local $last_code = 0
Local $last_last_code = 0
Local $last_last_last_code = 0
Local $last_hwnd = 0
Local $last_last_hwnd = 0

[/autoit] [autoit][/autoit] [autoit]

While True
If (($last_hwnd == $last_last_hwnd And (($last_hwnd == $h_input_2 Or $last_hwnd == $h_input_3) Or $last_hwnd == $h_input_1)) Or $wait_loop > 0) Then
; $CBN_SETFOCUS = 3
; $CBN_SELENDOK = 9
; $CBN_CLOSEUP = 8
; $CBN_SELENDCANCEL = 10
; $CBN_KILLFOCUS = 4
If ($last_last_last_code == $CBN_SETFOCUS And $last_last_code == $CBN_SELENDOK And $last_code == $CBN_CLOSEUP) Then
; Click on the dropdown arrow
$last_last_last_code = 0
$last_last_code = 0
$last_code = 0
$last_hwnd = 0
$last_last_hwnd = 0
If _GUICtrlComboBoxEx_GetDroppedState($h_input_1) = False Then _GUICtrlComboBox_ShowDropDown($last_hwnd, True) ; Focus on Combo 1, open Dropdown
If _GUICtrlComboBoxEx_GetDroppedState($h_input_2) = False Then _GUICtrlComboBox_ShowDropDown($last_hwnd, True) ; Focus on Combo 1, open Dropdown
If _GUICtrlComboBoxEx_GetDroppedState($h_input_3) = False Then _GUICtrlComboBox_ShowDropDown($last_hwnd, True) ; Focus on Combo 1, open Dropdown
ElseIf $last_code == $CBN_SETFOCUS Then
If $wait_loop == 1 Then
If _GUICtrlComboBoxEx_GetDroppedState($h_input_1) = False Then _GUICtrlComboBox_ShowDropDown($last_hwnd, True)
If _GUICtrlComboBoxEx_GetDroppedState($h_input_2) = False Then _GUICtrlComboBox_ShowDropDown($last_hwnd, True)
If _GUICtrlComboBoxEx_GetDroppedState($h_input_3) = False Then _GUICtrlComboBox_ShowDropDown($last_hwnd, True)
Else
$wait_loop = $wait_loop - 1
EndIf
EndIf
EndIf

[/autoit] [autoit][/autoit] [autoit]

$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit

[/autoit] [autoit][/autoit] [autoit]

EndSwitch

[/autoit] [autoit][/autoit] [autoit]

Sleep(10)
WEnd

[/autoit] [autoit][/autoit] [autoit]

Exit
#endregion # programm

[/autoit] [autoit][/autoit] [autoit]

#region # functions

[/autoit] [autoit][/autoit] [autoit]

Func _Dropdown_Change($hWnd, $iMsg, $iwParam, $ilParam)
#forceref $hWnd, $iMsg
Local $hWndFrom, $iIDFrom, $iCode
$hWndFrom = $ilParam
$iIDFrom = BitAND($iwParam, 0xFFFF) ; Low Word
$iCode = BitShift($iwParam, 16) ; Hi Word

[/autoit] [autoit][/autoit] [autoit]

$last_last_last_code = $last_last_code
$last_last_code = $last_code
$last_code = $iCode
$last_last_hwnd = $last_hwnd
$last_hwnd = $hWndFrom

[/autoit] [autoit][/autoit] [autoit]

If $hWndFrom == $h_input_1 And $iCode == $CBN_EDITCHANGE Then _Edit_Changed($h_input_1) ; Edit in Combo 1
If $hWndFrom == $h_input_1 And $iCode == $CBN_SETFOCUS Then $wait_loop = 3 ; Set wait loop to 3. Use for display the dropdown 1
If $hWndFrom == $h_input_1 And $iCode == $CBN_KILLFOCUS Then _GUICtrlComboBox_ShowDropDown($h_input_1, False) ; Kill focus on Combo 1, close Dropdown

[/autoit] [autoit][/autoit] [autoit]

If $hWndFrom == $h_input_2 And $iCode == $CBN_EDITCHANGE Then _Edit_Changed($h_input_2) ; Edit in Combo 2
If $hWndFrom == $h_input_2 And $iCode == $CBN_SETFOCUS Then $wait_loop = 3 ; Set wait loop to 3. Use for display the dropdown 2
If $hWndFrom == $h_input_2 And $iCode == $CBN_KILLFOCUS Then _GUICtrlComboBox_ShowDropDown($h_input_2, False) ; Kill focus on Combo 2, close Dropdown

[/autoit] [autoit][/autoit] [autoit]

If $hWndFrom == $h_input_3 And $iCode == $CBN_EDITCHANGE Then _Edit_Changed($h_input_3) ; Edit in Combo 3
If $hWndFrom == $h_input_3 And $iCode == $CBN_SETFOCUS Then $wait_loop = 3 ; Set wait loop to 3. Use for display the dropdown 3
If $hWndFrom == $h_input_3 And $iCode == $CBN_KILLFOCUS Then _GUICtrlComboBox_ShowDropDown($h_input_3, False) ; Kill focus on Combo 3, close Dropdown
EndFunc ;==>_Dropdown_Change

[/autoit] [autoit][/autoit] [autoit]

Func _Edit_Changed($ec_handle)
$edit_input = _GUICtrlComboBox_GetEditText($ec_handle)

[/autoit] [autoit][/autoit] [autoit]

; If Dropdown is closed, then open it
If _GUICtrlComboBoxEx_GetDroppedState($ec_handle) = False Then
_GUICtrlComboBox_ShowDropDown($ec_handle, True)
_GUICtrlComboBox_SetEditText($ec_handle, $edit_input)
EndIf

[/autoit] [autoit][/autoit] [autoit]

If StringLen($edit_input) >= 3 Then ; Filtering if the String is longer then 3 characters
Do ; Check if the user enter somethin in the dropdown. Wait until the user is ready.
Sleep(100)
$edit_input = _GUICtrlComboBox_GetEditText($ec_handle)
Until StringTrimRight($edit_input, 1) = StringTrimRight(_GUICtrlComboBox_GetEditText($ec_handle), 1) Or $edit_input = StringTrimRight(_GUICtrlComboBox_GetEditText($ec_handle), 1) Or StringLen(_GUICtrlComboBox_GetEditText($ec_handle)) < 3

[/autoit] [autoit][/autoit] [autoit]

; Reset the content of the dropdown and insert it new
_GUICtrlComboBox_ResetContent($ec_handle)
_GUICtrlComboBox_SetEditText($ec_handle, $edit_input)
For $i = 1 To $a_iwas[0] Step 1
; If the search string is in the LocationArray, then add this string to the new dropdown.
If StringInStr($a_iwas[$i], $edit_input) <> 0 Or $edit_input == "" Then _GUICtrlComboBox_AddString($ec_handle, $a_iwas[$i])
Next
Else
If $edit_input == "" Then
_GUICtrlComboBox_ResetContent($ec_handle)
_GUICtrlComboBox_SetEditText($ec_handle, $edit_input)
For $i = 1 To $a_iwas[0] Step 1
_GUICtrlComboBox_AddString($ec_handle, $a_iwas[$i])
Next
EndIf
EndIf
EndFunc ;==>_Edit_Changed

[/autoit] [autoit][/autoit] [autoit]

#endregion # functions

[/autoit]

[autoit]

ConsoleWrite($alarm & @CRLF)
$sdetail_alert = "Alert: " & $alarm
ConsoleWrite($sdetail_alert & @CRLF)
$sdetail_alert = _StringInsert($sdetail_alert,"|",21)
ConsoleWrite($sdetail_alert & @CRLF)

[/autoit]

[autoit]

#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
#include <Table.au3>
$Form1 = GUICreate("Verdammter Müll krams dings MAN!", 615, 438, 192, 124)
GUISetState(@SW_SHOW)

[/autoit] [autoit][/autoit] [autoit]

$hGUIDetailTable = _GUICtrlTable_Create(30, 30, 120, 16, 10, 2, 0)
_GUICtrlTable_Set_Text_Row($hGUIDetailTable, 1, "1|2")
_GUICtrlTable_Set_Text_Row($hGUIDetailTable, 2, "123456789112345678921234567893|123456789112345678921234567893", "|", 1)
_GUICtrlTable_Set_Text_Row($hGUIDetailTable, 3, "123456789112345678921234567893|123456789112345678921234567893", "|", 0)
_GUICtrlTable_Set_Text_Row($hGUIDetailTable, 4, "123456789112345678921234567893", "|", 1)
_GUICtrlTable_Set_Text_Row($hGUIDetailTable, 5, "123456789112345678921234567893|123456789", "|", 0)

[/autoit] [autoit][/autoit] [autoit]

_GUICtrlTable_Set_CellColor_Column($hGUIDetailTable, 1, 0xFFFFFF)
_GUICtrlTable_Set_CellColor_Column($hGUIDetailTable, 2, 0xCCCCCC)

[/autoit] [autoit][/autoit] [autoit]

GUISetState(@SW_SHOW)
StringReplace

[/autoit] [autoit][/autoit] [autoit]

_StringInsert
While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit

[/autoit] [autoit][/autoit] [autoit]

EndSwitch
WEnd

[/autoit]

[autoit]

#region JavaScript
$s_Print_Label_Javascript = _
"function labelprint()" & @CRLF & _
"{" & @CRLF & _
" try" & @CRLF & _
" {" & @CRLF & _
" var labelXml = new XMLHttpRequest();" & @CRLF & _
" labelXml.open('GET', './asdqwe.label');" & @CRLF & _
" labelXml.onreadystatechange = function() {" & @CRLF & _
" alert(labelXml.responseText);" & @CRLF & _
" }" & @CRLF & _
" labelXml.send();" & @CRLF & _
" var label = dymo.label.framework.openLabelXml(labelXml.responseText);" & @CRLF & _
" " & @CRLF & _
" // set label text" & @CRLF & _
" //label.setObjectText(' Text', textTextArea.value);" & @CRLF & _
" " & @CRLF & _
" // select printer to print on" & @CRLF & _
" // for simplicity sake just use the first LabelWriter printer" & @CRLF & _
" var printers = dymo.label.framework.getPrinters();" & @CRLF & _
" if (printers.length == 0)" & @CRLF & _
" throw ' No DYMO printers are installed. Install DYMO printers.';" & @CRLF & _
" " & @CRLF & _
" var printerName = '';" & @CRLF & _
" for (var i = 0; i < printers.length; ++i)" & @CRLF & _
" {" & @CRLF & _
" var printer = printers[i];" & @CRLF & _
" if (printer.printerType == ' LabelWriterPrinter')" & @CRLF & _
" {" & @CRLF & _
" printerName = printer.name;" & @CRLF & _
" break;" & @CRLF & _
" }" & @CRLF & _
" }" & @CRLF & _
" " & @CRLF & _
" if (printerName == '')" & @CRLF & _
" throw ' No LabelWriter printers found. Install LabelWriter printer';" & @CRLF & _
" " & @CRLF & _
" // finally print the label" & @CRLF & _
" label.print(printerName);" & @CRLF & _
" }" & @CRLF & _
" catch(e)" & @CRLF & _
" {" & @CRLF & _
" alert(e.message e);" & @CRLF & _
" };" & @CRLF & _
"};"
#endregion JavaScript

[/autoit] [autoit][/autoit] [autoit]

_LabelLog("_PrintLabel()", "Print the Label", False)
$h_Print_Label_ScrCon = ObjCreate("ScriptControl")
$h_Print_Label_ScrCon.language = "JScript" ; auch mit "JavaScript" getestet
$h_Print_Label_ScrCon.addcode($s_Print_Label_Javascript)
$h_Print_Label_ScrCon.run("labelprint")

[/autoit]

Ausgabe:

[autoit]

- 10:45:07 OK _PrintLabel() Print the Label
D:\autoit\a_Fertig\GeNiEnd2End_Label_Tool\label.au3 (568) : ==> The requested action with this object has failed.:
$h_Print_Label_ScrCon.run("labelprint")
$h_Print_Label_ScrCon.run("labelprint")^ ERROR
->10:45:07 AutoIT3.exe ended.rc:1

[/autoit]