Beiträge von johny1099

  • GuiCreate ohne Titelleiste und trotzdem verschiebbar

    Hallo zusammen
    ich versuche gerade ein Form zu erstellen wobei die Titelleiste komplett unsichtbar sein soll, aber trotzdem soll das Form noch verschiebbar sein. Vielleicht kennt jemand einen Parameter Style bzw. Exstyle bei GuiCreate wodurch dies möglich ist.

    [autoit]

    #include <GUIConstantsEx.au3>
    #include <StaticConstants.au3>
    #include <WindowsConstants.au3>
    Global $Form1,$button_close
    $Form1 = GUICreate("",340,150, -1,-1,$WS_EX_TOPMOST+$WS_EX_WINDOWEDGE+$WS_EX_DLGMODALFRAME )
    $label1 = GUICtrlCreateLabel("Label 1",20,20,200,40)
    $button_exit = GUICtrlCreateButton("Exit",280,80,40,20)
    GUISetState(@SW_SHOW, $Form1)

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

    While 1
    $nMsg = GUIGetMsg()
    If $nMsg = $button_exit Then
    Exit
    EndIf
    WEnd

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

    Bei diesem Beispiel ist soweit alles ok, ausser die blaue Titelleiste sollte noch unsichtbar sein und trotzdem soll das Fenster noch verschiebbar sein.

  • Datum Uhrzeit Vergleich

    Hallo UEZ

    vielen Dank für die schnelle Beantwortung meiner Frage:

    ich habe noch ein kleines Problem:

    In dem String den ich vom Time Server erhalte habe ich nun festgestellt dass dieser nicht immer gleich ist:

    Wenn der Monatstag einstellig ist (1-9) dann sind 2 Leerzeichen zwischen dem Wert Monat und dem Monatstag

    Beispiel:
    Fri Jul 6 09:28:26 2012

    Richtige wäre:

    Fri Jul 6 09:28:26 2012

    Gibt es eine Möglichkeit den String so zu formatieren dass zwischen den einzelnen Werten immmer nur 1 Leerzeichen ist.

  • Datum Uhrzeit Vergleich

    Hallo zusammen

    ich habe folgendes Problem:

    ich bekomme als Datum / Uhrzeit den Wert ==> "Fri Jul 6 09:28:26 2012" von einem Time Server

    Ich möchte diesen Wert mit dem aktuellen Datum / Uhrzeit vergleichen.

    Falls eine Differenz von mehr als 60 Sekunden zu dem Time Server existiert, soll das Datum vom Time Server gesetzt werden.

    Gibt es vielleicht bereits eine UDF die so etwas ermöglicht?


    Gruss

    johny

  • Bild einfügen in Spalte 1 mit GUICtrlSetImage

    Hallo zusammen

    gibt es eine Möglichkeit ein Bild mit der Originalgrösse in ein Listview in der Spalte 1 zu integrieren?

    Ich habe es bereits mit folgendem Code versucht, aber das Bild wird kleiner dargestellt als die Originalgrösse:

    [autoit]

    #include <GUIConstantsEx.au3>
    #include <GuiListView.au3>
    #include <ListViewConstants.au3>
    Dim $list_view
    GUICreate("Listview Formular",600,400,300,400)
    $list_view = GUICtrlCreateListView("Picture|Name",10,50,550,300)

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

    $var1 = GUICtrlCreateListViewItem("|Zeile 1 Spalte 2",$list_view)
    $var2 = GUICtrlSetImage ( $var1, "C:\TEST_.bmp")
    _GUICtrlListView_SetColumnWidth($list_view, 0, $LVSCW_AUTOSIZE)
    GUISetState(@SW_SHOW)

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

    While 1
    $nmsg = GUIGetMsg()
    Select
    Case $nmsg = $GUI_EVENT_CLOSE
    Exit
    EndSelect
    WEnd

    [/autoit]

    MfG
    johny

  • GuiCtrlCreateGroup mit gleichen Rahmenseiten

    Hallo zusammen

    gibt es eine Möglichkeit wie im Beispiel den Rahmen oben und links gleich zu gestalten wie der Rahmen unten bzw. rechts?

    [autoit]

    #include <GUIConstantsEx.au3>
    #include <WindowsConstants.au3>
    #Region ### START Koda GUI section ### Form=
    $Form1 = GUICreate("Form1", 625, 443, 192, 124)
    $Group1 = GUICtrlCreateGroup("Group1", 104, 72, 441, 297,$WS_DLGFRAME)
    GUICtrlCreateGroup("", -99, -99, 1, 1)
    GUISetState(@SW_SHOW)
    #EndRegion ### END Koda GUI section ###

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

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

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

    EndSwitch
    WEnd

    [/autoit]

    Gruss
    johny

  • Horizontale Leiste einblenden bei GuiCtrlCreateList

    Hallo zusammen

    gibt es eine Möglichkeit eine horizontole Leiste bei GuiCrtlCreateList anzuzeigen, wenn die Breite des Listelement nicht ausreicht den Wert vollständig anzuzeigen.

    [autoit]

    #include <GUIConstantsEx.au3>
    #include <ListBoxConstants.au3>
    #include <WindowsConstants.au3>
    Dim $form_1,$list_1

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

    Dim $arr[8]

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

    $arr[0] = "Schmidt"
    $arr[1] = "Meier"
    $arr[2] = "Beckmann"
    $arr[3] = "Müller"
    $arr[4] = "Klausmann"
    $arr[5] = "Weigel"
    $arr[6] = "Zimmermann-Hollermann"
    $arr[7] = "Schmitt"

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

    GUICreate("",400,400)
    $list_1 = GUICtrlCreateList("",50,50,130,100,BitOr($WS_BORDER, $WS_VSCROLL,$LBS_NOSEL ))
    For $i = 0 to 7
    GUICtrlSetData($list_1,$arr[$i])
    ConsoleWrite($arr[$i])
    Next
    GUISetState(@SW_SHOW)
    While 1
    $msg = GUIGetMsg()
    If $msg = $gui_event_close() Then ExitLoop
    WEnd

    [/autoit]

    Gruss
    johny

  • aktueller Währungs-Kurs auslesen

    Hallo Oscar

    ich versuche leider vergebens deine Variante anzuwenden.


    Wenn ich den Inhalt in ein Output File schreibe und darin suche kann ich leider den aktuellen Kurs nicht sehen.

    Kannst Du mir bitte weiterhelfen?

    [autoit]

    If FileExists(@ScriptDir & '\testoutput.txt') Then FileDelete(@ScriptDir & '\testoutput.txt')

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

    MsgBox(0, 0, getWaehrungskurse())

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

    Func getWaehrungskurse()
    Local $HTML, $Kurs_NOK, $Kurs_PLN
    $HTML = InetRead("http://www.oanda.com/lang/de/currency/converter/")
    If @error Then Return SetError(1, 0, 0)
    $HTML = BinaryToString($HTML)
    ConsoleWrite($HTML & @CR)
    Filewrite(@ScriptDir & '\testoutput.txt',$HTML)

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

    EndFunc ;==>getWaehrungskurse

    [/autoit]

    MfG
    johny1099