Форум: "Начинающим";
Текущий архив: 2010.08.27;
Скачать: [xml.tar.bz2];
Вниз
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;
Скачать: [xml.tar.bz2];
Память: 0.47 MB
Время: 0.093 c
