XProfan

DEF GetCursorPos(1) ! user32 , GetCursorPos
Déclarer point#, text$, x&, y&, farbe&, r&, g&, b&
Faible point#,4
Cls
LoadBmp background.bmp,0,0;0
SetTimer 30

Tandis que 1

    WaitInput
    Cas %clé=2:Pause
    GetCursorPos(point#)
    x&=Long(point#,0)
    y&=Long(point#,4)
    Début de peinture 0
    farbe&=GetPixel(x&,y&)
    r&=GetRValue(farbe&)
    g&=GetGValue(farbe&)
    b&=GetBValue(farbe&)
    text$=rouge: +Str$(r&)+, vert: +Str$(g&)+, bleu: +Str$(b&)
    SetText %hwnd,text$
    EndPaint

Endwhile

KillTimer
Dispose point#