XProfan

DEF GetCursorPos(1) ! user32 , GetCursorPos
Declare point#, Text$, x&, y&, farbe&, r&, g&, b&
Dim point#,4
Cls
LoadBmp background.bmp,0,0;0
SetTimer 30

While 1

    WaitInput
    Case %key=2:Break
    GetCursorPos(point#)
    x&=Long(point#,0)
    y&=Long(point#,4)
    StartPaint 0
    farbe&=GetPixel(x&,y&)
    r&=GetRValue(farbe&)
    g&=GetGValue(farbe&)
    b&=GetBValue(farbe&)
    Text$=ruddy: +Str $(r&)+, green: +Str $(g&)+, blue: +Str $(b&)
    SetText %hwnd,Text$
    EndPaint

Endwhile

KillTimer
Dispose point#