Ergebnis der Suchanfrage

• Forum: Win32/Win64 API (native code)

  Re: Aero color

    Delphi
    by WojTec, 19. Jul 2012
  Hm, color also is not valid.
• Forum: Win32/Win64 API (native code)

  Re: Aero color

    Delphi
    by WojTec, 18. Jul 2012
  A := (pcrColorization shr 24) and $FF;
  R := (pcrColorization shr 16) and $FF;
  G := (pcrColorization shr 8) and $FF;
  B := pcrColorization and $FF;
  
  if A <> 0 then
  begin
  R := Clamp(R + (R div A), 0, 255);
  G := Clamp(G + (G div A), 0, 255);
  B := Clamp(B + (B div A), 0, 255);
• Forum: Win32/Win64 API (native code)

  Aero color

    Delphi
    by WojTec, 17. Jul 2012
  I want to get Aero color:
  
  I wrote this:
  var
  Params: TColorizationParams;
  begin
  if IsAeroEnabled then
  begin
  if Assigned(DwmGetColorizationParameters) then
  begin