El gradiente que ejemplifiqué es horizontal, se degrada de izquierda a derecha. Color1 es el color inicial (izquierda) y Color2 el final (derecha).
Lo que tu planteas también es horizontal pero con tres puntos de degradación (desconozco el término técnico). Tendrás que investigarle a la función
GradientFill así como a las estructuras de datos que usa: TRIVERTEX, GRADIENT_TRIANGLE, GRADIENT_RECTANGLE, y los modos de degradado: GRADIENT_FILL_RECT_H, GRADIENT_FILL_RECT_V y GRADIENT_FILL_TRIANGLE.
Yo más no sé de la función pues apenas ayer la conocí.
En cuanto a lo del menú, bueno, no esperes que con sólo copiar y pegar todo va a resultar a la primera. Ya estaría yo buscando cómo se adapta a un menú- como en efecto, acabo de hacer.
En el caso de menús, si bien TMainMenu tiene la propiedad OwnerDraw, cada item tiene su evento OnDrawItem. Lo que puedes hacer es asignar el mismo evento a todos los items:
Código Delphi
[-]
procedure TForm1.MenuItemDrawItem(Sender: TObject; ACanvas: TCanvas; ARect: TRect; Selected: Boolean);
var
Item: TMenuItem;
Flags: Integer;
begin
if Selected then
GradientRect(
ACanvas.Handle,
ARect,
GetSysColor(COLOR_ACTIVECAPTION),
GetSysColor(COLOR_GRADIENTACTIVECAPTION)
)
else
ACanvas.FillRect(ARect);
Item := Sender as TMenuItem;
Flags := DT_SINGLELINE or DT_VCENTER;
Inc(ARect.Left, 6);
ACanvas.Brush.Style := bsClear;
DrawText(ACanvas.Handle, PChar(Item.Caption), Length(Item.Caption), ARect, Flags);
end;
En este ejemplo, uso como colores de degradación, los que usa el sistema para las barras de título, de manera que la selección queda similar.
Si en lugar de COLOR_ACTIVECAPTION y COLOR_GRADIENTACTIVECAPTION, usas COLOR_INACTIVECAPTION y COLOR_GRADIENTINACTIVECAPTION, obtienes los colores que usa el sistema para las barras de título inactiva (normalmente, grises).
Si en un ListBox escoges unos u otros según el ListBox tenga o no el foco, te queda un bonito efecto: degradado azul cuando tiene el foco y degradado gris cuando no lo tiene.
Y antes de que preguntes, el caso de un PopupMenu es idéntico al de un MainMenu.
// Saludos