Gibt den Device Context zurück das direkte Hanleroherter hat geschrieben:Code: Alles auswählen
Hwnd=getdc_(gadgetid)
Window-Skins
Code: Alles auswählen
;{- Enumerations / DataSections
;{ Windows
Enumeration
#Window_0
EndEnumeration
;}
;{ Gadgets
Enumeration
#Web_0
EndEnumeration
;}
;}
Procedure OpenWindow_Window_0()
If OpenWindow(0, 450, 200, 400, 400, "Window_0", #PB_Window_SystemMenu|#PB_Window_SizeGadget|#PB_Window_MinimizeGadget|#PB_Window_TitleBar)
If CreateGadgetList(WindowID(#Window_0))
WebGadget(#Web_0, 5, 5, 385, 385, "about:WebGadget_0")
EndIf
EndIf
EndProcedure
OpenWindow_Window_0()
SetWindowLong_(WindowID(0),#GWL_EXSTYLE,GetWindowLong_(WindowID(0),#GWL_EXSTYLE)|524288)
SetLayeredWindowAttributes_(WindowID(0),RGB(255,255,255),0,1)
;{- Event loop
Repeat
Event = WaitWindowEvent()
Select Event
; ///////////////////
Case #PB_Event_Gadget
EventGadget = EventGadget()
EventType = EventType()
If EventGadget = #Web_0
EndIf
; //////////////////////
Case #PB_Event_CloseWindow
EventWindow = EventWindow()
If EventWindow = #Window_0
CloseWindow(#Window_0)
Break
EndIf
EndSelect
ForEver
;
;}
Verstehe nicht wie du das meinst?
Purebasic 5.0 32bit und 64 bit
I'm back from hell
I'm back from hell