Beiträge von bernd670

Das der Tooltip erst verschwindet wenn du ToolTip("") schreibst steht auch so in der Hilfe!

Zitat

A Tooltip will appear until the script terminates or ToolTip("") is called.

Zitat

Nun habe ich mal mit ToolTip( ) alle Einstellungen durchprobiert. Dabei ist mir aufgefallen, dass die Option: "1 = Display as Balloon Tip" (bzw. "3" in Addition mit "Center the tip") dazu führt, dass der ToolTip gar nicht angezeigt wird. Hat jemand damit Erfahrungen?

Den Fehler kann ich nicht nachvollziehen, bei mir wird auch dann alles korrekt angezeigt!

Hier noch eine Möglichkeit einen String mit x gleichen Zeichen zu erzeugen!

$Laenge = 20
$zeichen = "§"


$test = StringReplace(StringFormat("%0" & $Laenge & "s",$zeichen),"0",$zeichen)


MsgBox(0,"",$test)

Hallo, schau dir mal die Funktion StringInStr an!

Gelöscht hab ich nichts!

da hat der ende-tag für autoit und spoiler gefehlt!

Hier sind 2 Funktionen, eine zum lesen und eine zum setzen von Systemfarben.

Const $COLOR_SCROLLBAR = 0
Const $COLOR_BACKGROUND = 1
Const $COLOR_ACTIVECAPTION = 2
Const $COLOR_INACTIVECAPTION = 3
Const $COLOR_MENU = 4
Const $COLOR_WINDOW = 5
Const $COLOR_WINDOWFRAME = 6
Const $COLOR_MENUTEXT = 7
Const $COLOR_WINDOWTEXT = 8
Const $COLOR_CAPTIONTEXT = 9
Const $COLOR_ACTIVEBORDER = 10
Const $COLOR_INACTIVEBORDER = 11
Const $COLOR_APPWORKSPACE = 12
Const $COLOR_BACKGROUNDMARKEDTEXT = 13
Const $COLOR_MARKEDTEXT = 14
Const $COLOR_BTN = 15
Const $COLOR_BTNSHADOW = 16
Const $COLOR_GRAYTEXT = 17
Const $COLOR_BTNTEXT = 18
Const $COLOR_INACTIVECAPTIONTEXT = 19
Const $COLOR_BTNHIGHLIGHT = 20

;~ Private Declare Function GetSysColor Lib "user32" _
;~ (ByVal nIndex As Long) As Long
Func _GetSysColor($nIndex)
$Color = DllCall("user32.dll", "long", "GetSysColor", "long", $nIndex)

Return $Color[0]
EndFunc ;==>_GetSysColor

;~ Private Declare Function SetSysColors Lib "user32" _
;~ (ByVal nChanges As Long, lpSysColor As Long, _
;~ lpColorValues As Long) As Long
Func _SetSysColor($nIndex, $nRGBColor)
Local $structColor = DllStructCreate("udword")
Local $structIndex = DllStructCreate("udword")

DllStructSetData($structIndex, 1, $nIndex)
DllStructSetData($structColor, 1, $nRGBColor)
DllCall("user32.dll", "long", "SetSysColors", "long", 1, "ptr", DllStructGetPtr($structIndex), "ptr", DllStructGetPtr($structColor))
EndFunc ;==>_SetSysColor

Beispiel:

$OldDeskColor = _GetSysColor($COLOR_BACKGROUND)
_SetSysColor($COLOR_BACKGROUND, 0xFFAA55)
Sleep(5000)
_SetSysColor($COLOR_BACKGROUND, $OldDeskColor)

Hallo,

z.B. so:

Hallo!

Die Umsetzung mit DllCall sollte so gehen (nicht getestet):

Global Const $FSOUND_LOOP_NORMAL = 0x00000002


$MusicHandle = FMUSIC_LoadSongEx("beispielmusik.it", 0, 0, $FSOUND_LOOP_NORMAL, 0, 0)


If $MusicHandle Then
    FMUSIC_PlaySong($MusicHandle)
    FMUSIC_SetOrder($MusicHandle,0)
EndIf






;~ Public Declare Function FMUSIC_LoadSongEx Lib "fmod.dll" Alias "_FMUSIC_LoadSongEx@24" (ByVal name As String, ByVal offset As Long, ByVal length As Long, ByVal mode As FSOUND_MODES, ByRef sentencelist As Long, ByVal numitems As Long) As Long
Func FMUSIC_LoadSongEx ($name, $offset, $length, $mode, $sentencelist, $numitems)
    $RetValue = DllCall("fmod.dll", "long", "_FMUSIC_LoadSongEx@24" _
                        , "str", $name _
                        , "long", $offset _
                        , "long", $length _
                        , "long", $mode _
                        , "long", $sentencelist _
                        , "long", $numitems _
                        )

    Return $RetValue[0]
EndFunc


;~ Public Declare Function FMUSIC_PlaySong Lib "fmod.dll" Alias "_FMUSIC_PlaySong@4" (ByVal module As Long) As Byte
Func FMUSIC_PlaySong ($module)
    $RetValue = DllCall("fmod.dll", "short", "_FMUSIC_PlaySong@4" _
                        , "long", $module _
                        )

    Return $RetValue[0]
EndFunc


;~ Public Declare Function FMUSIC_SetOrder Lib "fmod.dll" Alias "_FMUSIC_SetOrder@8" (ByVal module As Long, ByVal order As Long) As Byte
Func FMUSIC_SetOrder ($module, $order)
    $RetValue = DllCall("fmod.dll", "short", "_FMUSIC_SetOrder@8" _
                        , "long", $module _
                        , "long", $order _
                        )

    Return $RetValue[0]
EndFunc

Ich habe aber noch was, wenn man von Heute mit den Navigationsbuttons eins vor oder zurück geht bleibt der Datumhintergrund weiß!

Welche Version benutzt du den, ich habe es gerade mit der neusten (1.00) getestet da ist deaktiviert!

Nur keine Angst liegt nicht an dir, da ist nur noch der Debug-Modus aktiv!

Die ID direkt einzugeben, davon rate ich dir ab. Die Nummer kann sich änder sobald du ein weiteres Element in die GUI einfügst! Besser ist -1 das bezieht sich immer auf das zu letzt definierte Element oder so:

$lbl1 = GUICtrlCreateLabel("Y", 180, 2, 20, 20,$WS_BORDER)
GUICtrlSetBkColor($lbl1, 0x1fbf17)

Dann kann man auch später im Programm noch drauf zugreifen um z.B. eine andere Farbe zuzuweisen!

Auf den ersten Blick schon sehr schön und gut, aber Du solltest dich entscheiden ob Du persönlich (Du) oder förmlich (Sie) schreibst. Die Mischform find ich grausam!

Versuchs mal so:

GUICtrlCreateLabel("Y", 180, 2, 20, 20,$WS_BORDER)
GUICtrlSetBkColor(-1, 0x1fbf17)

Wie kommst du auf die 4 bei GuiCtrlSetBkColor?

Hallo!

@Pee, nicht BitAnd sonder BitOr! Mit einer Kombination aus BitAnd und BitNot kann man Stile wieder entfernen!

Hallo!

Du musst bie InputBox mind. 2 Parameter angeben 1. Parameter = Titel des Fensters und 2. Parameter = Text im Fenster!

Hallo!

Schau dir mal die Funktion _StringEncrypt an!

Wenn ich in der Rubrik Konstanten im Suchfeld "EM_SETPASSWORDCHAR" eingebe steht unten

Private Const EM_SETPASSWORDCHAR As Long = &HCC

&HCC ist die Schreibeweise für Hex-Werte unter VB und heißt soviel wie 0xCC!

Hallo!

Die HEX-Werte kannst du z.B. mit dem API-Viewer ermitteln. Die Werte für wParam und lParam bekommst du aus der MSDN-Library, da muss immer ein bisschen suchen!

Der Wert für EM_SETPASSWORDCHAR ist z.B. 0xCC, der Wert der in wParam eingesetzt wird ist das Zeichen welchen dargestellt wird wenn was eingegeben wird, wenn wParam 0 ist der Passwortmodus deaktiviert!

lParam wird für diese Message nicht gebraucht und sollt auf -1 gesetzt werden!

Ich habe übrigens schon die Lösung gepostet!

Hallo!

Wenn man die Message EM_SETPASSWORDCHAR sendet geht es. Das Style $ES_PASSWORD macht auch nichts anderes. Nur muss man nach dem Ändern 1 mal den Focus auf das Control setzen damit die Änderung auch angewendet wird!

#include <GuiConstants.au3>


Global Const $EM_GETPASSWORDCHAR = 0xD2
Global Const $EM_SETPASSWORDCHAR = 0xCC


Const $PasswordChar = Asc("*")


$bPasswordOn = False


$Gui = GUICreate("Double Click Demo", 417, 356, 192, 125)
$inputBox = GUICtrlCreateInput("Test",10, 10,300,20)
$TogglePW = GUICtrlCreateButton("ändern",10,250)


GUISetState(@SW_SHOW)
While 1
    $msg = GUIGetMsg()
    Select
        Case $msg = $GUI_EVENT_CLOSE
            ExitLoop

        Case $msg = $TogglePW
            $Focus = ControlGetFocus($Gui)
            If $bPasswordOn Then
                GUICtrlSendMsg($inputBox, $EM_SETPASSWORDCHAR, 0, -1)
                $bPasswordOn = False
            Else
                GUICtrlSendMsg($inputBox, $EM_SETPASSWORDCHAR, $PasswordChar, -1)
                $bPasswordOn = True
            EndIf
            ControlFocus($Gui,"",$inputBox)
            ControlFocus($Gui,"",$Focus)
        Case Else
            ;;;;;;;
    EndSelect
WEnd