背景に画像を並べたい

解決

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

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

編集削除

jok 2004-04-04 20:24:06 No: 8202 IP: 192.*.*.*

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

編集削除

るるとん＠Ｋ 2004-04-04 20:25:40 No: 8203 IP: 192.*.*.*

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

編集削除

るるとん＠Ｋ 2004-04-04 20:34:25 No: 8204 IP: 192.*.*.*

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

編集削除

jok 2004-04-04 20: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-04 20: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-04 20:44:36 No: 8207 IP: 192.*.*.*

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

編集削除

るるとん＠Ｋ 2004-04-04 20:49:00 No: 8208 IP: 192.*.*.*

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

編集削除

jok 2004-04-04 20:55:26 No: 8209 IP: 192.*.*.*

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

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

編集削除

るるとん＠Ｋ 2004-04-04 21:03:25 No: 8210 IP: 192.*.*.*

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