| |
| |
|
Erasmus.Herold | Hallöchen ...
of these Source can I one Image one above liegendes Window loading and Show.
temp& = Create("HPIC",-1,"bild.jpg")// Orderbild with Tablet
Create("Bitmap",fenster_darueber%,temp&,1270,350)
i want the image but not Originalgröße having, separate it verkleinern, as with the commands "DrawSizedPic" possible is.
me missing somehow the Ansatz, How I the miniaturized Image in that above liegende Window (fenster_darueber%) zaubere 
has someone a small code-shred for me?
Greeting - Erasmus |
|
| |
| |
| |
|
|
H.Brill | Probier time with Create("hSizedPic",...).
you mußt naturally too to that right Window change,
there XProfan standardmäßig in that Mainwindow writes.
means :
StartPaint fenster_darueber%
DrawPic ….
EndPaint
here one small example :
Declare fenster_darueber%, btn1%, File$, end%, bmp&
datei$ = "deinjpg.jpg"
ende% = 0
bmp& = Create("hSizedPic",-1,File$, 50, 60, 0)
Window 800, 600
btn1% = Create("Button", %HWnd, "Lade", 10, 10, 60, 25)
fenster_darueber% = Create("Window", %HWnd, "Kleines Fenster", 500, 300, 160, 210)
WhileNot end%
WaitInput
If Clicked(btn1%)
SetActiveWindow(fenster_darueber%)
StartPaint fenster_darueber%
DrawPic bmp&, 10, 10; 0
EndPaint
EndIf
EndWhile
End
PS : You can also a ImageList use,
if it several Images are. |
|
| |
| Benutze XPROFAN X3 + FREEPROFAN
Wir sind die XProfaner.
Sie werden von uns assimiliert.
Widerstand ist zwecklos!
Wir werden alle ihre Funktionen und Algorithmen den unseren hinzufügen.
Was die Borg können, können wir schon lange. | 07/13/19 ▲ |
|
| |
|
|
Erasmus.Herold | functions perfect. thanks.
me fehlte this Ansatz: StartPaint fenster_darueber%
thanks and closed ... |
|
| |
| |
| |
|
(802)
Deutsch
English
Français
Español
Italia