purebasic.info

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28

Enumeration
  #Enter1
EndEnumeration
#Brown=1262987 
 
   OpenWindow(1, 550, 250, 501, 501, "222222", #PB_Window_MinimizeGadget)
   SetWindowColor(1, 0)
 
   TextGadget(#Enter1,100, 110, 170, 20, "Enter",#SS_NOTIFY)
   SetGadgetColor(#Enter1, #PB_Gadget_FrontColor,#Brown) ;как сделать, для всех надписей(гаджетов) в этом окне такой FrontColor был по умолчанию?
   SetGadgetColor(#Enter1, #PB_Gadget_BackColor, #Black) ;как сделать, для всех надписей(гаджетов) в этом окне такой BackColor был по умолчанию?
 
    Repeat
  Event.l = WaitWindowEvent()
  Select Event
      Case #PB_Event_Gadget 
         Select EventGadget()
          Case #Enter1
            Select EventType()
              Case #PB_EventType_LeftClick  ; Если поставить сюда #PB_EventType_LeftDoubleClick , то по двойному клику работать не будет, как это сделать?            
                Debug "gggg"
              EndSelect
       EndSelect
  EndSelect
   
   Until Event = #PB_Event_CloseWindow
   CloseWindow(1) 
 

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37

Global *Long
 
Enumeration
  #Enter1
  #Enter2
  #Brown=1262987
EndEnumeration 
 
Procedure GadgetProc(hWnd.l, uMsg.l, wParam.l, lparam.l)
  If uMsg = #WM_LBUTTONDBLCLK
    Debug "GadgetProc  WM_LBUTTONDBLCLK"
  EndIf  
  ProcedureReturn CallWindowProc_(*Long, hWnd, uMsg, wParam, lparam)
EndProcedure
 
OpenWindow(1, 550, 250, 501, 501, "222222", #PB_Window_MinimizeGadget)
SetWindowColor(1, 0)
 
TextGadget(#Enter1, 100, 110, 170, 20, "Enter", #SS_NOTIFY)
SetGadgetColor(#Enter1, #PB_Gadget_FrontColor, #Brown)
SetGadgetColor(#Enter1, #PB_Gadget_BackColor, #Black)
 
TextGadget(#Enter2, 300, 110, 170, 170, "", #SS_NOTIFY)
 
*Long = SetWindowLong_(GadgetID(#Enter2), #GWL_WNDPROC, @GadgetProc())
SetParent_(GadgetID(#Enter2), 0)
 
Repeat
  Event.l = WaitWindowEvent()
  If Event = #WM_LBUTTONDBLCLK And WindowEvent() = #PB_Event_Gadget
    Select EventGadget()
      Case #Enter1
        Debug "#Enter1"
    EndSelect    
  EndIf  
Until Event = #PB_Event_CloseWindow
End

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42

Enumeration
#Enter1
EndEnumeration
#Brown=1262987 
 
Global gBackStaticBrush =  CreateSolidBrush_(#Black)
 
Procedure WindowCallback(hWnd, uMsg, WParam, LParam)
  
  If uMsg = #WM_CTLCOLORSTATIC
    SetTextColor_(wParam, #Brown)
    SetBkMode_(wParam, #Black)
    ProcedureReturn gBackStaticBrush
  EndIf 
  
  ProcedureReturn #PB_ProcessPureBasicEvents 
EndProcedure 
 
 
OpenWindow(1, 550, 250, 501, 501, "222222", #PB_Window_MinimizeGadget)
SetWindowColor(1, 0)
SetWindowCallback(@WindowCallback(), 1)
 
TextGadget(#Enter1,100, 110, 170, 20, "Enter",#SS_NOTIFY)
; SetGadgetColor(#Enter1, #PB_Gadget_FrontColor,#Brown) ;как сделать, для всех надписей(гаджетов) в этом окне такой FrontColor был по умолчанию?
; SetGadgetColor(#Enter1, #PB_Gadget_BackColor, #Black) ;как сделать, для всех надписей(гаджетов) в этом окне такой BackColor был по умолчанию?
 
Repeat
  Event.l = WaitWindowEvent()
  Select Event
    Case #PB_Event_Gadget 
      Select EventGadget()
        Case #Enter1
          Select EventType()
            Case #PB_EventType_LeftClick  ; Если поставить сюда #PB_EventType_LeftDoubleClick , то по двойному клику работать не будет, как это сделать?            
              Debug "gggg"
          EndSelect
      EndSelect
  EndSelect
  
Until Event = #PB_Event_CloseWindow
CloseWindow(1) 

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42

Procedure Child_Event()
  Event = Event()
  Window = EventWindow()
 
  Select Event
    Case #PB_Event_Timer
      SetGadgetText(GetWindowData(Window), FormatDate("%hh:%ii:%ss", Date()))
    Case #PB_Event_CloseWindow
      UnbindEvent(#PB_Event_CloseWindow, @Child_Event(), Window)
      UnbindEvent(#PB_Event_Timer, @Child_Event(), Window, 0)
      RemoveWindowTimer(Window, 0)
      CloseWindow(Window)
  EndSelect
EndProcedure
 
Procedure Child()
  id=OpenWindow(#PB_Any, #PB_Ignore, #PB_Ignore, 200, 150, "child", #PB_Window_SystemMenu, WindowID(0))
  If id
    SetWindowData(id, TextGadget(#PB_Any,20, 0, 160, 30,"", #PB_Text_Right))
    AddWindowTimer(id, 0, 500)
    BindEvent(#PB_Event_CloseWindow, @Child_Event(), id)
    BindEvent(#PB_Event_Timer, @Child_Event(), id, 0)
  EndIf
EndProcedure
 
If OpenWindow(0, #PB_Ignore, #PB_Ignore, 400, 300, "parent")
  ButtonGadget(2, 100, 100, 100, 25, "click")
    
  Repeat
    Event = WaitWindowEvent()
    If EventWindow() = 0
      Select Event
        Case #PB_Event_Gadget
          If EventGadget() = 2
            Child()
          EndIf
        Case #PB_Event_CloseWindow
          Break
      EndSelect
    EndIf
  ForEver
EndIf

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31

;{ Gadgets
Enumeration
  #Text_0
  #Text_1
  #Text_2
  #Text_3
  #Text_4
  #Text_5
  #Text_6
  #Text_7
   
  #Text_GPU_name
  #Text_Temperatur
  #Text_Usage_GPU
  #Text_Usage_Memory_GPU
  #Text_GPU_freq
  #Text_Memory_freq
  #Text_FanSpeed
  #Text_Power_GPU
   
  #Text_20
  #Text_21
  #Text_22
  #Text_23
  #Text_24
  #Text_25
  #Text_26
  #Text_27
   
EndEnumeration
;}  

1
2
3
4

For i = #Text_0 To #Text_27
  SetGadgetColor(i, #PB_Gadget_FrontColor,#Brown) ;такой FrontColor  по умолчанию
  SetGadgetColor(i, #PB_Gadget_BackColor, #Black) ; такой BackColor  по умолчанию
Next