Delphi 中 的 图 形 显 示 技 巧

领测软件测试网

newbmp.Height:=image1.Height;
bmpheight:=image1.Height;
bmpwidth:=image1.Width;
for i:=bmpheight downto 1 do
for j:=1 to i do
  begin
   newbmp.Canvas.CopyRect(Rect(0,j －1,bmpwidth,j),
image1.Canvas,Rect(0,i －1,bmpwidth,i));
   form1.Canvas.Draw(120,100,newbmp);
  end;
newbmp.free;
end;

---- 5. 百 叶 窗 效 果 

---- 将 放 在 缓 存 图 形 的 数 据 分 成 若 干 组， 然 后 依 次 从 第 一 组 到 最 后 一 组 搬 移， 第 一 次 每 组 各 搬 移 第 一 行 像 素 到 可 视 位 图 的 相 应 位 置， 第 二 次 各 组 搬 移 第 二 行 像 素， 接 着 搬 移 第 三 行、 第 四 行 像 素。 

---- 程 序： 


procedure TForm1.Button6Click(Sender: TObject);

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