Hollow Gadget+windows

dobro · Post by **dobro** » Thu Oct 31, 2013 2:14 pm

for a Fun



;***********************************************
;Titre  : HOLLOW Gadget+windows
;Auteur  : Dobro
;Date  :31/10/2013
;Heure  :14:08:59
;Version Purebasic :  PureBasic 5.20 LTS (Windows - x86)
;Version de l'editeur :EPB V2.52
; Libairies necessaire : Aucune 
;***********************************************



#win=1
#editor=1



OpenWindow(#win, 0, 0, 400, 255, "EditorGadget", #PB_Window_SystemMenu | #PB_Window_ScreenCentered)


LoadFont(9,"Courier New",18)
EditorGadget(#editor, 8, 8, 350, 210,#PB_Editor_WordWrap)
SetGadgetColor(#editor,#PB_Gadget_BackColor,$FF0000)
SetGadgetColor(#editor,#PB_Gadget_FrontColor,$FFFFFF)
SetGadgetFont(#editor,FontID(9))
For a = 0 To 5
	AddGadgetItem(#editor, a, "Line "+Str(a))
Next
SetActiveGadget(#editor); we put the cursor in the EditorGadget
SetWindowColor(#Win,#Blue)
SetWindowLong_(WindowID(#Win), #GWL_EXSTYLE, #WS_EX_LAYERED | #WS_EX_TOPMOST)
SetLayeredWindowAttributes_(WindowID(#Win),#Blue,0,#LWA_COLORKEY)

Repeat
	Event = WaitWindowEvent()
	
Until Event = #PB_Event_CloseWindow
DeleteObject_(hBrush); EPB

or juste editor : the blue color make Hollow

Code: Select all



;***********************************************
;Titre  : HOLLOW Gadget
;Auteur  : Dobro
;Date  :31/10/2013
;Heure  :14:08:59
;Version Purebasic :  PureBasic 5.20 LTS (Windows - x86)
;Version de l'editeur :EPB V2.52
; Libairies necessaire : Aucune 
;***********************************************

; the blue color make Hollow ;)

#win=1
#editor=1



OpenWindow(#win, 0, 0, 400, 255, "EditorGadget", #PB_Window_SystemMenu | #PB_Window_ScreenCentered)


LoadFont(9,"Courier New",18)
EditorGadget(#editor, 8, 8, 350, 210,#PB_Editor_WordWrap)
SetGadgetColor(#editor,#PB_Gadget_BackColor,#blue)
SetGadgetColor(#editor,#PB_Gadget_FrontColor,$FFFFFF)
SetGadgetFont(#editor,FontID(9))
For a = 0 To 5
	AddGadgetItem(#editor, a, "Line "+Str(a))
Next
SetActiveGadget(#editor); we put the cursor in the EditorGadget
SetWindowColor(#Win,#Red)
SetWindowLong_(WindowID(#Win), #GWL_EXSTYLE, #WS_EX_LAYERED | #WS_EX_TOPMOST)
SetLayeredWindowAttributes_(WindowID(#Win),#Blue,0,#LWA_COLORKEY)

Repeat
	Event = WaitWindowEvent()
	
Until Event = #PB_Event_CloseWindow
DeleteObject_(hBrush); EPB

or juste Window : the blue color make Hollow

Code: Select all



;***********************************************
;Titre  : HOLLOW Gadget+windows
;Auteur  : Dobro
;Date  :31/10/2013
;Heure  :14:08:59
;Version Purebasic :  PureBasic 5.20 LTS (Windows - x86)
;Version de l'editeur :EPB V2.52
; Libairies necessaire : Aucune 
;***********************************************

; the blue color make Hollow ;)

#win=1
#editor=1



OpenWindow(#win, 0, 0, 400, 255, "EditorGadget", #PB_Window_SystemMenu | #PB_Window_ScreenCentered)


LoadFont(9,"Courier New",18)
EditorGadget(#editor, 8, 8, 350, 210,#PB_Editor_WordWrap)
SetGadgetColor(#editor,#PB_Gadget_BackColor,#green)
SetGadgetColor(#editor,#PB_Gadget_FrontColor,$FFFFFF)
SetGadgetFont(#editor,FontID(9))
For a = 0 To 5
	AddGadgetItem(#editor, a, "Line "+Str(a))
Next
SetActiveGadget(#editor); we put the cursor in the EditorGadget
SetWindowColor(#Win,#blue)
SetWindowLong_(WindowID(#Win), #GWL_EXSTYLE, #WS_EX_LAYERED | #WS_EX_TOPMOST)
SetLayeredWindowAttributes_(WindowID(#Win),#Blue,0,#LWA_COLORKEY)

Repeat
	Event = WaitWindowEvent()
	
Until Event = #PB_Event_CloseWindow
DeleteObject_(hBrush); EPB