Metro的风格很漂亮啊，写了个代码看了看还算舒服
开个新FORM，丢4个image上去，一个Button
然后copycode。蛮好看的
procedure TForm1.Button1Click(Sender: TObject);var bmp:TBITMAP; procedure Setsize; begin color:=clBlack; Width:=446; Height:=527; with Image1 do begin Left := 16 ; Top := 16 ; Width := 209; Height := 121; Stretch:=true; end; with Image2 do begin Left := 16 ; Top := 152 ; Width := 209 ; Height := 105; Stretch:=true; end; with Image3 do begin Left:= 16; Top := 272 ; Width := 209; Height := 113; Stretch:=true; end; with Image4 do begin Left := 240; Top := 16; Width := 177; Height := 369 ; Stretch:=true; end; end;begin bmp:=TBitmap.Create; bmp.Canvas.Brush.Color:=$00FE913C; bmp.Width:=250; bmp.Height:=150; bmp.Canvas.Font.Color:=clWhite; bmp.Canvas.Font.Size:=20; bmp.Canvas.Font.Name:='宋体'; bmp.Canvas.Font.Style:=[fsBold]; bmp.Canvas.TextOut(20,20,''); //文字 Setsize; image1.picture.bitmap:=bmp; image2.picture.bitmap:=bmp; image3.picture.bitmap:=bmp; image4.picture.bitmap:=bmp; bmp.Free;end;
