127 lines
		
	
	
		
			2.6 KiB
		
	
	
	
		
			C++
		
	
	
		
			Executable File
		
	
	
	
	
			
		
		
	
	
			127 lines
		
	
	
		
			2.6 KiB
		
	
	
	
		
			C++
		
	
	
		
			Executable File
		
	
	
	
	
#include <applicat.h>
 | 
						|
#include <mask.h>
 | 
						|
#include <urldefid.h>
 | 
						|
 | 
						|
/*
 | 
						|
#include <relapp.h>
 | 
						|
 | 
						|
///////////////////////////////////////////////////////////
 | 
						|
// Test Relapp
 | 
						|
///////////////////////////////////////////////////////////
 | 
						|
 | 
						|
class TTestrel_application : public TRelation_application
 | 
						|
{
 | 
						|
  const char* _maskname;
 | 
						|
  const char* _num;
 | 
						|
 | 
						|
  TRelation* _rel;
 | 
						|
  TMask* _msk;
 | 
						|
 | 
						|
protected:
 | 
						|
  virtual bool user_create();
 | 
						|
  virtual bool user_destroy();
 | 
						|
  virtual TMask* get_mask(int) { return _msk; }
 | 
						|
  virtual bool changing_mask(int) { return FALSE;}
 | 
						|
  virtual TRelation* get_relation() const { return _rel; }
 | 
						|
  virtual int read(TMask& m) { m.autoload(_rel); return NOERR; }
 | 
						|
  virtual int write(const TMask&) { return NOERR; }
 | 
						|
  virtual int rewrite(const TMask&) { return NOERR; }
 | 
						|
 | 
						|
public:
 | 
						|
  TTestrel_application(const char* name, const char* num);
 | 
						|
};
 | 
						|
 | 
						|
TTestrel_application::TTestrel_application(const char* name, const char* num)
 | 
						|
: _maskname(name), _num(num),
 | 
						|
  _msk(NULL), _rel(NULL)
 | 
						|
{}
 | 
						|
 | 
						|
 | 
						|
bool TTestrel_application::user_create()
 | 
						|
{
 | 
						|
  _msk = new TMask(_maskname);
 | 
						|
 | 
						|
  int id = atoi(_num);
 | 
						|
  if (id > 0) _rel = new TRelation(id);
 | 
						|
  else _rel = new TRelation(_num);
 | 
						|
 | 
						|
  return TRUE;
 | 
						|
}
 | 
						|
 | 
						|
bool TTestrel_application::user_destroy()
 | 
						|
{
 | 
						|
  delete _msk;
 | 
						|
  delete _rel;
 | 
						|
  return TRUE;
 | 
						|
} 
 | 
						|
 | 
						|
*/
 | 
						|
 | 
						|
///////////////////////////////////////////////////////////
 | 
						|
// Testmask
 | 
						|
///////////////////////////////////////////////////////////
 | 
						|
 | 
						|
class TTest_application : public TApplication
 | 
						|
{
 | 
						|
  TFilename _maskname;
 | 
						|
 | 
						|
protected:
 | 
						|
  bool create() { dispatch_e_menu(BAR_ITEM(1)); return TRUE; }
 | 
						|
  bool destroy() { return TRUE; }
 | 
						|
  bool menu(MENU_TAG);
 | 
						|
 | 
						|
public:
 | 
						|
  TTest_application(const char* name) : _maskname(name) {}
 | 
						|
};
 | 
						|
 | 
						|
bool TTest_application::menu(MENU_TAG)
 | 
						|
{ 
 | 
						|
  TMask m(_maskname);
 | 
						|
  KEY k = m.run();
 | 
						|
  if (k == K_QUIT) stop_run();
 | 
						|
 | 
						|
  return k != K_QUIT;
 | 
						|
}
 | 
						|
 | 
						|
///////////////////////////////////////////////////////////
 | 
						|
 | 
						|
 | 
						|
int main(int argc, char** argv)
 | 
						|
{
 | 
						|
  TApplication::check_parameters(argc, argv);
 | 
						|
  
 | 
						|
  if (argc < 3)
 | 
						|
  { 
 | 
						|
    TFilename n;
 | 
						|
    if (argc == 1)
 | 
						|
    {
 | 
						|
      TMask m("Inserire il nome della maschera", 1, 42, 4);
 | 
						|
      m.add_string(101, 0, "", 1, 1, 40);
 | 
						|
      m.field(101).check_type(CHECK_REQUIRED);
 | 
						|
      m.add_button(DLG_OK, 0, "", -12, -1, 10, 2);
 | 
						|
      m.add_button(DLG_CANCEL, 0, "", -22, -1, 10, 2);
 | 
						|
      if (m.run() == K_ENTER)
 | 
						|
        n = m.get(101);
 | 
						|
    } 
 | 
						|
    else 
 | 
						|
      n = argv[1];
 | 
						|
    
 | 
						|
    if (n.not_empty())
 | 
						|
    {
 | 
						|
      TTest_application a(n);
 | 
						|
      n = n.name(); n.insert("Test Mask ", 0);
 | 
						|
      a.run(argc, argv, n);
 | 
						|
    }  
 | 
						|
  }
 | 
						|
/*    
 | 
						|
  else
 | 
						|
  {
 | 
						|
    TTestrel_application a(argv[1], argv[2]);
 | 
						|
    a.run(argc, argv, "Test Relation Application");
 | 
						|
  }
 | 
						|
*/    
 | 
						|
 | 
						|
  return 0;
 | 
						|
}
 | 
						|
 |