| |
| |
|
 | I need time eure Help .... I Search a item/Help.
I have it to some Meet red, find this but not any more again (really save I me these ex)
it went therefore a graphic for a Window To enhance/verkleinern. he had this on its Laptop there was everything i.O., shoved it it on the PC with larger dissolution, having it right a weißen edge.
if someone whom item wiederfindet Please report, THANK YOU.
I wisely, one can the Wallpapers gigant do number two and then invite.
but this is not directly my trouble.
Stephanie |
|
| |
| |
| |
|
|
Jörg
Sellmeyer | Something like in the manner?
CompileMarkSeparationCls
Declare bild&,hdl&,Datei$
Datei$ = "hier das Bild.jpg"
Randomize
Window 100,100 - (Rnd(600) + 400),(Rnd(400) + 600)
hdl& = Create("hSizedPic",-1,Datei$,Width(%hwnd),Height(%hwnd),0)
'Die 0 am Ende sorgt dafür, daß das Bild immer an das Fenster angepaßt wird.
'Der Nachteil ist, daß das Bild dadurch verzerrt werden kann, wenn das Verhältnis Breite/Höhe anders ist.
print hdl&
bild& = Create("Bitmap",%hwnd,hdl&,0,0)
WaitInput
DeleteObje hdl&
The code runs only ex Version 9.0 |
|
| |
| Windows XP SP2 XProfan X4... und hier mal was ganz anderes als Profan ...  | 08/12/11 ▲ |
|
| |
|
|
| Tja could his the the the code was/is.
in the item were unfortunately too Explanations, The me now are missing. |
|
| |
| |
| |
|
|
Jörg
Sellmeyer | What is you because unclear? what I gemnacht have:
I have with Create("hSizedPic"...) a handle to a Image prepares - and of course in the Size the Mainwindow.
then one Bitmapcontrol to display created and at the same time the lever the Bildes with transfer.
the Randomize and Rnd() is only, around the Variabilität To show. If you the program number of times launch, is the Size always different and the image fits itself automatically on. |
|
| |
| Windows XP SP2 XProfan X4... und hier mal was ganz anderes als Profan ... | 08/12/11 ▲ |
|
| |
|
|
| nothing against you, but I must me The Commands in Help always take after (if I The command not know) and then might try experimenting To I the have How I it me vorstelle.
with the others stood already Text, with your Statement can I now too what begin, How said Beginner, no Profi.
therefore give me something Time circa here To see whether I so clear come..
Stephie |
|
| |
| |
| |
|
|
| so now have I again sought and ... nothing found.
have then your example ausprobiert, functions (shining very the To his I Search), over The command everything red.
attempts this in my code incorporate, alike I make, umschreibe and whom code write, my Prog runs not any more.
make now first closing-time, try it on the weekend again, Perhaps works it. unless, login I where it by me depends.
Greeting Stephie |
|
| |
| |
| |
|
|
Jörg
Sellmeyer |
but I must me The Commands in Help always take after (if I The command not know) and then might try experimenting
so learn one on the most.
Wenn's hakt, poste still something of Your code, otherwise can only guess Why it lying could. |
|
| |
| Windows XP SP2 XProfan X4... und hier mal was ganz anderes als Profan ... | 08/12/11 ▲ |
|
| |
|
|
| so afer a long hither and thither have I it geschafft, it works, just as How I it need. it given only a Error Message, Bitmap not ladbar, I not understand, because with the middle-aged code has it worked. I put time with one, Perhaps can me time of/ one say where the Error is.
CompileMarkSeparationalt:
'----- Hintergrundbild Standard -----
Declare HGB$
Proc Hintergrundbild
HGB$ = @ReadIni$ (Prini$, "Allgemein", "Hintergrundbild")
EndProc
' Prini$ ist die ini wo der Dateiname hinterlegt ist = Baum.jpg
WindowTitle "Test"
ShowMax
CLS
DrawPic (Hintergrundbild$+HGB$), 0, 0; 0
'So hat er mir das Hintergrundbild übergroß angezeigt im Fenster, nicht angepasst.
'Hintergrundbild$=der Ordner wo das Bild liegt.
neu:
WindowTitle "Test"
ShowMax
CLS
declare hdl&, bild&
hdl& = Create("hSizedPic",-1,Hintergrundbild$+(@ReadIni$ (Prini$, "Allgemein", "Hintergrundbild")),Width(%hwnd),Height(%hwnd),0)
bild& = Create("Bitmap",%hwnd,hdl&,0,0)
'Hierbei erkennt er den HGB$ nicht mehr, musste diesen gegen das neue auslesen i supplant.
i hope so is so far verständlich.
Stephie
Edit ET: View source in right Formatierung brought |
|
| |
| |
| |
|
|
E.T. | so should it too weg (ungetestet) :
CompileMarkSeparationdeclare hdl&, bild&
declare Hintergrundbild$, HGB$
Hintergrundbild$ = "Pfad"'Pfad angeben !!!
HGB$ = Hintergrundbild$ + @ReadIni$ (Prini$, "Allgemein", "Hintergrundbild")
WindowTitle "Test"
CLS
ShowMax'erst, wenn Fenster erstellt ist, oder in einem Befehl: Window 0,0 - %MaxX,%MaxY
hdl& = Create("hSizedPic",-1,HGB$,Width(%hwnd),Height(%hwnd),0)
bild& = Create("Bitmap",%hwnd,hdl&,0,0)
Grüße aus Sachsen... Mario  WinXP, Win7 (64 Bit),Win8(.1),Win10, Win 11, Profan 6 - X4, XPSE, und 'nen schwarzes, blinkendes Dingens, wo ich das alles reinschütte... | 08/13/11 ▲ | |
|
| |
|
|
| thanks now works it again HGB$.
too for Info of ShowMax.
Stephie |
|
| |
| |
| |
|
|
Stephie | so now wars I somehow this item not Done.
The others has yesterday super worked.
can me there time of/ one help ? |
|
| |
| |
| |
|
|
Jörg
Sellmeyer | | you have still integrally under The Topic-Options. standing thereby not Done? |
|
| |
| Windows XP SP2 XProfan X4... und hier mal was ganz anderes als Profan ... | 08/13/11 ▲ |
|
| |
|
(636)
![](./../../references-fonction/xprofan/end/</pre>/a>
</pre></div><br clear="all">variables any declarieren, Wallpapers$ way allocate !!<br clear="all"><br clear="all">Minimalbeispiel best always run post <img src=".././../../i/s/qq8.gif"></td></tr></table></td></tr><tr><td colspan=2> </td></tr><tr><td></td><td style="text-align:right;color:#888;font-size:80%"><table width=)
Deutsch
English
Français
Español
Italia