XProfan

English

Thomas
Freier

because of the Bildtypen wished I gladly from the TwJpeg.dll on GDIPLUS and GDIP transfer.
How can I of %hdc or one Teilausschnitt a suitable Bilddatei (*.tif, *.png) produce?
with the Example of Andreas: GdiPlus Rotation Image Save picture Jpg turn
come I do not moreover, there several Objects be installed How in the example:
graphic - GDIPlus.dll benefit. JPG GIF TIF...GDIPlusImaging.prf

Gruß Thomas
Windows XP SP2, XProfan X2

09/18/07 ▲

Vollständiges Quote

Absatzweise Quote Zeilenweise Quote

Perhaps. uses you the [...]

what.

09/18/07 ▲

Vollständiges Quote

Absatzweise Quote Zeilenweise Quote

Thomas
Freier

Yes, having me everything (almost) respected about.
The question is, becomes the image on > %hWnd estellt, so is too only this (How Belegungsplan-is.jpg) To Save or pieces of it?
If on one dialog over >MemDC& = CreateCompatibleDC(%HDC) the image prepares becomes, so has it no Menüzeile (How Belegungsplan-01.jpg).
however could I a >Refresch< nur über die Abfrage von %wmPaint veranlassen.
saw savage from. Fehlt here >%hdc2< ?
Compile Mark Separation

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