Edit-Control mit Bildern

  • Hey :D

    Ich möchte gerne in einem Edit-Control ein bild mit einbinden können ... wie kann ich dies machen?

    [autoit]

    _GUICtrlRichEdit_Create

    [/autoit]

    Dies wurde mir schon empfohlen weis aber nicht wie ich es richtig einsetzen soll ^^

    Hoffe das mir jemand helfen kann.

    MfG
    Tutnix

    Einmal editiert, zuletzt von Tutnix (17. Mai 2014 um 00:15)

  • Edit .... RichEdit?

    Spoiler anzeigen
    [autoit]

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

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

    Example()

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

    Func Example()
    Local $hGui, $hRichEdit, $iMsg
    $hGui = GUICreate("Example (" & StringTrimRight(@ScriptName, 4) & ")", 800, 600, -1, -1)
    $hRichEdit = _GUICtrlRichEdit_Create($hGui, "", 10, 10, 780, 580, _
    BitOR($ES_MULTILINE, $WS_VSCROLL, $ES_AUTOVSCROLL))
    _GUICtrlRichEdit_AppendText($hRichEdit, BmpToRtf(@ScriptDir&"\test.bmp"))
    GUISetState(@SW_SHOW)

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

    ConsoleWrite(@error & @LF)
    While True
    $iMsg = GUIGetMsg()
    Select
    Case $iMsg = $GUI_EVENT_CLOSE
    _GUICtrlRichEdit_Destroy($hRichEdit) ; needed unless script crashes
    ; GUIDelete() ; is OK too
    Exit
    EndSelect
    WEnd
    EndFunc ;==>Example

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

    Func BmpToRtf($sBmpFile)
    Local $hFile, $sRtf
    $hFile = FileOpen($sBmpFile, 16)
    If FileRead($hFile, 2) <> "0x424D" Then Return SetError(1, 0, "")
    FileRead($hFile, 12)
    $sRtf = '{\rtf1{\pict\dibitmap ' & Hex(FileRead($hFile)) & '}}'
    FileClose($hFile)
    Return $sRtf
    EndFunc

    [/autoit]