当前位置：首页 → 问答吧 → Metro的风格很漂亮啊，写了个代码看了看还算舒服

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

时间：2011-09-17

来源：互联网

开个新FORM，丢4个image上去，一个Button

然后copycode。蛮好看的

Delphi(Pascal) code


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;