PureBasic - форум

Пётр · Поделиться**181**08.05.2012 23:58:35

max написал(а):

Я вот не совсем понял, фокус чего?

Фокус гаджета. Возьмем к примеру, текстовый редактор. Когда он в фокусе, то можно редактировать текст, а когда не в фокусе, то соответственно нельзя.

max написал(а):

А есть ли другой вариант?

Есть.

max написал(а):

И вообще стоит-ли заморачиваться?

Нужно будет реализовывать через WinAPI, перехватив абсолютно все CallBack функции гаджетов. Что-то подобное я делал в своем торрент-клиенте.
Сможешь разобраться что к чему?

0

max · [1985-03-29]

Можно попробовать. Исходничек где можно посмотреть?

0

Пётр · Поделиться**183**09.05.2012 11:15:20

max написал(а):

Исходничек где можно посмотреть?

Торрент клиента?
Там больше 20 тысяч строк и алгоритмы наверное в раз 200 сложнее чем в рассматриваемой программе!

Если в окне нет гаджетов, захватывающих фокус и использующих колесо мышки, то можно сделать упрощенный вариант без перехвата CallBack функций гаджетов.

Код:

Enumeration 
  #Window_0
  #fon
  #Hide
  #Light_Button_Enable
  #Light_Button
  #Light_Button_On
  #Light_Auto
  #Light_Auto_On
  #Light_Help
  #Light_Help_On
  #Light_Down_Enable
  #Light_Pause
  #Light_Power
  #Light_Mode
  #Light_Tune
  #Light_Battery
  #Knob_pointer_White_Long
  #text
  #H_track
  #V_track  
  #H_knob1
  #H_knob2
  #H_knob3
  #H_knob4
  #H_knob5
  #H_knob6
  #H_knob7
  #H_knob8
  #H_knob9
  #H_knob10  
  #V_knob1
  #V_knob2
  #V_knob3
  #V_knob4
  #V_knob5
  #V_knob6
  #H_knob_Light1
  #H_knob_Light2
  #H_knob_Light3
  #V_knob_Light1
  #V_knob_Light2
  #V_knob_Light3
EndEnumeration

UsePNGImageDecoder()

Procedure Draw_y(x, y, Gadget, ImageID, Active_ImID=0)
  StartDrawing(CanvasOutput(Gadget))
  DrawImage(ImageID(#V_track), 0, 0)
  If Active_ImID
    DrawAlphaImage(Active_ImID, 0, 4)
  EndIf
  DrawAlphaImage(ImageID, x, y)
  StopDrawing()
EndProcedure

Procedure Draw_x(x, y, Gadget, ImageID, Active_ImID=0)
  StartDrawing(CanvasOutput(Gadget))
  DrawImage(ImageID(#H_track), 0, 0)
  If Active_ImID
    DrawAlphaImage(Active_ImID, 4, 0)
  EndIf
  DrawAlphaImage(ImageID, x, y)
  StopDrawing()
EndProcedure

CatchImage(#H_track, ?H_track)   
CatchImage(#H_knob1, ?H_knob1)
CatchImage(#H_knob2, ?H_knob2) 
CatchImage(#H_knob3, ?H_knob3)   
CatchImage(#H_knob4, ?H_knob4) 
CatchImage(#H_knob5, ?H_knob5)
CatchImage(#H_knob6, ?H_knob6) 
CatchImage(#H_knob7, ?H_knob7) 
CatchImage(#H_knob8, ?H_knob8)   
CatchImage(#H_knob9, ?H_knob9) 
CatchImage(#H_knob10, ?H_knob10)
CatchImage(#H_knob_Light1, ?H_knob_Light1)
CatchImage(#H_knob_Light2, ?H_knob_Light2)
CatchImage(#H_knob_Light3, ?H_knob_Light3)
CatchImage(#V_knob_Light1, ?V_knob_Light1)
CatchImage(#V_knob_Light2, ?V_knob_Light2)
CatchImage(#V_knob_Light3, ?V_knob_Light3)
CatchImage(#V_track, ?V_track)   
CatchImage(#V_knob1, ?V_knob1) 
CatchImage(#V_knob2, ?V_knob2) 
CatchImage(#V_knob3, ?V_knob3) 
CatchImage(#V_knob4, ?V_knob4) 
CatchImage(#V_knob5, ?V_knob5) 
CatchImage(#V_knob6, ?V_knob6) 
CatchImage(#Light_Button_Enable, ?Light_Button_Enable)

OpenWindow(0, 0, 0, 180, 170, "CanvasGadget", #PB_Window_SystemMenu | #PB_Window_ScreenCentered)

ImageGadget(12,2,2,67,67,ImageID(#Light_Button_Enable)) : DisableGadget(12, #True)

CanvasGadget(20, 2, 5, 87, 15)
Draw_x(0, 0, 20, ImageID(#H_knob1))
CanvasGadget(21, 2, 20, 87, 15)
Draw_x(0, 0, 21, ImageID(#H_knob2))
CanvasGadget(22, 2, 35, 87, 15)
Draw_x(0, 0, 22, ImageID(#H_knob3))
CanvasGadget(23, 2, 50, 87, 15)
Draw_x(0, 0, 23, ImageID(#H_knob4))
CanvasGadget(24, 2, 65, 87, 15)
Draw_x(0, 0, 24, ImageID(#H_knob5))
CanvasGadget(25, 89, 5, 87, 15)
Draw_x(0, 0, 25, ImageID(#H_knob6))
CanvasGadget(26, 89, 20, 87, 15)
Draw_x(0, 0, 26, ImageID(#H_knob7))
CanvasGadget(27, 89, 35, 87, 15)
Draw_x(0, 0, 27, ImageID(#H_knob8))
CanvasGadget(28, 89, 50, 87, 15)
Draw_x(0, 0, 28, ImageID(#H_knob9))
CanvasGadget(29, 89, 65, 87, 15)
Draw_x(0, 0, 29, ImageID(#H_knob10))
CanvasGadget(30, 20, 80, 15, 87)
Draw_y(0, 0, 30, ImageID(#V_knob1))
CanvasGadget(31, 35, 80, 15, 87)
Draw_y(0, 0, 31, ImageID(#V_knob2))
CanvasGadget(32, 50, 80, 15, 87)
Draw_y(0, 0, 32, ImageID(#V_knob3))
CanvasGadget(33, 65, 80, 15, 87)
Draw_y(0, 0, 33, ImageID(#V_knob4))
CanvasGadget(34, 80, 80, 15, 87)
Draw_y(0, 0, 34, ImageID(#V_knob5))
CanvasGadget(35, 95, 80, 15, 87)
Draw_y(0, 0, 35, ImageID(#V_knob6))

For i=20 To 35
  SetGadgetAttribute(i, #PB_Canvas_Cursor, #PB_Cursor_Hand)
Next i

Repeat
  Event =  WaitWindowEvent() 
  Window = EventWindow()
  
  If Event = #PB_Event_Gadget
    Gadget=EventGadget()
    ;If Gadget>=30 And Gadget<=35
      Type = EventType()
      
      
      If Gadget>=30 And Gadget<=35
        If Gadget>=30 And Gadget<=31
          Active_ImID=ImageID(#V_knob_Light1)
        ElseIf Gadget>=32 And Gadget<=33
          Active_ImID=ImageID(#V_knob_Light2)
        ElseIf Gadget>=34 And Gadget<=35
          Active_ImID=ImageID(#V_knob_Light3)
        EndIf
        Type = EventType()
        ; Перемещение вертикального бегунка. 
        If Type = #PB_EventType_LeftClick Or Type = #PB_EventType_MouseWheel Or (Type = #PB_EventType_MouseMove And GetGadgetAttribute(Gadget, #PB_Canvas_Buttons) = #PB_Canvas_LeftButton)
          If Type = #PB_EventType_MouseWheel
            y=GetGadgetData(Gadget)-GetGadgetAttribute(Gadget, #PB_Canvas_WheelDelta)*2
          Else
            y=GetGadgetAttribute(Gadget, #PB_Canvas_MouseY)-12
          EndIf
          If y<0 : y=0 : EndIf
          If y>87-24 : y = 87-24 : EndIf
          
          Draw_y(0, y, Gadget, ImageID(Gadget), Active_ImID)
          SetGadgetData(Gadget, y)
          
          ; Мышка или вошла в пределы регулятора или вышла из него.
        ElseIf Type = #PB_EventType_MouseEnter Or Type = #PB_EventType_MouseLeave
          
          If Type = #PB_EventType_MouseLeave ; Мышь вышла с передлов регулятора.
            Active_ImID=0
          EndIf
          y=GetGadgetData(Gadget)
          Draw_y(0, y, Gadget, ImageID(Gadget), Active_ImID)
          
        EndIf
        
      EndIf
      
      If Gadget>=20 And Gadget<=29
        If Gadget>=20 And Gadget<=22
          Active_ImID=ImageID(#H_knob_Light1)
        ElseIf Gadget>=23 And Gadget<=24
          Active_ImID=ImageID(#H_knob_Light2)
        ElseIf Gadget>=25 And Gadget<=29
          Active_ImID=ImageID(#H_knob_Light3)
        EndIf
        
        Type = EventType()
        ; Перемещение горизонтального бегунка.
        If Type = #PB_EventType_LeftClick Or Type = #PB_EventType_MouseWheel Or (Type = #PB_EventType_MouseMove And GetGadgetAttribute(Gadget, #PB_Canvas_Buttons) = #PB_Canvas_LeftButton)
          If Type = #PB_EventType_MouseWheel
            x=GetGadgetData(Gadget)-GetGadgetAttribute(Gadget, #PB_Canvas_WheelDelta)*2
          Else
            x=GetGadgetAttribute(Gadget, #PB_Canvas_MouseX)-12
          EndIf
          If x<0 : x=0 : EndIf
          If x>87-24 : x = 87-24 : EndIf
          
          Draw_x(x, 0, Gadget, ImageID(Gadget), Active_ImID)
          SetGadgetData(Gadget, x)
          
          ; Мышка или вошла в пределы регулятора или вышла из него.
        ElseIf Type = #PB_EventType_MouseEnter Or Type = #PB_EventType_MouseLeave
          
          If Type = #PB_EventType_MouseLeave ; Мышь вышла с пределов регулятора.
            Active_ImID=0
          EndIf
          x=GetGadgetData(Gadget)
          Draw_x(x, 0, Gadget, ImageID(Gadget), Active_ImID)
          
        EndIf
        
      EndIf
      
      
    EndIf
    
    
    
    If Window = 0 And Event = #WM_MOUSEWHEEL
      GetCursorPos_(@Cursor.POINT) 
      hWnd = WindowFromPoint_(Cursor\X|(Cursor\Y<<32))
      Gadget=GetDlgCtrlID_(hWnd)
      If Gadget>=20 And Gadget<=35
        SendMessage_(hWnd, #WM_MOUSEWHEEL, EventwParam(), EventlParam())
      EndIf
    EndIf
    
  
Until Event = #PB_Event_CloseWindow


DataSection
  ;{ ресурсы
  
  H_track:
  IncludeBinary "Files\H.png"
  
  H_knob1:
  IncludeBinary "Files\H-knob1.png"
  
  H_knob2:
  IncludeBinary "Files\H-knob1.png"
  
  H_knob3:
  IncludeBinary "Files\H-knob1.png"
  
  H_knob4:
  IncludeBinary "Files\H-knob3.png"
  
  H_knob5:
  IncludeBinary "Files\H-knob3.png"
  
  H_knob6:
  IncludeBinary "Files\H-knob2.png"
  
  H_knob7:
  IncludeBinary "Files\H-knob2.png"
  
  H_knob8:
  IncludeBinary "Files\H-knob2.png"
  
  H_knob9:
  IncludeBinary "Files\H-knob2.png"
  
  H_knob10:
  IncludeBinary "Files\H-knob2.png"
  
  V_track:
  IncludeBinary "Files\V.png"
  
  V_knob1:
  IncludeBinary "Files\V-knob1.png"
  
  V_knob2:
  IncludeBinary "Files\V-knob2.png"
  
  V_knob3:
  IncludeBinary "Files\V-knob3.png"
  
  V_knob4:
  IncludeBinary "Files\V-knob4.png"
  
  V_knob5:
  IncludeBinary "Files\V-knob5.png"
  
  V_knob6:
  IncludeBinary "Files\V-knob6.png" 
  
  H_knob_Light1:
  IncludeBinary "Files\H-knob1_Light.png"
  
  H_knob_Light2:
  IncludeBinary "Files\H-knob3_Light.png"
    
  H_knob_Light3:
  IncludeBinary "Files\H-knob2_Light.png"
  
  V_knob_Light1:
  IncludeBinary "Files\V-knob1_Light.png"
  
  V_knob_Light2:
  IncludeBinary "Files\V-knob2_Light.png"
    
  V_knob_Light3:
  IncludeBinary "Files\V-knob3_Light.png"
  
  Light_Button_Enable:
  IncludeBinary "Files\Knob_pointer_White_Long.png"
  ;}
EndDataSection

+1

max · [1985-03-29]

Спасибо, прикольно.

0

max · [1985-03-29]

А есть ли что-то наподобии DisableToolTip?

0

Пётр · Поделиться**186**09.05.2012 15:49:51

Просто пустая строка.

Код:

GadgetToolTip(Gadget, "")

0

max · [1985-03-29]

А ведь логично.

0

max · [1985-03-29]

Планирую так "оживлять" слайдеры:

Код:

          Pos_y=GetGadgetData(Gadget)
          Select Gadget
          Case 30
                  Select Pos_y
бла-бла...
                  EndSelect
          Case 31
                   Select Pos_y
бла-бла...
          EndSelect
      EndSelect

Но как-то не оптимально.

0

Пётр · Поделиться**189**09.05.2012 16:16:20

Из этого краткого описания и кода так и не понял что требуется.

0

max · [1985-03-29]

Слайдеры нарисовали, теперь нужно при определенном положении выполнять какие-нибудь действия. Так вот я хочу получать события слайдеров:

Код:

If Gadget>=30 And Gadget<=35
        If Gadget>=30 And Gadget<=31
          Active_ImID=ImageID(#V_knob_Light1)
        ElseIf Gadget>=32 And Gadget<=33
          Active_ImID=ImageID(#V_knob_Light2)
        ElseIf Gadget>=34 And Gadget<=35
          Active_ImID=ImageID(#V_knob_Light3)
        EndIf
        Type = EventType()
        ; Перемещение вертикального бегунка. 
        If Type = #PB_EventType_LeftClick Or Type = #PB_EventType_MouseWheel Or (Type = #PB_EventType_MouseMove And GetGadgetAttribute(Gadget, #PB_Canvas_Buttons) = #PB_Canvas_LeftButton)
          If Type = #PB_EventType_MouseWheel
            y=GetGadgetData(Gadget)-GetGadgetAttribute(Gadget, #PB_Canvas_WheelDelta)*2
          Else
            y=GetGadgetAttribute(Gadget, #PB_Canvas_MouseY)-12
          EndIf
          If y<1 : y=1 : EndIf ;********************************** y<1 : y=1 вместо y<0 : y=0
          If y>87-23 : y = 87-23 : EndIf ;************************ 23 вместо 24
         
          Draw_y(0, y, Gadget, ImageID(Gadget), Active_ImID)
          SetGadgetData(Gadget, y)
          Pos_y=GetGadgetData(Gadget)
          Select Gadget
          Case 30
                  Select Pos_y
бла-бла...
                  EndSelect
          Case 31
                   Select Pos_y
бла-бла...
          EndSelect
      EndSelect
          ; Мышка или вошла в пределы регулятора или вышла из него.
        ElseIf Type = #PB_EventType_MouseEnter Or Type = #PB_EventType_MouseLeave
          
          If Type = #PB_EventType_MouseLeave ; Мышь вышла с передлов регулятора.
            Active_ImID=0
          EndIf
          y=GetGadgetData(Gadget)
          Draw_y(0, y, Gadget, ImageID(Gadget), Active_ImID)
          
        EndIf
        
      EndIf

Но как я уже говорил это не оптимально.

Отредактировано max (09.05.2012 16:32:30)

0

Пётр · Поделиться**191**09.05.2012 16:56:32

У нас есть позиция, привязавшись к которой, можно изменять, скажем уровень громкости и это не нужно.

Код:

                  Select Pos_y
бла-бла...
                  EndSelect

0

max · [1985-03-29]

То есть так:

Код:

Pos_y=GetGadgetData(Gadget)
          Select Gadget
          Case 30
бла-бла...
          Case 31
бла-бла...
      EndSelect

0

Пётр · Поделиться**193**09.05.2012 17:09:10

Да.

0

max · [1985-03-29]

Чет не совсем понял: Select Gadget - EndSelect - получим номер гаджета, а само значение передавать так Pos_y = Volume?

0

Пётр · Поделиться**195**09.05.2012 17:24:32

max написал(а):

само значение передавать так Pos_y = Volume?

Куда?

0

max · [1985-03-29]

Так вот и говорю: не понял. Я хотел внечеле определить какой гаджет, а затем выбирать из значений Pos_y и присваивать другой переменной.

0

Пётр · Поделиться**197**09.05.2012 18:27:47

max написал(а):

Я хотел внечеле определить какой гаджет

Его номер хранится в переменой Gadget и ничего дополнительно определять не нужно.

max написал(а):

затем выбирать из значений Pos_y и присваивать другой переменной.

Тогда правильнее будет Volume = Pos_y а не наоборот.

0

max · [1985-03-29]

Пётр написал(а):

ничего дополнительно определять не нужно.

Я имел ввиду: определять, какой гаджет активный.

Пётр написал(а):

Тогда правильнее будет Volume = Pos_y а не наоборот.

Pos_y - имеет максимальное значение 63(63 пикс. ход слайдера), а максимальное значение переменной, которая мне нужна, может быть и 5, и 10, и 30, и 50, и 63. Поэтому хотел узнавать значение Pos_y, затем, в зависимости от того, какой слайдер активный и какое его максимальное значение, через Select Pos_y - EndSelect присваивать значение переменной.

0

Пётр · Поделиться**199**09.05.2012 20:44:05

max написал(а):

Я имел ввиду: определять, какой гаджет активный.

Его ИД находится в переменной Gadget.

max написал(а):

Pos_y - имеет максимальное значение 63(63 пикс. ход слайдера), а максимальное значение переменной, которая мне нужна, может быть и 5, и 10, и 30, и 50, и 63.

Умножить или поделить не вариант?

0

max · [1985-03-29]

Возможно я чего-то не понял, но вот:

Код:

Enumeration 
  #Window_0
  #fon
  #Hide
  #Light_Button_Enable
  #Light_Button
  #Light_Button_On
  #Light_Auto
  #Light_Auto_On
  #Light_Help
  #Light_Help_On
  #Light_Down_Enable
  #Light_Pause
  #Light_Power
  #Light_Mode
  #Light_Tune
  #Light_Battery
  #Knob_pointer_White_Long
  #text
  #H_track
  #V_track  
  #H_knob1
  #H_knob2
  #H_knob3
  #H_knob4
  #H_knob5
  #H_knob6
  #H_knob7
  #H_knob8
  #H_knob9
  #H_knob10  
  #V_knob1
  #V_knob2
  #V_knob3
  #V_knob4
  #V_knob5
  #V_knob6
  #H_knob_Light1
  #H_knob_Light2
  #H_knob_Light3
  #V_knob_Light1
  #V_knob_Light2
  #V_knob_Light3
  #Color_Red
  #Color_Orange
  #Color_Yellow
  #Color_Green
  #Color_Blue
  #Color_Violet
  #Color_White
EndEnumeration

UsePNGImageDecoder()

Procedure Draw_y(x, y, Gadget, ImageID, Active_ImID=0)
  StartDrawing(CanvasOutput(Gadget))
  DrawImage(ImageID(#V_track), 0, 0)
  If Active_ImID
    DrawAlphaImage(Active_ImID, 0, 4)
  EndIf
  DrawAlphaImage(ImageID, x, y)
  StopDrawing()
EndProcedure

Procedure Draw_x(x, y, Gadget, ImageID, Active_ImID=0)
  StartDrawing(CanvasOutput(Gadget))
  DrawImage(ImageID(#H_track), 0, 0)
  If Active_ImID
    DrawAlphaImage(Active_ImID, 4, 0)
  EndIf
  DrawAlphaImage(ImageID, x, y)
  StopDrawing()
EndProcedure

CatchImage(#H_track, ?H_track)   
CatchImage(#H_knob1, ?H_knob1)
CatchImage(#H_knob2, ?H_knob2) 
CatchImage(#H_knob3, ?H_knob3)   
CatchImage(#H_knob4, ?H_knob4) 
CatchImage(#H_knob5, ?H_knob5)
CatchImage(#H_knob6, ?H_knob6) 
CatchImage(#H_knob7, ?H_knob7) 
CatchImage(#H_knob8, ?H_knob8)   
CatchImage(#H_knob9, ?H_knob9) 
CatchImage(#H_knob10, ?H_knob10)
CatchImage(#H_knob_Light1, ?H_knob_Light1)
CatchImage(#H_knob_Light2, ?H_knob_Light2)
CatchImage(#H_knob_Light3, ?H_knob_Light3)
CatchImage(#V_knob_Light1, ?V_knob_Light1)
CatchImage(#V_knob_Light2, ?V_knob_Light2)
CatchImage(#V_knob_Light3, ?V_knob_Light3)
CatchImage(#V_track, ?V_track)   
CatchImage(#V_knob1, ?V_knob1) 
CatchImage(#V_knob2, ?V_knob2) 
CatchImage(#V_knob3, ?V_knob3) 
CatchImage(#V_knob4, ?V_knob4) 
CatchImage(#V_knob5, ?V_knob5) 
CatchImage(#V_knob6, ?V_knob6) 
CatchImage(#Color_Red, ?Color_Red)   
CatchImage(#Color_Orange, ?Color_Orange) 
CatchImage(#Color_Yellow, ?Color_Yellow) 
CatchImage(#Color_Green, ?Color_Green) 
CatchImage(#Color_Blue, ?Color_Blue) 
CatchImage(#Color_Violet, ?Color_Violet) 
CatchImage(#Color_White, ?Color_White)  
CatchImage(#Light_Button_Enable, ?Light_Button_Enable)

OpenWindow(0, 0, 0, 180, 170, "CanvasGadget", #PB_Window_SystemMenu | #PB_Window_ScreenCentered)

ImageGadget(12,2,2,67,67,ImageID(#Light_Button_Enable)) : DisableGadget(12, #True)

CanvasGadget(20, 2, 5, 87, 15)
Draw_x(0, 0, 20, ImageID(#H_knob1))
CanvasGadget(21, 2, 20, 87, 15)
Draw_x(0, 0, 21, ImageID(#H_knob2))
CanvasGadget(22, 2, 35, 87, 15)
Draw_x(0, 0, 22, ImageID(#H_knob3))
CanvasGadget(23, 2, 50, 87, 15)
Draw_x(0, 0, 23, ImageID(#H_knob4))
CanvasGadget(24, 2, 65, 87, 15)
Draw_x(0, 0, 24, ImageID(#H_knob5))
CanvasGadget(25, 89, 5, 87, 15)
Draw_x(0, 0, 25, ImageID(#H_knob6))
CanvasGadget(26, 89, 20, 87, 15)
Draw_x(0, 0, 26, ImageID(#H_knob7))
CanvasGadget(27, 89, 35, 87, 15)
Draw_x(0, 0, 27, ImageID(#H_knob8))
CanvasGadget(28, 89, 50, 87, 15)
Draw_x(0, 0, 28, ImageID(#H_knob9))
CanvasGadget(29, 89, 65, 87, 15)
Draw_x(0, 0, 29, ImageID(#H_knob10))
CanvasGadget(30, 20, 80, 15, 87)
Draw_y(0, 0, 30, ImageID(#V_knob1))
CanvasGadget(31, 35, 80, 15, 87)
Draw_y(0, 0, 31, ImageID(#V_knob2))
CanvasGadget(32, 50, 80, 15, 87)
Draw_y(0, 0, 32, ImageID(#V_knob3))
CanvasGadget(33, 65, 80, 15, 87)
Draw_y(0, 0, 33, ImageID(#V_knob4))
CanvasGadget(34, 80, 80, 15, 87)
Draw_y(0, 0, 34, ImageID(#V_knob5))
CanvasGadget(35, 95, 80, 15, 87)
Draw_y(0, 0, 35, ImageID(#V_knob6))

For i=20 To 35
  SetGadgetAttribute(i, #PB_Canvas_Cursor, #PB_Cursor_Hand)
Next i

Repeat
  Event =  WaitWindowEvent() 
  Window = EventWindow()
  
  If Event = #PB_Event_Gadget
    Gadget=EventGadget()
    ;If Gadget>=30 And Gadget<=35
      Type = EventType()
      
      
      If Gadget>=30 And Gadget<=35
        If Gadget>=30 And Gadget<=31
          Active_ImID=ImageID(#V_knob_Light1)
        ElseIf Gadget>=32 And Gadget<=33
          Active_ImID=ImageID(#V_knob_Light2)
        ElseIf Gadget>=34 And Gadget<=35
          Active_ImID=ImageID(#V_knob_Light3)
        EndIf
        Type = EventType()
        ; Перемещение вертикального бегунка. 
        If Type = #PB_EventType_LeftClick Or Type = #PB_EventType_MouseWheel Or (Type = #PB_EventType_MouseMove And GetGadgetAttribute(Gadget, #PB_Canvas_Buttons) = #PB_Canvas_LeftButton)
          If Type = #PB_EventType_MouseWheel
            y=GetGadgetData(Gadget)-GetGadgetAttribute(Gadget, #PB_Canvas_WheelDelta)*2
          Else
            y=GetGadgetAttribute(Gadget, #PB_Canvas_MouseY)-12
          EndIf
          If y<1 : y=1 : EndIf ;********************************** y<1 : y=1 вместо y<0 : y=0
          If y>87-23 : y = 87-23 : EndIf ;************************ 23 вместо 24
         
          Draw_y(0, y, Gadget, ImageID(Gadget), Active_ImID)
          SetGadgetData(Gadget, y)
          Pos_y=GetGadgetData(Gadget)
          Select Gadget
          Case 30
                  Select Pos_y
;бла-бла...
                  EndSelect
          Case 31
                   Select Pos_y
;бла-бла...
          EndSelect
      EndSelect
          ; Мышка или вошла в пределы регулятора или вышла из него.
        ElseIf Type = #PB_EventType_MouseEnter Or Type = #PB_EventType_MouseLeave
          
          If Type = #PB_EventType_MouseLeave ; Мышь вышла с передлов регулятора.
            Active_ImID=0
          EndIf
          y=GetGadgetData(Gadget)
          Draw_y(0, y, Gadget, ImageID(Gadget), Active_ImID)
          
        EndIf
        
      EndIf
      
      If Gadget>=20 And Gadget<=29
        If Gadget>=20 And Gadget<=22
          Active_ImID=ImageID(#H_knob_Light1)
        ElseIf Gadget>=23 And Gadget<=24
          Active_ImID=ImageID(#H_knob_Light2)
        ElseIf Gadget>=25 And Gadget<=28
          Active_ImID=ImageID(#H_knob_Light3)
        ElseIf Gadget=29
          Active_ImID=ImID
        EndIf
        
        Type = EventType()
        ; Перемещение горизонтального бегунка.
        If Type = #PB_EventType_LeftClick Or Type = #PB_EventType_MouseWheel Or (Type = #PB_EventType_MouseMove And GetGadgetAttribute(Gadget, #PB_Canvas_Buttons) = #PB_Canvas_LeftButton)
          If Type = #PB_EventType_MouseWheel
            x=GetGadgetData(Gadget)-GetGadgetAttribute(Gadget, #PB_Canvas_WheelDelta)*2
          Else
            x=GetGadgetAttribute(Gadget, #PB_Canvas_MouseX)-12
          EndIf
          If x<0 : x=0 : EndIf
          If x>87-24 : x = 87-24 : EndIf
          Debug x
          Draw_x(x, 0, Gadget, ImageID(Gadget), Active_ImID)
          SetGadgetData(Gadget, x)
          
          Pos_x=GetGadgetData(Gadget)
          Select Gadget
          Case 29            
            z = Pos_x/10
          Select z            
          Case 0
            ImID = ImageID(#Color_Red)  
          Case 1
            ImID = ImageID(#Color_Orange)
          Case 2
            ImID = ImageID(#Color_Yellow)
          Case 3
            ImID = ImageID(#Color_Green)
          Case 4
            ImID = ImageID(#Color_Blue)
          Case 5
            ImID = ImageID(#Color_Violet)
          Case 6          
            ImID = ImageID(#Color_White)
      EndSelect

      EndSelect
          
          ; Мышка или вошла в пределы регулятора или вышла из него.
        ElseIf Type = #PB_EventType_MouseEnter Or Type = #PB_EventType_MouseLeave
          
          If Type = #PB_EventType_MouseLeave ; Мышь вышла с пределов регулятора.
            Active_ImID=0
          EndIf
          x=GetGadgetData(Gadget)
          Draw_x(x, 0, Gadget, ImageID(Gadget), Active_ImID)
          
        EndIf
        
      EndIf
      
      
    EndIf
    
    
    
    If Window = 0 And Event = #WM_MOUSEWHEEL
      GetCursorPos_(@Cursor.POINT) 
      hWnd = WindowFromPoint_(Cursor\X|(Cursor\Y<<32))
      Gadget=GetDlgCtrlID_(hWnd)
      If Gadget>=20 And Gadget<=35
        SendMessage_(hWnd, #WM_MOUSEWHEEL, EventwParam(), EventlParam())
      EndIf
    EndIf
    
  
Until Event = #PB_Event_CloseWindow


DataSection
  ;{ ресурсы
  
  H_track:
  IncludeBinary "Files\H.png"
  
  H_knob1:
  IncludeBinary "Files\H-knob1.png"
  
  H_knob2:
  IncludeBinary "Files\H-knob1.png"
  
  H_knob3:
  IncludeBinary "Files\H-knob1.png"
  
  H_knob4:
  IncludeBinary "Files\H-knob3.png"
  
  H_knob5:
  IncludeBinary "Files\H-knob3.png"
  
  H_knob6:
  IncludeBinary "Files\H-knob2.png"
  
  H_knob7:
  IncludeBinary "Files\H-knob2.png"
  
  H_knob8:
  IncludeBinary "Files\H-knob2.png"
  
  H_knob9:
  IncludeBinary "Files\H-knob2.png"
  
  H_knob10:
  IncludeBinary "Files\H-knob2.png"
  
  V_track:
  IncludeBinary "Files\V.png"
  
  V_knob1:
  IncludeBinary "Files\V-knob1.png"
  
  V_knob2:
  IncludeBinary "Files\V-knob2.png"
  
  V_knob3:
  IncludeBinary "Files\V-knob3.png"
  
  V_knob4:
  IncludeBinary "Files\V-knob4.png"
  
  V_knob5:
  IncludeBinary "Files\V-knob5.png"
  
  V_knob6:
  IncludeBinary "Files\V-knob6.png" 
  
  H_knob_Light1:
  IncludeBinary "Files\H-knob1_Light.png"
  
  H_knob_Light2:
  IncludeBinary "Files\H-knob3_Light.png"
    
  H_knob_Light3:
  IncludeBinary "Files\H-knob2_Light.png"
  
  V_knob_Light1:
  IncludeBinary "Files\V-knob1_Light.png"
  
  V_knob_Light2:
  IncludeBinary "Files\V-knob2_Light.png"
    
  V_knob_Light3:
  IncludeBinary "Files\V-knob3_Light.png"
  
  Color_Red:
  IncludeBinary "Files\Color_Red.png" 
  
  Color_Orange:
  IncludeBinary "Files\Color_Orange.png"
  
  Color_Yellow:
  IncludeBinary "Files\Color_Yellow.png"
    
  Color_Green:
  IncludeBinary "Files\Color_Green.png"
  
  Color_Blue:
  IncludeBinary "Files\Color_Blue.png"
  
  Color_Violet:
  IncludeBinary "Files\Color_Violet.png"
    
  Color_White:
  IncludeBinary "Files\Color_White.png"
  
  Light_Button_Enable:
  IncludeBinary "Files\Knob_pointer_White_Long.png"
  ;}
EndDataSection

При движении последнего горизонтального слайдера меняется цвет подсветки. Картинки.

0

Пётр · Поделиться**201**09.05.2012 21:58:49

А в чем собственно вопрос?
Изменение цвета прописано в коде.

Код:

      ElseIf Gadget=29
        Active_ImID=ImID
      EndIf

Код:

        Select Gadget
          Case 29            
            z = Pos_x/10
            Select z            
              Case 0
                ImID = ImageID(#Color_Red)  
              Case 1
                ImID = ImageID(#Color_Orange)
              Case 2
                ImID = ImageID(#Color_Yellow)
              Case 3
                ImID = ImageID(#Color_Green)
              Case 4
                ImID = ImageID(#Color_Blue)
              Case 5
                ImID = ImageID(#Color_Violet)
              Case 6          
                ImID = ImageID(#Color_White)
            EndSelect
            
        EndSelect

0

max · [1985-03-29]

В итоге и получилось, что я спрашивал раньше:

Планирую так "оживлять" слайдеры:

Код:

          Pos_y=GetGadgetData(Gadget)
          Select Gadget
          Case 30
                  Select Pos_y
бла-бла...
                  EndSelect
          Case 31
                   Select Pos_y
бла-бла...
          EndSelect
      EndSelect

Но как-то не оптимально.

Код:

Select Gadget
          Case 29            
            z = Pos_x/10
            Select z            
              Case 0
                ImID = ImageID(#Color_Red)  
              Case 1
                ImID = ImageID(#Color_Orange)
              Case 2
                ImID = ImageID(#Color_Yellow)
              Case 3
                ImID = ImageID(#Color_Green)
              Case 4
                ImID = ImageID(#Color_Blue)
              Case 5
                ImID = ImageID(#Color_Violet)
              Case 6          
                ImID = ImageID(#Color_White)
            EndSelect
            
        EndSelect

Это только один гаджет и всего 7 значений, а их будет 10 и значения будут больше 7(63). Весь вопрос заключается в следующем: можно ли как-нибудь оптимизировать код или оставить как есть?

0

max · [1985-03-29]

Можно ли узнать команду запуска вот этой страницы?
Для XP:

Для 7:
Заходим "Пуск - Панель управления – Звук”. В появившемся окне в любом свободном месте тыкаем правой кнопкой мыши и видим небольшое меню. В этом меню нужно поставить галку напротив пункта "Показать отключенные устройства” и "Показать отсоединённые устройства”. Затем перейти на вкладку "Запись”. Вы попадете в раздел записывающих звук устройств ОС Windows 7, среди устройств серым цветом будет обозначен "Стерео микшер”

или этой:

Пробовал код с сайта mirashic, она выводит:
В XP:

В 7:

В "Проект Константы" нашел код бегущей строки:

Код:

Enumeration 
#Container 
#MoveString 
EndEnumeration 

Procedure MarqueeTimer()                                               ;                
  x = GadgetX(#MoveString) - 1 
  If Abs(x) > GadgetWidth(#Container) 
    x = 100 
    ResizeGadget(#MoveString, x, #PB_Ignore, #PB_Ignore, #PB_Ignore) 
  Else 
    ResizeGadget(#MoveString, x , #PB_Ignore, #PB_Ignore, #PB_Ignore) 
  EndIf 
EndProcedure 

If OpenWindow(0, 0, 0, 300, 60, "Moving string", #PB_Window_SystemMenu | #PB_Window_ScreenCentered) 
  ContainerGadget(#Container, 100, 10, 100, 20) 
  TextGadget(#MoveString, 100, 0, 300, 20, "Hello PureBasic!") 
  CloseGadgetList() 
  SetTimer_(WindowID(0), 1, 30, @MarqueeTimer()) 
  Repeat 
     event = WaitWindowEvent() 
  Until event = #PB_Event_CloseWindow 
  KillTimer_(WindowID(0), 1) 
EndIf 
End

Можно ли текст закольцевать, то есть тот текст, который "заехал" слева, тут же выезжает "справа"?

Отредактировано max (09.05.2012 23:13:34)

0

Пётр · Поделиться**204**10.05.2012 11:40:49

max написал(а):

Можно ли узнать команду запуска вот этой страницы?

Код:

RunProgram("SNDVOL32.EXE")

max написал(а):

Можно ли текст закольцевать, то есть тот текст, который "заехал" слева, тут же выезжает "справа

http://purebasic.info/phpBB2/viewtopic.php?p=22285

0

max · [1985-03-29]

Спасибо.

0

max · [1985-03-29]

А можно ли в Пурике узнать версию ОС?

0

Пётр · Поделиться**207**10.05.2012 16:25:11

max написал(а):

А можно ли в Пурике узнать версию ОС?

http://purebasic.ru/manual.php?id=846&lng=rus

0

max · [1985-03-29]

Спасибо.

0

max · [1985-03-29]

А есть возможность сделать GadgetToolTip типа "balloon"?

Ни каких доп. флагов в справке не нашел.

0

Пётр · Поделиться**210**10.05.2012 21:57:24

Обсуждалось буквально пару дней назад.

Код:

Enumeration 
   #Window_0 
 EndEnumeration 

 ;- Gadget Constants 
 ; 
 Enumeration 
   #Button_0 
 EndEnumeration 


 Procedure BalloonTip(WindowID, Gadget, Text$ , Title$, Icon) 
   
   ToolTip=CreateWindowEx_(0,"ToolTips_Class32","",#WS_POPUP | #TTS_NOPREFIX | #TTS_BALLOON,0,0,0,0,WindowID,0,GetModuleHandle_(0),0) 
   SendMessage_(ToolTip,#TTM_SETTIPTEXTCOLOR,GetSysColor_(#COLOR_INFOTEXT),0) 
   SendMessage_(ToolTip,#TTM_SETTIPBKCOLOR,GetSysColor_(#COLOR_INFOBK),0) 
   SendMessage_(ToolTip,#TTM_SETMAXTIPWIDTH,0,180) 
   Balloon.TOOLINFO\cbSize=SizeOf(TOOLINFO) 
   Balloon\uFlags=#TTF_IDISHWND | #TTF_SUBCLASS 
   Balloon\hWnd=GadgetID(Gadget) 
   Balloon\uId=GadgetID(Gadget) 
   Balloon\lpszText=@Text$ 
   SendMessage_(ToolTip, #TTM_ADDTOOL, 0, Balloon) 
   If Title$ > "" 
     SendMessage_(ToolTip, #TTM_SETTITLE, Icon, @Title$) 
   EndIf 
   
 EndProcedure 

 If OpenWindow(#Window_0, 396, 44, 600, 300, "New window ( 0 )",  #PB_Window_SystemMenu | #PB_Window_SizeGadget | #PB_Window_TitleBar ) 
   If CreateGadgetList(WindowID(#Window_0)) 
     ButtonGadget(#Button_0, 9, 5, 83, 25, "ок") 
     BalloonTip(GadgetID(#Button_0), #Button_0, "Это кнопка", "Кнока", #TOOLTIP_WARNING_ICON) 
     
   EndIf 
   Repeat:Until WaitWindowEvent() = #PB_Event_CloseWindow 
 EndIf

0

Рисованный интерфейс FM	OpenSource	27.04.2010
Фон	Вопросы по PureBasic	16.03.2014
(Статья) Создаем VSM-модель для протеуса (DLL библиотека)	PureBasic для Windows	17.04.2014
Перевод книги "PureBasic - A Beginners Guide"	Материалы сайта	04.05.2016

PureBasic - форум

Меню навигации

Пользовательские ссылки

Информация о пользователе

Рисованный интерфейс программы

Сообщений 181 страница 210 из 302

Поделиться18108.05.2012 23:58:35

Поделиться18209.05.2012 00:12:53

Поделиться18309.05.2012 11:15:20

Поделиться18409.05.2012 11:50:39

Поделиться18509.05.2012 15:44:59

Поделиться18609.05.2012 15:49:51

Поделиться18709.05.2012 15:58:10

Поделиться18809.05.2012 16:07:41

Поделиться18909.05.2012 16:16:20

Поделиться19009.05.2012 16:30:36

Поделиться19109.05.2012 16:56:32

Поделиться19209.05.2012 16:59:55

Поделиться19309.05.2012 17:09:10

Поделиться19409.05.2012 17:16:30

Поделиться19509.05.2012 17:24:32

Поделиться19609.05.2012 17:33:15

Поделиться19709.05.2012 18:27:47

Поделиться19809.05.2012 20:21:25

Поделиться19909.05.2012 20:44:05

Поделиться20009.05.2012 21:49:35

Поделиться20109.05.2012 21:58:49

Поделиться20209.05.2012 22:25:55

Поделиться20309.05.2012 23:01:45

Поделиться20410.05.2012 11:40:49

Поделиться20510.05.2012 12:14:03

Поделиться20610.05.2012 15:29:04

Поделиться20710.05.2012 16:25:11

Поделиться20810.05.2012 16:28:32

Поделиться20910.05.2012 21:29:52

Поделиться21010.05.2012 21:57:24

Похожие темы