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

Code:

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.