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

Вниз

Как на Margin у RxPopUpMenu вывести текст   Найти похожие ветки 

← →
anod   (2002-06-15 19:16) [0]

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

---

← →
anod   (2002-06-15 20:02) [1]

Не пойму, какой 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;

---

← →
HELP__ME   (2002-06-16 00:40) [2]

subj

---

← →
Demon-777   (2002-06-16 00:56) [3]

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;

---

← →
anod   (2002-06-16 11:13) [4]

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

---

← →
anod   (2002-06-16 11:15) [5]

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

---

← →
Demon-777   (2002-06-16 12:24) [6]

Uses VCLUtils
+RxPopupMenu1.LeftMargin:=30;

---

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

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

Наверх

Память: 0.45 MB
Время: 0.005 c