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

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

Font TMenu. [D6, XP]

DROWSY ©   (2010-03-09 17:06:00) 

Как поменять размеры шрифта компонента TMenu?

---

Leonid Troyanovsky   (2010-03-09 20:08:00) [1]

> DROWSY   (09.03.10 19:53) [7]

> бу что-то изобретать...

Не, бесполезно, не рекомендую.
Это на уровне MS.

--
Regards, LVT.

---

DROWSY   (2010-03-09 19:53:00) [2]

> > Да, и TMainMenu и фонт верхнего уровня изменяется точно
>
> > так же, как и других.
>
> Чего-то я упустил. Ну, да ладно.


Нет, не упустили..
Это я поспешил радоваться : действительно, на верхнем уровне высоту шрифта поменять можно, а ячейки - нет.
бу что-то изобретать...

---

Leonid Troyanovsky   (2010-03-09 19:45:00) [3]

> Leonid Troyanovsky ©   (09.03.10 19:32) [5]

> Рекомендую в запросы google добавлять: TeamB Peter Below.

Это в смысле: к запросам по англ.
Хотя он, AFAIK, изначальнопонемецкиговорящий гражданин.

Т.е., добавлять стоит к англ., иначе всплывут русофоны.

--
Regards, LVT.

---

Leonid Troyanovsky   (2010-03-09 19:32:00) [4]

> DROWSY   (09.03.10 19:15) [4]

> Да, и TMainMenu и фонт верхнего уровня изменяется точно
> так же, как и других.

Чего-то я упустил. Ну, да ладно.

> Ещё раз, спасибо!

Это PB спасибо.
Рекомендую в запросы google добавлять: TeamB Peter Below.

--
Regards, LVT.

---

DROWSY   (2010-03-09 19:15:00) [5]

Спасибо, Леонид, всё получилось.

> А высота?
> Если оно, конечно, TMainMenu.


Да, и TMainMenu и фонт верхнего уровня изменяется точно так же, как и других.

Ещё раз, спасибо!

---

Leonid Troyanovsky   (2010-03-09 18:57:00) [6]

> DROWSY   (09.03.10 18:39) [2]

> Только все капшены со знаком апострофа в начале пишутся.

Попробуй AutoHotkeys := maManual.

> Почему, у меня поменялось и в верхнем уровне.

А высота?
Если оно, конечно, TMainMenu.

--
Regards, LVT.

---

DROWSY   (2010-03-09 18:39:00) [7]

Спасибо!
Только все капшены со знаком апострофа в начале пишутся.
Почему?


> Можно у TMenuItem (кроме верхнего уровня)


Почему, у меня поменялось и в верхнем уровне.

---

Leonid Troyanovsky   (2010-03-09 17:53:00) [8]

> DROWSY   (09.03.10 17:06)

> Как поменять размеры шрифта компонента TMenu?

Можно у TMenuItem (кроме верхнего уровня)

In article <7hn099$71a20@forums.borland.com>, Eduardo Bitu wrote:
> Can you write a simple source showing that?
>
Certainly:

unit Unit1;

interface

uses
 Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms,
Dialogs,
 Menus;

type
 TForm1 = class(TForm)
   PopupMenu1: TPopupMenu;
   Arial10pt1: TMenuItem;
   Arial12pt1: TMenuItem;
   Arial14pt1: TMenuItem;
   Arial18pt1: TMenuItem;
   procedure MeasureMenuitem(Sender: TObject; ACanvas: TCanvas; var
Width,
     Height: Integer);
   procedure DrawMenuItem(Sender: TObject; ACanvas: TCanvas; ARect:
TRect;
     Selected: Boolean);
 private
   { Private declarations }
 public
   { Public declarations }
 end;

var
 Form1: TForm1;

implementation

{$R *.DFM}

procedure TForm1.MeasureMenuitem(Sender: TObject; ACanvas: TCanvas;
 var Width, Height: Integer);
var
 mnu: TMenuitem;
begin
 mnu := Sender As TMenuitem;
 aCanvas.font.name := 'Arial';
 aCanvas.font.size := mnu.tag;
 width := aCanvas.TextWidth( mnu.caption )+10;
 height := aCanvas.TextHeight( mnu.caption ) + 4;
end;

procedure TForm1.DrawMenuItem(Sender: TObject; ACanvas: TCanvas;
 ARect: TRect; Selected: Boolean);
var
 mnu: TMenuitem;
begin
 mnu := Sender As TMenuitem;
 aCanvas.font.name := 'Arial';
 aCanvas.font.size := mnu.tag;
 If selected then begin
   aCanvas.font.color := clRed;
   aCanvas.brush.color := clAqua;
 end
 else begin
   aCanvas.font.color := clRed;
   aCanvas.brush.color := $C0FFFF;
 end;
 acanvas.brush.style := bsSolid;
 aCanvas.fillrect( aRect );
 acanvas.textrect( aRect, arect.left+4, arect.top+2, mnu.caption );
end;

end.

{
object Form1: TForm1
 Left = 192
 Top = 128
 Width = 696
 Height = 480
 Caption = 'Form1'
 Color = clBtnFace
 Font.Charset = DEFAULT_CHARSET
 Font.Color = clWindowText
 Font.Height = -13
 Font.Name = 'MS Sans Serif'
 Font.Style = []
 OldCreateOrder = False
 PopupMenu = PopupMenu1
 PixelsPerInch = 120
 TextHeight = 16
 object PopupMenu1: TPopupMenu
   OwnerDraw = True
   Left = 20
   Top = 48
   object Arial10pt1: TMenuItem
     Tag = 10
     Caption = 'Arial 10pt'
     OnDrawItem = DrawMenuItem
     OnMeasureItem = MeasureMenuitem
   end
   object Arial12pt1: TMenuItem
     Tag = 12
     Caption = 'Arial 12 pt'
     OnDrawItem = DrawMenuItem
     OnMeasureItem = MeasureMenuitem
   end
   object Arial14pt1: TMenuItem
     Tag = 14
     Caption = 'Arial 14 pt'
     OnDrawItem = DrawMenuItem
     OnMeasureItem = MeasureMenuitem
   end
   object Arial18pt1: TMenuItem
     Tag = 18
     Caption = 'Arial 18 pt'
     OnDrawItem = DrawMenuItem
     OnMeasureItem = MeasureMenuitem
   end
 end
end
}

Peter Below (TeamB)  100113.1101@compuserve.com)

--
Regards, LVT.

---

Наверх