PureBasic Forums - English

Code: Select all

OpenWindow(1,0,0,200,200,"",#PB_Window_SystemMenu)
g1=ButtonGadget(1, 0, 0,200, 20,""):bc=GetPixel_(GetDC_(g1),33,10)
;TODO test code 1 {
SetWindowLongPtr_(g1, #GWL_EXSTYLE,GetWindowLongPtr_(g1, #GWL_EXSTYLE) | #WS_EX_LAYERED)
SetLayeredWindowAttributes_(g1, bc,0, #LWA_COLORKEY)
;}
g2=TextGadget(2, 2, 2,196, 16,"text",#PB_Text_Center)
SetGadgetColor(2,#PB_Gadget_FrontColor,#Red)
SetGadgetColor(2,#PB_Gadget_BackColor,#Green)
;TODO test code 2 {
;SetWindowLongPtr_(g2,#GWLP_HWNDPARENT,g1)
;}
;TODO test code 3 {
;SetParent_(g2, g1)
;}
TextGadget(3, 0, 60,200, 20,"move")
ButtonGadget(4, 0, 25,200, 20,"try")
Repeat:ev=WaitWindowEvent():Select ev
  Case #PB_Event_Gadget:eg=EventGadget()
   Select eg
    Case 4
;TODO test code 1 {
     ResizeGadget(3,0, 0,200, 20)
     Delay(2222):ResizeGadget(3,0, 60,200, 20)
     Delay(2222):SetCursorPos_(100,35)
     While WindowEvent():Wend
;}
   EndSelect
   
  Case #PB_Event_CloseWindow:Break
EndSelect:ForEver
End
; IDE Options = PureBasic 5.70 LTS (Windows - x86)
; CursorPosition = 3
; EnableXP
; DPIAware