XProfan

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

Mientras que 1

    WaitInput
    Case %key=2:Romper
    GetCursorPos(point#)
    x&=Largo(point#,0)
    y&=Largo(point#,4)
    StartPaint 0
    farbe&=GetPixel(x&,y&)
    r&=GetRValue(farbe&)
    g&=GetGValue(farbe&)
    b&=GetBValue(farbe&)
    texto$=Rot: +Str$(r&)+, Grün: +Str$(g&)+, Blau: +Str$(b&)
    SetText %hwnd,texto$
    EndPaint

Endwhile

KillTimer
Disponer point#