Delphi FAQ: アイコンをビットマップに変換

１５番会議室「ＦＡＱ編纂委員会」に寄せられた「よくある質問の答え」

[Ｑ]
BitBtnやSpeedButtonにアイコンを表示させたいのですがアイコンをビットマップに変換する方法はありますか。

[Ａ]

アイコンファイルを読み込んできて，CanvasにDrawしてやればいいです。

[例]

var
  Ico: TIcon;
begin
  Ico:= TIcon.Create;
  try
    Ico.LoadFromFile('A:\DELPHI\IMAGES\ICONS\FACTORY.ICO');
    BitBtn1.Glyph.Height := Ico.Height;
    BitBtn1.Glyph.Width := Ico.Width;
    BitBtn1.Glyph.Canvas.Draw(0,0,Ico);

    SpeedButton1.Glyph.Height := Ico.Height;
    SpeedButton1.Glyph.Width := Ico.Width;
    SpeedButton1.Glyph.Canvas.Draw(0,0,Ico);
  finally
    Ico.Free;
  end;
end;

ここにあるドキュメントは NIFTY SERVEの Delphi Users' Forum FDELPHIに寄せられる質問の中から、よくある質問への回答を FDELPHIのメンバーがまとめたものです。　したがって、これらの回答はボーランド株式会社がサポートする公式のものではなく、掲示されている内容についての問い合わせは受けられない場合があります。