Элементы меню на основе изображений

unit bitmenuu;

interface

uses
  SysUtils, WinTypes, WinProcs, Messages, Classes, Graphics,
  Controls, Forms, Dialogs, ExtCtrls, Menus;

type
  TForm1 = class(TForm)
    MainMenu1: TMainMenu;
    File1: TMenuItem;
    Brush1: TMenuItem;
    Horizontal1: TMenuItem;
    Vertical1: TMenuItem;
    FDiagonal1: TMenuItem;
    BDiagonal1: TMenuItem;
    Cross1: TMenuItem;
    DiagCross1: TMenuItem;
    procedure FormCreate(Sender: TObject);
    procedure BrushStyleClick(Sender: TObject);
  private
    { Private declarations }
    Bitmaps: array[0..5] of TBitmap;
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.DFM}

procedure TForm1.FormCreate(Sender: TObject);
var
  N: Integer;
begin
  with Brush1 do
    for N := 0 to 5 do
    begin
      Bitmaps[N] := TBitmap.Create;
      with Bitmaps[N], Canvas do
      begin
        Width := 80;
        Height := 16;
        Brush.Color := clMenu;
        Rectangle(0, 0, 80, 16);
        Brush.Color := clMenuText;
        Brush.Style := TBrushStyle(N + 2);
        Rectangle(0, 0, 80, 16);
      end;
      ModifyMenu(Handle, N, MF_BYPOSITION or MF_BITMAP,
        GetMenuItemID(Handle, N), PChar(Bitmaps[N].Handle));
    end;
end;

procedure TForm1.BrushStyleClick(Sender: TObject);
var
  N: Integer;
begin
  with Brush1 do
    for N := 0 to Count - 1 do
{$IFDEF Win32}
      Items[N].Checked := Items[N] = Sender;
{$ELSE}
      if Items[N] = Sender then
        CheckMenuItem(Handle, N, MF_BYPOSITION or MF_CHECKED)
      else
        CheckMenuItem(Handle, N, MF_BYPOSITION or MF_UNCHECKED);
{$ENDIF}
  with Sender as TMenuItem do
    Brush.Style := TBrushStyle(Tag);
  Refresh;
end;

end.