画像の外枠の付け方について

解決

Delphi超初心者  2006-12-23 02:55:28  No: 24364  IP: 192.*.*.*

先日の質問で画像の表示方法はわかりましたが、
その画像に対して外枠をつける方法がわかりません。
<img src=xxx.jpg boder=1>
のような外枠のことです。

プロパティで簡単につけられると思っていたのですが、
TimageやTBitBtnにBorderプロパテイが存在せず
困っています。
TWebBrowserにてHTMLで表示しようとしても
スクロールバーが完全に消えない状態なので使えません。
何がいいアドバイスをお願いいたします。

編集 削除
えーと  2006-12-23 10:55:39  No: 24365  IP: 192.*.*.*

なんだかやりたい事がみえてきません。

画像を表示するのは HTML ソース をレンダリングして表示したいのか
Form 上に表示したいのか、質問の意味がまったくわかりません。
外枠をつける、って見かけ上なら線を引くだけだし、 HTML ソースなら
ソースの問題であり、Delphi は関係ないです。

編集 削除
みんみん  2006-12-23 11:07:35  No: 24366  IP: 192.*.*.*

えーとさんのおっしゃるとおり私にもいまいち
よくわかりませんが前の質問で
＞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;

編集 削除
かみづ  2006-12-23 12:58:38  No: 24367  IP: 192.*.*.*

TPanelにTImageを配置してパネルのBorderを設定しては？

編集 削除
Delphi超初心者  2006-12-24 06:00:03  No: 24368  IP: 192.*.*.*

返信感謝いたします。
みんみんさんのやり方で出来ました。
かみづさんのやり方でも出来ました。

TImageやTBitBtnのプロパティにborderがほしかったです・・・

みなさんありがとうございました。

編集 削除