XProfan

Français

allô à Alle -
là je dans einem Programme une Bildbetrachter interne brauche, hab je mich, soutenu de Franks TREEVIEW.DLL drangemacht. Klappt aussi prima, seulement hätte je volontiers, si Bilder kleiner comment cela vorgegebene Anzeigeformat sommes, dass cet ensuite aussi dans qui Originalgrösse gezeigt volonté. qui gibt mir là Aider ?
merci im Voraus

bild_anzeige.zip	6 kB

Kurzbeschreibung:	Include et DLL (pas freigeschaltet)

Hochgeladen:	15.11.2006

Downloadcounter:
		Download

15.11.2006 ▲

Vollständiges citation

Absatzweise Citation Zeilenweise Citation

Michael
Dell

allô Horst,

meintest Du so?
Kompilieren Marque Séparation

PROC ZEIGE_BILD

    PARAMETERS miniB$
    B_bild% = Create(hPic,-1,miniB$)
    MCls 1,1
    StartPaint -1
    DrawPic B_bild%, 520,39;0
    EndPaint
    StartPaint B_win&
    MessageBox((Breite: +Str$(%BmpX)+    Höhe: +Str$(%BmpY)),Breite & Höhe des Bildes...,48)

    If ((%BmpX < 191) & (%BmpY < 223))

        DrawPic B_bild%, 520,39;0

    Else

        DrawSizedPic B_bild%, 520,39 - 190,222;0

    EndIf

    EndPaint

ENDPROC

Salu Michael...

Hab zwar krumme Fieß awer dofir e' ecklich Gsicht!

15.11.2006 ▲

Vollständiges citation

Absatzweise Citation Zeilenweise Citation

@merci Dir Michael
cela était es - quelquefois suis je comment vernagelt - habe Deinen Text encore dahin modifié, dass maintenant qui Anzeige toujours dans qui Mitte steht.

Kompilieren Marque Séparation

PROC ZEIGE_BILD

    DECLARE breit%,hoch%
    breit%=190:hoch%=222 Variablen für die Bildgrösse
    PARAMETERS miniB$
    B_bild% = Create(hPic,-1,miniB$)
    MCls 1,1
    StartPaint -1
    DrawPic B_bild%, 520,39;0
    EndPaint
    StartPaint B_win&
    USEPEN 0,1,GETSYSCOLOR(15) Vorherige Anzeige löschen
    USEBRUSH 1,GETSYSCOLOR(15)
    RECTANGLE 520,39-520+breit%,39+hoch%

    If ((%BmpX < 191) & (%BmpY < 223))

        DrawPic B_bild%,(520+breit%/2-%BmpX/2),(39+hoch%/2-%BmpY/2);0 jetzt immer in der Mitte

    Else

        DrawSizedPic B_bild%, 520,39 - breit%,hoch%;0

    EndIf

    EndPaint

ENDPROC

15.11.2006 ▲

Vollständiges citation

Absatzweise Citation Zeilenweise Citation

Jörg
Sellmeyer

Zur Ergänzung la fois qui Hinweis, qui es ab XProfan11 possible ist, un Bild proportional trop skalieren:

Aider trop XProfan11

hPic& = Créer(hSizedPic, Typ%, nom$, dx%, dy%, mode%)

ici wird cela erzeugte Bild dans qui Taille ajusté. dx% et dy% ist qui Taille des erzeugten Bildes. si mode% = 0 ist, hat cela erzeugte Bild exakt qui eingfestellte Taille et wird daher nötigenfalls verzerrt. Ist mode% = 1 wird cela ursprüngliche Seitenverhältnis beibehalten et cela Bild dans qui Taille so ajusté, qui es sous Beibehaltung des Seitenverhältnisses dans cela angegebene Rechteck paßt.

Windows XP SP2 XProfan X4
... und hier mal was ganz anderes als Profan ...