PureBasic - форум

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

Привет, Гость! Войдите или зарегистрируйтесь.

Вы здесь » PureBasic - форум » Вопросы по PureBasic » Рисованный интерфейс программы

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

Страница:   1 … 8 9 10 11  

Сообщений 271 страница 300 из 302

271

  • Автор: Пётр
  • Активный участник
  • Зарегистрирован: 14.06.2009
  • Приглашений: 0
  • Сообщений: 3155
  • Уважение: [+101/-5]
  • Позитив: [+1/-0]
  • Пол: Мужской
  • Провел на форуме:
    2 месяца 13 дней
  • Последний визит:
    Сегодня 13:43:42
max написал(а):

Что-то я видимо не допонял

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

Получаем доступ к структуре SCROLL в процедуре FindDevice_Timer()

Я имел в виду получить доступ к существующей структуре (указатель на которую был передан функции CreateScroller()), а не создать новую в процедуре (она будет размещена по другому адресу в памяти, чем переданная в функцию CreateScroller()).

Код:
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
  #Skin_Image 
EndEnumeration

Global Win1.s = "Подключено HID-устройство"
Global Win2.s = "Устройство не обнаруженно"

#USB_PID          = $2012      ; Идентификаторы  USB устройства.
#USB_VID          = $2004

UsePNGImageDecoder()

 Structure SCROLL_STRUCT 
    scroll_hwnd.l      ;handle of window where to draw 
    scroll_text.s      ;pointer scrolltext 
    scroll_x.l           ;x position 
    scroll_y.l           ;y position 
    scroll_width.l       ;width of scroller 
    scroll_hFont.l      ;Handle of Font 
    scroll_textcolor.l ;example: 00F7DDCCh (00BBGGRR) 
    scroll_alpha.b       ;value for transparency (if using it on WS_EX_LAYERED window)  
    scroll_wait.l         ;wait time (milliseconds) before draw scrolltext 
    scroll_pause.b       ;dont modify this! Use PauseScroller function! 
    scroll_speed.l     ;скорость скроллинга (милисекунды)  
    scroll_hThread.l    ;дескриптор потока 
 EndStructure 

 Import "TextScroller.lib" 
    CreateScroller(scr.l) 
    PauseScroller (scr) 
  EndImport
  
  UpdatePos.RECT

  HOLLOW_BRUSH=GetStockObject_(#HOLLOW_BRUSH)
  SCROLL.SCROLL_STRUCT
  
Procedure FindDevice_Timer()
  Static Old_Test
  Shared W_DeviceHandle, SCROLL
  
  Test=HID_Lib_DeviceTest(#USB_PID, #USB_VID)
  If Test<>Old_Test
    Old_Test=Test
    If Test 
      HID_Lib_CloseDevice(W_DeviceHandle)
      W_DeviceHandle=HID_Lib_OpenDevice(#USB_PID, #USB_VID)
      Win1.s = "Подключено HID устройство"
      SCROLL\scroll_text = Win1
    Else
      HID_Lib_CloseDevice(W_DeviceHandle)
      W_DeviceHandle=0
      Win2.s = "Устройство не обнаруженно"
      SCROLL\scroll_text = Win2
    EndIf
  EndIf
EndProcedure

Procedure Draw_y(x, y, Gadget, ImageID, Active_ImID=0)
  GrabImage(#Skin_Image, #V_track, GadgetX(Gadget), GadgetY(Gadget), GadgetWidth(Gadget), GadgetHeight(Gadget))
  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)
  GrabImage(#Skin_Image, #H_track, GadgetX(Gadget), GadgetY(Gadget), GadgetWidth(Gadget), GadgetHeight(Gadget))
  StartDrawing(CanvasOutput(Gadget))
  DrawImage(ImageID(#H_track), 0, 0)
  If Active_ImID
    DrawAlphaImage(Active_ImID, 4, 0)
  EndIf
  DrawAlphaImage(ImageID, x, y)
  StopDrawing()
EndProcedure

Procedure WindowCallback(hWnd, Msg, wParam, lParam)
  Shared HOLLOW_BRUSH
  Result = #PB_ProcessPureBasicEvents
  
  If Msg = #WM_CTLCOLORSTATIC And GetDlgCtrlID_(lParam)=19
    SetTextColor_(wParam, $FFFFFF)
    SetBkMode_(wParam, #TRANSPARENT)
    ProcedureReturn HOLLOW_BRUSH
  EndIf
  
  ProcedureReturn Result
EndProcedure



CatchImage(#Skin_Image, ?Skin_Image)
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)

x=OpenWindow(0, 0, 0, 200, 200, "CanvasGadget", #PB_Window_SystemMenu | #PB_Window_ScreenCentered)
SetWindowCallback(@WindowCallback(), 0)
SetClassLongPtr_(WindowID(#Window_0), #GCL_HBRBACKGROUND, CreatePatternBrush_(ImageID(#Skin_Image)))

   ContainerGadget(219, 5,  178, 190, 20)
   SetGadgetColor(219, #PB_Gadget_BackColor, $000000)
  
     
    SCROLL\scroll_hwnd      = x 
    SCROLL\scroll_text      = Win2
    SCROLL\scroll_x         = 5 
    SCROLL\scroll_y         = 178 
    SCROLL\scroll_width     = 185
    SCROLL\scroll_hFont     = LoadFont(2, "Times New Roman", 13, #PB_Font_Bold) 
    SCROLL\scroll_textcolor = RGB(0,128,255)
    SCROLL\scroll_alpha     = 200
    SCROLL\scroll_speed     = 20 
    
    CreateScroller(SCROLL)
    CloseGadgetList()
    
;     If HID_Lib_DeviceTest(#USB_PID, #USB_VID)
;       If SCROLL\scroll_hThread 
;         TerminateThread_(SCROLL\scroll_hThread, 0) 
;         InvalidateRect_(WindowID(#Window_0), 0, #True) 
;         SCROLL\scroll_text      = Win1 
;         SCROLL\scroll_hFont     = LoadFont(2, "Times New Roman", 13, #PB_Font_Bold) 
;         SCROLL\scroll_textcolor = RGB(0,128,255)
;         CreateScroller(SCROLL) 
;       EndIf 
;     Else
;       If SCROLL\scroll_hThread 
;         TerminateThread_(SCROLL\scroll_hThread, 0) 
;         InvalidateRect_(WindowID(#Window_0), 0, #True) 
;         SCROLL\scroll_text      = Win2 
;         SCROLL\scroll_hFont     = LoadFont(2, "Times New Roman", 13, #PB_Font_Bold) 
;         SCROLL\scroll_textcolor = RGB(0,128,255) 
;         CreateScroller(SCROLL) 
;       EndIf
;     EndIf

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, 1, 30, ImageID(#V_knob1))
CanvasGadget(31, 35, 80, 15, 87)
Draw_y(0, 1, 31, ImageID(#V_knob2))
CanvasGadget(32, 50, 80, 15, 87)
Draw_y(0, 1, 32, ImageID(#V_knob3))
CanvasGadget(33, 65, 80, 15, 87)
Draw_y(0, 1, 33, ImageID(#V_knob4))
CanvasGadget(34, 80, 80, 15, 87)
Draw_y(0, 1, 34, ImageID(#V_knob5))
CanvasGadget(35, 95, 80, 15, 87)
Draw_y(0, 1, 35, ImageID(#V_knob6))

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

TextGadget(19, 120, 120, 15, 15,"")

SetTimer_(x, 2, 400, @FindDevice_Timer())

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 
          If y>87-23 : y = 87-23 : 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+1, 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)
          SetGadgetText(19, Str(x))
          SetRect_(@UpdatePos, 120, 120, 120+15, 120+15)
          InvalidateRect_(WindowID(0), @UpdatePos, 1)
          
          ; Мышка или вошла в пределы регулятора или вышла из него.
        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
  ;{ ресурсы
  
  Skin_Image:
  IncludeBinary "Files\Skin_Image.png"
  
  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

0

272

  • Автор: max
  • Активный участник
  • Зарегистрирован: 24.11.2010
  • Приглашений: 0
  • Сообщений: 571
  • Уважение: [+1/-0]
  • Позитив: [+40/-0]
  • Пол: Мужской
  • Возраст: 40 [1985-03-29]
  • Провел на форуме:
    1 месяц 14 дней
  • Последний визит:
    13.06.2025 10:10:55

Понял, спасибо.

0

273

  • Автор: max
  • Активный участник
  • Зарегистрирован: 24.11.2010
  • Приглашений: 0
  • Сообщений: 571
  • Уважение: [+1/-0]
  • Позитив: [+40/-0]
  • Пол: Мужской
  • Возраст: 40 [1985-03-29]
  • Провел на форуме:
    1 месяц 14 дней
  • Последний визит:
    13.06.2025 10:10:55

Не подскажите, каким образом можно заменить картинку на другую, таких же размеров? Это нужно делать через Result = ImageID(#Image)?

0

274

  • Автор: Пётр
  • Активный участник
  • Зарегистрирован: 14.06.2009
  • Приглашений: 0
  • Сообщений: 3155
  • Уважение: [+101/-5]
  • Позитив: [+1/-0]
  • Пол: Мужской
  • Провел на форуме:
    2 месяца 13 дней
  • Последний визит:
    Сегодня 13:43:42

Смотря где заменять. Но обычно через ImageID().

0

275

  • Автор: max
  • Активный участник
  • Зарегистрирован: 24.11.2010
  • Приглашений: 0
  • Сообщений: 571
  • Уважение: [+1/-0]
  • Позитив: [+40/-0]
  • Пол: Мужской
  • Возраст: 40 [1985-03-29]
  • Провел на форуме:
    1 месяц 14 дней
  • Последний визит:
    13.06.2025 10:10:55
Пётр написал(а):

Смотря где заменять.

Менять фон(скин).

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

Но обычно через ImageID().

ImageID я узнаю, а вот как заменить что-то не соображу.
Как-то так?

Код:
ImageID(#Image) = ImageID(#Im)

Так синтатическая ошибка выскакивает.

Код:
        Result = ImageID(#Image)
        Result1 = ImageID(#Image1)
        Result = Result1
        ImageID(#Image) = Result

И так тоже.

Отредактировано max (28.05.2012 09:40:31)

0

276

  • Автор: Пётр
  • Активный участник
  • Зарегистрирован: 14.06.2009
  • Приглашений: 0
  • Сообщений: 3155
  • Уважение: [+101/-5]
  • Позитив: [+1/-0]
  • Пол: Мужской
  • Провел на форуме:
    2 месяца 13 дней
  • Последний визит:
    Сегодня 13:43:42
max написал(а):

а вот как заменить что-то не соображу.

А если немного подумать логически посмотрев как устанавливается фоновый рисунок окна?

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

Так синтатическая ошибка выскакивает.

В этой строке нет логики.
Прочитай описание функции ImageID().

0

277

  • Автор: max
  • Активный участник
  • Зарегистрирован: 24.11.2010
  • Приглашений: 0
  • Сообщений: 571
  • Уважение: [+1/-0]
  • Позитив: [+40/-0]
  • Пол: Мужской
  • Возраст: 40 [1985-03-29]
  • Провел на форуме:
    1 месяц 14 дней
  • Последний визит:
    13.06.2025 10:10:55
Пётр написал(а):

А если немного подумать логически посмотрев как устанавливается фоновый рисунок окна?

Код:
SetClassLongPtr_(WindowID(#Window_0), #GCL_HBRBACKGROUND, CreatePatternBrush_(ImageID(#Skin_Image)))
Пётр написал(а):

Прочитай описание функции ImageID().

Читал, возвращает хэндл указанного изображения.

0

278

  • Автор: max
  • Активный участник
  • Зарегистрирован: 24.11.2010
  • Приглашений: 0
  • Сообщений: 571
  • Уважение: [+1/-0]
  • Позитив: [+40/-0]
  • Пол: Мужской
  • Возраст: 40 [1985-03-29]
  • Провел на форуме:
    1 месяц 14 дней
  • Последний визит:
    13.06.2025 10:10:55

Сделал так:

Код:
Case 3
SetClassLongPtr_(WindowID(#Window_0), #GCL_HBRBACKGROUND, CreatePatternBrush_(ImageID(#Skin_Image)))
      Case 4 
SetClassLongPtr_(WindowID(#Window_0), #GCL_HBRBACKGROUND, CreatePatternBrush_(ImageID(#Skin_Image1)))

окно обновлается только после сворачивания/разворачивания.

0

279

  • Автор: Пётр
  • Активный участник
  • Зарегистрирован: 14.06.2009
  • Приглашений: 0
  • Сообщений: 3155
  • Уважение: [+101/-5]
  • Позитив: [+1/-0]
  • Пол: Мужской
  • Провел на форуме:
    2 месяца 13 дней
  • Последний визит:
    Сегодня 13:43:42
max написал(а):

Читал, возвращает хэндл указанного изображения.

То есть не записывает, а именно возвращает, поэтому такая конструкция не имеет смысла.

Код:
ImageID(#Image) = ImageID(#Im)
max написал(а):

окно обновлается только после сворачивания/разворачивания

Значит надо заставить окно перерисоваться.

Код:
InvalidateRect_(WindowID(#Window_0), 0, 1)

И тут есть еще один "подводный камень", нужно удалять кисть,  когда она больше не нужна, иначе будет сначала утечка ресурсов, а потом глюки.

Код:
If Skin_Brush
  DeleteObject_(Skin_Brush)
EndIf

Skin_Brush = CreatePatternBrush_(ImageID(#Skin_Image))
SetClassLongPtr_(WindowID(#Window_0), #GCL_HBRBACKGROUND, Skin_Brush)

+1

280

  • Автор: max
  • Активный участник
  • Зарегистрирован: 24.11.2010
  • Приглашений: 0
  • Сообщений: 571
  • Уважение: [+1/-0]
  • Позитив: [+40/-0]
  • Пол: Мужской
  • Возраст: 40 [1985-03-29]
  • Провел на форуме:
    1 месяц 14 дней
  • Последний визит:
    13.06.2025 10:10:55
Код:
      Case 3
        
        If Skin_Brush
        DeleteObject_(Skin_Brush)
        EndIf
      
        Skin_Brush = CreatePatternBrush_(ImageID(#Skin_Image1))
        SetClassLongPtr_(WindowID(#Window_0), #GCL_HBRBACKGROUND, Skin_Brush)
        SetClassLongPtr_(WindowID(#Window_0), #GCL_HBRBACKGROUND, CreatePatternBrush_(ImageID(#Skin_Image)))
        InvalidateRect_(WindowID(#Window_0), 0, 1)

      Case 4 

        If Skin_Brush
        DeleteObject_(Skin_Brush)
        EndIf

        Skin_Brush = CreatePatternBrush_(ImageID(#Skin_Image))
        SetClassLongPtr_(WindowID(#Window_0), #GCL_HBRBACKGROUND, Skin_Brush)
        SetClassLongPtr_(WindowID(#Window_0), #GCL_HBRBACKGROUND, CreatePatternBrush_(ImageID(#Skin_Image1)))
        InvalidateRect_(WindowID(#Window_0), 0, 1)

Работает, спасибо.

Отредактировано max (28.05.2012 12:35:38)

0

281

  • Автор: max
  • Активный участник
  • Зарегистрирован: 24.11.2010
  • Приглашений: 0
  • Сообщений: 571
  • Уважение: [+1/-0]
  • Позитив: [+40/-0]
  • Пол: Мужской
  • Возраст: 40 [1985-03-29]
  • Провел на форуме:
    1 месяц 14 дней
  • Последний визит:
    13.06.2025 10:10:55

Опять грабли: при смене скина картинка меняется не вся.
http://uploads.ru/i/s/P/f/sPf3c.gif
Код. Что не так?

0

282

  • Автор: Пётр
  • Активный участник
  • Зарегистрирован: 14.06.2009
  • Приглашений: 0
  • Сообщений: 3155
  • Уважение: [+101/-5]
  • Позитив: [+1/-0]
  • Пол: Мужской
  • Провел на форуме:
    2 месяца 13 дней
  • Последний визит:
    Сегодня 13:43:42

Блин, сколько уже пытаюсь объяснить, научить, но безтолку!
Только пару постов выше писал что нужно освобождать кисть и привел пример и что я вижу:

Код:
        Skin_Brush = CreatePatternBrush_(ImageID(#Skin_Image2))
        SetClassLongPtr_(WindowID(#Window_0), #GCL_HBRBACKGROUND, Skin_Brush)
        SetClassLongPtr_(WindowID(#Window_0), #GCL_HBRBACKGROUND, CreatePatternBrush_(ImageID(#Skin_Image)))

Объясни мне как работают эти строки. Я то знаю, это нужно для того чтобы ты сам понял их назначение.
Похоже что для тебя это темный лес иначе зачем добавлена третья строка, которая мало того что не нужна, так еще приведет к утечке ресурсов, ведь кисть не освобождается!
Без понимания работы кода ничего толкового не получится. Попробуй понять как работает каждая строка. В этом поможет справка, а  в случае WinAPI - гугл.
Дальше, знаешь что такое процедуры или в крайнем случае, подпрограммы? Если да, то почему в коде присутствует копипаст (практически одинаковые куски кода находятся в разных частях программы), ведь можно заменить одной процедурой и размер программы уменьшится.

Код:
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
  #Skin_Image
  #Skin_Image1
  #Skin_Image2
  #Skin_Win
EndEnumeration

UsePNGImageDecoder()

Procedure Draw_y(x, y, Gadget, ImageID, Active_ImID=0)
  GrabImage(#Skin_Win, #V_track, GadgetX(Gadget), GadgetY(Gadget), GadgetWidth(Gadget), GadgetHeight(Gadget))
  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)
  GrabImage(#Skin_Win, #H_track, GadgetX(Gadget), GadgetY(Gadget), GadgetWidth(Gadget), GadgetHeight(Gadget))
  StartDrawing(CanvasOutput(Gadget))
  DrawImage(ImageID(#H_track), 0, 0)
  If Active_ImID
    DrawAlphaImage(Active_ImID, 4, 0)
  EndIf
  DrawAlphaImage(ImageID, x, y)
  StopDrawing()
EndProcedure

Procedure SimulateGadgetEvent(Gadget, EventType) 
   Protected wp=Gadget+EventType<<(SizeOf(Word)*8) 
   Protected lp=GadgetID(Gadget) 
   ;get parent window 
   Protected win=GetParent_(GadgetID(Gadget)) 
   While GetParent_(win) : win=GetParent_(win) : Wend 
   ;send message to window 
   PostMessage_(win, #WM_COMMAND, wp, lp) 
EndProcedure 


Procedure UpdateSkin(Image, Menu)
  
  Shared Skin_Brush
  If Skin_Brush
    DeleteObject_(Skin_Brush)
  EndIf
  
  Skin_Brush = CreatePatternBrush_(ImageID(Image))
  SetClassLongPtr_(WindowID(#Window_0), #GCL_HBRBACKGROUND, Skin_Brush)
  
  CopyImage(Image, #Skin_Win)
  
  For i=20 To 29
    Draw_x(GetGadgetData(i), 0, i, ImageID(i))
  Next i
  
  For i=30 To 35
    Draw_y(0, GetGadgetData(i), i, ImageID(i))
  Next i
  
  InvalidateRect_(WindowID(#Window_0), 0, 1)
  
  For i=1 To 3
    If i=Menu
      SetMenuItemState(50,i,1)
    Else
      SetMenuItemState(50,i,0)
    EndIf
  Next i
        
EndProcedure

CatchImage(#Skin_Image, ?Skin_Image) 
CatchImage(#Skin_Image1, ?Skin_Image1) 
CatchImage(#Skin_Image2, ?Skin_Image2) 
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) 

OpenWindow(0, 0, 0, 174, 162, "CanvasGadget", #PB_Window_SystemMenu | #PB_Window_ScreenCentered)

SetClassLongPtr_(WindowID(#Window_0), #GCL_HBRBACKGROUND, CreatePatternBrush_(ImageID(#Skin_Image)))
CopyImage(#Skin_Image, #Skin_Win)

    CreatePopupImageMenu(50, #PB_Menu_ModernLook)        
        OpenSubMenu("Скин")
        MenuItem(1, "1")
        SetMenuItemState(50,1,1)
        MenuItem(2, "2")
        MenuItem(3, "3")
        CloseSubMenu()
        MenuBar() 
        MenuItem(10, "Выход")

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, 1, 30, ImageID(#V_knob1))
CanvasGadget(31, 35, 80, 15, 87)
Draw_y(0, 1, 31, ImageID(#V_knob2))
CanvasGadget(32, 50, 80, 15, 87)
Draw_y(0, 1, 32, ImageID(#V_knob3))
CanvasGadget(33, 65, 80, 15, 87)
Draw_y(0, 1, 33, ImageID(#V_knob4))
CanvasGadget(34, 80, 80, 15, 87)
Draw_y(0, 1, 34, ImageID(#V_knob5))
CanvasGadget(35, 95, 80, 15, 87)
Draw_y(0, 1, 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 EventType() = #PB_EventType_RightClick ; Обработка правой кнопки мышки 
      DisplayPopupMenu(50, WindowID(0)) ; показ вспывающего меню 
    EndIf 
  
    If Event = #PB_Event_Menu 
      Menu=EventMenu()
    Select Menu
      Case 1
        UpdateSkin(#Skin_Image2, Menu)
      Case 2 
        UpdateSkin(#Skin_Image, Menu)
        
      Case 3
        UpdateSkin(#Skin_Image1, Menu)
        
      Case 10 ;"Выход"
        Break
    EndSelect 
  EndIf 
  
  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 
          If y>87-23 : y = 87-23 : 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+1, 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
  ;{ ресурсы
  
  Skin_Image:
  IncludeBinary "Files\Skin_Image.png"
  
  Skin_Image1:
  IncludeBinary "Files\Skin_Image1.png"
    
  Skin_Image2:
  IncludeBinary "Files\Skin_Image2.png"
  
  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"
  
  ;}
EndDataSection

+1

283

  • Автор: max
  • Активный участник
  • Зарегистрирован: 24.11.2010
  • Приглашений: 0
  • Сообщений: 571
  • Уважение: [+1/-0]
  • Позитив: [+40/-0]
  • Пол: Мужской
  • Возраст: 40 [1985-03-29]
  • Провел на форуме:
    1 месяц 14 дней
  • Последний визит:
    13.06.2025 10:10:55
Пётр написал(а):

Похоже что для тебя это темный лес

Скажу больше: очень темный, но пытаюсь понять.

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

Объясни мне как работают эти строки.

Попробую:

Код:
If Skin_Brush
  DeleteObject_(Skin_Brush)
EndIf

удаляет логическую кисть(рисунок), если она уже больше не нужна.

Код:
Skin_Brush = CreatePatternBrush_(ImageID(#Skin_Image2))

создает логическую кисть с заданным точечным рисунком(в нашем случае #Skin_Image2)

Код:
SetClassLongPtr_(WindowID(#Window_0), #GCL_HBRBACKGROUND, Skin_Brush)

заменяет указанное значение, то есть в окне #Window_0 заменяет дескриптор кисти фона(#GCL_HBRBACKGROUND) на Skin_Brush(в нашем случае #Skin_Image2). Или по простому: вместо стандартного окна винды будет наш рисунок.

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

знаешь что такое процедуры или в крайнем случае, подпрограммы?

Знаю, но всегда, почему-то, ими пользуюсь редко.
P.S. Спасибо, что тратите свое время на меня.

0

284

  • Автор: max
  • Активный участник
  • Зарегистрирован: 24.11.2010
  • Приглашений: 0
  • Сообщений: 571
  • Уважение: [+1/-0]
  • Позитив: [+40/-0]
  • Пол: Мужской
  • Возраст: 40 [1985-03-29]
  • Провел на форуме:
    1 месяц 14 дней
  • Последний визит:
    13.06.2025 10:10:55

Привет.
Можно ли вывести в TextGadget символ ∞(бесконечности, dec-8734, hex-221E) из Unicode?

Отредактировано max (31.05.2012 17:22:33)

0

285

  • Автор: Пётр
  • Активный участник
  • Зарегистрирован: 14.06.2009
  • Приглашений: 0
  • Сообщений: 3155
  • Уважение: [+101/-5]
  • Позитив: [+1/-0]
  • Пол: Мужской
  • Провел на форуме:
    2 месяца 13 дней
  • Последний визит:
    Сегодня 13:43:42

Если программа собрана в юникоде, то да. http://ifolder.ru/30839182
Если в ASCII, то тоже можно, но будет намного сложнее.

0

286

  • Автор: max
  • Активный участник
  • Зарегистрирован: 24.11.2010
  • Приглашений: 0
  • Сообщений: 571
  • Уважение: [+1/-0]
  • Позитив: [+40/-0]
  • Пол: Мужской
  • Возраст: 40 [1985-03-29]
  • Провел на форуме:
    1 месяц 14 дней
  • Последний визит:
    13.06.2025 10:10:55
Пётр написал(а):

Если в ASCII, то тоже можно, но будет намного сложнее.

Первый вариант не подходит, а второй - это как?

0

287

  • Автор: Пётр
  • Активный участник
  • Зарегистрирован: 14.06.2009
  • Приглашений: 0
  • Сообщений: 3155
  • Уважение: [+101/-5]
  • Позитив: [+1/-0]
  • Пол: Мужской
  • Провел на форуме:
    2 месяца 13 дней
  • Последний визит:
    Сегодня 13:43:42
max написал(а):

Первый вариант не подходит

Почему?
Нужно запускать программу на Win9x? Если нет, то что мешает?

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

а второй - это как?

Это импортировать функции CreateWindowExW, SendMessageW и др. из user32.lib, создать контрол типа Static и работать с ним. При этом нужно забыть про стандартные строки, поскольку они в ASCII формате. Нужно будет выделять память, и конвертировать из ASCII в юникод.
Короче, заморочек много. Намного проще первый вариант, поскольку там все это будет по умолчанию.

0

288

  • Автор: max
  • Активный участник
  • Зарегистрирован: 24.11.2010
  • Приглашений: 0
  • Сообщений: 571
  • Уважение: [+1/-0]
  • Позитив: [+40/-0]
  • Пол: Мужской
  • Возраст: 40 [1985-03-29]
  • Провел на форуме:
    1 месяц 14 дней
  • Последний визит:
    13.06.2025 10:10:55
Пётр написал(а):

Почему?

У меня это код:

Код:
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
  #Skin_Image
  #Skin_Image1
  #Skin_Image2
EndEnumeration

UsePNGImageDecoder()

Procedure Draw_y(x, y, Gadget, ImageID, Active_ImID=0)
  GrabImage(#Skin_Image, #V_track, GadgetX(Gadget), GadgetY(Gadget), GadgetWidth(Gadget), GadgetHeight(Gadget))
  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)
  GrabImage(#Skin_Image, #H_track, GadgetX(Gadget), GadgetY(Gadget), GadgetWidth(Gadget), GadgetHeight(Gadget))
  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(#Skin_Image, ?Skin_Image) 
CatchImage(#Skin_Image1, ?Skin_Image1) 
CatchImage(#Skin_Image2, ?Skin_Image2) 
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) 

OpenWindow(0, 0, 0, 174, 162, "CanvasGadget", #PB_Window_SystemMenu | #PB_Window_ScreenCentered)

SetClassLongPtr_(WindowID(#Window_0), #GCL_HBRBACKGROUND, CreatePatternBrush_(ImageID(#Skin_Image)))

    CreatePopupImageMenu(50, #PB_Menu_ModernLook)        
        OpenSubMenu("Скин")
        MenuItem(1, "1")
        SetMenuItemState(50,1,1)
        MenuItem(2, "2")
        MenuItem(3, "3")
        CloseSubMenu()
        MenuBar() 
        MenuItem(10, "Выход")
        
        TextGadget(0, 100, 100, 50, 50,Chr(8734), #PB_Text_Center)
SetGadgetFont(0, LoadFont(0, "Arial", 14))

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, 1, 30, ImageID(#V_knob1))
CanvasGadget(31, 35, 80, 15, 87)
Draw_y(0, 1, 31, ImageID(#V_knob2))
CanvasGadget(32, 50, 80, 15, 87)
Draw_y(0, 1, 32, ImageID(#V_knob3))
CanvasGadget(33, 65, 80, 15, 87)
Draw_y(0, 1, 33, ImageID(#V_knob4))
CanvasGadget(34, 80, 80, 15, 87)
Draw_y(0, 1, 34, ImageID(#V_knob5))
CanvasGadget(35, 95, 80, 15, 87)
Draw_y(0, 1, 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 EventType() = #PB_EventType_RightClick ; Обработка правой кнопки мышки 
      DisplayPopupMenu(50, WindowID(0)) ; показ вспывающего меню 
    EndIf 
  
  If Event = #PB_Event_Menu 
    Select EventMenu() 
      Case 1
            
        If Skin_Brush
        DeleteObject_(Skin_Brush)
        EndIf
      
        Skin_Brush = CreatePatternBrush_(ImageID(#Skin_Image2))
        SetClassLongPtr_(WindowID(#Window_0), #GCL_HBRBACKGROUND, Skin_Brush)
        SetClassLongPtr_(WindowID(#Window_0), #GCL_HBRBACKGROUND, CreatePatternBrush_(ImageID(#Skin_Image)))
        InvalidateRect_(WindowID(#Window_0), 0, 1)
        SetMenuItemState(50,1,1)
        SetMenuItemState(50,2,0)
        SetMenuItemState(50,3,0)
      Case 2 
               If Skin_Brush
        DeleteObject_(Skin_Brush)
        EndIf

        Skin_Brush = CreatePatternBrush_(ImageID(#Skin_Image))
        SetClassLongPtr_(WindowID(#Window_0), #GCL_HBRBACKGROUND, Skin_Brush)
        SetClassLongPtr_(WindowID(#Window_0), #GCL_HBRBACKGROUND, CreatePatternBrush_(ImageID(#Skin_Image1)))
        InvalidateRect_(WindowID(#Window_0), 0, 1)
        SetMenuItemState(50,1,0)
        SetMenuItemState(50,2,1)
        SetMenuItemState(50,3,0)
      Case 3
        If Skin_Brush
        DeleteObject_(Skin_Brush)
        EndIf
      
        Skin_Brush = CreatePatternBrush_(ImageID(#Skin_Image1))
        SetClassLongPtr_(WindowID(#Window_0), #GCL_HBRBACKGROUND, Skin_Brush)
        SetClassLongPtr_(WindowID(#Window_0), #GCL_HBRBACKGROUND, CreatePatternBrush_(ImageID(#Skin_Image2)))
        InvalidateRect_(WindowID(#Window_0), 0, 1)
        SetMenuItemState(50,1,0)
        SetMenuItemState(50,2,0)
        SetMenuItemState(50,3,1)
      Case 10 ;"Выход"
        Break
    EndSelect 
  EndIf 
  
  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 
          If y>87-23 : y = 87-23 : 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+1, 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
  ;{ ресурсы
  
  Skin_Image:
  IncludeBinary "Files\Skin_Image.png"
  
  Skin_Image1:
  IncludeBinary "Files\Skin_Image1.png"
    
  Skin_Image2:
  IncludeBinary "Files\Skin_Image2.png"
  
  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"
  
  ;}
EndDataSection

выводит это:
http://uploads.ru/i/I/t/1/It1ax.png

0

289

  • Автор: Пётр
  • Активный участник
  • Зарегистрирован: 14.06.2009
  • Приглашений: 0
  • Сообщений: 3155
  • Уважение: [+101/-5]
  • Позитив: [+1/-0]
  • Пол: Мужской
  • Провел на форуме:
    2 месяца 13 дней
  • Последний визит:
    Сегодня 13:43:42
max написал(а):

выводит это

Точно собираешь прогу в юникоде?
У меня все ОК.
http://uploads.ru/t/2/p/l/2plIe.png

0

290

  • Автор: max
  • Активный участник
  • Зарегистрирован: 24.11.2010
  • Приглашений: 0
  • Сообщений: 571
  • Уважение: [+1/-0]
  • Позитив: [+40/-0]
  • Пол: Мужской
  • Возраст: 40 [1985-03-29]
  • Провел на форуме:
    1 месяц 14 дней
  • Последний визит:
    13.06.2025 10:10:55

В "настройках компилятора" стоит галка "создать unicode приложение", а больше я не знаю. :dontknow:

0

291

  • Автор: Пётр
  • Активный участник
  • Зарегистрирован: 14.06.2009
  • Приглашений: 0
  • Сообщений: 3155
  • Уважение: [+101/-5]
  • Позитив: [+1/-0]
  • Пол: Мужской
  • Провел на форуме:
    2 месяца 13 дней
  • Последний визит:
    Сегодня 13:43:42

Еще нужно переключить редактор в UTF-8.
Тут (в конце страницы) показано как это сделать. http://purebasic.ucoz.ru/publ/uchebnye_ … my/4-1-0-8
Нужно обратить внимание на предупреждение.

Внимание! Это действие может испортить код программы, поэтому его предварительно желательно сохранить в буфере обмена или в другом месте.

+1

292

  • Автор: max
  • Активный участник
  • Зарегистрирован: 24.11.2010
  • Приглашений: 0
  • Сообщений: 571
  • Уважение: [+1/-0]
  • Позитив: [+40/-0]
  • Пол: Мужской
  • Возраст: 40 [1985-03-29]
  • Провел на форуме:
    1 месяц 14 дней
  • Последний визит:
    13.06.2025 10:10:55

Спасибо, теперь работает.

0

293

  • Автор: max
  • Активный участник
  • Зарегистрирован: 24.11.2010
  • Приглашений: 0
  • Сообщений: 571
  • Уважение: [+1/-0]
  • Позитив: [+40/-0]
  • Пол: Мужской
  • Возраст: 40 [1985-03-29]
  • Провел на форуме:
    1 месяц 14 дней
  • Последний визит:
    13.06.2025 10:10:55

Почему компилятор ругается на ^ ?

0

294

  • Автор: Пётр
  • Активный участник
  • Зарегистрирован: 14.06.2009
  • Приглашений: 0
  • Сообщений: 3155
  • Уважение: [+101/-5]
  • Позитив: [+1/-0]
  • Пол: Мужской
  • Провел на форуме:
    2 месяца 13 дней
  • Последний визит:
    Сегодня 13:43:42

Потому что нет такого оператора.
Используй Pow().

0

295

  • Автор: max
  • Активный участник
  • Зарегистрирован: 24.11.2010
  • Приглашений: 0
  • Сообщений: 571
  • Уважение: [+1/-0]
  • Позитив: [+40/-0]
  • Пол: Мужской
  • Возраст: 40 [1985-03-29]
  • Провел на форуме:
    1 месяц 14 дней
  • Последний визит:
    13.06.2025 10:10:55

Спасибо, попробую.

0

296

  • Автор: max
  • Активный участник
  • Зарегистрирован: 24.11.2010
  • Приглашений: 0
  • Сообщений: 571
  • Уважение: [+1/-0]
  • Позитив: [+40/-0]
  • Пол: Мужской
  • Возраст: 40 [1985-03-29]
  • Провел на форуме:
    1 месяц 14 дней
  • Последний визит:
    13.06.2025 10:10:55
Код:
Global Dim Gain.f(17)

   Pos_y=GetGadgetData(Gadget)
        Select Gadget
            
          Case 30 To 47   
            
            y_db=Pos_y/1.3
            For i=30 To 47
            Gain(i)=Pow(2,(y_db/6))
            Next i
        EndSelect

Выскакивает ошибка на строке Gain(i)=Pow(2,(y_db/6)):
Указатель массива больше допустимого диапазона.

0

297

  • Автор: Пётр
  • Активный участник
  • Зарегистрирован: 14.06.2009
  • Приглашений: 0
  • Сообщений: 3155
  • Уважение: [+101/-5]
  • Позитив: [+1/-0]
  • Пол: Мужской
  • Провел на форуме:
    2 месяца 13 дней
  • Последний визит:
    Сегодня 13:43:42
max написал(а):

Выскакивает ошибка на строке Gain(i)=Pow(2,(y_db/6)):
Указатель массива больше допустимого диапазона.

Неужели сразу не бросается в глаза что массив может иметь индексы от 0 до 17, а в цикле происходит перебор от 30 до 47?
Это же простейшая математика, уровня 1 класса!

0

298

  • Автор: max
  • Активный участник
  • Зарегистрирован: 24.11.2010
  • Приглашений: 0
  • Сообщений: 571
  • Уважение: [+1/-0]
  • Позитив: [+40/-0]
  • Пол: Мужской
  • Возраст: 40 [1985-03-29]
  • Провел на форуме:
    1 месяц 14 дней
  • Последний визит:
    13.06.2025 10:10:55

Согласен, туплю.

0

299

  • Автор: max
  • Активный участник
  • Зарегистрирован: 24.11.2010
  • Приглашений: 0
  • Сообщений: 571
  • Уважение: [+1/-0]
  • Позитив: [+40/-0]
  • Пол: Мужской
  • Возраст: 40 [1985-03-29]
  • Провел на форуме:
    1 месяц 14 дней
  • Последний визит:
    13.06.2025 10:10:55

Привет.
Можно ли видео, проигрываемое с помощью PlayMovie, проигрывать постоянно?
То есть одно выдео постоянно.

Отредактировано max (04.06.2012 20:19:13)

0

300

  • Автор: Пётр
  • Активный участник
  • Зарегистрирован: 14.06.2009
  • Приглашений: 0
  • Сообщений: 3155
  • Уважение: [+101/-5]
  • Позитив: [+1/-0]
  • Пол: Мужской
  • Провел на форуме:
    2 месяца 13 дней
  • Последний визит:
    Сегодня 13:43:42

Вроде нет.
Нужно регулярно проверять статус воспроизведения функцией MovieStatus() и если воспроизведение остановлено, то запустить его снова.

0

Страница:   1 … 8 9 10 11  

Вы здесь » PureBasic - форум » Вопросы по PureBasic » Рисованный интерфейс программы