| |
| |
|
 | |
| |
| |
| |
|
|
Michael
Wodrich | there can itself but only Delphi-kundige what drunter present.
have You time a Screenshot of it?
Best wishes
Michael Wodrich |
|
| |
| Programmieren, das spannendste Detektivspiel der Welt. | 08/11/06 ▲ |
|
| |
|
|
rainerhoefs | Hello Michael,
Yes, I have detailed imaginations of it. having everything yesterday already posted is somewhere in the nirvana lost gone. today evening write I once more everything detail what and How I it me vorstelle. my try it yourself To make are unfortunately failed.
Please yet something patience.
Rainer |
|
| |
| |
| |
|
|
| | often is a Image aussagekräftiger as words... |
|
| |
| |
| |
|
|
rainerhoefs | means love Profaner,
here The Description the Objektes which I gladly had.
one take one Static-Control and give it whom Style $54301B1E with the ExWinStyle = 66128. These values come from the WinFellow, I work still so.
so sustain is a Box, into one through SendMessage a Bitmap Send can. The becomes either Centered or left supra plaziert. the depends again from the Style ex, whom one the Static-Control allocated has. The Stile Gibts in the API. so far goes it by me already. what now not funktoniert is the Scrolling.
here The Description what everything weg ought to and the Parameter The I me vorstelle.
PictureBox& = CreatePictureBox( X&, Y&, Width&, Height&, PictureHandle&, PictureType&, DisplayStyle&, ZoomFactor!, FrameType&) Return = lever the PictureBox
X& + Y& = Startposition left supra
Width& + Height& = wide and Höhe
PictureHandle& = Handle& to a loaded Image
PictureType$ = type the Bildes 1 = Bitmap, 2 = EnhMetaFile, 3 = Icon
DisplayStyle$ = 1 = CenterImage, 2 = RealSizeImage, 3 = Left
ZoomFactor! = here would it integrally SUPER if one too negative zoomen could, means not only 1, 2, 3 etc separate too 0.25, 0.5, 0.3 etc.
FrameType& = The manner How the Object looks should. here there loudly API many Opportunities, here only The most important Examples : SS_Sunken oder in the advanced Style WS_EX_ClientEdge oder WS_EX_DlgModalFrame
OK so far The Description the PictureBox.
now place I me to the one two Procedures has. first once The, with the one The PictureBox prepares. See supra.
then need one another with the one The PictureBox modify can.
ModifyPictureBox (PictureHandle&, ZoomFactor!)
with this Procedur becomes only the Content the PictureBox changed. means one other Image eingefügt and the ZoomFaktor changed.
the could z.B. happen in the one with RechtsKlick one PopUp-Menu shows with the suitable Menüpunkten.
becomes now the PictureBox one Image zugeordnet, so go z.B. The Scrollbars automatically enabled if the image To big is circa integrally pictured To go. then can the image naturally too with the Scrollbars schieben.
another Possibility would any Parameter in a area To transfer.
means
Declare PictureBoxParams#
Dim PictureBoxParams#, ???
PictureHandle&, X, Y, Width& etc.
then would it so:
PictureBox& = CreatePictureBox(PictureBoxParams# )
ModifyPictureBox(PictureBoxParams# )
I hope I have me verständlich framed.
Rainer |
|
| |
| |
| |
|
|
| | Fastmode or not-fastmode? |
|
| |
| |
| |
|
|
rainerhoefs | Sorry, i'm yet always with Profan 7.0f and wants there too first once more stay.
What is Fastmode?
Rainer |
|
| |
| |
| |
|
|
| |
| |
| |
| |
|
|
Jörg
Sellmeyer | Hello Rainer,
The recommendation of iF can I me only connect!
One part your imaginations is there already implementiert. look you the at times:
[...] 
[...] |
|
| |
| Windows XP SP2 XProfan X4... und hier mal was ganz anderes als Profan ...  | 08/11/06 ▲ |
|
| |
|
|
rainerhoefs | Hi,
It's all right not around the Skalieren the Images, the make I with the GDIPlus developments of Andreas Miethe.
me goes it in first line circa such one Scrollbox, The simply and quick functions.
here one Source because of the Optik:
CompileMarkSeparationDeclare dateiname#
Declare FileName$
Declare Picturehandle&
Declare PictureBox1&
Declare PictureBox2&
Declare Ende%
Def Loadimage(6) !"USER32","LoadImageA"
Window 1,1-440,290
Cls @RGB(123,23,0)
-----------------------------------------------------------------------------------------
PictureBox1& = Control("STATIC","",$54301B0E,10,10,200,200,%Hwnd,2000,%Hinstance,$0200)
-----------------------------------------------------------------------------------------
PictureBox2& = Control("STATIC","",$50700A0E,220,10,200,200,%Hwnd,2000,%Hinstance,$0200)
Allgemeine Stile:
WS_CHILD, WS_CHILDWINDOW, WS_DLGFRAME, WS_HSCROLL, WS_VSCROLL, WS_VISIBLE
Controlspezifische Stile:
SS_BITMAP, SS_CENTERIMAGE, SS_REALSIZE
Extended Stile:
WS_EX_CLIENTEDGE
-----------------------------------------------------------------------------------------
Dim dateiname#,256
FileName$ = LoadFile$ ("Bild laden!","*.bmp")
String dateiname#,0 = FileName$
PictureHandle& = Loadimage(%Hinstance,dateiname#,0,0,0,$00050)
Sendmessage(PictureBox1&,$172,0,PictureHandle&)
Sendmessage(PictureBox2&,$172,0,PictureHandle&)
Dispose dateiname#
WhileNot Ende%
Wend
|
|
| |
| |
| |
|
|
| |
| |
| |
| |
|
|
rainerhoefs | Hello if,
have I already, functions in principle, has blos the trouble, the each Bitmap at Scrolling zerissen becomes. at that horizontalen and at vertikalen Scrolling jumping one part the Bildes to left or down. So so not correctly. baruchbar. having attempts whom Error somewhere to find, gelang me but not. otherwise would it already the I Search.
Rainer |
|
| |
| |
| |
|
(431)
Deutsch
English
Français
Español
Italia