掲示板システム
ホーム
アクセス解析
カテゴリ
ログアウト
StretchBltのやりかた (ID:29655)
名前
ホームページ(ブログ、Twitterなど)のURL (省略可)
本文
画像をimage1にロードしてimage2に縮小するところでうまくいかなくてお助けを。下記のコードでやってみると「ビットマップを持っている時のみイメージの変更が可能です」と出てしまいます。 ソースの元ネタはhttp://delphi.livedoor.biz/archives/50602241.html なのですが同じようにやっても動きません。（画像のロードだけはできています） 何が原因か教えてください。（D6 パーソナル） procedure TForm1.Button1Click(Sender: TObject); var w,h,w1,h1:integer; kfile:string; begin kfile:='c:\mypictures\2008\801\thumbnail\t_imgp2597.jpg'; image1.picture.LoadFromFile(kfile); w:=form1.image1.picture.Width; h:=form1.image1.picture.Height; w1:=round(w*0.8); h1:=round(h*0.8); SetStretchBltMode(form1.image2.Canvas.Handle, HALFTONE); StretchBlt(form1.image2.Canvas.Handle, 0, 0, w1, h1, form1.image1.Canvas.Handle, 0, 0, w, h, SRCCOPY); end;
←解決時は質問者本人がここをチェックしてください。
更新する
戻る
掲示板システム
Copyright 2021 Takeshi Okamoto All Rights Reserved.