Pixel / Farben abfragen / auslesen - GetPixel

Frank Abbing, 15.04.2008 16:19: Farbcodes auslesen auf dem ganzen Screen:

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#