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$=Rot: +Str$(r&)+, Grün: +Str$(g&)+, Blau: +Str$(b&)
    SetText %hwnd,text$
    EndPaint

Endwhile

KillTimer
Dispose point#