Текущий архив: 2007.10.28;
Скачать: CL | DM;

Вниз

PopupMenu.Items.Width   Найти похожие ветки 

← →
webpauk   (2007-10-02 12:12) [0]

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

---

← →
webpauk   (2007-10-02 12:14) [1]

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

---

← →
DimaBr ©   (2007-10-02 13:55) [2]


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;

---

Страницы: 1 вся ветка

Текущий архив: 2007.10.28;
Скачать: CL | DM;

Наверх

Память: 0.46 MB
Время: 0.019 c