Problem Using DC_BitmapTransparentColor with DCPUSHBUTTONXP

[rdonnay]

There is definately something wrong with the bitmap.

The background color is not 255,255,255 in the areas that show up as white.

You are entirely dependent on your customer knowing how to give you a good bitmap.

[Auge_Ohr]

hi,

i use this Callback Slot to get Pixel Color

Code: Select all

      ::rbDown := { |aPos, uNIL, oSelf| PixelColor(aPos,oSelf)  }


DLLFUNCTION GetPixel( hdc, x, y ) USING STDCALL FROM GDI32.DLL

PROCEDURE PixelColor(aPos,oSelf)
LOCAL nColor := GetPixel(oSelf:winDevice():getHDC(),aPos[1],aPos[2])
LOCAL aRGB   := GraGetRGBIntensity(AutomationTranslateColor(nColor,.T.))
  Msgbox("Color "+VAR2CHAR(aRGB),"Position "+VAR2CHAR(aPos) )
RETURN

[digitsoft]

Thanks Jimmy
for your help

hi,

i use this Callback Slot to get Pixel Color

Code: Select all

      ::rbDown := { |aPos, uNIL, oSelf| PixelColor(aPos,oSelf)  }


DLLFUNCTION GetPixel( hdc, x, y ) USING STDCALL FROM GDI32.DLL

PROCEDURE PixelColor(aPos,oSelf)
LOCAL nColor := GetPixel(oSelf:winDevice():getHDC(),aPos[1],aPos[2])
LOCAL aRGB   := GraGetRGBIntensity(AutomationTranslateColor(nColor,.T.))
  Msgbox("Color "+VAR2CHAR(aRGB),"Position "+VAR2CHAR(aPos) )
RETURN