[delphi-users:3739] FMのListBoxのフォントの変更

[赤推]

こんにちは。
Delphi XE5でiOSアプリ開発で色々やっていて、いろいろ壁にぶち当たってます。

とりあえず単純にFireMonkeyのデスクトップアプリ（Win32アプリ）で、ListBox
のフォントを変えたいと思って、DEKOさんとこの
http://ht-deko.minim.ne.jp/techf010.html
をまねして、

type
TForm1 = class(TForm)
ListBox1: TListBox;
Button1: TButton;
procedure Button1Click(Sender: TObject);
private
{ private 宣言 }
public
{ public 宣言 }
end;

var
Form1: TForm1;

implementation

{$R *.fmx}

procedure TForm1.Button1Click(Sender: TObject);
var
i: Integer;
begin
for i:=1 to 50 do
ListBox1.Items.Add(IntToStr(i));

for i:=0 to ListBox1.Items.Count-1 do
with ListBox1.ListItems[i].Font do
begin
Family := 'Tahoma';
Size := 40;
end;
end;

とやってみましたが、フォントサイズは大きくなりません。
DEKOさんのところのページは、XE4の頃のものみたいですが、XE5でなにか変わっ
たのでしょうか？

よろしくお願いします。


赤推(qze0...@sky.hi-ho.ne.jp)


MLホームページ: http://www.freeml.com/delphi-users

----------------------------------------------------------------------
【注目資格 理学療法士】保険医療学部のある大学１０選
理学療法士の大学&専門学校 ランキングシェア byGMO
http://ad.freeml.com/cgi-bin/sa.cgi?id=lbwni
------------------------------------------------------[freeml byGMO]--

[じゃぺ]

川上です

StyleSettingsで
ssFamilyをFalseにするとFont.Familyが反映されると思いますがいかがでしょうか
（以下、Sizeなども同様）

http://ad.freeml.com/cgi-bin/sa.cgi?id=lbwsq
------------------------------------------------------[freeml byGMO]--

[じゃぺ]

すみません、なげやり過ぎた上にスペル間違えてました。汗

こんなかんじです・・・

for i:=0 to ListBox1.Items.Count-1 do

begin
//
ListBox1.ListItems[i].StyledSettings:=[TStyledSetting.ssFamily,TStyledSetting.ssSize];
// FontFamily、Sizeは反映されない
ListBox1.ListItems[i].StyledSettings:=[]; // 全部反映される

with ListBox1.ListItems[i].Font do
begin

Family := 'ＭＳ 明朝';

Size := 40;
end;
end;

MLホームページ: http://www.freeml.com/delphi-users

----------------------------------------------------------------------
【注目資格 理学療法士】保険医療学部のある大学１０選
理学療法士の大学&専門学校 ランキングシェア byGMO

http://ad.freeml.com/cgi-bin/sa.cgi?id=lbw1r
------------------------------------------------------[freeml byGMO]--

[hosokawa]

こんばんは。

細川です。

Delphi XE5 で ListBoxItem にスタイルが設定されている場合は、Font プロパティは
効きません。

川上さんがおっしゃるように、StyleSettings を変更するか、Style を変更します。

Style を変更するには、TStyleBook を置いて、ダブルクリックして、適切なスタイル
を設定します。
そうすると右側のペインにスタイルが並びます。
その中に listboxitemstyle(→ListBoxItemStyle) というスタイルがありますので、そ
の中に text というオブジェクトがあったら、そのオブジェクトの Font サイズを変更
することで、フォントサイズを変えることができます。
ただ、この方法では全ての TListBoxItem のスタイルが変わってしまいますので、用途
によってはカスタムスタイルを作ると良いと思います。

Regards,
HOSOKAWA Jun
[S/G] SERIALGAMES Inc.
TEL: 03-5812-0980
FAX: 03-5812-0970
twitter: http://twitter.com/serialgames
twitter: http://twitter.com/flaver_sg
mailto: j...@serialgames.co.jp
fla:ver http://flaver.jp/

MLホームページ: http://www.freeml.com/delphi-users

----------------------------------------------------------------------
【注目資格 理学療法士】保険医療学部のある大学１０選
理学療法士の大学&専門学校 ランキングシェア byGMO

http://ad.freeml.com/cgi-bin/sa.cgi?id=lbw6T
------------------------------------------------------[freeml byGMO]--

[赤推]

川上 さん、こんにちは。赤推です。


>StyleSettingsで
>ssFamilyをFalseにするとFont.Familyが反映されると思いますがいかがでしょうか
>（以下、Sizeなども同様）

for i:=0 to ListBox1.Items.Count-1 do

begin
ListBox1.ListItems[i].StyledSettings := ListBox1.ListItems[i].StyledSettings - [TStyledSetting.ssFamily,TStyledSetting.ssSize];

でうまく行きました。先に進めます。
ありがとうございました。

#FMにはなかなか慣れません。

赤推(qze0...@sky.hi-ho.ne.jp)


MLホームページ: http://www.freeml.com/delphi-users

----------------------------------------------------------------------
【注目資格 理学療法士】保険医療学部のある大学１０選
理学療法士の大学&専門学校 ランキングシェア byGMO

http://ad.freeml.com/cgi-bin/sa.cgi?id=lbwNZ
------------------------------------------------------[freeml byGMO]--

[赤推]

細川さん、こんにちは。赤推です。
細川さんの本を買って勉強中です。

とりあえずStyleSettingsの件は理解しました。

>Style を変更するには、TStyleBook を置いて、ダブルクリックして、適切なスタイル
>を設定します。
>そうすると右側のペインにスタイルが並びます。

この辺りはまださっぱりわかりません。色々とやってみます。
ありがとうございました。

赤推(qze0...@sky.hi-ho.ne.jp)


MLホームページ: http://www.freeml.com/delphi-users

----------------------------------------------------------------------
【注目資格 理学療法士】保険医療学部のある大学１０選
理学療法士の大学&専門学校 ランキングシェア byGMO

http://ad.freeml.com/cgi-bin/sa.cgi?id=lbxaN
------------------------------------------------------[freeml byGMO]--