(kleine) Konsole

  • Was muss ich ändern , dass das GUI nicht runterfährt wenn es geöffnet wird ?
    Das es direkt zusehen ist.
    Wie bei der richtigen CMD :) ?

    Edit1:

    Ich habe es bis jetzt soweit , nur ich bekomme es nicht hin , dass das GUI nicht beim starten runterfährt. (Also die Gui sich nach unten scroolt ^^)

    Spoiler anzeigen
    [autoit]

    ; CMD
    #include <Misc.au3>
    #include <Array.au3>
    #include <WindowsConstants.au3>
    #include <EditConstants.au3>
    #include <File.au3>
    #include <WinAPI.au3>
    #include <GDIPlus.au3>

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

    Opt("GUIOnEventMode", 1)

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

    Global $dll = DllOpen("user32.dll")
    Global $title = "Console"

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

    $Console = _ConsoleCreate($title)
    $hwnd = GUICreate("", @DesktopWidth, @DesktopHeight, 250, 250, 0, BitOR($WS_EX_LAYERED, $WS_EX_TOPMOST), $Console[0])
    GUISetState()
    WinActivate($title)

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

    while 1
    WEnd

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

    Func _SM_SetVisualStyle($b_Enable)
    Return DllCall("uxtheme.dll", "none", "SetThemeAppProperties", "int", $b_Enable)
    EndFunc

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

    Func _ConsoleCreate($Title)
    Local $Console[2]
    _SM_SetVisualStyle(False)
    $Console[0] = GUICreate($Title, 654, 0, @DesktopWidth- 660, 0, Default)
    GUISetOnEvent(-3, "_ConsoleCommand_Exit")
    GUISetBkColor(0x000000)
    $Console[1] = GUICtrlCreateEdit("", 0, 0, 657, 297, BitOR($ES_AUTOVSCROLL, $WS_VSCROLL))
    GUICtrlSetBkColor($Console[1], 0x000000)
    GUICtrlSetColor($Console[1], 0xC0C0C0)
    GUICtrlSetFont($Console[1], 10, Default, Default, "Lucida Console")
    GUISetState(@SW_SHOW)
    _WinSetSize($Console[0], 660, 329, 10, 5)

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

    Return $Console
    Endfunc

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

    Func _ConsoleCommand_Exit()
    ;~ _WinSetSize($Console[0], 660, 0, 10, 5)
    Exit
    EndFunc

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

    Func _WinSetSize($hWnd, $iWidth, $iHeigth, $iSleep = -1,$iStep = 4);by Gta Spider
    If $iSleep < 0 Then Return WinMove($hWnd,"",Default,Default,$iWidth,$iHeigth)
    Local $i, $iStepW = $iStep, $iStepH = $iStep,$iSin,$i2,$iLastI
    Local $aWinPos = WinGetPos($hWnd)
    If $iWidth < $aWinPos[2] Then $iStepW *= -1
    If $iHeigth < $aWinPos[3] Then $iStepH *= -1
    Local $iDegToRad = 3.14159265358979/180
    Local $iSinMulW = ($iWidth - $aWinPos[2]) / 2.5
    Local $iSinMulH = ($iHeigth - $aWinPos[3]) / 2.5
    If $iSinMulW < 0 Then $iSinMulW *= -1
    If $iSinMulH < 0 Then $iSinMulH *= -1
    If $iWidth <> $aWinPos[2] Then
    For $i = $aWinPos[2] To $iWidth Step $iStepW
    $iLastI = $i
    $iSin = $i - $aWinPos[2]
    $iSin = Sin($iDegToRad * (180*$iSin/($iWidth - $aWinPos[2])))
    WinMove($hWnd,"",Default,Default,$i + ($iSin * $iSinMulW),Default)
    Sleep($iSleep)
    Next
    If Mod($iWidth - $aWinPos[2],$iStep) Then
    If $iStepW < 0 Then
    $iStepW = -1
    Else
    $iStepW = 1
    EndIf
    For $i = $iLastI -1 To $iWidth Step $iStepW
    WinMove($hWnd,"",Default,Default,$i,Default)
    Next
    EndIf
    EndIf
    If $iHeigth <> $aWinPos[3] Then
    For $i = $aWinPos[3] To $iHeigth Step $iStepH
    $iLastI = $i
    $iSin = $i - $aWinPos[3]
    $iSin = Sin($iDegToRad*(180*$iSin/($iHeigth - $aWinPos[3])))
    WinMove($hWnd,"",Default,Default,Default,$i + ($iSin * $iSinMulH))
    Sleep($iSleep)
    Next
    If Mod($iHeigth - $aWinPos[3],$iStep) Then
    If $iStepH < 0 Then
    $iStepH = -1
    Else
    $iStepH = 1
    EndIf
    For $i = $iLastI -1 To $iHeigth Step $iStepH
    WinMove($hWnd,"",Default,Default,Default,$i)
    Next
    EndIf
    EndIf
    EndFunc

    [/autoit]

    Einmal editiert, zuletzt von tuttifrutti (7. Dezember 2010 um 20:43)