wwrgxed2.pas

胜天进销存源码,国产优秀的进销存

unit wwrgxed2;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, Mask, wwdbedit, Wwdotdot, StdCtrls, ExtCtrls, Buttons;

type
  TwwEditRegexMaskdlg = class(TForm)
    OKBtn: TBitBtn;
    CancelBtn: TBitBtn;
    Panel1: TPanel;
    PictureMaskLabel: TLabel;
    Label1: TLabel;
    CaseSensitiveCheckbox: TCheckBox;
    RegexDescription: TMemo;
    DesignMaskButton: TButton;
    RegexMaskEdit: TwwDBComboDlg;
    RegexErrorMsgEdit: TMemo;
    procedure FormShow(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure FormDestroy(Sender: TObject);
    procedure FormKeyDown(Sender: TObject; var Key: Word; Shift: TShiftState);
    procedure RegexMaskEditExit(Sender: TObject);
    procedure DesignMaskButtonClick(Sender: TObject);
  private
  public
    Component : TwwCustomMaskEdit;
    OrigRegexMaskMask : String;
    OrigCaseSensitive : Boolean;
  end;

var
  EditRegexMaskdlg : TwwEditRegexMaskdlg;

function wwPrpEdit_RegexMask2( AComponent : TwwCustomMaskEdit ) : Boolean;

implementation

{$R *.dfm}

uses
  wwcommon, Wwpicdb, ipdsgn;

function wwPrpEdit_RegexMask2( AComponent : TwwCustomMaskEdit ) : Boolean;
begin
  Result := false;
  with EditRegexMaskdlg.create(Application) do try
    Component:=AComponent;
    OrigRegexMaskMask := AComponent.RegexMask.Mask;
    OrigCaseSensitive := AComponent.RegexMask.CaseSensitive;
    if ShowModal=mrOK then begin
      AComponent.RegexMask.Mask := RegexMaskEdit.Text;
      AComponent.RegexMask.CaseSensitive := CaseSensitiveCheckbox.Checked;
      result:= True;
    end
  finally
    Free;
  end;
end;

procedure TwwEditRegexMaskdlg.DesignMaskButtonClick(Sender: TObject);
begin
  with TwwCustomMaskEdit.create(Application) do begin
//  TwwCustomMaskEdit.
//    MaskEdit.Text:= RegexMaskEdit.Text;
    Free;
  end
end;

procedure TwwEditRegexMaskdlg.FormCreate(Sender: TObject);
begin
  //
end;

procedure TwwEditRegexMaskdlg.FormDestroy(Sender: TObject);
begin
  //
end;

procedure TwwEditRegexMaskdlg.FormKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  if ( key = vk_f1 ) then
    wwALinkHelp( Handle, 'Picture_Masks' );
end;

procedure TwwEditRegexMaskdlg.FormShow(Sender: TObject);
begin
  CaseSensitiveCheckbox.Checked := OrigCaseSensitive;
  RegexMaskEdit.Text := OrigRegexMaskMask;
  RegexErrorMsgEdit.Text := '';
end;

procedure TwwEditRegexMaskdlg.RegexMaskEditExit(Sender: TObject);
begin
 //
end;

end.