フォント名を変更するには

解決

Taku 2004-02-08 04:23:35 No: 6999

フォント名を変更するため、以下のコードを実行しても変更されません
image1.Canvas.Font.Name:='Modern';
image1.Canvas.TextOut(0,0,'ABC');
MSゴシック等を指定した場合は、変更されます

又、ダイアログを使って
if FontDialog1.Execute then
image1.Canvas.Font:=FontDialog1.Font; //Modernを指定
とすれば、変更されますが
image1.Canvas.Font.Name:=FontDialog1.Font.Name;
とした場合は、やはり変更できません。

フォントダイアログを使わず、直接変更したいのですが
その、方法をお願いします。

Mr.XRAY URL 2004-02-08 04:59:33 No: 7000

procedure TForm1.Button1Click(Sender: TObject);
begin
     Image1.Canvas.Font.Size:=50;
     Image1.Canvas.Font.Name:='Modern';
     Image1.Canvas.Font.Charset:=OEM_CHARSET;
     Image1.Canvas.TextOut(30,30,'ABC');
end;

ですね．Charsetを設定して下さい．

Taku 2004-02-09 01:43:49 No: 7001

Mr.XRAYさん
早々にお答えを頂きありがとうございました
Charsetプロパティーを指定することで上手く変更できました
感謝いたします。