XProfan

Français

Thomas
Freier

à cause de qui Bildtypen voulais je volontiers de qui TwJpeg.dll sur GDIPLUS et GDIP changer.
comment peux je vom %hdc ou bien einem Teilausschnitt une entsprechende Bilddatei (*.tif, *.png) erzeugen?
avec dem Beispiel de Andreas: GdiPlus Rotation Image Bild Sauver Jpg Drehen
viens je pas plus, là plusieurs Objekte incorporé volonté comment im Beispiel:
Grafik - GDIPlus.dll nutzen. JPG GIF TIF...GDIPlusImaging.prf

Gruß Thomas
Windows XP SP2, XProfan X2

18.09.2007 ▲

Vollständiges citation

Absatzweise Citation Zeilenweise Citation

Vlt. utilise Dir cela [...]

quoi.

18.09.2007 ▲

Vollständiges citation

Absatzweise Citation Zeilenweise Citation

Thomas
Freier

oui, hatte mir alles (presque) angesehen zum Thema.
qui Frage ist, wird cela Bild sur > %hWnd estellt, so ist aussi seulement cet (comment Belegungsplan-ist.jpg) trop Sauver ou bien aussi Teile en?
si sur einem Dialog sur >MemDC& = CreateCompatibleDC(%HDC) cela Bild erstellt wird, so hat es aucun Menüzeile (comment Belegungsplan-01.jpg).
cependant konnte je une >Refresch< nur über die Abfrage von %wmPaint veranlassen.
Sah cruelle aus. Absent ici >%hdc2< ?
Kompilieren Marque Séparation

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