📄 20001121003.htm
字号:
} <br>
<br>
10、在Items8的OnClieck事件中添加如下代码： <br>
<br>
void__fastcall TForm1::Item8Click(TObject *Sender) <br>
<br>
{ //图像从下移入// <br>
<br>
Form1->Refresh( ); <br>
<br>
for(i=0;i<=Bitmap1->Height;i++) <br>
<br>
{ <br>
<br>
Dest1 =Rect(0,Bitmap1->Height-i,Bitmap1->Width, <br>
<br>
Bitmap1->Height); <br>
<br>
Source1 =Rect(0,0,Bitmap1->Width,i); <br>
<br>
Form1->Canvas->CopyRect(Dest1,Bitmap1->Canvas,Source1);
<br>
<br>
for(j=0;j<10000;j++); <br>
<br>
} <br>
<br>
} <br>
<br>
11、在Items9的OnClieck事件中添加如下代码： <br>
<br>
void__fastcall TForm1::Item9Click(TObject *Sender) <br>
<br>
{ //图像从左刷屏显示// <br>
<br>
Form1->Refresh( ); <br>
<br>
for(i=0;i<=Bitmap1->Width;i++) <br>
<br>
{ <br>
<br>
Dest1 =Rect(0,0,i,Bitmap1->Height); <br>
<br>
Source1 =Rect(0,0,i,Bitmap1->Height); <br>
<br>
Form1->Canvas->CopyRect(Dest1,Bitmap1->Canvas,Source1);
<br>
<br>
for(j=0;j<10000;j++); <br>
<br>
} <br>
<br>
} <br>
<br>
12、在Items10的OnClieck事件中添加如下代码： <br>
<br>
void__fastcall TForm1::Item10Click(TObject *Sender) <br>
<br>
{ //图像从右刷屏显示// <br>
<br>
Form1->Refresh( ); <br>
<br>
for(i=Bitmap1->Width;i>=0;i--) <br>
<br>
{ <br>
<br>
Dest1 =Rect(i+0,0,0+Bitmap1->Width,0+Bitmap1->Height); <br>
<br>
Source1 =Rect(i,0,Bitmap1->Width,Bitmap1->Height); <br>
<br>
Form1->Canvas->CopyRect(Dest1,Bitmap1->Canvas,Source1);
<br>
<br>
for(j=0;j<10000;j++); <br>
<br>
} <br>
<br>
} <br>
<br>
13、在Items11的OnClieck事件中添加如下代码： <br>
<br>
void__fastcall TForm1::Item11Click(TObject *Sender) <br>
<br>
{ //图像从上刷屏显示// <br>
<br>
Form1->Refresh( ); <br>
<br>
for(i=0;i<=Bitmap1->Height;i++) <br>
<br>
{ <br>
<br>
Dest1 =Rect(0,0,Bitmap1->Width+0,i+0); <br>
<br>
Source1 =Rect(0,0,Bitmap1->Width,i); <br>
<br>
Form1->Canvas->CopyRect(Dest1,Bitmap1->Canvas,Source1);
<br>
<br>
for(j=0;j<10000;j++); <br>
<br>
} <br>
<br>
} <br>
<br>
14、在Items12的OnClieck事件中添加如下代码： <br>
<br>
void__fastcall TForm1::Item12Click(TObject *Sender) <br>
<br>
{ //图像从下刷屏显示// <br>
<br>
Form1->Refresh( ); <br>
<br>
for(i=Bitmap1->Height;i>=0;i--) <br>
<br>
{ <br>
<br>
Dest1 =Rect(0,i+0,Bitmap1->Width+0,Bitmap1->Height+0); <br>
<br>
Source1 =Rect(0,i,Bitmap1->Width,Bitmap1->Height); <br>
<br>
Form1->Canvas->CopyRect(Dest1,Bitmap1->Canvas,Source1);
<br>
<br>
for(j=0;j<10000;j++); <br>
<br>
} <br>
<br>
} <br>
<br>
15、在Items13的OnClieck事件中添加如下代码： <br>
<br>
void__fastcall TForm1::Item13Click(TObject *Sender) <br>
<br>
{ //图像从上往下流水// <br>
<br>
Form1->Refresh( ); <br>
<br>
for(i=Bitmap1->Height;i>=0;i--) <br>
<br>
{ <br>
<br>
Source1 =Rect(0,i,Bitmap1->Width,i+1); <br>
<br>
for(int j1=0;j1<=i;j1++) <br>
<br>
{ <br>
<br>
Dest1 =Rect(0 ,j1,Bitmap1->Width+0,j+1); <br>
<br>
Form1->Canvas->CopyRect(Dest1,Bitmap1->Canvas,Source1);
<br>
<br>
for(j=0;j<10000;j++); <br>
<br>
} <br>
<br>
} <br>
<br>
} <br>
<br>
16、在Items14的OnClieck事件中添加如下代码： <br>
<br>
void__fastcall TForm1::Item14Click(TObject *Sender) <br>
<br>
{ //图像从下往上流水// <br>
<br>
Form1->Refresh( ); <br>
<br>
for(i=0;i<=Bitmap1->Height;i++) <br>
<br>
{ <br>
<br>
Source1 =Rect(0,i,Bitmap1->Width,i+1); <br>
<br>
for(int j1=Bitmap1->Height-1;j1>=i;j1--) <br>
<br>
{ <br>
<br>
Dest1 =Rect(0,j1,Bitmap1->Width,j1+1); <br>
<br>
Form1->Canvas->CopyRect(Dest1,Bitmap1->Canvas,Source1);
<br>
<br>
for(j=0;j<10000;j++); <br>
<br>
} <br>
<br>
} <br>
<br>
} <br>
<br>
17、在Items15的OnClieck事件中添加如下代码： <br>
<br>
void__fastcall TForm1::Item15Click(TObject *Sender) <br>
<br>
{ //图像圆形展出// <br>
<br>
Form1->Refresh( ); <br>
<br>
int j1=sqrt(Bitmap1->Width*Bitmap1->Width+ <br>
<br>
Bitmap1->Height*Bitmap1->Height)/2+4; <br>
<br>
for (i=1;i<j1;i++) <br>
<br>
{ <br>
<br>
MyRgn=CreateEllipticRgn(Bitmap1->Width/2-i, <br>
<br>
Bitmap1->Height/2-i, <br>
<br>
Bitmap1->Width/2+i, <br>
<br>
Bitmap1->Height/2+i); <br>
<br>
SelectObject(Canvas->Handle,MyRgn); <br>
<br>
Canvas->Draw(0,0,Bitmap1); <br>
<br>
DeleteObject(MyRgn); <br>
<br>
for(j=0;j<10000;j++); <br>
<br>
} <br>
<br>
} <br>
<br>
18、在Items16的OnClieck事件中添加如下代码： <br>
<br>
void__fastcall TForm1::Item16Click(TObject *Sender) <br>
<br>
{ //图像左右错移// <br>
<br>
Form1->Refresh( ); <br>
<br>
HeightHalf=Bitmap1->Height/2+Bitmap1->Height%2; <br>
<br>
Source1=Rect(0,0,Bitmap1->Width,HeightHalf); <br>
<br>
Source2=Rect(0,HeightHalf,Bitmap1->Width,Bitmap1->Height);
<br>
<br>
for(i=0;i<=Bitmap1->Width;i++) <br>
<br>
{ <br>
<br>
Dest1=Rect(0-Bitmap1->Width+i,0,i,0+HeightHalf); <br>
<br>
Dest2=Rect(Bitmap1->Width-i,HeightHalf, <br>
<br>
Bitmap1->Width+Bitmap1->Width-i, <br>
<br>
Bitmap1->Height+0); <br>
<br>
Form1->Canvas->MoveTo(0-Bitmap1->Width+i-1,0); <br>
<br>
Form1->Canvas->LineTo(0-Bitmap1->Width+i-1,HeightHalf);
<br>
<br>
Form1->Canvas->CopyRect(Dest1,Bitmap1->Canvas,Source1);
<br>
<br>
Form1->Canvas->MoveTo( <br>
<br>
Bitmap1->Width+Bitmap1->Width-i,0); <br>
<br>
Form1->Canvas->LineTo( <br>
<br>
Bitmap1->Width+Bitmap1->Width-i,Bitmap1->Height); <br>
<br>
<br>
<br>
Form1->Canvas->CopyRect(Dest2,Bitmap1->Canvas,Source2);
<br>
<br>
for(j=0;j<10000;j++); <br>
<br>
} <br>
<br>
} <br>
<br>
19、在Items17的OnClieck事件中添加如下代码： <br>
<br>
void__fastcall TForm1::Item17Click(TObject *Sender) <br>
<br>
{ //图像上下错移// <br>
<br>
Form1->Refresh( ); <br>
<br>
WideHalf=Bitmap1->Width/2+Bitmap1->Width%2; <br>
<br>
Source1=Rect(0,0,WideHalf,Bitmap1->Height); <br>
<br>
Source2=Rect(WideHalf,0,Bitmap1->Width,Bitmap1->Height); <br>
<br>
for(i=0;i<=Bitmap1->Height;i++) <br>
<br>
{ <br>
<br>
Dest1=Rect(0,0-Bitmap1->Height+i,WideHalf,0+i); <br>
<br>
Dest2=Rect(WideHalf, <br>
<br>
Bitmap1->Height-i, <br>
<br>
Bitmap1->Width, <br>
<br>
Bitmap1->Height+Bitiap1(>Ighdht)k-; &'Biym1->Canvas->MoveTo(0,0-Bitmap1->Height+i-1);
<br>
<br>
Form1->Canvas->LineTo(WideHalf, <br>
<br>
0-Bitmap1->Height+i-1); <br>
<br>
Form1->Canvas->CopyRect(Dest1,Bitmap1->Canvas,Source1);
<br>
<br>
Form1->Canvas->MoveTo(WideHalf, <br>
<br>
Bitmap1->Height+Bitmap1->Height-i); <br>
<br>
Form1->Canvas->LineTo(Bitmap1->Width, <br>
<br>
Bitmap1->Height+Bitmap1->Height-i); <br>
<br>
Form1->Canvas->CopyRect(Dest2,Bitmap1->Canvas,Source2);
<br>
<br>
for(j=0;j<10000;j++); <br>
<br>
} <br>
<br>
} <br>
<br>
以上程序在C++ Builder5.0Enterpriseh和Win98/WinME通过。</span></p>
</td>
</tr>
</table>
</div>
</BODY></HTML>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -