Metro的风格很漂亮啊，写了个代码看了看还算舒服

Question

开个新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;

Answer 1

Win8风格？有什么好的，看不出来
】