掲示板システム
ホーム
アクセス解析
カテゴリ
ログアウト
画像の外枠の付け方について (ID:24366)
名前
ホームページ(ブログ、Twitterなど)のURL (省略可)
本文
えーとさんのおっしゃるとおり私にもいまいち よくわかりませんが前の質問で ＞LoadFromFile(FileName); ＞のような形で読み込んで表示することにしました。 とありましたので、フォーム上のTImgaeに表示すると仮定して フォーム直接描くこんなサンプルでいかが？ procedure TForm1.FormPaint(Sender: TObject); var R :TRect; bw :integer;//ボーダー線のサイズ begin bw :=2; with image1 do R :=Rect(Left-bw,Top-bw,Left+Width+bw,Top+Height+bw); Frame3D(Canvas,R,clBlack,clblack,bw); end;
←解決時は質問者本人がここをチェックしてください。
更新する
戻る
掲示板システム
Copyright 2021 Takeshi Okamoto All Rights Reserved.