Screenshot machen und einblenden

Übersicht

BlitzBasic

BlitzPlus

	Gamesagent Betreff: Screenshot machen und einblenden	So, Jul 23, 2006 16:53 Antworten mit Zitat
Hallo zusammen! Also, meine Frage ist wie ich in B+ ein Bild vom momentanen Desktop machen und es dann in einem Fenster als Vollbild anzeigenlassen kann! Gut wär auch noch wenn das Fenster immer da bleibt, also das wenn ich [Alt+Tab] drücke (o.Ä.) und in eine andere anwendung gesprungen wird, das sich mein fenster trotzdem wieder öffnet bzw immer noch unberührt bleibt und sich nur mit einer bestimmten taste schließen lässt.... freue mich über antworten, mfg gamesagent

Gamesagent

Betreff: Screenshot machen und einblenden

So, Jul 23, 2006 16:53
Antworten mit Zitat

Hallo zusammen!
Also, meine Frage ist wie ich in B+ ein Bild vom momentanen Desktop machen und es dann in einem Fenster als Vollbild anzeigenlassen kann!
Gut wär auch noch wenn das Fenster immer da bleibt, also das wenn ich [Alt+Tab] drücke (o.Ä.) und in eine andere anwendung gesprungen wird, das sich mein fenster trotzdem wieder öffnet bzw immer noch unberührt bleibt und sich nur mit einer bestimmten taste schließen lässt.... freue mich über antworten, mfg gamesagent

	kreisman	So, Jul 23, 2006 17:38 Antworten mit Zitat
ich denke mal du meinst sowas: Code: [AUSKLAPPEN] [EINKLAPPEN] window=CreateWindow( "Window",ClientWidth(Desktop())/2-96,ClientHeight(Desktop())/2-96,192,192 ) width=ClientWidth(window) height=ClientHeight(window) canvas=CreateCanvas( 0,0,width,height,window ) SetGadgetLayout canvas,1,1,1,1 SetBuffer CanvasBuffer(canvas) While WaitEvent(10)<>$803 mx=MouseX()-width/2 my=MouseY()-height/2 Cls CopyRect mx,my,width,height,0,0,DesktopBuffer() FlipCanvas canvas Wend End

kreisman

So, Jul 23, 2006 17:38
Antworten mit Zitat

ich denke mal du meinst sowas:
Code: [AUSKLAPPEN]

window=CreateWindow( "Window",ClientWidth(Desktop())/2-96,ClientHeight(Desktop())/2-96,192,192 )

width=ClientWidth(window)
height=ClientHeight(window)

canvas=CreateCanvas( 0,0,width,height,window )
SetGadgetLayout canvas,1,1,1,1
SetBuffer CanvasBuffer(canvas)

While WaitEvent(10)<>$803
mx=MouseX()-width/2
my=MouseY()-height/2
Cls
CopyRect mx,my,width,height,0,0,DesktopBuffer()
FlipCanvas canvas
Wend
End

	Gamesagent Betreff: 0_0	So, Jul 23, 2006 21:52 Antworten mit Zitat
Cooles script, aber das was ich meine ist etwas simpler^^ Ich möchte einfach nur ein "BILD" vom momentanen Desktop machen und es dann in einem fenster anzeigen lassen(nur als bild! kein mausverfolger oder ähnliches! nur ein einfaches bild vom desktop in ein fenster kopieren)... hoffe das es nun verständlich genug ist^^

Gamesagent

Betreff: 0_0

So, Jul 23, 2006 21:52
Antworten mit Zitat

Cooles script, aber das was ich meine ist etwas simpler^^
Ich möchte einfach nur ein "BILD" vom momentanen Desktop machen und es dann in einem fenster anzeigen lassen(nur als bild! kein mausverfolger oder ähnliches! nur ein einfaches bild vom desktop in ein fenster kopieren)... hoffe das es nun verständlich genug ist^^

	$tankY	So, Jul 23, 2006 23:43 Antworten mit Zitat
Code: [AUSKLAPPEN] [EINKLAPPEN] Width=GadgetWidth(Desktop()) Height=GadgetHeight(Desktop()) SetBuffer DesktopBuffer() image=CreateImage( Width,Height ) GrabImage image,0,0 window=CreateWindow("fenster",0,0,Width,Height,Desktop(),0) canvas=CreateCanvas(0,0,Width,Height,window) SetBuffer CanvasBuffer(canvas) DrawBlock image,0,0 While Not KeyHit(1) FlipCanvas canvas Wend End

$tankY

So, Jul 23, 2006 23:43
Antworten mit Zitat

Code: [AUSKLAPPEN]

Width=GadgetWidth(Desktop())
Height=GadgetHeight(Desktop())

SetBuffer DesktopBuffer()
image=CreateImage( Width,Height )
GrabImage image,0,0

window=CreateWindow("fenster",0,0,Width,Height,Desktop(),0)
canvas=CreateCanvas(0,0,Width,Height,window)

SetBuffer CanvasBuffer(canvas)
DrawBlock image,0,0

While Not KeyHit(1)

FlipCanvas canvas
Wend

End

Übersicht

BlitzBasic

BlitzPlus

Nach Oben

BlitzBasic Portal

Screenshot machen und einblenden

Gamesagent

Betreff: Screenshot machen und einblenden

kreisman

Gamesagent

Betreff: 0_0

$tankY