aaa

最新推荐文章于 2024-04-20 00:25:36 发布
最新推荐文章于 2024-04-20 00:25:36 发布
阅读量294 收藏
点赞数 1
文章标签： destructor integer constructor div imagelist button
版权声明：本文为博主原创文章，遵循 CC 4.0 BY-SA 版权协议，转载请附上原文出处链接和本声明。
本文链接：https://blog.csdn.net/formernetcn/article/details/6218887
版权

unit NewImagePanel;

 

interface

 

uses

  Windows,SysUtils, Classes, Controls, ExtCtrls,Graphics,Dialogs;

 

type

  RMRect=record

    A:TRect;

    B:TRect;

    C:TRect;

    D:TRect;

    AB:TRect;

    AC:TRect;

    BD:TRect;

    CD:TRect;

    X,Y,W,H:Integer;

 end;

 

  TNewFrameimage = class(TImage)

  private

    FrameBrokenRect:TRect;

    MLeftDown,MUp:Boolean;

    MPoint:TPoint;

    { Private declarations }

  protected

    { Protected declarations }

    procedure FrameMouseMove(Sender: TObject; Shift: TShiftState; X,Y: Integer);

    procedure FrameMouseDown(Sender: TObject; Button: TMouseButton;Shift: TShiftState; X, Y: Integer);

    procedure FrameMouseUp(Sender: TObject; Button: TMouseButton;

    Shift: TShiftState; X, Y: Integer);

  public

    { Public declarations }

 

  published

    { Published declarations }

    constructor Create(Aowner:TComponent);override;

    destructor Destroy;override;

  end;

 

 

  TNewimage = class(TImage)

  private

    { Private declarations }

  protected

    { Protected declarations }

  public

    { Public declarations }

  published

    { Published declarations }

    constructor Create(Aowner:TComponent);override;

    destructor Destroy;override;

  end;

 

  TNewimagePanel = class(TWinControl)

  private

    { Private declarations }

    NewFrameimage:TNewFrameimage;

    Newimage:TNewimage;

    FFrameRect: TRect;

    PicImageRect:TRect;

    Cbmp:TBitmap;

    FPicture:TPicture;

    procedure CanvasRec(CR:TRect;CCanvas:Tcanvas);

    procedure SetPicture(const Value:TPicture);

     procedure SetFrameRect(const Value:TRect);

    procedure PaintPic(ACanvas: TCanvas; Bitmap: TBitmap);

  protected

    { Protected declarations }

  public

    { Public declarations }

    property FrameRect:TRect read FFrameRect write SetFrameRect;

    procedure Refresh;

  published

    { Published declarations }

    constructor Create(Aowner:TComponent);override;

    destructor Destroy;override;

    property Picture: TPicture read FPicture write SetPicture;

  end;

 

var

    Cmr:RMRect;

 

const

  FOCUS_FRAME=15;

 

procedure Register;

 

implementation

 

procedure Register;

begin

  RegisterComponents('Samples', [TNewimagePanel]);

end;

 

{ TNewimage }

 

 

constructor TNewimage.Create(Aowner: TComponent);

 

begin

  inherited;

 

end;

 

destructor TNewimage.Destroy;

begin

  inherited;

  ;

end;

 

constructor TNewFrameimage.Create(Aowner: TComponent);

begin

  inherited;

 

end;

 

destructor TNewFrameimage.Destroy;

begin

 

  inherited;

end;

 

procedure TNewFrameimage.FrameMouseDown(Sender: TObject; Button: TMouseButton;

  Shift: TShiftState; X, Y: Integer);

begin

 MLeftDown:=true;

 MPoint:=Point(x,y);

 if  (PtInRect(Cmr.A,Point(x,Y))) or (PtInRect(Cmr.AB,Point(x,Y))) or (PtInRect(Cmr.B,Point(x,Y)))

    or (PtInRect(Cmr.AC,Point(x,Y))) then

  MUp:=true

  else

  MUp:=false

end;

 

procedure TNewFrameimage.FrameMouseMove(Sender: TObject; Shift: TShiftState; X,

  Y: Integer);

var

  Spoint:TPoint;

  cx,cy:integer;

  Sleft,STop,SWidth,SHeight:integer;

begin

 if MLeftDown then

  begin

     if Owner.ClassName = 'TNewimagePanel'  then

      begin

        Sleft:=TNewimagePanel(Owner).PicImageRect.Left;

        STop:=TNewimagePanel(Owner).PicImageRect.Top;

        SWidth:=TNewimagePanel(Owner).PicImageRect.Right;

        SHeight:=TNewimagePanel(Owner).PicImageRect.Bottom;

      end;

    if  Cursor=crSizeAll then

      FrameBrokenRect := Rect(x-MPoint.x+Cmr.X,Y-(MPoint.Y-Cmr.Y),x-MPoint.x+Cmr.X+(Cmr.w-Cmr.x),Y-(MPoint.Y-Cmr.Y)+(Cmr.h-Cmr.y));

 

    if  Cursor=crSizeNWSE then

       if MUp then

        FrameBrokenRect := Rect(x-MPoint.x+Cmr.X,Y-(MPoint.Y-Cmr.Y),Cmr.w,Cmr.h)

        else

        FrameBrokenRect := Rect(Cmr.X,Cmr.Y,x-MPoint.x+Cmr.X+(Cmr.w-Cmr.x),Y-(MPoint.Y-Cmr.Y)+(Cmr.h-Cmr.y)) ;

    if  Cursor=crSizeNESW then

       if MUp then

         FrameBrokenRect := Rect(Cmr.X,Y-(MPoint.Y-Cmr.Y),x-MPoint.x+Cmr.X+(Cmr.w-Cmr.x),Cmr.h)

        else

        FrameBrokenRect := Rect(x-MPoint.x+Cmr.X,Cmr.Y,Cmr.w,Y-(MPoint.Y-Cmr.Y)+(Cmr.h-Cmr.y)) ;

    if  Cursor=crSizeNS then

       if MUp then

        FrameBrokenRect := Rect(Cmr.X,Y-(MPoint.Y-Cmr.Y),Cmr.w,Cmr.h)

        else

        FrameBrokenRect := Rect(Cmr.X,Cmr.Y,Cmr.w,Y-(MPoint.Y-Cmr.Y)+(Cmr.h-Cmr.y)) ;

    if  self.Cursor=crSizeWE then

       if MUp then

        FrameBrokenRect := Rect(x-MPoint.x+Cmr.X,Cmr.Y,Cmr.W,Cmr.h)

        else

        FrameBrokenRect := Rect(Cmr.X,Cmr.Y,x-MPoint.x+Cmr.X+(Cmr.w-Cmr.x),Cmr.h) ;

 

      if FrameBrokenRect.Left<SLeft then  FrameBrokenRect.Left:=SLeft-1;

      if FrameBrokenRect.Top<STop then  FrameBrokenRect.Top:=STop-1;

      if FrameBrokenRect.Right>SWidth then  FrameBrokenRect.Right:=SWidth+1;

      if FrameBrokenRect.Bottom>SHeight then  FrameBrokenRect.Bottom:=SHeight+1;

 

   if Cursor<>crSizeAll then

    begin

      if FrameBrokenRect.Right-FrameBrokenRect.Left<FOCUS_FRAME then

         if FrameBrokenRect.Left+1=Sleft  then

            FrameBrokenRect.Right:=FrameBrokenRect.Left+FOCUS_FRAME

            else

               if Mup  then

                   if Cursor=crSizeNESW then

                     FrameBrokenRect.Right:=FrameBrokenRect.Left+FOCUS_FRAME

                     else

                     FrameBrokenRect.Left:=FrameBrokenRect.Right-FOCUS_FRAME

                else

                   if Cursor=crSizeNESW then

                     FrameBrokenRect.Left:=FrameBrokenRect.Right-FOCUS_FRAME

                     else

                     FrameBrokenRect.Right:=FrameBrokenRect.Left+FOCUS_FRAME;

      if FrameBrokenRect.Bottom-FrameBrokenRect.Top<FOCUS_FRAME then

        if FrameBrokenRect.Top+1=STop then

         FrameBrokenRect.Bottom:=FrameBrokenRect.Top+FOCUS_FRAME

         else

            if Mup  then

              FrameBrokenRect.Top:=FrameBrokenRect.Bottom-FOCUS_FRAME

             else

             FrameBrokenRect.Bottom:=FrameBrokenRect.Top+FOCUS_FRAME;

 

    end

    else

    begin

      if  FrameBrokenRect.Bottom-FrameBrokenRect.Top<Cmr.H-Cmr.Y then

        if FrameBrokenRect.Top=STop-1 then

          FrameBrokenRect.Bottom:=Cmr.H-Cmr.Y+STop-1

          else

          FrameBrokenRect.Top:=FrameBrokenRect.Bottom-Cmr.H+Cmr.Y;

 

      if  FrameBrokenRect.Right-FrameBrokenRect.Left<Cmr.W-Cmr.X then

         if FrameBrokenRect.Left=SLeft-1 then

           FrameBrokenRect.Right:=SLeft+Cmr.W-Cmr.X-1

           else

           FrameBrokenRect.Left:=FrameBrokenRect.Right-Cmr.W+Cmr.X;

 

    end;

      canvas.FillRect(Rect(0,   0,  Width,   Height));

      DrawFocusRect(Canvas.Handle, FrameBrokenRect);

  end

  else

  begin

   Cursor:=crDefault;

  if  PtInRect(Rect(Cmr.X,Cmr.Y,Cmr.W,Cmr.H),Point(x,Y)) then

    Cursor:=crSizeAll;

  if  (PtInRect(Cmr.A,Point(x,Y))) or (PtInRect(Cmr.D,Point(x,Y))) then

    Cursor:=crSizeNWSE;

  if  (PtInRect(Cmr.B,Point(x,Y))) or (PtInRect(Cmr.C,Point(x,Y))) then

    Cursor:=crSizeNESW;

  if  (PtInRect(Cmr.AC,Point(x,Y))) or (PtInRect(Cmr.BD,Point(x,Y))) then

    Cursor:=crSizeWE;

  if  (PtInRect(Cmr.AB,Point(x,Y))) or (PtInRect(Cmr.CD,Point(x,Y))) then

    Cursor:=crSizeNS;

  end;

end;

 

procedure TNewFrameimage.FrameMouseUp(Sender: TObject; Button: TMouseButton;

  Shift: TShiftState; X, Y: Integer);

begin

 MLeftDown:=False;

 

 canvas.FillRect(Rect(0,   0,   Width,   Height));

 if Owner.ClassName = 'TNewimagePanel'  then

   TNewimagePanel(Owner).FrameRect:=FrameBrokenRect;

end;

 

 

 

 

{ TNewimagePanel }

 

procedure TNewimagePanel.CanvasRec(CR: TRect; CCanvas: Tcanvas);

var

  x,y,w,h:integer;

begin

 with CCanvas do

  begin

  Pen.Color   :=   clRed;

  Brush.Color := clRed;

  x:=CR.Left;

  y:=CR.Top;

  w:=CR.Right-CR.Left;

  h:=CR.Bottom-CR.Top;

  Cmr.X:=x;

  Cmr.Y:=y;

  Cmr.W:=x+ w;

  Cmr.H:=y+h;  

  FrameRect(CR);

  Rectangle(x-3,y-3, X+1,Y+1);

  Cmr.A:=Rect(x-3,y-3, X+1,Y+1);

  Rectangle(x-3,y+h-1, x+1,y+h+3);

  Cmr.C:=Rect(x-3,y+h-1, x+1,y+h+3);

  Rectangle(x+w-1,y-3, x+w+3,Y+1);

  Cmr.B:=Rect(x+w-1,y-3, x+w+3,Y+1);

  Rectangle(x+w-1,y+h-1, x+w+3,y+h+3);

  Cmr.D:=Rect(x+w-1,y+h-1, x+w+3,y+h+3);

  Rectangle(x-3,y+(h div 2)-2, x+1,y+(h div 2)+2);

  Cmr.AC:=Rect(x-3,y+(h div 2)-2, x+1,y+(h div 2)+2);

  Rectangle(x+w-1,y+(h div 2)-1, x+w+3,y+(h div 2)+3);

  Cmr.BD:=Rect(x+w-1,y+(h div 2)-1, x+w+3,y+(h div 2)+3);

  Rectangle(x+(w div 2)-2,y-3, x+(w div 2)+2,Y+1);

  Cmr.AB:=Rect(x+(w div 2)-2,y-3, x+(w div 2)+2,Y+1);

  Rectangle(x+(w div 2)-2,y+h-1, x+(w div 2)+2,y+h+3);

  Cmr.CD:=Rect(x+(w div 2)-2,y+h-1, x+(w div 2)+2,y+h+3);

  end;

end;

 

constructor TNewimagePanel.Create(Aowner: TComponent);

begin

  inherited;

  Width:=250;

  Height:=50;

  Color:=clWindow;

  DoubleBuffered:=true;

  FPicture := TPicture.Create;

 

 

  Newimage:=TNewimage.Create(self);

  Newimage.Parent:=self;

  Newimage.Align:=alClient;

  Newimage.Left:=Left;

  Newimage.Top:=Left;

  Newimage.Width:=Width;

  Newimage.Height:=Height;

  Newimage.Center:=true;

 

 

  NewFrameimage:=TNewFrameimage.Create(self);

  NewFrameimage.Parent:=self;

  NewFrameimage.Align:=alClient;

  NewFrameimage.Left:=Left;

  NewFrameimage.Top:=Top;

  NewFrameimage.Width:=Width;

  NewFrameimage.Height:=Height;

  NewFrameimage.Transparent:=true;

  NewFrameimage.OnMouseMove:=NewFrameimage.FrameMouseMove;

  NewFrameimage.OnMouseDown:=NewFrameimage.FrameMouseDown;

  NewFrameimage.OnMouseUp:=NewFrameimage.FrameMouseUp;

end;

 

destructor TNewimagePanel.Destroy;

begin

 

  inherited;

  FPicture.Free;

end;

 

procedure TNewimagePanel.Refresh;

var

  Buf,BufB,BufC:TBitmap;

begin

   Buf:=TBitmap.Create;

   BufB:=TBitmap.Create;

   BufC:=TBitmap.Create;

   Buf:=Picture.Bitmap;

 

  if (Buf.Width<=Width-10) and (Buf.Height<=Height-10) then

     begin

        BufB.Width:=Buf.Width;

        BufB.Height:=Buf.Height;

     end

     else

     begin

       if (Buf.Width<=Width-10) and (Buf.Height>Height-10) then

         begin

            BufB.Width:=Trunc(Buf.Width*(Height-10)/Buf.Height);

            BufB.Height:=Height-10;

         end;

       if (Buf.Height<=Height-10) and (Buf.Width>Width-10) then

         begin

            BufB.Width:=Width-10;

            BufB.Height:=Trunc(Buf.Height*(Width-10)/Buf.Width);

         end;

       if (Buf.Height>Height-10) and (Buf.Width>Width-10) then

        begin

           if  Buf.Width>Buf.Height then

             begin

               if Buf.Height<Height-10 then

                begin

                BufB.Width:=Width-10;

                BufB.Height:=Trunc(Buf.Height*(Width-10)/Buf.Width);

                end

                else

                begin

                BufB.Width:=Trunc(Buf.Width*(Height-10)/Buf.Height);

                BufB.Height:=Height-10;

                end;

             end;

           if  Buf.Width<Buf.Height then

             begin

               if Buf.Width<Width-10 then

                begin

                BufB.Width:=Width-10;

                BufB.Height:=Trunc(Buf.Height*(Width-10)/Buf.Width);

                end

                else

                begin

 

                BufB.Width:=Trunc(Buf.Width*(Height-10)/Buf.Height);

                BufB.Height:=Height-10;

                end;

 

             end;

           if  Buf.Width=Buf.Height then

             begin

               BufB.Width:=Width-10;

               BufB.Height:=Width-10;

             end;

          end;

        end;

   BufB.Canvas.StretchDraw(BufB.Canvas.ClipRect,Buf);

   BufC.Width:=Width;

   BufC.Height:=Height;

   BitBlt(BufC.Canvas.Handle, (Width-BufB.Width) div 2, (Height-BufB.Height) div 2, BufB.Width, BufB.Height, BufB.Canvas.Handle, 0, 0, SRCCOPY);

   Newimage.Picture.Graphic:=BufC;

   PicImageRect:=Rect((Width-BufB.Width) div 2,(Height-BufB.Height) div 2,BufB.Width+(Width-BufB.Width) div 2,BufB.Height+(Height-BufB.Height) div 2);

end;

 

procedure TNewimagePanel.SetFrameRect(const Value: TRect);

begin

   FFrameRect:=Value;

   Refresh;

   CanvasRec(FFrameRect,Newimage.Canvas);

end;

 

 

procedure TNewimagePanel.SetPicture(const Value: TPicture);

begin

    FPicture.Assign(Value);

end;

 

procedure TNewimagePanel.PaintPic(ACanvas: TCanvas; Bitmap: TBitmap);   //画透明图标

var

    ImageList : TImageList;

    TransColor : TColor;

begin

    if (Bitmap.Width = 0) or (Bitmap.Height = 0) then

        Exit;

 

    TransColor := Bitmap.Canvas.Pixels[0, 5];

 

    ImageList := TImageList.CreateSize(Bitmap.Width, Bitmap.Height);

    try

        ImageList.AddMasked(Bitmap, TransColor);

        ImageList.Draw(ACanvas, 0, 0, 0, Enabled);

    finally

        ImageList.Free();

    end;

end;

 

end.

formernetcn
关注
  • 1
    点赞
  • 踩
  • 0
    收藏
    觉得还不错? 一键收藏
  • 0
    评论
配置AAA认证和授权
青红造了个大白之成长记
04-02 1万+
一、 目的 1、掌握AAA认证的工作原理。 2、掌握使用Cisco Secure ACS服务器实现AAA认证授权的方法。 二、网络拓扑 三、认证部分实验要求 配置和测试本地和基于认证服务器的AAA认证。 1、在R1上创建本地帐号，配置本地AAA认证登录console和VTY。 2、配置和测试本地和基于认证服务器的AAA认证。 1、在R1上创建本地帐号（用户名：A...
电信运营商aaa服务器,AAA
weixin_34405769的博客
07-31 2086
Authentication, Authorization and Accounting -- 验证、授权和帐户认证(Authentication)：验证用户的身份与可使用的网络服务；授权(Authorization)：依据认证结果开放网络服务给用户；计帐(Accounting)：记录用户对各种网络服务的用量，并提供给计费系统。AAA-----身份验证 (Authentication)、授权 ...
华为aaa
qq_47529104的博客
12-09 3181
aaa是认证、授权和计费三个的缩写。 总的来说就是为了对用户身份，用户行为，用户计费相关所推出的一些机制。 用户通过NAS网络接入点去访问网络，或是访问设备。这些需要aaa进行用户的身份认证，当用户进行一些上网行为的时候，还需要对其访问的资源进行记录，并依据这些资源的访问记录进行计费。 aaa的认证方式有三种，第一种是不认证，第二种是本地认证，本地认证很好理解，将用户的信息存储在本地设备，当认证成功后就为其提供服务，但是本地认证是不提供用户计费的功能的，第三种是远端认证，远端认证采用额外的aaa服务器
思科AAA配置
2301_79021209的博客
04-20 814
R1(config-line)#login authentication yuancheng #调用认证模式yuancheng。R1(config)#enable secret 1234 #配置本地认证密码1234（用户模式到特权模式密码为1234）R1(config)#aaa authentication login default local #登录模式为默认。R1(config)#aaa new-model #开启AAA认证。R1(config)#do wr # 保存。
AAA认证
weixin_46840928的博客
05-27 899
AAA：认证、授权、计费的作用 1、认证模式为AAA [Huawei]user-interface vty 0 4 [Huawei-ui-vty0-4]authentication-mode ? aaa AAA authentication password Authentication through the password of a user terminal interface [Huawei-ui-vty0-4]authentication-mode aaa --将t.
daa和aaa
qq_43776408的博客
12-10 1831
mov bl,15h mov al,56h add al,bl daa 问al=?,bl=?,cf=?,af=? ADD指令： 56H + 15H ＝ 6BH（CF=0, AF=0）－－>存AL中。 DAA对AL调整－－>71H 因为AL低4位超过9，所以低4位加6，并将AF置1。 高4位不超过9，且CF＝0，所以高4位不加6，也不将CF置1。 结果： AL=71H, BL=15...
华为AAA配置实验
2301_78115896的博客
06-16 3265
授权所要保障的是用户行为是合法的，也就是说用户的行为是在被允许范围内的行为;在配置AAA本地认证之前，可以先使用命令display aaa configuration 来确认设备上是否有足够的资源。在AAA方案中，我们需要配置认证方案和援权方案，本实验要求两者都使用本地方案。配置完成后，我们可以使用命令display authentication-scheme来查看配置中的AAA认证方案。在使用AAA本地认证的环境中，我们需要在基于域的配置中设置AAA方案和本地用户。（2）查看系统中的认证方案。
aaa服务器型号,AAA服务器安装调试及配置验证
weixin_27180827的博客
07-31 3802
本次实验主要完成AAA服务器(Server)的安装与调试，客户端(Client)配置，验证以及AAA排错的过程，包括现场完成对SPOTOTM设备中心Rack机架终端服务器的配置。实验1：AAA服务器安装调试，客户端配置验证实验环境一台CISCO2501路由器，作为AAA服务器的客服端，一台内网的PC机作为AAA服务器端，PC机上面安装又Ciscosectuer ASC软件。实验要求：安装服务器(A...
Packet Tracer 模拟配置AAA认证
傻傻的心动的博客
05-11 2040
Packet Tracer模拟配置AAA认证
aaa.rar_播放器aaa
09-14
本文将深入探讨"aaa.rar_播放器aaa"这一主题，主要关注JMF播放器的源代码及其运行机制，帮助开发者更好地理解和运用这个平台。 JMF，全称为Java Media Framework，是Sun Microsystems公司开发的一个用于处理音频、...
aaa.rar_AAA微机原理
09-20
《微机原理详解》 微机原理是计算机科学与技术领域的基础课程，它涉及计算机硬件系统的...本资料"aaa.rar_AAA微机原理"中的PPT和练习提供了丰富的学习资源，涵盖了上述所有主题，是深入学习微机原理的理想参考资料。
aaa.rar_aaa
09-24
【标题】"aaa.rar_aaa" 提供了一个名为"aaa"的压缩文件，这通常意味着它包含一个完整的软件系统或项目。在这个特定的例子中，它是一个酒店管理系统的完整实现。 【描述】指出这个系统是使用VB（Visual Basic）和SQL...
1111111111111111111111
08-13
1111111111111111
javascript笔试题参考整理(答案)(可编辑修改word版).docx
08-13
javascript笔试题参考整理(答案)(可编辑修改word版)
财务收支表-公式计算查询.xlsx
08-13
工资表，财务报表，对账表，付款申请，财务报告，费用支出表，财务收支 适用人群：学习不同技术领域的小白或进阶学习者；可作为毕设项目、课程设计、大作业、工程实训或初期项目立项。
集团信息化顶层规划 .pptx
最新发布
08-13
集团信息化顶层规划 .pptx
stp 焊接机械_包括零件图_机械3D图可修改打包下载.rar
08-13
stp 焊接机械_包括零件图_机械3D图可修改打包下载.rar
Cisco ACS AAA认证深度解析
"Cisco ACS AAA认证详解" Cisco ACS（Cisco Secure Access Control Server）是一种强大的网络访问控制解决方案，主要用于实现网络中的认证、授权和记账（AAA）功能。AAA是网络安全管理的核心，确保只有合法用户能够...
评论
添加红包

请填写红包祝福语或标题

个

红包个数最小为10个

元

红包金额最低5元

当前余额3.43元 前往充值 >
需支付：10.00元
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付元
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明：

1.余额是钱包充值的虚拟货币，按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载，可以购买VIP、付费专栏及课程。

余额充值