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

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

Как на Margin у RxPopUpMenu вывести текст [D6, WinXP]

anod ©   (2002-06-15 19:16:00) 

Подскажите люди добрые,
выдается мне Rect, как туда вывести текст.

---

Demon-777   (2002-06-16 12:24:00) [1]

Uses VCLUtils
+RxPopupMenu1.LeftMargin:=30;

---

anod   (2002-06-16 11:15:00) [2]

а что такое createRotatedFont - гже её взять

---

anod   (2002-06-16 11:13:00) [3]

Боьшое спасибо.

---

Demon-777   (2002-06-16 00:56:00) [4]

procedure TMainForm.PopupMenuDrawMargin(Sender: TMenu; Rect: TRect);
const
Txt = "Твой текст";
begin
with PopupMenu.Canvas.Font do begin
Name := "Courier New";
Style := [fsBold];
Size := 20;
Color := clWhite;
Handle := CreateRotatedFont(PopupMenu.Canvas.Font, 90);
end;
PopupMenu.DefaultDrawMargin(Rect, clLime, RGB(GetRValue(clLime) div 4,
GetGValue(clLime) div 4, GetBValue(clLime) div 4));
SetBkMode(PopupMenu.Canvas.Handle, TRANSPARENT);
ExtTextOut(PopupMenu.Canvas.Handle, Rect.Left, Rect.Bottom - 5, ETO_CLIPPED,
@Rect, Txt, Length(Txt), nil);
end;

---

HELP__ME   (2002-06-16 00:40:00) [5]

subj

---

anod   (2002-06-15 20:02:00) [6]

Не пойму, какой DC мне нужен
procedure TForm1.PopupMenu1DrawMargin(Sender: TMenu; Rect: TRect);
var mDC: HDC;
ps: TPaintStruct;
begin
PopUpMenu1.DefaultDrawMargin(Rect, RGB(0,0,153), RGB(51,102,153));
mDc := BeginPaint(Sender.Handle, ps);
DrawText(mDc,"DL",2,Rect,DT_VCENTER or DT_CENTER);
EndPaint(Sender.Handle, ps);
end;

---

Наверх