Beiträge von Tweaky

#Region    ;************ Includes ************
#include <WindowsConstants.au3>
#include <ListViewConstants.au3>
#include <GUIConstantsEx.au3>
#EndRegion ;************ Includes ************

Opt("GUICloseOnESC", 0) ; 1=ESC beendet, 0=ESC schließt nicht
Opt("GUIOnEventMode", 1) ; 0=ausgeschaltet, 1=OnEvent Modus aktiviert

Global $hGui = GUICreate("Test", 500, 700, 0, 0, -1, $WS_EX_ACCEPTFILES)

Global $idListview = GUICtrlCreateListView("Test", 10, 10, 200, 200, BitOR($LVS_SHOWSELALWAYS, $LVS_NOSORTHEADER), BitOR($LVS_EX_DOUBLEBUFFER, $WS_EX_CLIENTEDGE, $LVS_EX_FULLROWSELECT, $LVS_EX_GRIDLINES, $WS_EX_CLIENTEDGE))

Global $idListview2 = GUICtrlCreateListView("Test", 250, 10, 200, 200, BitOR($LVS_SHOWSELALWAYS, $LVS_NOSORTHEADER), BitOR($LVS_EX_DOUBLEBUFFER, $WS_EX_CLIENTEDGE))
GUICtrlSendMsg($idListview2, $LVM_SETEXTENDEDLISTVIEWSTYLE, $LVS_EX_FULLROWSELECT, $LVS_EX_FULLROWSELECT)
GUICtrlSendMsg($idListview2, $LVM_SETEXTENDEDLISTVIEWSTYLE, $LVS_EX_GRIDLINES, $LVS_EX_GRIDLINES)

GUISetOnEvent($GUI_EVENT_CLOSE, "_beenden")

GUISetState(@SW_SHOW, $hGui)

While 1
    Sleep(10)
WEnd

Func _beenden()
    Exit
EndFunc   ;==>_beenden

#Region    ;************ Includes ************
#Include <Array.au3>
#Include <WinAPISysWin.au3>
#include <WindowsConstants.au3>
#include <ListViewConstants.au3>
#include <GUIConstantsEx.au3>
#EndRegion ;************ Includes ************

Opt("GUICloseOnESC", 0) ; 1=ESC beendet, 0=ESC schließt nicht
Opt("GUIOnEventMode", 1) ; 0=ausgeschaltet, 1=OnEvent Modus aktiviert


Global $hGui = GUICreate("Test", 500, 700, 0, 0, -1, $WS_EX_ACCEPTFILES)
Global $idListview = GUICtrlCreateListView("Test", 10, 10, 400, 600, BitOR($LVS_SHOWSELALWAYS, $LVS_NOSORTHEADER), BitOR($LVS_EX_DOUBLEBUFFER, $WS_EX_CLIENTEDGE))
GUICtrlSendMsg($idListview, $LVM_SETEXTENDEDLISTVIEWSTYLE, $LVS_EX_FULLROWSELECT, $LVS_EX_FULLROWSELECT)
GUICtrlSendMsg($idListview, $LVM_SETEXTENDEDLISTVIEWSTYLE, $LVS_EX_GRIDLINES, $LVS_EX_GRIDLINES)

GUIRegisterMsg($WM_DROPFILES, "On_WM_DROPFILES")
GUISetState(@SW_SHOW, $hGui)
GUISetOnEvent($GUI_EVENT_CLOSE, "_beenden")

While 1
    Sleep(10)
WEnd

Func _beenden()
    Exit
EndFunc   ;==>_beenden

Func On_WM_DROPFILES($hWnd, $msg, $wParam, $lParam)
    Local $aFileList, $nSize, $pFileName, $tPoint, $hCtrl

    $tPoint = _WinAPI_DragQueryPoint($wParam)
    If Not DllStructGetSize($tPoint) Then Return     ;window border
    $hCtrl = _WinAPI_ChildWindowFromPointEx($hWnd, $tPoint)

    If $hCtrl = ControlGetHandle($hGui, "", $idListview) Then     ;ListView
        $aFileList = _WinAPI_DragQueryFileEx($wParam)
        _ArrayDisplay($aFileList)
        _WinAPI_DragFinish($wParam)
        _WinAPI_MessageBeep(0)     ;Ton erzeugen
    EndIf

    Return
EndFunc   ;==>On_WM_DROPFILES

#include <Array.au3>
#include <Inet.au3>
#include <String.au3>

$url_inet = "https://www.java.com/de/download/manual.jsp"

$source = _INetGetSource($url_inet)
ClipPut($source)
$aVersion_aktuell_tmp = _StringBetween($source, '<strong>Empfohlen Version', ' </strong>')
If Not IsArray($aVersion_aktuell_tmp) Then $aVersion_aktuell_tmp = _StringBetween($source, '<h4 class="sub">Empfohlen Version', '</h4>')

_ArrayDisplay($aVersion_aktuell_tmp)

#include <GUIConstantsEx.au3>

Global $idContext, $idMenuitem

Opt('GUIOnEventMode', 1)

Global $GUI = GUICreate("hallo", 360, 340)
Global $idCheckbox = GUICtrlCreateCheckbox("Test", 70, 75)

GUISetState()

GUISetOnEvent($GUI_EVENT_CLOSE, "_beenden")
GUICtrlSetOnEvent($idCheckbox, "_checkbox_Status")

While 1
    Sleep(10)
WEnd

Func _checkbox_Status()
    If GUICtrlRead($idCheckbox) = 1 Then
        $idContext = GUICtrlCreateContextMenu()
        $idMenuitem = GUICtrlCreateMenuItem("angehakt", $idContext)
    ElseIf GUICtrlRead($idCheckbox) = 4 Then
        GUICtrlDelete($idContext)
        GUICtrlDelete($idMenuitem)
    EndIf
EndFunc   ;==>_checkbox_Status


Func _beenden()
    Exit
EndFunc   ;==>_beenden