h20000424-22.htm

对于学习很有帮助

    F1: TMenuItem;<br>
    N15: TMenuItem;<br>
    N1: TMenuItem;<br>
    N2: TMenuItem;<br>
    N16: TMenuItem;<br>
    N11: TMenuItem;<br>
    N5: TMenuItem;<br>
    C1: TMenuItem;<br>
    N4: TMenuItem;<br>
    E1: TMenuItem;<br>
    N6: TMenuItem;<br>
    N7: TMenuItem;<br>
    N8: TMenuItem;<br>
    N3: TMenuItem;<br>
    N10: TMenuItem;<br>
    N9: TMenuItem;<br>
    N1801: TMenuItem;<br>
    N901: TMenuItem;<br>
    N902: TMenuItem;<br>
    H1: TMenuItem;<br>
    N12: TMenuItem;<br>
    N13: TMenuItem;<br>
    ImgEdit1: TImgEdit;<br>
    Bevel1: TBevel;<br>
    ImgScan1: TImgScan;<br>
    Bevel2: TBevel;<br>
    procedure N4Click(Sender: TObject);<br>
    procedure N1Click(Sender: TObject);<br>
    procedure N2Click(Sender: TObject);<br>
    procedure C1Click(Sender: TObject);<br>
    procedure N8Click(Sender: TObject);<br>
    procedure N1801Click(Sender: TObject);<br>
    procedure N901Click(Sender: TObject);<br>
    procedure N902Click(Sender: TObject);<br>
    procedure N6Click(Sender: TObject);<br>
    procedure N7Click(Sender: TObject);<br>
    procedure ImgEdit1SelectionRectDrawn(Sender: TObject; Left,Top,&nbsp;<br>
    Width, Height: Integer);<br>
    procedure N11Click(Sender: TObject);<br>
    private<br>
    { Private declarations }<br>
    public<br>
    selleft,seltop,selwidth,selheight:integer;<br>
    { Public declarations }<br>
    end;<br>
    var<br>
    scanf: Tscanf;<br>
    <br>
    implementation<br>
    <br>
    {$R *.DFM}<br>
    <br>
    procedure Tscanf.N4Click(Sender: TObject);<br>
    begin<br>
    imgedit1.ClearDisplay;<br>
    close;<br>
    end;<br>
    <br>
    procedure Tscanf.N1Click(Sender: TObject);<br>
    begin<br>
    ImgScan1.ShowSelectScanner;<br>
    end;<br>
    <br>
    procedure Tscanf.N2Click(Sender: TObject);<br>
    begin<br>
    imgedit1.zoom:=100;<br>
    if not imgscan1.ScannerAvailable then<br>
    imgscan1.OpenScanner;<br>
    imgscan1.StartScan;<br>
    imgscan1.CloseScanner;<br>
    end;<br>
    <br>
    procedure Tscanf.C1Click(Sender: TObject);<br>
    begin<br>
    if imgedit1.ImageDisplayed then<br>
    begin<br>
    imgedit1.ClearDisplay;<br>
    imgedit1.zoom:=100;<br>
    end;<br>
    end;<br>
    <br>
    procedure Tscanf.N8Click(Sender: TObject);<br>
    begin<br>
    if (imgedit1.IsClipboardDataAvailable and imgedit1.ImageDisplayed )<br>
    then<br>
    imgedit1.ClipboardPaste(selleft,seltop);<br>
    end;<br>
    <br>
    procedure Tscanf.N1801Click(Sender: TObject);<br>
    begin<br>
    if imgedit1.ImageDisplayed then<br>
    imgedit1.Flip;<br>
    end;<br>
    <br>
    procedure Tscanf.N901Click(Sender: TObject);<br>
    begin<br>
    if imgedit1.ImageDisplayed then<br>
    imgedit1.RotateRight<br>
    end;<br>
    <br>
    procedure Tscanf.N902Click(Sender: TObject);<br>
    begin<br>
    if imgedit1.ImageDisplayed then<br>
    imgedit1.RotateLeft;<br>
    end;<br>
    <br>
    procedure Tscanf.N6Click(Sender: TObject);<br>
    begin<br>
    imgedit1.DrawSelectionRect(selleft,seltop,selwidth,selheight);<br>
    imgedit1.ClipboardCut(selleft,seltop,selwidth,selheight);<br>
    end;<br>
    <br>
    procedure Tscanf.N7Click(Sender: TObject);<br>
    begin<br>
    imgedit1.DrawSelectionRect(selleft,seltop,selwidth,selheight);<br>
    imgedit1.ClipboardCopy(selleft,seltop,selwidth,selheight);<br>
    end;<br>
    <br>
    procedure Tscanf.ImgEdit1SelectionRectDrawn(Sender: TObject; Left,&nbsp;<br>
    Top, Width, Height: Integer);<br>
    begin<br>
    if ((width=0) and (height=0))then<br>
    begin<br>
    n3.Enabled:=false;<br>
    n6.Enabled:=false;<br>
    n7.Enabled:=false;<br>
    selleft:=left;<br>
    seltop:=top;<br>
    selwidth:=width;<br>
    selheight:=height;<br>
    end<br>
    else begin<br>
    n6.Enabled:=true;<br>
    n7.Enabled:=true;<br>
    selleft:=left;<br>
    seltop:=top;<br>
    selwidth:=width;<br>
    selheight:=height;<br>
    end;<br>
    end;<br>
    <br>
    procedure Tscanf.N11Click(Sender: TObject);<br>
    begin<br>
    if not imgedit1.IsClipboardDataAvailable then<br>
    if imgedit1.imagedisplayed then<br>
    imgedit1.ClipboardCopy(0,0,imgedit1.Width,imgedit1.Height);<br>
    end;<br>
    end. </td>
  </tr>
</tbody>
</table>
</center></div>

<hr align="center" SIZE="1" width="700">

<p align="center" class="ourfont"><span><span><font color="#000000">&nbsp; <a style="color: rgb(0,0,0); text-decoration: none" href="../../soft/network/index.htm">互联网络</font><font color="#FFFFFF"> </font></a><font color="#000000">|</span></span><a href="../../soft/system/index.htm" style="color: rgb(0,0,0); text-decoration: none">系统工具</a><span>|<span> 
<a href="../../soft/tools/index.htm" style="color: rgb(0,0,0); text-decoration: none">实用工具</a> 
| <a href="../../soft/multimedia/index.htm" style="color: rgb(0,0,0); text-decoration: none">媒体工具</a> | <a href="../../soft/image/index.htm" style="color: rgb(0,0,0); text-decoration: none">图形图像</a> 
| <a href="../../soft/game/index.htm" style="color: rgb(0,0,0); text-decoration: none">游戏娱乐</a> 
| </span><a href="../../soft/usesoft/index.htm" style="color: rgb(0,0,0); text-decoration: none">软件<span>使用</a></font><font color="#FFFFFF"> |</font>&nbsp; </span></span></p>

<hr align="center" SIZE="1" width="700">
<font color="#FFE8BB">

<p align="center" class="ourfont"></font><font color="#000000"><span><span>&copy;&nbsp;Copyright 
2000 </span></span>陕西公用计算机互联网信息中心<span><span> 版权所有 </font></p>
</span></span>

<p align="center" class="ourfont"><font color="#000000"><span><span>本站制作维护by <a style="color: rgb(0,0,0)" href="mailto:[e-mail]">HAIYUAN</a></span></span></font></p>

<p align="center" class="ourfont"><font color="#000000"><span><span>电话：[phone] 
8371055 8371049 联系信箱：<a href="mailto:[e-mail]">[e-mail]</a></span></span></font></p>
</body>
</html>