Beiträge von Jam00

  • Overroll UDF

    Also ich farg jetzt mal hier:
    Also wenn ich eine $ mit Local mache wird sie nur in dieser Func benuzt, oder wie?
    Und Return gibt einen Rückgabewert, den man erhält wenn man die Func ausführt oder wie, das hab ich noch nie kapiert^^

    EDIT: Ach und bei deinem Setzt er das Bild jedes mal neu!

  • Smileys im RichEdit

    Achso, dann probier ich das mal

    EDIT: Warum geht das dann nicht? Genau so ist das doch auch im beispiel!

    Spoiler anzeigen
    [autoit]

    #include <GUIConstantsEx.au3>
    #include <GuiRichEdit.au3>

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

    $Form1 = GUICreate("Form1", 633, 447, 372, 251)
    $Edit = _GUICtrlRichEdit_Create($Form1, 10, 10, 480, 420, BitOR($ES_WANTRETURN, $ES_SUNKEN, $ES_MULTILINE, $WS_VSCROLL, $ES_AUTOVSCROLL))
    GUISetState(@SW_SHOW)

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

    While 1
    $Text =_GUICtrlRichEdit_GetText($Edit)
    $Suche = StringReplace ($Text,":-)","")
    If $Suche <> $Text Then
    _GUICtrlRichEdit_SetText($Edit,$Suche)
    _GUICtrlRichEdit_AppendText($Edit,_RTF_GetBMPRTF(@WindowsDir & "\Angler.bmp"))
    EndIf
    $nMsg = GUIGetMsg()
    Switch $nMsg
    Case $GUI_EVENT_CLOSE
    Exit
    EndSwitch
    WEnd
    Func _RTF_GetBMPRTF($BMPFile)
    If Not (StringRight($BMPFile,4) = ".bmp") Then Return SetError(1, 0, "")
    Local $Data = FileOpen($BMPFile, 16)
    If FileRead($Data, 2) <> "0x424D" Then Return SetError(1, 0, "")
    FileRead($Data, 12)
    Local $RTF = '{\rtf1{\pict\dibitmap ' & Hex(FileRead($Data)) & '}}'
    FileClose($Data)
    Return $RTF
    EndFunc ;==>_RTF_GetBMPRTF

    [/autoit]

  • Smileys im RichEdit

    Oki, hab das Update, jetzt gehts :thumbup: Kann mir jetzt jemand sagen wie ich es hinbekomme, das bei jeder Zeichenfolge (wie ":-)") ein Bild eingefügen kann? Es muss nicht umbedingt sofor pasieren! Also ich will einen Chat machen, und da Smylies reinmachen, dann kann man es senden, und erst dann tuachen die Smylies auf, wenn es so besser geht ^^

    EDIT: Ich hab hier mal was probiert, warum geht das nicht?

    Spoiler anzeigen
    [autoit]

    #include <GUIConstantsEx.au3>
    #include <GuiRichEdit.au3>

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

    $Form1 = GUICreate("Form1", 633, 447, 372, 251)
    $Edit = _GUICtrlRichEdit_Create($Form1, 10, 10, 480, 420, BitOR($ES_WANTRETURN, $ES_SUNKEN, $ES_MULTILINE, $WS_VSCROLL, $ES_AUTOVSCROLL))
    GUISetState(@SW_SHOW)
    While 1
    $Text =_GUICtrlRichEdit_GetText($Edit)
    $Suche = StringReplace ($Text,":-)",_RTF_GetBMPRTF(@WindowsDir & "\Angler.bmp") )
    If $Suche <> $Text Then
    _GUICtrlRichEdit_SetText($Edit,$Suche)
    EndIf
    $nMsg = GUIGetMsg()
    Switch $nMsg
    Case $GUI_EVENT_CLOSE
    Exit
    EndSwitch
    WEnd
    Func _RTF_GetBMPRTF($BMPFile)
    If Not (StringRight($BMPFile,4) = ".bmp") Then Return SetError(1, 0, "")
    Local $Data = FileOpen($BMPFile, 16)
    If FileRead($Data, 2) <> "0x424D" Then Return SetError(1, 0, "")
    FileRead($Data, 12)
    Local $RTF = '{\rtf1{\pict\dibitmap ' & Hex(FileRead($Data)) & '}}'
    FileClose($Data)
    Return $RTF
    EndFunc ;==>_RTF_GetBMPRTF

    [/autoit]

  • Overroll UDF

    Stimmt ^^ Das mit dem array[4] hab ich fergessen! Dann schreib ich es mal um! Kann ich den $fGui auch als titel für Controgetpos nehmen?, ds ist doch nicht nur für guis die ich mich autoit mache!

    EDIT: Oki, hab es geändert (Dateianhang Post1). Was mache ich bei dem Local falsch? Ich glaub das ist doch das was Raupi meinte oder?

  • Overroll UDF

    Ich brauche öffterst die Func das der Button ein Overrollefeckt hat, also das das Pic anders wird oder so was, wenn man mit der Maus drüberfährt! Also dachte ich mir doch mal das ich dafür eine UDF schreiben könnte, und hab es dann auch getahen. Ich hoffe es gefällt euch.