Мне стало интересно, будет ли сразу работать программа. Со второго раза заработала. Причина - опечатка
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
Комментарии
Отправить комментарий