掲示板システム
ホーム
アクセス解析
カテゴリ
ログアウト
アイコンを拡大して表示するには (ID：7655)
名前
ホームページ(ブログ、Twitterなど)のURL (省略可)
本文
TImage がフォームの上にあるとして 100x100 で描画するには procedure TForm1.Button1Click(Sender: TObject); var IC:TIcon; begin IC := TIcon.Create; try IC.Assign(Image1.Picture); Image1.Picture.Bitmap.Width := 100; Image1.Picture.Bitmap.Height := 100; Image1.Canvas.Brush.Color := Color; Image1.Canvas.FillRect(Rect(0,0,100,100)); DrawIconEx(Image1.Canvas.Handle,0,0,IC.Handle,100,100,0,0,DI_IMAGE or DI_MASK); finally IC.Free; end; end;
←解決時は質問者本人がここをチェックしてください。
戻る
掲示板システム
Copyright 2021 Takeshi Okamoto All Rights Reserved.