Windows mit beliebigem shape

[Klaus_1963]

Also ich finde ja, die Skinfreiheit sollte als Grundrecht in unser Grundgesetz aufgenommen werden

Ich fordere: Freiheit für alle Skins, und mögen sie auch so hässlich sein wie das da oben (seufz)

Gewitzte Grüsse an alle, die das Leben nicht allzu ernst nehmen

Klaus

[The_Dark_Zim-.-]

Also ich persöhnlich kann mit den ganzen bunten Kram von Windows garnichts anfangen, benutze deshalb auch das Klassikdesign blos andere Farben und nen paar andere Sachen XD



hehe

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()+"r3.bmp") =0
    ReceiveHTTPFile("http://chor-color.eu/Kram/dog2.bmp",GetTemporaryDirectory()+"r3.bmp")
    If LoadImage(0,GetTemporaryDirectory()+"r3.bmp")=0
      MessageRequester("","dann eben nicht")
      End
    EndIf
  EndIf
  If LoadImage(1,GetTemporaryDirectory()+"r4.bmp")=0
    ReceiveHTTPFile("http://chor-color.eu/Kram/dog.bmp",GetTemporaryDirectory()+"r4.bmp")
    If LoadImage(1,GetTemporaryDirectory()+"r4.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

[Kaeru Gaman]

... und das meinte ich, der User soll selber entscheiden.
scheiß auf Pastellfarben, wenn du drauf stehts moddelier Blumenvasen oder designe Markisen, und verkauf sie an den der sie haben will.

... ich mein, ich steh auf Pastellfarben, aber eben als Schmuckgegenstand und nicht auf nem Fenster von dem ich ne astreine Funktionalität erwarte.