XProfan

Deutsch

Clemens
Meier

ich weiß, irgendwo habe ich es schon einmal gesehen, finde es aber nicht mehr. Hat jemand eine Ahnung, wie man ein Bild, welches man mit SaveBmpToClip in die Zwischenablage gesteckt hat, in ein RTF-Feld quetscht? Merci

XProfan 9.1; XP SP2; FF; Editpad

16.05.2006 ▲

Vollständiges Zitat

Absatzweise zitieren Zeilenweise zitieren

Clemens
Meier

Bisher habe ich folgenden Code:
Kompilieren Markieren Separieren

proc rtf_BildSet

    parameters bild$,edit&
    MloadBmp bild$
    SaveBmpToClip 0,0 - %BmpX,%BmpY
    sendmessage(edit&,$0302,0,0)
    return 0

endproc

Doch in dem RTF-Feld erscheint ein weißer Kasten in der Größe des Bitmaps. Wenn ich aber MloadBmp und SaveBmpToClip weglasse, das Bild via Bildbetrachter in die Zwischenablage kopiere, dann funktioniert es wunderbar. Es scheint, als ob SaveBmpToClip bzw. MLoadBmp nicht so zu funktionieren, wie man es erwarten könnte. Hat jemand (vielleicht Roland?) eine Idee dazu?

XProfan 9.1; XP SP2; FF; Editpad

16.05.2006 ▲

Vollständiges Zitat

Absatzweise zitieren Zeilenweise zitieren

RGH

Hallo Du lädtst das Bild mit MLoadBmp als Speicherbitmap, während SaveBmpToClip einen Teil des Hauptfensters iun die Zwischenablage kopiert. Das kann natürlich nicht funktionieren. Es sollte funktionieren, wenn Du den Devicecontext mit STARTPAINT -1 auf die Speicherbitmap umleitest:
Kompilieren Markieren Separieren

!

proc rtf_BildSet

    parameters bild$,edit&
    MloadBmp bild$
    StartPaint -1
    SaveBmpToClip 0,0 - %BmpX,%BmpY
    EndPaint
    sendmessage(edit&,$0302,0,0)
    return 0

endproc