Multimidia - trocando as cores com setsyscolor

Top  Previous  Next

Trocando as cores padrão do Windows:

 

function WindowsFundoAmarelo : Boolean;

var

  aElementos: array[0..1of Integer;

  aValores  : array[0..1of ColorRef;

begin

  // faz backup das cores antigas

  BackupCorFundo := ColorToRGB( clHighLight     );

  BackupCorLetra := ColorToRGB( clHighLightText );

  // Elementos que devem ter suas cores alteradas

  aElementos[0] := COLOR_HIGHLIGHT;

  aElementos[1] := COLOR_HIGHLIGHTTEXT;

  // As cores

  aValores[0]   := ColorToRGB( clYellow );

  aValores[1]   := ColorToRGB( clBlack );

  Result := SetSysColors( 2, aElementos, aValores );

end;

 

function WindowsFundoPadrao : Boolean;

var

  aElementos: array[0..1of Integer;

  aValores  : array[0..1of ColorRef;

begin

  // Elementos que devem ter suas cores alteradas

  aElementos[0] := COLOR_HIGHLIGHT;

  aElementos[1] := COLOR_HIGHLIGHTTEXT;

  // As cores

  aValores[0]   := BackupCorFundo;

  aValores[1]   := BackupCorLetra;

  Result := SetSysColors( 2, aElementos, aValores );

end;