XProfan

Deutsch

Thomas
Freier

Wegen der Bildtypen wollte ich gerne von der TwJpeg.dll auf GDIPLUS und GDIP umsteigen.
Wie kann ich vom %hdc oder einem Teilausschnitt eine entsprechende Bilddatei (*.tif, *.png) erzeugen?
Mit dem Beispiel von Andreas: GdiPlus Rotation Image Bild Speichern Jpg Drehen
komme ich nicht weiter, da mehrere Objekte eingebaut werden wie im Beispiel:
Grafik - GDIPlus.dll nutzen. JPG GIF TIF...GDIPlusImaging.prf

Gruß Thomas
Windows XP SP2, XProfan X2

18.09.2007 ▲

Vollständiges Zitat

Absatzweise zitieren Zeilenweise zitieren

Vlt. nutzt Dir das [...]

was.

18.09.2007 ▲

Vollständiges Zitat

Absatzweise zitieren Zeilenweise zitieren

Thomas
Freier

Ja, hatte mir alles (fast) angesehen zum Thema.
Die Frage ist, wird das Bild auf > %hWnd estellt, so ist auch nur dieses (wie Belegungsplan-ist.jpg) zu speichern oder auch Teile davon?
Wenn auf einem Dialog über >MemDC& = CreateCompatibleDC(%HDC) das Bild erstellt wird, so hat es keine Menüzeile (wie Belegungsplan-01.jpg).
Jedoch konnte ich einen >Refresch< nur über die Abfrage von %wmPaint veranlassen.
Sah grausam aus. Fehlt hier >%hdc2< ?
Kompilieren Markieren Separieren

Proc Load_ThumbJpg                                Laedt ein JPG-Bitmap  ins Nebenfenster

    Parameters Filename$,X&,Y&,w&
    Declare Jpg_Handle&,MemDC&,Bild&
    String TwJ_Name#,0 = Zw$
    TWJ_GetInfo(TwJ_Name#,TwJ_Breite#,TwJ_Hoehe#)
    Jpg_Handle& = TWJ_LoadThumbJpeg(TwJ_Name#,TwJ_Breite#,TwJ_Hoehe#,974,1,3,1,2)
    MemDC& = CreateCompatibleDC(%HDC)
    Bild& = SelectObject(MemDC&,Jpg_Handle&)
    BitBlt(Fenster2&, 0, 0, Long(TwJ_Breite#,0), Long(TwJ_Hoehe#,0), MemDC&, 0, 0, $CC0020)
    DeleteDC(MemDC&)
    DeleteObject(Bild&)
    DeleteObject(Jpg_Handle&)
    DIM bereich#,512

    WhileLoop GetLines(listview&)

        GetItemText(listview&,bereich#,0,(&Loop-1))
        x%=VAL(String$(bereich#,0))
        GetItemText(listview&,bereich#,1,(&Loop-1))
        y%=VAL(String$(bereich#,0))
        GetItemText(listview&,bereich#,2,(&Loop-1))
        ori$=Left$(Upper$(String$(bereich#,0)),1)
        GetItemText(listview&,bereich#,4,(&Loop-1))
        text$=trim$(Upper$(String$(bereich#,0)))
        StartPaint Element1&
        Orientation 0
        TextColor @RGB(15,15,31),-1
        case text$=BELEGT : LoadBmp redball.BMP,x%,y%,-1
        case text$=RESERVIERT :   LoadBmp grnball.BMP,x%,y%,-1
        EndPaint

    Endwhile

EndProc