背景に画像を並べたい
解決http://beefway.hp.infoseek.co.jp/dl-easyqr.html
こんな風に背景に画像をならべることはできますか？
こんな風ってどんなふうですか？
アドレス記載してますが...
http://beefway.hp.infoseek.co.jp/dl-easyqr.htmlにスクリーンショットがあるeasyQRのようにフォーム等の背景に画像を並べたいわけです
> アドレス記載してますが...
いっぱい「背景」があってどの背景か分かりません。
たとえば、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;
上のコードで、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;
なるほど
わかりました
ありがとうございます
>いっぱい「背景」があってどの背景か分かりません。
背景がほかにもあるんですか！？
私にはひとつしか見えません。
もしかして隠し背景があるんですか？
ページの背景とかデスクトップなわけないし。
> 背景がほかにもあるんですか！？
ブラウザ自体の背景やら、迷路みたいのや、携帯みたいなのや、アイコンをならべたようなのや....
>迷路みたいの
QRコードですね、あれは並んでないので。
背景だけじゃ、
デスクトップにブラウザが重なって並んでる状態の背景
ブラウザ自体の背景
QRコードを作りたい
などいろいろあるじゃないですか。
きちんとどの部分かを書いてもらわないと迷惑です。
まぁまぁ。
そうですね、すみませんでした
今思うと、「フォームの背景」と書くべきでした
いや、わたしがいじわるしただけです。すみませんでした。
| ツイート |  |