背景に画像を並べたい

解決

るるとん＠Ｋ  2004-04-05 04:49:10  No: 8201  IP: [192.*.*.*]

http://beefway.hp.infoseek.co.jp/dl-easyqr.html
こんな風に背景に画像をならべることはできますか？

編集    削除
jok  2004-04-05 05:24:06  No: 8202  IP: [192.*.*.*]

こんな風ってどんなふうですか？

編集    削除
るるとん＠Ｋ  2004-04-05 05:25:40  No: 8203  IP: [192.*.*.*]

アドレス記載してますが...

編集    削除
るるとん＠Ｋ  2004-04-05 05:34:25  No: 8204  IP: [192.*.*.*]

http://beefway.hp.infoseek.co.jp/dl-easyqr.htmlにスクリーンショットがあるeasyQRのようにフォーム等の背景に画像を並べたいわけです

編集    削除
jok  2004-04-05 05:34:41  No: 8205  IP: [192.*.*.*]

> アドレス記載してますが...

いっぱい「背景」があってどの背景か分かりません。

たとえば、Form1 の背景を画像を並べて表示するには、PaintBox1 をおいて

type
  TForm1 = class(TForm)
    PaintBox1: TPaintBox;
    procedure FormCreate(Sender: TObject);
    procedure FormDestroy(Sender: TObject);
    procedure PaintBox1Paint(Sender: TObject);
  private
    { Private 宣言 }
  public
    bmp:TBitmap;
  end;

var
  Form1: TForm1;

implementation

{$R *.DFM}

procedure TForm1.FormCreate(Sender: TObject);
begin
  PaintBox1.Align := alClient;

  bmp := TBitmap.Create;
  bmp.LoadFromFile('C:\Delphi5\Borland Shared\Images\Splash\256Color\shipping.bmp');
end;

procedure TForm1.FormDestroy(Sender: TObject);
begin
  bmp.Free;
end;

procedure TForm1.PaintBox1Paint(Sender: TObject);
var
  iw,ih,w,h:integer;
begin
  w := PaintBox1.Width div bmp.Width +1;
  h := PaintBox1.Height div bmp.Height +1;
  for ih := 0 to h-1 do
    for iw := 0 to w-1 do
      PaintBox1.Canvas.Draw(bmp.Width*iw,bmp.Height*ih,bmp);
end;

編集    削除
ｊｏｋ  2004-04-05 05:38:31  No: 8206  IP: [192.*.*.*]

上のコードで、PaintBox1 を使わずに Form1.OnPaint でもできますね。

procedure TForm1.FormPaint(Sender: TObject);
var
  iw,ih,w,h:integer;
begin
  w := ClientWidth div bmp.Width +1;
  h := ClientHeight div bmp.Height +1;
  for ih := 0 to h-1 do
    for iw := 0 to w-1 do
      Canvas.Draw(bmp.Width*iw,bmp.Height*ih,bmp);
end;

編集    削除
るるとん＠Ｋ  2004-04-05 05:44:36  No: 8207  IP: [192.*.*.*]

なるほど
わかりました
ありがとうございます

編集    削除
るるとん＠Ｋ  2004-04-05 05:49:00  No: 8208  IP: [192.*.*.*]

>いっぱい「背景」があってどの背景か分かりません。
背景がほかにもあるんですか！？
私にはひとつしか見えません。
もしかして隠し背景があるんですか？
ページの背景とかデスクトップなわけないし。

編集    削除
jok  2004-04-05 05:55:26  No: 8209  IP: [192.*.*.*]

> 背景がほかにもあるんですか！？

ブラウザ自体の背景やら、迷路みたいのや、携帯みたいなのや、アイコンをならべたようなのや....

編集    削除
るるとん＠Ｋ  2004-04-05 06:03:25  No: 8210  IP: [192.*.*.*]

>迷路みたいの
QRコードですね、あれは並んでないので。

編集    削除
るるとん＠Kって馬鹿？  2004-06-16 02:03:58  No: 8211  IP: [192.*.*.*]

背景だけじゃ、
デスクトップにブラウザが重なって並んでる状態の背景
ブラウザ自体の背景
QRコードを作りたい
などいろいろあるじゃないですか。

きちんとどの部分かを書いてもらわないと迷惑です。

編集    削除
jok  2004-06-16 03:16:29  No: 8212  IP: [192.*.*.*]

まぁまぁ。

編集    削除
るるとん＠Ｋ  2004-06-16 05:26:48  No: 8213  IP: [192.*.*.*]

そうですね、すみませんでした
今思うと、「フォームの背景」と書くべきでした

編集    削除
jok  2004-06-16 07:17:52  No: 8214  IP: [192.*.*.*]

いや、わたしがいじわるしただけです。すみませんでした。

編集    削除