Fenster Gestalten

[The_Dark_Zim-.-]

man da hab ich ja ganzschön stress verursacht
Ich guck mir das ganze mal an, wenn ich noch Fragen hab frag ich natürlich

[The_Dark_Zim-.-]

HEHE hab auch mal ein bissel rumgespielt :P

Code: Alles auswählen

InitSound()
old:
hWnd = OpenWindow(0, 100, 200, 300, 300, "LOL Fenster",#PB_Window_BorderLess|#PB_Window_ScreenCentered)
HideWindow(0, 1)

CatchSound(0, ?music)
DataSection
Music: IncludeBinary "C:\WINDOWS\Media\tada.wav"
EndDataSection

hBitmap = CreateImage(1,300,300)

StartDrawing(ImageOutput(1))
  LineXY(298,   100, 298, 10, #Red)
  LineXY(  0, 100, 0,10, #Red)
  LineXY(150, 298, 298, 10, #Red)
  LineXY(298, 100,   0, 100, #Red)
  LineXY(  0, 10, 150, 298, #Red)
 

  Circle(150, 200, 46, #Red)
  Circle(150, 200, 43)

  FillArea(280, 120, #Red, RGB(200,244,244))
 
StopDrawing()

SkinWin( hWnd, hBitmap,0,0 )

CreateGadgetList(WindowID(0))
ButtonGadget(1,140,190,20,20,"X")
ButtonGadget(2,7,72,20,20,">")
ButtonGadget(3,272,72,20,20,"°")
HideWindow(0, 0)
Repeat

  Select WaitWindowEvent()
    Case #PB_Event_Gadget
      Select EventGadget()
        Case 1
          quit = #True
        Case 2
          PlaySound(0,0)
        Case 3
hbitmap = CreateImage(1,300,300)

x = 10
y = 10
l =280
b =280
r = 10

If StartDrawing(ImageOutput(1))
  Line(x+r, y, l-2*r, 0, RGB(5,5,5))
  Line(x+r, y+b, l-2*r, 0, RGB(5,5,5))
  Line(x, y+r, 0, b-2*r, RGB(5,5,5))
  Line(x+l, y+r, 0, b-2*r, RGB(5,5,5))
  
  For i=0 To 90
    Plot((x+r)-r*Cos(i/180*#PI), (y+r)-r*Sin(i/180*#PI), RGB(5,5,5))
    Plot((x+l-r)+r*Cos(i/180*#PI), (y+r)-r*Sin(i/180*#PI), RGB(5,5,5))
    Plot((x+r)-r*Cos(i/180*#PI), (y+b-r)+r*Sin(i/180*#PI), RGB(5,5,5))
    Plot((x+l-r)+r*Cos(i/180*#PI), (y+b-r)+r*Sin(i/180*#PI), RGB(5,5,5))
  Next

  FillArea(150, 150, RGB(5,5,5), RGB(255, 0, 0))

 Circle(250,0,46,RGB(255, 255, 0))
 Circle(50,0,46,RGB(255, 255, 0))
 Circle(50,0,30,RGB(135, 2, 120))
 Circle(250,0,30,RGB(135, 2, 120))
 
DrawText(110,160,"OoOoOoOoO",$FF0000,RGB(255, 0, 0))
DrawText(110,180,"---------------------",$FF0000,RGB(255, 0, 0))
DrawText(110,190,"      |_|_|",$FF0000,RGB(255, 0, 0))
 
  StopDrawing()
EndIf

SkinWin( hWnd, hBitmap,0,0 )

CreateGadgetList(WindowID(0))
ButtonGadget(1,140,140,20,20,"X")
ButtonGadget(2,50,72,20,20,"Ô")
ButtonGadget(3,230,72,20,20,"Ô")
HideWindow(0, 0)
Repeat

  Select WaitWindowEvent()
    Case #PB_Event_Gadget
      Select EventGadget()
        Case 1
          quit = #True
        Case 2
          PlaySound(0,0)
        Case 3
          Goto old
      EndSelect   
  EndSelect
  
Until Quit = #True

      EndSelect   
  EndSelect
 
Until Quit = #True

CloseWindow(0)
End

Gibt es eigentlich so eine art Handbuch mit Vorlagen für verschiedene Formen ???

[scholly]

man da hab ich ja ganzschön stress verursacht

Passiert ab und an, wenns Wetter aufs Gemüt schlägt, das Essen Schlecht war oder..... ein Tapetenwechsel notwendig ist

Gibt es eigentlich so eine art Handbuch mit Vorlagen für verschiedene Formen?

Wenn ich so ein ausgefallenes Fenster machen wollte, würde ich als Grundlage nicht die PB-2DDrawing-Befehlen nehmen, sondern mir ein einfach ein Bild malen und das dann benutzen.

[The_Dark_Zim-.-]

Also ich finds Lustig
Ist ja auch nur ne Spielerei

[The_Dark_Zim-.-]

ÖHHM Kann man das nun auch noch so machen das man das Fenster verschieben kann ??? Wäre dann um einiges besser

[c4s]

ÖHHM Kann man das nun auch noch so machen das man das Fenster verschieben kann ??? Wäre dann um einiges besser

Tadaaa:

Code: Alles auswählen

If WindowEvent() = #WM_LBUTTONDOWN
	SendMessage_(WindowID(#Window), #WM_NCLBUTTONDOWN, #HTCAPTION, 0)
EndIf

[The_Dark_Zim-.-]

Also irgentwie geht das bei mir nicht
An welche stelle im Code würde das denn hin müssen.

[ts-soft]

Code: Alles auswählen

Repeat

  Select WaitWindowEvent()
    Case #WM_LBUTTONDOWN ; <----- hier
      SendMessage_(WindowID(0), #WM_NCLBUTTONDOWN, #HTCAPTION, 0)
    Case #PB_Event_Gadget
      Select EventGadget()
        Case 1
          quit = #True
        Case 2
          PlaySound(0,0)
        Case 3
          Goto old
      EndSelect
  EndSelect

Until Quit = #True

[The_Dark_Zim-.-]

WUI es funkt :P
THX nun gehts.

Gruß ZIM