XProfan

Español

¡Hola a Alle -
Desde que en un Programa una Bildbetrachter intern brauche, tener Yo mich, unterstützt de Franks TREEVIEW.DLL drangemacht. Klappt auch prima, sólo hätte Me gusta, si Bilder kleiner como el vorgegebene Anzeigeformat son, dass esta entonces auch en el Originalgrösse gezeigt voluntad. Wer son me como Ayuda ?
Gracias en el Voraus

bild_anzeige.zip	6 kB

Kurzbeschreibung:	Incluir y DLL (no freigeschaltet)

Hochgeladen:	15.11.2006

Ladeanzahl:
		Descargar

15.11.2006 ▲

Vollständiges Zitat

Absatzweise Cita Zeilenweise Cita

Michael
Dell

¡Hola Horst,

meintest Usted así?
Kompilieren Marca Separación

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 Zitat

Absatzweise Cita Zeilenweise Cita

@Gracias Usted Michael
Das war lo - manchmal bin Yo como vernagelt - habe Su Texto todavía dahin verändert, dass ahora el Anzeige siempre en el Mitte es.

Kompilieren Marca Separación

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 Zitat

Absatzweise Cita Zeilenweise Cita

Jörg
Sellmeyer

A Ergänzung veces el Referencia, daß lo de XProfan11 posible es, una Bild proportional a skalieren:

Ayuda a XProfan11

hPic& = Crear(hSizedPic, Typ%, Name$, dx%, dy%, mode%)

Hier se el erzeugte Bild en el Größe angepaßt. dx% y dy% Es el Größe des erzeugten Bildes. Wenn mode% = 0 es, ha el erzeugte Bild exakt el eingfestellte Größe y se por lo tanto nötigenfalls verzerrt. Ist mode% = 1 se el ursprüngliche Seitenverhältnis beibehalten y el Bild en el Größe así angepaßt, daß lo bajo Beibehaltung des Seitenverhältnisses en el angegebene Rechteck paßt.

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