exregion.pas

来自「漏洞扫描系列中HB Network Scanner 测试用练习代码」· PAS 代码 · 共 105 行

unit exregion;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  regions, StdCtrls, ExtCtrls;

type
  TfexRegion = class(TForm)
    RgnFrm: TepRegionForm;
    Mask1: TImage;
    Mask2: TImage;
    GroupBox1: TGroupBox;
    Label1: TLabel;
    cbShowTitle: TCheckBox;
    cbShowBevel: TCheckBox;
    Pic: TImage;
    List: TListBox;
    Mask3: TImage;
    procedure cbShowTitleClick(Sender: TObject);
    procedure cbShowBevelClick(Sender: TObject);
    procedure ListDrawItem(Control: TWinControl; Index: Integer;
      Rect: TRect; State: TOwnerDrawState);
    procedure ListClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  fexRegion: TfexRegion;

implementation

{$R *.DFM}

procedure TfexRegion.cbShowTitleClick(Sender: TObject);
begin
  RgnFrm.ShowTitle := cbShowTitle.Checked;
end;

procedure TfexRegion.cbShowBevelClick(Sender: TObject);
begin
  RgnFrm.ShowBevel := cbShowBevel.Checked;
end;

procedure TfexRegion.ListDrawItem(Control: TWinControl; Index: Integer;
  Rect: TRect; State: TOwnerDrawState);
var
  R: TRect;
begin
  with List.Canvas do
  begin
    if (odSelected in State) and (odFocused in State) then
    begin
      Font.Color := clHighlightText;
      Brush.Color := clHighlight
    end
    else
    begin
      Font.Color := clWindowText;
      Brush.Color := clWindow;
    end;
    Pen.Style := psClear;
    Rectangle(Rect.Left, Rect.Top, Rect.Right+1, Rect.Bottom+1);
    R := Rect;
    DrawText(Handle, Pchar(List.Items[Index]), Length(List.Items[Index]),
      R, DT_CENTER	or DT_WORDBREAK or DT_CALCRECT);
    OffsetRect(R, (Rect.Right-R.Right) div 2,
      (Rect.Bottom-R.Bottom) div 2);
    DrawText(Handle, Pchar(List.Items[Index]), Length(List.Items[Index]),
      R, DT_CENTER	or DT_WORDBREAK);	
  end;
end;

procedure TfexRegion.ListClick(Sender: TObject);
begin
  case List.ItemIndex of
    0: begin
         cbShowTitle.Checked := true;
         RgnFrm.Mask := Mask1.Picture.Bitmap;
         RgnFrm.ShowTitle := true;
         RgnFrm.ShowBevel := true;
         RgnFrm.Picture.Bitmap := nil;
       end;
    1: begin
         cbShowTitle.Checked := false;
         RgnFrm.Mask := Mask2.Picture.Bitmap;
         RgnFrm.ShowTitle := false;
         RgnFrm.ShowBevel := true;
         RgnFrm.Picture.Bitmap := nil;
       end;
    2: begin
         RgnFrm.Mask := Mask3.Picture.Bitmap;
         RgnFrm.Picture := Pic.Picture;
         RgnFrm.ShowBevel := false;
         RgnFrm.ShowTitle := false;
       end;
  end;
end;

end.