画像に枠 (ID:18492)

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文

こんにちは。

>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

に例があります。

←解決時は質問者本人がここをチェックしてください。

戻る