Недавно добавленные исходники

•  DeLiKaTeS Tetris (Тетрис)  4 819

•  TDictionary Custom Sort  6 819

•  Fast Watermark Sources  6 598

•  3D Designer  9 560

•  Sik Screen Capture  6 937

•  Patch Maker  7 388

•  Айболит (remote control)  7 332

•  ListBox Drag & Drop  6 189

•  Доска для игры Реверси  98 174

•  Графические эффекты  7 503

•  Рисование по маске  6 790

•  Перетаскивание изображений  5 646

•  Canvas Drawing  6 026

•  Рисование Луны  5 817

•  Поворот изображения  5 268

•  Рисование стержней  3 860

•  Paint on Shape  3 016

•  Генератор кроссвордов  3 969

•  Головоломка Paletto  3 149

•  Теорема Монжа об окружностях  3 985

•  Пазл Numbrix  2 633

•  Заборы и коммивояжеры  3 444

•  Игра HIP  2 359

•  Игра Go (Го)  2 274

•  Симулятор лифта  2 675

•  Программа укладки плитки  2 236

•  Генератор лабиринта  2 789

•  Проверка числового ввода  2 396

•  HEX View  2 730

•  Физический маятник  2 422
 
скрыть

Как поместить маленькие битмапы в TPopupMenu


Следующий пример демонстрирует добавление битмапа в пункт PopUpMenu при помощи API функции SetMenuItemBitmaps(). Эта функция имеет следующие параметры: дескриптор всплывающего меню, номер (начиная с нуля) пункта меню в который мы хотим добаить битмап, и два дескриптора битмапов (одна картинка для меню в активном состоянии, а вторая для неактивного состояния).


type
  TForm1 = class(TForm)
    PopupMenu1: TPopupMenu;
    Pop11: TMenuItem;
    Pop21: TMenuItem;
    Pop31: TMenuItem;
    procedure FormCreate(Sender: TObject);
    procedure FormDestroy(Sender: TObject);
    procedure FormMouseUp(Sender: TObject; Button: TMouseButton;
      Shift: TShiftState; X, Y: Integer);
  private
    { Private declarations }
    bmUnChecked: TBitmap;
    bmChecked: TBitmap;
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.DFM}

procedure TForm1.FormCreate(Sender: TObject);
begin
  bmUnChecked := TBitmap.Create;
  bmUnChecked.LoadFromFile(
    'C:\Program Files\Borland\BitBtns\ALARMRNG.BMP');
  bmChecked := TBitmap.Create;
  bmChecked.LoadFromFile(
    'C:\Program Files\Borland\BitBtns\CHECK.BMP');
  {Добавляем битмапы в пункт меню начиная с 1 в PopUpMenu}
  SetMenuItemBitmaps(PopUpMenu1.Handle,
    1,
    MF_BYPOSITION,
    BmUnChecked.Handle,
    BmChecked.Handle);
end;

procedure TForm1.FormDestroy(Sender: TObject);
begin
  bmUnChecked.Free;
  bmChecked.Free;
end;

procedure TForm1.FormMouseUp(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
var
  pt: TPoint;
begin
  pt := ClientToScreen(Point(x, y));
  PopUpMenu1.Popup(pt.x, pt.y);
end;