ActnMgrBar (Delphi)

From RAD Studio Code Examples
Jump to: navigation, search

Description

This application requires a TPopupActionBar component already on the form. The application creates an action manager component and assigns an image list to some of its properties. Then, the popup action bar is customized and assigned to the form's PopupMenu property. Right click the form to show the popup menu.

Code

procedure TForm1.FormCreate(Sender: TObject);
var
  Images: TImageList;
  Image: TBitmap;
  ActionManager: TActionManager;
  Option1, Option2: TMenuItem;
begin
  // display an information message
  ShowMessage('Right click the form to display the customized popup menu');

  // create an image list
  Images := TImageList.Create(self);
  Images.Height := 32;
  Images.Width := 32;
  try
    Image := TBitmap.Create;
    Image.Height := 32;
    Image.Width := 32;
    Image.Canvas.Font.Name := 'Times New Roman';
    Image.Canvas.Font.Size := 22;
    Image.Canvas.TextOut((Image.Width - Image.Canvas.TextWidth('1')) div 2, 0, '1');
    Images.Add(Image, nil);
  finally
    Image.Free;
  end;

  // create an action manager and assign the image list to some of its properties
  ActionManager := TActionManager.Create(self);
  ActionManager.DisabledImages := Images;
  ActionManager.LargeDisabledImages  := Images;
  ActionManager.LargeImages := Images;

  // add some items to the popup menu associated with the popup action bar
  Option1:= TMenuItem.Create(self);
  Option1.Caption := 'New';
  PopupActionBar1.Items.Add(Option1);

  Option2:= TMenuItem.Create(self);
  Option2.Caption := 'Save';
  PopupActionBar1.Items.Add(Option2);

  // let the popup action bar be the form's popup menu
  Form1.PopupMenu := PopupActionBar1;
end;

Uses