свой color picker


Мне стало интересно, будет ли сразу работать программа. Со второго раза заработала. Причина - опечатка

If OpenWindow(0, 0, 0, 220, 220, "Color picker", #PB_Window_SystemMenu | #PB_Window_ScreenCentered)
  CanvasGadget(0, 0, 0, 200, 200)
  
  AddWindowTimer(0,1,100)
  Repeat
    Event = WaitWindowEvent()
    Select event
      Case #PB_Event_Timer
        hwnd.l=GetDesktopWindow_()
        hdc.l=GetWindowDC_(hwnd)

        ps.PAINTSTRUCT
        BeginPaint_(hwnd,ps)
        
        pp.POINT
        GetCursorPos_(@pp)
        cc.l=GetPixel_(hdc,pp\x,pp\y)
        EndPaint_(hwnd,@ps)
        SetWindowTitle(0,Hex(cc))

        ReleaseDC_(hwnd,hdc)
        
        If StartDrawing(CanvasOutput(0))
          Box(0,0,200,200,cc)
          StopDrawing()
          
        EndIf
    EndSelect      
  Until Event = #PB_Event_CloseWindow
EndIf


Комментарии