How to set the Color of a cxButton when I use Skins

Hello Rene.
Thank you for your message. This functionality conflicts with the ExpressSkins concept.
I'm afraid that it is impossible to achieve the desired result except creating new skins.
Best regards, Ingvar.

Well impossible is nothing ;-) But maybe it will be the best solution at the end…
I made a own skin and override the DrawButton-procedure.
First I tried it with a Semitransparent color layer over the button, but the colors wasn't like that we need. Especially when the skin is another color than AColor. When the Skin is silver or something like that, its not too bad.
My second approach was to separate each Pixel in Hue, Luminance and Saturation then replace the Hue with the Hue of AColor. Now I have something like I wanted, but its little slow and I have some issues with the Borders. It would be much better, when I could overwrite the procedure TdxSkinElement.InternalDraw, but its too invasive…
Do you have an Idea, how I can speedup this? Maybe with GDI+?
Do you have an Idea, how I can place my procedure directly after painting the skin (before border, text, glyphs)? It should be a solution without modifying the devexpress-Source.
-----
uses Types, Graphics, Windows, GraphUtil;
function ColorToBGR(Color : TColor) : Cardinal; inline;
begin
  Result := (Color and $FF000000) + ((Color and $000000FF) shl 16) + (Color and $0000FF00) + ((Color and $00FF0000) shr 16);
end;
function BGRToColor(const BGR : Cardinal) : TColor; inline;
begin
  Result := (BGR and $FF000000) + ((BGR and $000000FF) shl 16) + (BGR and $0000FF00) + ((BGR and $00FF0000) shr 16);
end;
class procedure TdxLTDefaultSkinPainter.DrawButton(ACanvas: TcxCanvas; R: TRect;
  const ACaption: string; AState: TcxButtonState; ADrawBorder: Boolean; AColor,
  ATextColor: TColor; AWordWrap, AIsToolButton: Boolean);
var
  Bitmap: Graphics.TBitmap;
  x, y: Integer;
  h, h1, l, s, s1: Word;
  p : PIntegerArray;
begin
  inherited;
  if AColor <> clDefault then begin
    ColorRGBToHLS(ColorToRGB(AColor), h1, l, s1);
    Bitmap := Graphics.TBitmap.Create;
    try
      Bitmap.PixelFormat := pf32bit;
      Bitmap.SetSize(R.Right, R.Bottom);
      BitBlt(Bitmap.Canvas.Handle, 0, 0, R.Right, R.Bottom, ACanvas.Canvas.Handle, 0, 0, SRCCOPY);
      for y := 0 to Bitmap.Height -1 do begin
        p := Bitmap.ScanLine[y];
        for x := 0 to Bitmap.Width -1 do begin
          ColorRGBToHLS(BGRToColor(p[x]), h, l, s);
          p[x] := ColorToBGR(ColorHLSToRGB(h1, l, s1));
        end;
      end;
      BitBlt(ACanvas.Canvas.Handle, 0, 0, R.Right, R.Bottom, Bitmap.Canvas.Handle, 0, 0, SRCCOPY);
    finally
      Bitmap.Free;
    end;
  end;
end;