Windows mit beliebigem shape

[rolaf]

Ausserdem können dann unsere geheimsten Gedanken sofort mit einem Trojaner zum Verfassungschutz weitergeleitet werden, der sich dann liebevoll um uns kümmert

Klar, da kommt dann schnell liebevoll ein 380.000 Volt-Stromstoß übers Netz bis es qualmt unterm Helm.

[bobobo]

@Klaus

lass dich von dem gelulle da oben nicht ablenken.

ich hab das mal eingesetzt für so 'n Randschäuble, der um den Fensterrand geäugt hat
wenn man eine meiner Anwendungen hat laufen lassen. Ein Heidenspass.
Das ist zwar eher sinnentleert, aber was ist das nicht.

(Ich muss das auch mal updaten. Mittlerweile ist der Herr Dr. Schäuble ja gar kein
Lauerschweinchen mehr sondern nur noch Bundesfinanzdödel.)

gemacht hab ich das mit der skinwinlib oder einem derivat derselben und einem thread

[Klaus_1963]

Hilfe: ich glaub, der Verfassungsschutz kümmert sich schon um mich: habe in meinem Büro 26°C mit steigender Tendenz. Mal schauen, wann die ersten PC's ihren Geist aufgeben und in der realen 3D-Welt abrauchen

Doch nu muss i mol no a bissle kreativ sei. Viel Spass no beim programmiere oder "forumle" (meine erste kreative Wortschöpfung des heutigen Tages: bin total stolz auf mich (hüstel...)

vg Klaus

[bobobo]

einen hab ich noch (Nutzung auf eigene Gefahr)

Code: Alles auswählen

;
; das programm holt sich die beiden Bilder aus dem internetz
;und nutzt dann die skinwin.lib aus dem PBOSL für die Darstellung
;der .. öö .Darstellung
;
If InitNetwork() And ExamineDesktops()
  If LoadImage(0,GetTemporaryDirectory()+"r1.bmp") =0
    ReceiveHTTPFile("http://trollkind.comaoma.de/images/randschaeuble1.bmp",GetTemporaryDirectory()+"r1.bmp")
    If LoadImage(0,GetTemporaryDirectory()+"r1.bmp")=0
      MessageRequester("","dann eben nicht")
      End
    EndIf
  EndIf
  If LoadImage(1,GetTemporaryDirectory()+"r2.bmp")=0
    ReceiveHTTPFile("http://trollkind.comaoma.de/images/randschaeuble2.bmp",GetTemporaryDirectory()+"r2.bmp")
    If LoadImage(1,GetTemporaryDirectory()+"r2.bmp")=0
      MessageRequester("","dann eben nicht")
      End
    EndIf
  EndIf
  hwnd=OpenWindow(0,0,0,ImageWidth(0),ImageHeight(0),"s1",#PB_Window_BorderLess|#PB_Window_Invisible)
  SkinWinMakeRegion(ImageID(0),0,0)
  SkinWin(hWnd, ImageID(1))
  ResizeWindow(0,#PB_Ignore,DesktopHeight(0),#PB_Ignore,#PB_Ignore)
  HideWindow(0,0)
  StickyWindow(0,1)
  For y= DesktopHeight(0) To  DesktopHeight(0)-200 Step -1
    ResizeWindow(0,#PB_Ignore,y,#PB_Ignore,#PB_Ignore)
    Delay(1)
  Next y
  For z=1 To 4
    SetWinBackgroundImage(hWnd, ImageID(0))
    Delay(100)
    SetWinBackgroundImage(hWnd, ImageID(1))
    Delay(150)
  Next z
  For y= DesktopHeight(0)-200 To DesktopHeight(0) Step 2
    ResizeWindow(0,#PB_Ignore,y,#PB_Ignore,#PB_Ignore)
  Next y
  
  Repeat
    q + 1
    If q > 5
      quit=1
    EndIf
    Select WaitWindowEvent(100)
    Case #WM_LBUTTONDOWN
      SendMessage_(WindowID(0),#WM_NCLBUTTONDOWN, #HTCAPTION,0)
    Case #WM_RBUTTONDOWN
      End
      quit=1
    Case #PB_Event_CloseWindow
      quit=1
    EndSelect
  Until quit
Else
  MessageRequester("","hmm . .egal dann")
EndIf
End

[Klaus_1963]

@bobobo

Mist: jetzt hab ich den Schäuble im PC! Und das trotz VirenProgramm! Hm, wie bekomme ich ihn nur da wieder raus????

Cool!

vg Klaus

[hörmi]

@bobobo:

[rolaf]

Mist: jetzt hab ich den Schäuble im PC! Und das trotz VirenProgramm! Hm, wie bekomme ich ihn nur da wieder raus????

Schäuble hat momentan keine Zeit für dich, muß gerade unsere noch nicht verdienten Milliarden nach Griechenland tragen. Früher haben Eulen gereicht.

Aber hey, ihr klickt wohl auch überall druff?! jetzt habt ihr den bo³Virus = 3 Tage Schei..erei...

[Vera]

@bobobo

@Kaeru
danke für die unwägbaren Bedienelemente - ein inspirierendes Lehrbeispiel

@DrFalo
g**les Ava - das konnte ich nicht an mir vorbei gehen lassen (freut mich den Bären mal wieder zu sehen)

@most
Wow - da bin ich aber echt erfreut, wie viele noch die klassische Haut favorisieren

Bei mir haben skined Programme nur eine extrem kurze Existenzdauer, wenn die Abschaltoption fehlt oder mir nicht frei gestellt wird, die Skinkomponenten selber zu editieren.

Nicht zuletzt ist es auch eine Frage von Respekt gegenüber der Geschmacktsfreiheit eines jeden Users.

... und inzwischen ist PB doch auch stylisch geworden: es gibt jetzt den ModernLook, der aus der Userfarbvorgabe einfach den Mittelwert verwendet und dann sowas entsteht:



als ich dies das erste mal sah, ist mir fast ... - aber langsam gewöhn' ich mich dran


@Klaus
Gehirn-Anzapfhelm ? - ziemlich unpraktisch - wie wär's mit 'nem wireless Hirninterface mit Gedankencallback und kommt erst gar nicht mehr auf dumme Ideen.
Ach ja - und mit intravenöser Nährstoffzufuhr hättest Du die Hände wiederum frei für weiteres, denn Hardware war eh gestern, heut' ist alles in der Cloud.

brave neue Welt

cheers ~ Vera

[Kaeru Gaman]

Schäuble hat momentan keine Zeit für dich, muß gerade unsere noch nicht verdienten Milliarden nach Griechenland tragen. Früher haben Eulen gereicht.

*ROFL* der war klasse!

aber btw... auch damals gings um Kohle...
die Eule war der Kopf auf der Drachme, der Münze die in Athen geprägt wurde...
nur für den Fall dass jemanden geschichtliche Details interessieren...

PS
... und als zweites Geschichtsdetail: "Brave New World" ist eine positive Utopie!
aber um das zu verstehn, muss man vielleicht auch "The Doors of Perception" verstanden haben...

[RSBasic]

<?ot

@DrFalo
g**les Ava - das konnte ich nicht an mir vorbei gehen lassen

Dito (ist zwar kein Classik-Theme, aber naja, mein Avatar ist auch nen bissel älter^^)
?>

Ich bin der Meinung, dass Fenster(design) schon ein bisschen einheitlich sein muss.
Wenn jedes Fenster ein eigenes Design hat, ist es nicht nur unübersichtlich (vom Gesamtbild), sondern auch zu bunt.
Außerdem halte ich nicht viel von skinnen.