| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

PopupMenu.Items.Width [D6, XP]

webpauk ©   (2007-10-02 12:12:00) 

Подскажите как определить width для PopupMenu.Items[I]

---

DimaBr   (2007-10-02 13:55:00) [1]


procedure TForm1.N1DrawItem(Sender: TObject; ACanvas: TCanvas;ARect: TRect; Selected: Boolean);
var s: string;
begin
 S := TMenuItem(Sender).caption;
 if Selected
   then ACanvas.Brush.Color := clRed
   else ACanvas.Brush.Color := clBtnFace;
 ACanvas.FillRect(ARect);
 DrawText(ACanvas.Handle,PChar(S),Length(S),ARect,dt_Right)
end;

---

webpauk   (2007-10-02 12:14:00) [2]

или как выровнять PopupMenu.Popup() по правому краю

---

Наверх