jsvalidcodeimage.pas

销售软件

unit JSValidCodeImage;

interface

uses
  SysUtils,
  Classes,
  Controls,
  Graphics,
  ExtCtrls;

type
  TJSValidCodeImage = class(TImage)
  private
    m_sValidCode: string;
    m_clBackColor, m_clForeColor: TColor;
    m_nValidCodeLength: Integer;
    procedure SetValidCodeLength(const Value: Integer);
    procedure SetBackColor(const Value: TColor);
    procedure SetForeColor(const Value: TColor);
  protected
    { Protected declarations }
  public
    constructor Create(AOwner: TComponent); override;
    procedure MakeValidCode;
  published
    property ValidCodeLength: Integer read m_nValidCodeLength
      write SetValidCodeLength default 4;
    property ValidCode: string read m_sValidCode;
    property BackColor: TColor read m_clBackColor
      write SetBackColor default clWhite;
    property ForeColor: TColor read m_clForeColor
      write SetForeColor default clBlack;
    procedure Resize; override;
  end;

procedure Register;

implementation

procedure Register;
begin
  RegisterComponents('Jerk System', [TJSValidCodeImage]);
end;

{ TJSValidCodeImage }

constructor TJSValidCodeImage.Create(AOwner: TComponent);
begin
  inherited Create;

  // TODO: 初始化变量
  m_nValidCodeLength := 4;
  m_clBackColor := clWhite;
  m_clForeColor := clBlack;

  MakeValidCode;
end;

procedure TJSValidCodeImage.MakeValidCode;
begin
  { 生成验证码 }
  (*)
  Canvas.Pen.Style := psSolid;
  Canvas.TextOut(10, 10, 'fff');  *)
end;

procedure TJSValidCodeImage.Resize;
begin
  (*inherited;

  Picture.Bitmap.Width := Width;
  Picture.Bitmap.Height := Height;
  Canvas.Pen.Color := BackColor;
  //Canvas.Pen.Style := psSolid;
  Canvas.Rectangle(0, 0, Width, Height);
  Canvas.Pen.Style := psSolid;
  Canvas.TextOut(10, 10, 'fff');     *)
end;

procedure TJSValidCodeImage.SetBackColor(const Value: TColor);
begin
  m_clBackColor := Value;
end;

procedure TJSValidCodeImage.SetForeColor(const Value: TColor);
begin
  m_clForeColor := Value;
end;

procedure TJSValidCodeImage.SetValidCodeLength(const Value: Integer);
begin
  m_nValidCodeLength := Value;
  MakeValidCode;
end;

end.