unit FIncludeEditorMain;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, 
Dialogs,
  DBCtrls, DB, DBISAMTb, DBActns, StdActns, ActnList, ImgList, ComCtrls,

  RFComCtrls, StdCtrls, TB97Ctls, ExtCtrls, Mask;

type
  TfrmMain = class(TForm)
    Panel2: TPanel;
    lblWeblink: TLabel;
    edtWebLink: TDBMemo;
    rfStatusBar1: TrfStatusBar;
    dsArtikel: TDataSource;
    tblArtikel: TDBISAMTable;
    tblArtikelPartNo: TStringField;
    tblArtikelWebLink: TMemoField;
    tblArtikelInfo: TMemoField;
    tblArtikelEnabled: TSmallintField;
    DBMemo1: TDBMemo;
    DBNavigator1: TDBNavigator;
    Panel3: TPanel;
    Label1: TLabel;
    DBEdit1: TDBEdit;
    procedure edtWebLinkKeyPress(Sender: TObject; var Key: Char);
    procedure edtWebLinkExit(Sender: TObject);
    procedure FormCloseQuery(Sender: TObject; var CanClose: Boolean);
    procedure tblArtikelAfterInsert(DataSet: TDataSet);
    procedure FormCreate(Sender: TObject);
  private
    procedure WebLinkValidate;
    { Private declarations }
  public
    { Public declarations }
  end;

var
  frmMain: TfrmMain;

implementation

{$R *.DFM}


procedure TfrmMain.edtWebLinkKeyPress(Sender: TObject; var Key: Char);

begin
  if Key = #13 then
    Key := #0;
end;

procedure TfrmMain.edtWebLinkExit(Sender: TObject);
begin
  WebLinkValidate;
end;

procedure TfrmMain.WebLinkValidate;
var
  s: string;
begin
  if dsArtikel.State in dsEditModes then
  begin
    s := tblArtikelWebLink.AsString;
    //RFMakeCorrectWebLink(s);
    if s <> tblArtikelWebLink.AsString then
    begin
      if s = '' then
        tblArtikelWebLink.Clear
      else
        tblArtikelWebLink.AsString := s;
    end;
  end;
end;




procedure TfrmMain.FormCloseQuery(Sender: TObject; var CanClose: 
Boolean);
begin
  if tblArtikel.Active then
    tblArtikel.FlushBuffers;
end;

procedure TfrmMain.tblArtikelAfterInsert(DataSet: TDataSet);
begin
  tblArtikelInfo.Clear;
end;

procedure TfrmMain.FormCreate(Sender: TObject);
begin
  if not tblArtikel.Exists then
    tblArtikel.CreateTable;
  tblArtikel.Open;
end;

end.