PureBoard

Das deutsche PureBasic-Forum
https://www.purebasic.fr/german/

Mauszeiger Hardflag? ... wo trifft der Mauszeiger?

https://www.purebasic.fr/german/viewtopic.php?t=14918

Seite 1 von 1

Mauszeiger Hardflag? ... wo trifft der Mauszeiger?

Verfasst: 20.11.2007 13:01
von Xaby
meistens stört ja der Mauszeiger auf einem Bild.

Aber was ist, wenn man in einem Programm einen richtig coolen Mauszeiger hat, und genau davon mal ein Bild machen möchte ...

wie kann ich einen ScreenShot mit Mauszeiger machen?

PB-Code wäre auch cool :roll:

Dank euch.

:allright:

Das Problem des Ermittelns eines Mauszeigers ist gelöst.
Aber nun gibt es ja auch Mauszeiger, die zum Beispiel wie ein Fadenkreus aussehen. Also man nicht mit der Ausrichtung 0, 0 auf einen Knopf drücken kann, sondern vielleicht irgendwo in der Mitte ...

wie bekomme ich diese Verschiebung heraus?

Was genau gibt hCursor an?

Gruß, Folker :allright:

Verfasst: 20.11.2007 13:16
von edel
Den Cursor kannst du so bekommen (ab W98) :

Code: Alles auswählen

Structure CURSORINFO
    cbSize.l
    flags.l
    hCursor.l
    ptScreenPos.point
EndStructure

ci.CURSORINFO
ci\cbSize = SizeOf(CURSORINFO)
GetCursorInfo_(ci)


OpenWindow(0,0,0,200,200,"")

StartDrawing(WindowOutput(0))
  DrawImage(ci\hCursor,0,0)
StopDrawing()

Repeat :Until WaitWindowEvent() = #WM_CLOSE

Verfasst: 20.11.2007 15:50
von Xaby
@edel

ich will ein Kind von dir :allright: :allright: :allright:

Du bist echt genial. Besser hätte es nicht sein können.
Kurz und knapp, verständlich und es funktioniert.

Bin beeindruckt. Dank dir. :allright:

Verfasst: 20.11.2007 17:54
von DarkDragon
http://www.purebasic.fr/german/viewtopi ... +win+linux

Verfasst: 21.11.2007 05:51
von Xaby
???

Tja, hab dich zwar gelobt ...

aber irgendwie bekomme ich das nicht hin, dass ich den Coursor auf einem #Image habe ...

Wenn ich den Output ändere, ist das Bild leer.

Versuche ich es irgendwie anders, ist es schwarz oder es gibt ohne Ende Fehlermeldungen ...

Wie setze ich solche Bilder auf ein #Image?

Vielen Dank im Voraus. :?

Verfasst: 21.11.2007 11:10
von Kiffi
Xaby hat geschrieben:Tja, hab dich zwar gelobt ...
Ist klar, dass edel Dir nicht den kompletten Code vorkaut. Es gibt demzufolge
auch keinen Grund, Dein Lob nun zu revidieren.
Xaby hat geschrieben:Wie setze ich solche Bilder auf ein #Image?
-> CreateImage()

-> Startdrawing auf ImageOutput

-> ImageGadget mit ImageID Deines mit CreateImage erzeugten Bildes.

Grüße ... Kiffi

Verfasst: 21.11.2007 11:30
von Xaby
Hej Pappnase (nicht so gemeint) /:->
Muss ich echt mal so sagen ...

Liest du eigentlich, was ich schreibe?

Vielleicht hast es noch nicht gemerkt, aber ich poste nicht zum ersten Mal :mrgreen:

Ich habe ein Image mit CreateImage erzeugt!!!!
xaby hat geschrieben:Wenn ich den Output ändere, ist das Bild leer
Wenn ich statt:

Code: Alles auswählen

StartDrawing(WindowOutput(0))
>>>>>>

Code: Alles auswählen

StartDrawing(ImageOutput(0))
Nutze, und natürlich mit CreateImage ...

Mmmm :? ... ach ich weiß auch nicht, gestern ging es so nicht ... /:->
Und jetzt geht es ohne Probleme, hab bestimmt irgendwo eine "0" oder was weiß ich vergessen, oder ein ImageID() ... :roll:

Code: Alles auswählen



Structure CURSORINFO
  cbSize.l
  flags.l
  hCursor.l
  ptScreenPos.point
EndStructure

ci.CURSORINFO
ci\cbSize = SizeOf(CURSORINFO)
GetCursorInfo_(ci)


OpenWindow(0,0,0,200,200,"")

CreateImage(0,200,200)
StartDrawing(ImageOutput(0))
DrawImage(ci\hCursor,0,0)
StopDrawing()

StartDrawing(WindowOutput(0))
DrawImage(ImageID(0),0,0)
StopDrawing()

Repeat :Until WaitWindowEvent() = #WM_CLOSE
:?

Verfasst: 21.11.2007 11:50
von Kiffi
Xaby hat geschrieben:Liest du eigentlich, was ich schreibe?
Du nimmst mir die Worte aus dem Mund:
Kiffi hat geschrieben:-> ImageGadget mit ImageID Deines mit CreateImage erzeugten Bildes.

Verfasst: 21.11.2007 13:46
von Xaby
Sag mal ...

Wie kann ich auf ein #Image

Bilder mit Alphakanal malen?

Ich würde gern ein paar Kreise übereinander malen, aber die sollen so halb durchschimmernd sein ...

Mit Sprites wäre das kein Problem ... aber wie kann man das mit Images machen?

Vorweg, ein Grafikmodus mit DirectX wäre für meine Aplikation overdressed :mrgreen:

Dann frage ich mich auch noch, wenn ich viereckige #Images habe (ist ja die Regel) ... ich aber nur einen Kreis benötige ...

wie sieht das mit einer transparenten Farbe aus? Wäre das weiß oder schwarz? Oder kann man das einstellen?

Ich bin mir sicher, es gibt bestimmt ne LIB dazu ...

aber bei so grundlegenden Dingen, wundere ich mich immer wieder, dass es die nicht von Hause aus in PB gibt ...

Code: Alles auswählen

DrawAlphaImage(ImageID, x, y)
Oder wie kann ich onTheFly so eine 32 Bit Datei erstellen?
Ohne erst über eine Datei zu gehen?

Dank dir. :roll: :allright:

Sch**ße, fast zwei Jahre schon hier /:->
Und immer noch die gleichen Fragen und Probleme ...
http://www.purebasic.fr/german/viewtopi ... a+blending

Wie lange ich an meinen Projekten sitze :freak:

>>>>> Ich glaube, das ist ein Befehl, der mir helfen kann ...
aber das API-English ist so ... :?

Code: Alles auswählen

BitBlt_(...)


Oder ich müsste mit Memory und Buffern ... irgendwie die zwei Bilder verrechnen ... aber das Rad brauch ja nicht neu erfunden werden, und schnell und sicher soll es auch sein ...

Und ich weiß auch nicht, wie ich ein Image in einen Buffer schiebe und dann alle Pixel gleich habe ... hab sie sonst immer mit Plot und Point ... zwischendurch umgewandelt ... oder in ein Array geschrieben ...

aber das kann ja nicht die Lösung sein ... :oops:

"Blend-Demo"

Verfasst: 21.11.2007 16:17
von Xaby

Code: Alles auswählen

;/ Folker Linstedt, 2007|11|21 Blenden


Dim Feld(64,64) ; Image 64 x 64 Pixel im Array (wohl noch nicht die idealste Lösung)
  
CreateImage(0,64,64)
StartDrawing(ImageOutput(0))
  Box(0,0,64,64,RGB(255,255,255)) ; weiß grundiert
  Box(10,2,30,40,RGB(0,128,255)) ; blau
  Box(0,50,64,14,RGB(255,255,0)) ; blau
StopDrawing()

CreateImage(1,64,64)
  StartDrawing(ImageOutput(1)) ; 
  Box(0,0,64,64,RGB(255,0,255)) ; Magenta grundiert
  Circle(36,36,25,RGB(255,0,0)) ; rot
  StopDrawing()

  StartDrawing(ImageOutput(1)) ; Farbe des Kreises wird ermittelt
For i=0 to 63
  For i2=0 to 63
    Feld(i2,i)=Point(i2,i) 
  Next
Next
StopDrawing()
  
Q=128; Transparenz 0 ist gar nicht durchsichtig, 255 komplett durchsichtig
  
StartDrawing(ImageOutput(0)) ; Zusammenfügen von Bild 0 und Bild 1

xM=32
yM=32

For i=0 to 63
  For i2=0 to 63
    If Feld(i2,i)<>RGB(255,0,255)
      If xM-32>=0 and yM-32>=0
        
        F=Point(xM-32+i2,yM-32+i)
        C=Feld(i2,i)
        ;(255*255-(255-255)*125)/256
        
        R=(Red(F)*(255-Q)+(Red(C))*Q)/255
        G=(Green(F)*(255-Q)+(Green(C))*Q)/255
        B=(Blue(F)*(255-Q)+(Blue(C))*Q)/255 
        
        F=RGB(R,G,B); (F+C)/2 = 50% 
        Plot(xM-32+i2,yM-32+i,F)
      EndIf
    EndIf
  Next
Next  
StopDrawing()

OpenWindow(0,0,0,200,200,"") 

StartDrawing(WindowOutput(0)) 
DrawImage(ImageID(0),0,0) 
StopDrawing() 

Repeat :Until WaitWindowEvent() = #WM_CLOSE
:allright:

Wenn man das irgendwie schneller (ordentlicher) hinbekommt ...
Das wäre cool :roll:
Alle Zeiten sind UTC+02:00
Seite 1 von 1

Powered by phpBB® Forum Software © phpBB Limited

Deutsche Übersetzung durch phpBB.de