| |
| |
|
| - Page 1 - |
|
 | |
| |
| |
| |
|
| |
| |
| - Page 2 - |
|
|
| Hm Real?
look time whether with my demonstration here the image too zerissen becomes.
PS: Exe in the Attachment.
CompileMarkSeparation {$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
|
 |
| |
| |
| |
|
|
rainerhoefs | Hello iF,
lovely your EXE shows very I wish, and functions tadellos. thanks!!
but now have I the Source for 7.0 abgeändert, and there hüpft it again! as well as You whom HorzScrollbar move hüpft the image a couple spots to supra. If you whom VertScrollbar move hüpft the image a couple spots to right.
I suspect, the it was with the Rändern the Listbox To do has. because therein erstellst You Yes the Static. And if one now scrolls becomes the Static in the Listbox moving, and there my I jumping it then.
here my geänderter Source:
CompileMarkSeparationDeclare 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 I have it in my Style written.
Rainer |
|
| |
| |
| |
|
|
| eachone should here in seinem Style write can  I gugs me strain on. |
|
| |
| |
| |
|
|
| your Source reacted with XProfan10 likewise correctly. How of my. Hm! unfortunately Have I no Profan²7 More herumzuliegen...
Perhaps helps really only the monkey about on the ControlStil. |
|
| |
| |
| |
|
|
rainerhoefs | Hello iF,
unfortunately functions your EXE neither correctly.. with the mitgelieferten Image falls it only very badly on. therefore have I it first to mehrmaligem Hinsehen discover. too there jumping the image. only think I The amount spots The it shifts, if one whom Scrollable shift, depends from the Bildgröße with ex.
then jumping it hold always at start, if one then streng moreover scrolls jumping not More.
the frisk can integrally well see if one not whom Slider moving, separate whom Arrow anklickt, in which direction it moving go should.
invite Image and take first whom Arrow to right scroll. then see You it very well. then whom down Scrolling-Arrow. too there sees one whom plunge. at that Slider is the plunge m.E. small.
now well so I will at times the Listbox rumbasteln. time without Frame or time see what yet Change can! 
there it itself for a Scanprogramm for slides and negatives deals, is so one plunge in the photo naturally not acceptable. 
thanks einstweilen 
Rainer |
|
| |
| |
| |
|
|
Michael
Wodrich | I have me times the 7.0 herausgekramt - because by me walk any Examples.
now see I it explicit. The reason for this Bildsprung is:
The Rahmenstyle becomes of course staid - one small shadow left and supra - but he'll by the Image crept übermalt.
Scrolls one then integrally to in front and supra, then is the welt at a single blow again there (he'll means mitgescrollt).
here's means The 7.0 guilt on the Bildsprung.
an possible Solution: whom Style so settle, that here no störenden Rahmenstyles come into being and the Sunken- and whatever -effects simply circa this Control drumherum malen.
means crept framed:
- one welt-Create Control
- therein the Inline-Control einbetten
- therein the image present
everything in a PROC and well...
Best wishes
Michael Wodrich
(the You you with of/ one neueren Version the life relieve can, know You Yes sure...) |
|
| |
| Programmieren, das spannendste Detektivspiel der Welt. | 08/12/06 ▲ |
|
| |
|
|
rainerhoefs | Hello Michael,
what mean You with a welt-Control?
Rainer |
|
| |
| |
| |
|
|
Michael
Wodrich | Stell it you How a Bilderrahmen to. the exterior Control versiehst You with the desired welt-effects (SS_Sunken z.B.). therein platzierst You, the Inline-Control. Hierbei must You then hereon respect the this inside Control The Rahmenlinien not überschreibt (positionieren). there the exterior Control not scrolls remaining the welt-effect means intakt.
the inside Control ought to then integrally rahmenlos his, lest auffällt that here several Controls geschachtelt are.
self Microsoft uses such geschachtelten Controls...
Best wishes
Michael Wodrich |
|
| |
| Programmieren, das spannendste Detektivspiel der Welt. | 08/12/06 ▲ |
|
| |
|
|
rainerhoefs | Hello Michael,
if I whom Source of iF correctly. read, becomes first a Listbox drawn, The a welt has. Then therein one Static drawn, the probably too a welt has, And then becomes again one Stati cauf the Static staid. I have already with any Stilen herumprobiert, the plunge belibt. even if one The Positionierung the Statics inside the Listbox changes, jumping the image. it schein here no Solution To give.
Rainer |
|
| |
| |
| |
|
|
Rolf
Koch | and if you it with a Browser attempt?
Have strain time quick with ROC one Webbrowser prepares and there z.B. a übergrosse BMP displayed. Butterweiches Scrolling hold as here in the Forum  |
|
| |
| |
| |
|
|
rainerhoefs | Hello Rolf,
should I now admit that I To stupid be whom set with the Browser immediate in Source umzusetzen. 
Yes must I well.
can you there Please something konkreter go?
thanks
Rainer |
|
| |
| |
| |
|
|
Jörg
Sellmeyer | here what from my archive. I faith of Uwe Pascal Niemeyer:
CompileMarkSeparation $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&)
Windows XP SP2 XProfan X4... und hier mal was ganz anderes als Profan ...  | 08/12/06 ▲ | |
|
| |
|
(442)
Deutsch
English
Français
Español
Italia