Win: Text über den Bildschirm schreiben

[bastibasti]

Hi,

unter Linux mache ich das mit xcat, allerdings gibt es unter Windows keine solche Library. Gibts ne einfache Möglichkeit einen Text über den Screen zu schreiben? (also über alle Anwendungen etc). Ein Fenster soll nach Möglichkeit nicht angezeigt werden.

[Bisonte]

Mit einem StickyWindow das transparent und borderless ist (Somit "sieht" man kein Fenster), sollte es kein Problem sein...

[bastibasti]

Okay, benötige ich dafür die WIN API?

[Andesdaf]

nö.

Code: Alles auswählen

EnableExplicit
 
Enumeration 
  #WIN
EndEnumeration
  
Enumeration 
  #TXT
EndEnumeration
  
If OpenWindow(#WIN, 0, 0, 100, 50, "hoppla", #PB_Window_ScreenCentered | #PB_Window_BorderLess)

 TextGadget(#TXT, 0,0, 100, 50,"Text")

 Repeat
   Define iEvent.i = WaitWindowEvent()
     
 Until iEvent = #PB_Event_CloseWindow
EndIf

[Bisonte]

Wie man allerdings ein Fenster unter Linux transparent bekommt, kann ich Dir nicht sagen...

[bastibasti]

Das Fenster ist unter Windows nicht transparent, sondern grau. hab versucht mit

TextGadget(#TXT, 0,0, 100, 50,"Text")
SetGadgetColor(#TXT, #PB_Gadget_BackColor, $000000)
SetGadgetColor(#TXT, #PB_Gadget_FrontColor, $FFFFFF)

aber dann ist der hintergrund schwarz, ich dachte immer 000000 ist bei Windows transparent?

[Mok]

Da du das ganze nur für Windows brauchst, kannst du einfach auf die API zurückgreifen (ich hoffe, das ist nicht weiter schlimm).

Code: Alles auswählen

hdc = GetDC_(GetDesktopWindow_())
text$ = "Hallo Welt!"

SetTextColor_(hdc,#Green)
SetBkColor_(hdc,#Red)

TextOut_(hdc,50,50,text$,Len(text$))

Repeat:Until GetAsyncKeyState_(27)

ReleaseDC_(GetDesktopWindow_(),hdc)

[bastibasti]

Dann wirds wohl zeit dass ich mir die Vollversion kaufe.

[Bisonte]

Also direkt auf den Desktop zeichnen ist wohl nicht das optimalste...

Das Fenster (den Hintergrund des Fensters) transparent zu kriegen hab ich mit RSBasics WinAPI-Snippets
folgendes zusammengeschustert.

Code: Alles auswählen

Procedure.i WindowTransparent(Window.i,Farbe.i)
 
  If IsWindow(Window)
    SetWindowColor(Window,Farbe)
    SetWindowLongPtr_(WindowID(Window),#GWL_EXSTYLE,GetWindowLongPtr_(WindowID(Window),#GWL_EXSTYLE) | #WS_EX_LAYERED)
    SetLayeredWindowAttributes_(WindowID(Window), Farbe, 0, 1)
  EndIf
 
EndProcedure

Nur die Farbe bestimmen, z.B. RGB(255,0,255) und der Hintergrund wird auf die Farbe gesetzt.
Die Farbe selbst wird dann transparent dargestellt. Wobei man aufpassen musst, das egal was jetzt diese
Farbe im Fenster hat (Schrift, Images, Icons usw) auch transparent ist

Edit:

Ohne Vollversion, keine API ... (hab ich wohl überlesen )

[Mok]

Dann wirds wohl zeit dass ich mir die Vollversion kaufe.

Tipp: Lade die user32.dll in dein Programm, dort sind die API-Funktionen drinne.