XProfan

Español

Thomas
Freier

Wegen el Bildtypen Yo quería gerne de el TwJpeg.dll en GDIPlus y GDIP umsteigen.
¿Cómo se puede Yo vom %hdc oder una Teilausschnitt una entsprechende Bilddatei (*.tif, *.png) erzeugen?
Mit el Ejemplo de Andreas: GdiPlus Rotation Imagen Bild Guardar Jpg Drehen
komme Yo no más, como mehrere Objetos se instalará como en el Ejemplo:
Grafik - GDIPlus.dll nutzen. JPG GIF TIF...GDIPlusImaging.prf

Gruß Thomas
Windows XP SP2, XProfan X2

18.09.2007 ▲

Vollständiges Zitat

Absatzweise Cita Zeilenweise Cita

Vlt. nutzt Usted el [...]

qué.

18.09.2007 ▲

Vollständiges Zitat

Absatzweise Cita Zeilenweise Cita

Thomas
Freier

Sí, hatte me alles (fast) angesehen para Thema.
El Cuestión es, se el Bild en > %hWnd estellt, así es auch sólo dieses (como Belegungsplan-es.jpg) a speichern oder auch Teile su?
Wenn en una Diálogo encima >MemDC& = CreateCompatibleDC(%HDC) el Bild erstellt se, así ha lo no Menüzeile (como Belegungsplan-01.jpg).
Jedoch podría Soy un >Refresch< nur über die Abfrage von %wmPaint veranlassen.
Sah grausam de. Fehlt hier >%hdc2< ?
Kompilieren Marca Separación

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