Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2010.08.27;
Скачать: CL | DM;

Вниз

Font TMenu.   Найти похожие ветки 

 
DROWSY   (2010-03-09 17:06) [0]

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


 
Leonid Troyanovsky ©   (2010-03-09 17:53) [1]


> 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.


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

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


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


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


 
Leonid Troyanovsky ©   (2010-03-09 18:57) [3]


> DROWSY   (09.03.10 18:39) [2]

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

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

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

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

--
Regards, LVT.


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

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

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


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

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


 
Leonid Troyanovsky ©   (2010-03-09 19:32) [5]


> DROWSY   (09.03.10 19:15) [4]

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

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

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

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

--
Regards, LVT.


 
Leonid Troyanovsky ©   (2010-03-09 19:45) [6]


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

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

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

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

--
Regards, LVT.


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


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


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


 
Leonid Troyanovsky ©   (2010-03-09 20:08) [8]


> DROWSY   (09.03.10 19:53) [7]

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

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

--
Regards, LVT.



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

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

Наверх




Память: 0.49 MB
Время: 0.079 c
15-1271696488
sniknik
2010-04-19 21:01
2010.08.27
Кодировки в RSS.


2-1271530750
[true]TRIx
2010-04-17 22:59
2010.08.27
массив pointer, обратиться к ячейке


2-1269007934
Delphist2
2010-03-19 17:12
2010.08.27
обновить dblistbox


15-1273609796
Юрий
2010-05-12 00:29
2010.08.27
С днем рождения ! 12 мая 2010 среда


15-1263850233
Юрий
2010-01-19 00:30
2010.08.27
С днем рождения ! 19 января 2010 вторник