Delphi 中 的 图 形 显 示 技 巧

领测软件测试网

  begin
    newbmp.Canvas.CopyRect(Rect(0,bmpheight-i,bmpwidth,bmpheight),image1.Canvas,Rect(0,0,bmpwidth,i));
    form1.Canvas.Draw(120,100,newbmp);
  end;
  newbmp.free;
end;

---- 2. 垂 直 交 错 效 果 

---- 将 要 显 示 的 图 形 拆 成 两 部 分， 奇 数 行 像 素 由 上 往 下 搬 移， 偶 数 行 像 素 则 由 下 往 上 搬 移， 而 且 两 者 同 时 进 行。 从 屏 幕 上 便 可 看 到 分 别 由 上 下 两 端 出 现 的 较 淡 图 形 向 屏 幕 中 央 移 动， 直 到 完 全 清 楚 为 止。 

---- 程 序： 


procedure TForm1.Button4Click(Sender: TObject);
var
  newbmp:TBitmap;
  i,j,bmpheight,bmpwidth:integer;
begin
  newbmp:= TBitmap.Create;

文章来源于领测软件测试网 https://www.ltesting.net/