XProfan

Español

11.08.2006 ▲

Hm echt?

Schau veces si en mi Demo hier el Bild auch zerissen se.

PS: Exe en el Dateianhang.
Kompilieren Marca Separación

 {$cleq}
declare inframe1&,inframe2&,pic&,ps&,fle$
DEF createpicstatic(6) control(STATIC,@$(2),$5400010E,@%(3),@%(4),@%(5),@%(6),@%(1),2000, %HInstance)

Proc createplane

    Parameters __hd&,__xp&,__yp&,__xs&,__ys&,__xr&,__yr&
    __hd&=Control(LISTBOX,, $50300000,__xp&,__yp&,0,0,__hd&,0,%hinstance)
    Case __yr&<__ys&:__yr&=If(__xr&>__xs&,__ys&-25,__ys&-10)
    Sendmessage(__hd&,404,__xr&,0);sendmessage(__hd&,416,0,1)

    Whileloop __yr&;Addstring(__hd&,);Wend

        Setwindowpos __hd&=__xp&,__yp&-__xs&,__ys&;0
        Return Control(STATIC,,1409286400,0,0,If(__xr&<__xs&,__xs&,__xr&),__yr&+10,__hd&,0,%Hinstance,$0)

    Endproc

    windowstyle ( 512 | 8 | 16 )
    window 0,0 - 600,600
    fle$:=map.bmp
    mloadbmp fle$
    pic&:=Create(hPic,-1,fle$)
    Inframe1&=createplane(%Hwnd,5,5,500,500,%bmpx,%bmpy)
    ps&:=createpicstatic(inframe1&,,0,0,%bmpx,%bmpy)
    Sendmessage(ps&,$172,0,pic&)

    whilenot %key==2

        waitinput

    wend

    deleteobject pic&
    end

inframetest.zip	2.587 kB

Hochgeladen:	11.08.2006

Ladeanzahl:
		Descargar

11.08.2006 ▲

Vollständiges Zitat

Absatzweise Cita Zeilenweise Cita

rainerhoefs

Hola si,

prima Su EXE zeigt genau Yo wünsche, y funktioniert tadellos. Gracias!!

Aber ahora Yo el Source para 7.0 abgeändert, y como hüpft lo otra vez! Sowie Usted el HorzScrollbar bewegst hüpft el Bild unos pocos Punkte después de oben. Si usted el VertScrollbar bewegst hüpft el Bild unos pocos Punkte después de rechts.

Yo vermute, el lo qué con el Rändern el Listbox a tun ha. Denn en él erstellst Usted sí el Static. Und si uno nun scrollt se el Static en el Listbox bewegt, y como mi Yo springt lo entonces.

Hier mein geänderter Source:
Kompilieren Marca Separación

Declare Inframe1&
Declare PictureHandle&
Declare PictureBox&
Declare dateiname#
Declare FileName$
Declare size#
Declare BmpX%
Declare BmpY%
Def Loadimage(6) !USER32,LoadImageA

Proc Createplane

    Parameters hd&,xp&,yp&,xs&,ys&,xr&,yr&,Dummy&
    hd&=Control(LISTBOX,,$50300000,xp&,yp&,0,0,hd&,0,%Hinstance)
    Dummy& = If(xr&>xs&,ys&-25,ys&-10)
    Case yr& < ys& : yr& = Dummy&
    Sendmessage(hd&,404,xr&,0)
    Sendmessage(hd&,416,0,1)

    Whileloop yr&

        Addstring(hd&,)

    Wend

    Setwindowpos hd&=xp&,yp&-xs&,ys&;0
    Dummy& = If(xr&<xs&,xs&,xr&)
    Return Control(STATIC,,1409286400,0,0,Dummy&,yr&+10,hd&,0,%Hinstance,$0200)

Endproc

Proc GetBmpDimension

    Parameters bmpfile$
    Dim size#,8
    FileMode 0
    Assign #1,bmpfile$
    OpenRW #1
    Seek #1,18
    BlockRead(#1,size#,0,8)
    Close #1
    BmpX% = Long(size#,0)
    BmpY% = Long(size#,4)
    Dispose size#

EndProc

Windowstyle ( 512 | 8 | 16 )
Window 0,0 - 600,600
Cls @RGB(123,23,0)
Dim dateiname#,256
FileName$ = LoadFile$ (Bild laden!,*.bmp)
GetBmpDimension FileName$
String dateiname#,0 = FileName$
PictureHandle& = Loadimage(%Hinstance,dateiname#,0,0,0,$00050)
Createplane %Hwnd,10,10,500,500,BmpX%,BmpY%
Inframe1& = @&(0)
PictureBox& = Control(STATIC,,$5400010E,0,0,BmpX%,BmpY%,Inframe1&,2000,%Hinstance)
Sendmessage(PictureBox&,$172,0,PictureHandle&)

Whilenot %Key = 2

    Waitinput

Wend

Dispose Dateiname#
Deleteobject PictureHandle&

ass=s4 href='./../../function-references/XProfan/end/'>End

Sorry Yo ihn en mi Stil geschrieben.

Rainer

11.08.2006 ▲

Vollständiges Zitat

Absatzweise Cita Zeilenweise Cita

Jeder se aquí en seinem Stil escribir dürfen

Yo gugs me grad a.

11.08.2006 ▲

Vollständiges Zitat

Absatzweise Cita Zeilenweise Cita

Su Source reagiert con XProfan10 ebenso correcto como meiner. Hm! Leider tener Yo kein Profano²7 mehr herumzuliegen...

Tal vez hilft wirklich sólo el Herumspielen al ControlStil.

11.08.2006 ▲

Vollständiges Zitat

Absatzweise Cita Zeilenweise Cita

rainerhoefs

Hola si,

desafortunadamente funktioniert Su EXE auch no correcto. En el mitgelieferten Bild fällt lo sólo muy schlecht en. Deshalb Yo lo sólo después de mehrmaligem Hinsehen entdeckt. Auch hay springt el Bild. Nur denke Yo el número Punkte el lo versetzt, si uno el Scrollbar verschiebt, hängt de el Bildgröße con de.

Dann springt lo sólo siempre beim anfahren, si una continuación konsequent más scrollt springt no mehr.

Das springen puede ser bastante bien sehen si uno no el Slider bewegt, pero el Arrow anklickt, en dessen Richtung lo bewegt voluntad se.

Lade una Bild y nehme zuerst el Arrow después de rechts scrollen. Dann siehst Usted lo muy bien. Dann el después de unten Scrollen-Arrow. Auch hay sieht uno el Sprung. Beim Slider es el Sprung m.E. kleiner.

Nun Gut así voluntad Yo veces a el Listbox rumbasteln. Tiempo sin Frame oder veces sehen qué todavía ändern kann!

Como es una Scanprogramm para Dias y Negative es, es así una Sprung en el Photo natürlich no akzeptabel.

Gracias einstweilen

Rainer

12.08.2006 ▲

Vollständiges Zitat

Absatzweise Cita Zeilenweise Cita

Michael
Wodrich

Yo habe me de tiempo el 7.0 herausgekramt - porque en me laufen todos Beispiele.

Jetzt sehe Yo deutlich. Der Grund para esta Bildsprung es:
Der Rahmenstyle se zwar gesetzt - una kleiner Schatten links y oben - aber él se por el Bild schlicht übermalt.
Scrollt una continuación bastante después de vorne y oben, entonces el Rahmen en una vez otra vez como (él se also mitgescrollt).

Hier es Así que el 7.0 Schuld al Bildsprung.
Un mögliche Solución: Den Style así conjunto, daß hier no störenden Rahmenstyles entstehen y el Sunken- y qué De todos modos -Effekte simplemente en dieses Control drumherum malen.

Also schlicht ausgedrückt:
- una Rahmen-Control redactar
- en él el Inline-Control einbetten
- en él el Bild darstellen
Alles en un PROC y bien...

Schöne Grüße
Michael Wodrich

(el Usted Usted con uno neueren Versión el Leben erleichtern kannst, weißt Usted sí sicher...)

Programmieren, das spannendste Detektivspiel der Welt.

12.08.2006 ▲

Vollständiges Zitat

Absatzweise Cita Zeilenweise Cita

rainerhoefs

¡Hola Michael,

qué media Usted con un Rahmen-Control?

Rainer

12.08.2006 ▲

Vollständiges Zitat

Absatzweise Cita Zeilenweise Cita

Michael
Wodrich

Stell lo Usted como una Bilderrahmen antes. Das äußere Control versiehst Usted con el deseado Rahmen-Effekten (SS_Sunken z.B.). Darin platzierst Usted el Inline-Control. Hierbei mußt Usted entonces darauf achten el dieses innere Control el Rahmenlinien no überschreibt (positionieren). Como el äußere Control no scrollt restos el Rahmen-Effekt also intakt.
Das innere Control debería entonces bastante rahmenlos ser, así no auffällt que aquí mehrere Controls geschachtelt son.
Selbst Microsoft verwendet solche geschachtelten Controls...

Schöne Grüße
Michael Wodrich

Programmieren, das spannendste Detektivspiel der Welt.

12.08.2006 ▲

Vollständiges Zitat

Absatzweise Cita Zeilenweise Cita

rainerhoefs

¡Hola Michael,

si yo el Source de IF correcto lese, se zuerst una Listbox suscrito, el una Rahmen ha. Dann se en él una Static suscrito, el wahrscheinlich auch una Rahmen ha, Und Luego se otra vez una Stati cauf el Static gesetzt. Yo habe ya con todos Stilen herumprobiert, el Sprung belibt. Auch si uno el Positionierung el Statics innerhalb el Listbox ändert, springt el Bild. Lo schein hier no Solución a geben.

Rainer

12.08.2006 ▲

Vollständiges Zitat

Absatzweise Cita Zeilenweise Cita

Rolf
Koch

y si lo con un Navegador versuchst?
Hab grad veces rápidamente con ROC una Webbrowser erstellt y hay z.B. una übergrosse BMP adecuado. Butterweiches Scrollen sólo como hier en el Foro

12.08.2006 ▲

Vollständiges Zitat

Absatzweise Cita Zeilenweise Cita

rainerhoefs

¡Hola Rolf,

se Yo ahora zugeben el Yo a blöd bin el Satz con el Navegador inmediatamente en Source umzusetzen.

Sí muß Yo wohl.

¿Puede du como Por favor, algo konkreter voluntad?

Gracias

Rainer

12.08.2006 ▲

Vollständiges Zitat

Absatzweise Cita Zeilenweise Cita

Jörg
Sellmeyer

Hier qué de mi Archiv. Yo glaube de Uwe Pascal Niemeyer:
Kompilieren Marca Separación

 $H Windows.ph
Window 0,0-930,900
Usermessages 16
Def Atlaxwininit(0) !atl.dll,AtlAxWinInit
Def Atlaxcreatecontrol(4) !atl.dll,AtlAxCreateControl
Declare Atl&,Web&,A$
Atl&=Usedll(atl.dll)
Atlaxwininit()
A$=File:///C:MeinBildmitPfad.jpg
Web&=Control(AtlAxWin,A$,$50300000,00,0,920,550,%Hwnd,0,0,$200)-HTML-Contol anlegen

While 1

    Waitinput
    Case %Umessage=16:Break

Endwhile

Destroywindow(Web&)