| |
|
|
Stephie | Hallo, habe ein Fenster und darin ein Hintergrundbild. Dieses Fenster wird bei Programmstart maximiert und das Hintergrundbild passend eingebracht. Klicke ich jetzt rechts oben auf den viereck Button um das Fenster zu verkleinern bleibt das Hintergrundbild in seiner original Größe es sollte sich aber anpassen an das aktive Fenster. Habe bisher nichts vergleichbares gefunden, kann mir da mal einer helfen ?
HGB$ ist das Bild
Ich hoffe ihr kommt damit klar.... |
|
|
| |
|
|
|
| Du könntest ausnutzen das SetWindowPos auf solch ein Bitmap das Bild mitskaliert:
WindowStyle 1 | 2 | 4 | 8 | 16
WindowTitle "test"
CLS
ShowMax
'----- Hintergrundbild an Fenster anpassen -----
var hfd& = Create("hNewPic",640,480,0)
startPaint hfd&
usepen 0,5,$FF0000
useBrush 1,$FF
rectangle 0,0 - 640,480
endPaint
var hbild& = Create("Bitmap",%hwnd,hfd&,0,0)
while 1
setwindowpos hBild&=0,0 - width(%hWnd),height(%hWnd)
repaint 1
waitinput
wend
end
|
|
|
| |
|
|
|
Stephie | Hallo iF, irgendwie krieg ich es nicht hin (Blackout). Bei deinem Beispiel habe ich nur einen roten Hintergrund und kriege nicht mein Bild hinein. Eigentlich ist der Wunsch ganz einfach, aber die Umsetzung hapert. Nimm ein Hintergrundbild, erzeuge ein Fenster in dem dieses Bild erscheinen soll als Hintergrund, beim Start soll das Fenster immer maximiert sein (egal auf welchem Monitor oder Laptop es gestartet wird), über die rechten Symbole oben am Fenster soll es wie jedes andere Windows prg funktionieren (minimieren, schließen, die Größe selbst bestimmen), aber das Hintergrundbild soll bei (selbst bestimmen) immer komplett zu sehen sein. Ich habe auch kein Beispiel "mit Bild" in den Unterlagen/Hilfe gefunden. |
|
|
| |
|
|
|
| Das macht mein Beispiel bereits, das erkennst am blauen Rand.
Das Bild wird immer ins Fenster eingepasst.
Da Du kein Bild mitgeliefert hast habe ich create("hNewPic"... genommen statt create("hPic",-1,... aber das kannst Du ja einfach ändern.
Du kannst die Ausgabegröße des Bildes von solch Bitmap-Control einfach mit setWindowPos bestimmen. |
|
|
| |
|
|
|
E.T. | ach IF, werd dir mal paar Bilder schicken, um Beispiele zu bauen |
|
|
| XProfan X2Grüß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... | 03.09.2011 ▲ |
|
|
|
|
Stephie | Danke jetzt hat es geklappt, doch einen Blackout gehabt.
Aber viel steht ja unter Hilfe nicht zu dem Befehl setwindowspos. |
|
|
| |
|
|
|
E.T. | |
|
| XProfan X2Grüß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... | 03.09.2011 ▲ |
|
|
|