画像に枠

解決

ポンポコビート 2005-11-07 11:20:47 No: 18490

Timageで表示した画像に、ボタンを押すと枠をつける(特定の色で囲む)というのはどうすれば出来るのでしょうか？
画像の編集系の操作がまったくわからないので、良いサイトとか知ってればぜひ・・・^^;

あ 2005-11-07 18:17:57 No: 18491

付属のヘルプで
TCanvasをみましょう。

画像関係はすべてCanvasプロパティをもっています。

junki URL 2005-11-07 20:11:04 No: 18492

こんにちは。

>Timageで表示した画像に、ボタンを押すと枠をつける(特定の色で囲む)というのはどうすれば出来るのでしょうか？

こんな感じでできます。

uses
Jpeg;

// ファイルからJPG画像を読み込む
procedure TForm1.Button1Click(Sender: TObject);
var
  jpg: TJpegImage;
begin
  jpg := TJpegImage.Create;
  try
    jpg.LoadFromFile('c:\サンプル.jpg');
    Image1.AutoSize := true;
    Image1.Picture.Bitmap.Assign(jpg);
  finally
    jpg.Free;
  end;
end;

// Image1の画像に赤い枠をつける
procedure TForm1.Button2Click(Sender: TObject);
var
  haba: integer;
  bmp: TBitmap;
begin
  haba := 5;
  bmp := TBitmap.Create;
  try
    bmp.PixelFormat := Image1.Picture.Bitmap.PixelFormat;
    bmp.Width       := Image1.Picture.Bitmap.Width + haba*2;
    bmp.Height      := Image1.Picture.Bitmap.Height + haba*2;
    bmp.Canvas.Brush.Color := clRed;
    bmp.Canvas.FillRect(Rect(0,0,bmp.Width,bmp.Height));
    bmp.Canvas.Draw(haba, haba, Image1.Picture.Graphic);

    Image1.AutoSize := true;
    Image1.Picture.Bitmap.Assign(bmp);
  finally
    bmp.Free;
  end;
end;

もっと凝った枠はわたしのBlog

http://blog.livedoor.jp/junki560/archives/20057485.html

に例があります。

ポンポコビート 2005-11-10 09:48:50 No: 18493

junkiさん、ありがとうございます
サイトも見させて頂きました
本当にタメになるものばかりで、真面目にちょっと感動しちゃいましたｗ
ありがとうです☆★