Patch level :10.0 patch 24

Files correlati     : tutta la base ed anche l'ipotenusa
Ricompilazione Demo : [ ]
Commento            :


git-svn-id: svn://10.65.10.50/trunk@16462 c028cbd2-c16b-5b4b-a496-9718f37d4682

ba/ba0100.cpp

@@ -261,10 +261,10 @@ TPicture_mask::TPicture_mask(const char* name, int dx, int dy,
 {  
   set_current(submenu);
   TFilename logoname;
-  const char* const ext[] = { "jpg", "png", "gif", "bmp", NULL };
+  const char* const ext[] = { "jpg", "png", "gif", "bmp", "jpeg", NULL };
   for (int i = 0; ext[i]; i++)
   {
-    logoname = "logo."; logoname << ext[i];
+    logoname = "logo"; logoname.ext(ext[i]);
     if (logoname.custom_path())
       break;
   }
@@ -368,6 +368,10 @@ bool TColor_mask::on_field_event(TOperable_field& f, TField_event e, long jolly)
       }
     }
     break;  
+  case DLG_EDIT:
+    if (e == fe_button)
+      dispatch_e_menu(TASK_WIN, MENU_ITEM(2));
+    break;
   default:
     if (id >= 101 && id <= 113 && e == fe_button)
     {
@@ -1146,19 +1150,11 @@ bool TMenu_application::test_programs()
 
 bool TMenu_application::user_create()
 {
-
   disable_menu_item(M_FILE_PRINT); // Questa voce di menu non serve per ora
   
   if (dongle().type() == _no_dongle)
-  {
+    warning_box(TR("ATTENZIONE\nQuesto programma è in versione dimostrativa.\n"
-    TMask w(TR("ATTENZIONE"), 1, 68, 10);
+                   "Esso funzionera' per circa due ore al giorno con un numero limitato di registrazioni."));
-    w.add_static(DLG_NULL, 0 , PR("@bATTENZIONE") , 30 , 1);
-    w.add_static(DLG_NULL, 0 , TR("Questo programma è in versione dimostrativa.") , 1 , 3);
-    w.add_static(DLG_NULL, 0 , TR("Il programma funziona circa per due ore ogni giorno.") , 1 , 5);
-    w.add_static(DLG_NULL, 0 , TR("Il numero di registrazioni è stato limitato ad un migliaio.") , 1 , 7);
-    w.add_button(DLG_OK, 0, "", -11, -1, 10, 2);    
-    w.run();
-  }
 
   if (!check_user()) 
     return false;

ba/ba0102.cpp

@@ -1,13 +1,17 @@
 #include <controls.h>
 #include <diction.h>
-#include <mask.h>
 #include <prefix.h>
 #include <statbar.h>
+#include <toolfld.h>
 #include <urldefid.h>
 #include <utility.h>
 
 #include "ba0102.h"
 
+#define F_OPTIONS 201
+#define F_STAR    204
+#define F_ADDSTAR 205
+
 ///////////////////////////////////////////////////////////
 // TMenu_tree
 ///////////////////////////////////////////////////////////
@@ -462,11 +466,10 @@ protected:
 	virtual void update();
 	virtual void handler(WINDOW win, EVENT* ep);
   virtual bool on_key(KEY k);
-  virtual void on_idle();
 
 	void synchronize_buddy_tree() const;
   void draw_item(int i);
-  void draw_menu_caption(COLOR rgb);
+  void draw_menu_caption();
   void click_on(int index);
   void select(int s, int direction);
 
@@ -549,7 +552,7 @@ void TMenulist_window::draw_item(int i)
 }
 
 //scrive la voce di menu corrente a video
-void TMenulist_window::draw_menu_caption(COLOR rgb)
+void TMenulist_window::draw_menu_caption()
 {
   const char* caption = "";
   if (_sorted.items() > 1)
@@ -563,26 +566,7 @@ void TMenulist_window::draw_menu_caption(COLOR rgb)
     const TMenuitem& mi = (const TMenuitem&)_sorted[0];
     caption = mi.caption();
   }
-  RCT rct; xvt_vobj_get_client_rect(win(), &rct);
+  xvt_pane_set_title(win(), caption);
-  const int x = rct.left+2;
-  int y = rct.bottom-CHARY;
-  if (ADVANCED_GRAPHICS)
-  {
-    const TImage* logo = _images.image("logo");
-    if (logo != NULL) 
-      y -= logo->height() + ROWY; //+ROWY per staccare scritta dal logo
-  }
-  XVT_FNTID font_menu = xvt_font_create();
-  xvt_font_copy(font_menu, xvt_default_font(true), XVT_FA_ALL);
-  const int size = xvt_font_get_size(font_menu);
-  xvt_font_set_size(font_menu, 130 * size / 100); //altezza font il 30% maggiore di quello di menu
-
-  xvt_dwin_set_font(win(), font_menu);
-  set_color(rgb, NORMAL_BACK_COLOR);
-  xvt_dwin_draw_text(win(), x, y, caption, -1);
-
-  xvt_font_destroy(font_menu);
-
   statbar_set_title(TASK_WIN, caption);
 }
 
@@ -592,7 +576,7 @@ void TMenulist_window::update()
   if (_tree == NULL)
 		return; // Nothing to draw
 
-  const bool db = _tree != NULL && ADVANCED_GRAPHICS;
+  const bool db = ADVANCED_GRAPHICS;
   TImage* img = db ? _images.image(_image_name) : NULL; // Delay time before clearing
 
 	if (img != NULL)
@@ -615,29 +599,7 @@ void TMenulist_window::update()
   FOR_EACH_ARRAY_ITEM(_sorted, i, obj)
 		draw_item(i);
 
-  if (ADVANCED_GRAPHICS)
+  draw_menu_caption();
-    _last_update = clock();
-  else
-    draw_menu_caption(NORMAL_COLOR);
-}
-
-void TMenulist_window::on_idle()
-{
-  if (ADVANCED_GRAPHICS)
-  {
-#ifdef LINUX
-    const clock_t max_clock = (3*CLOCKS_PER_SEC) / 10;
-#else
-    const clock_t max_clock = 3*CLOCKS_PER_SEC;
-#endif
-    const clock_t elapsed = clock() - _last_update;
-    if (elapsed <= max_clock)
-    {
-      const double perc = double(elapsed) / double(max_clock);
-      const COLOR rgb = blend_colors(NORMAL_COLOR, NORMAL_BACK_COLOR, perc);
-      draw_menu_caption(rgb);
-    }
-  }
 }
 
 void TMenulist_window::click_on(int index)
@@ -945,7 +907,7 @@ void draw_spider(WINDOW w, int mode, const PNT& mouse)
   if (_spider < 0)
     _spider = ADVANCED_GRAPHICS && is_power_station(); // Attiva eventuale ragno
 
-  if (_spider && w != NULL_WIN)
+  if (_spider && xvt_vobj_is_focusable(w))
   {
 	  RCT client; xvt_vobj_get_client_rect(w, &client);
 
@@ -1088,7 +1050,7 @@ bool TSpidey_mask::stop_run(KEY k)
         }
       }
       // Butto via le immagini dopo averle disegnate tutte
-      for (i = 2; i >= 0; i--)
+      for (i = 3; i >= 0; i--)
         xvt_image_destroy(image[i]);
 
       if (installing())  //se e' stata lanciata la installazione moduli...
@@ -1099,7 +1061,7 @@ bool TSpidey_mask::stop_run(KEY k)
       {
         if (!yesno_box(TR("Si desidera uscire?")))  //..altrimenti chiede educatamente se si desidera uscire
         {
-          for (i = 0; i < 3; i++)
+          for (i = 3; i >= 0; i--)
             xvt_dwin_invalidate_rect(window[i], NULL);
           return false;
         }
@@ -1118,7 +1080,7 @@ bool TSpidey_mask::on_key(KEY k)
 	return TMask::on_key(k);
 }
 
-TSpidey_mask::TSpidey_mask() : TAutomask ("", 1, 0, 0, 0, 0)
+TSpidey_mask::TSpidey_mask() : TAutomask ("Menu", 1, 0, 0, 0, 0)
 { }
 
 ///////////////////////////////////////////////////////////
@@ -1153,16 +1115,6 @@ void TExplorer_mask::handler(WINDOW win, EVENT* ep)
   TSpidey_mask::handler(win, ep);
 }
 
-void TExplorer_mask::on_idle()
-{
-  if (ADVANCED_GRAPHICS)
-  {
-    TWindowed_field& lf = (TWindowed_field&)field(DLG_LIST);
-    lf.win().on_idle();
-  }
-}
-
-
 void TExplorer_mask::select_tree_current()
 {
   TTree_field& tf = tfield(DLG_TREE);
@@ -1199,21 +1151,28 @@ bool TExplorer_mask::on_field_event(TOperable_field& o, TField_event e, long jol
       mt.goto_root();
       select_tree_current();
     }
-  case DLG_USER:
+    break;
-    if (e == fe_modify && !o.empty())
+  case DLG_FINDREC:
+    if (e == fe_button)
     {
-      const TString& v = o.get();
+      TString80 str = _last_search_string;
-      TTree_field& tf = tfield(DLG_TREE);
+      const char* s = xvt_dm_post_string_prompt(TR("Testo"), str.get_buffer(), str.size());
-      TMenu_tree& mt = *(TMenu_tree*)tf.tree();
+      if (s && *s)
-      if (mt.find_string(v))
       {
-        select_tree_current();
+        _last_search_string = s;
-        _last_search_string = v;
+        send_key(K_F3, 0);
       }
-      else
-        beep();
     }     
     break;
+  case TOOL_CONFIG:
+    dispatch_e_menu(TASK_WIN, MENU_ITEM(2));
+    break;
+  case TOOL_PREF:
+    dispatch_e_menu(TASK_WIN, MENU_ITEM(6));
+    break;
+  case TOOL_ADDPREF:
+    dispatch_e_menu(TASK_WIN, MENU_ITEM(5));
+    break;
   default:
     break;
   }
@@ -1224,7 +1183,12 @@ bool TExplorer_mask::on_key(KEY k)
 {
   if (k == K_F3 || k == K_F8)
 	{
-    set(DLG_USER, _last_search_string, true); 
+    TTree_field& tf = tfield(DLG_TREE);
+    TMenu_tree& mt = *(TMenu_tree*)tf.tree();
+    if (_last_search_string.full() && mt.find_string(_last_search_string))
+      select_tree_current();
+    else
+      beep();
 		return true;
 	}
 	return TSpidey_mask::on_key(k);
@@ -1232,12 +1196,16 @@ bool TExplorer_mask::on_key(KEY k)
 
 TExplorer_mask::TExplorer_mask(TMenu& menu) : _tree(menu)
 {
-  // Bottom Toolbar
+  add_button_tool(DLG_SHRINK,  TR("Menu Principale"), TOOL_FIRSTREC);  
-  insert_page("4", -1); // Crea toolbar di "4" righe
+  add_button_tool(DLG_FINDREC, TR("Ricerca"),         TOOL_LENTE);
-            
+  add_button_tool(TOOL_CONFIG, TR("Opzioni"),         TOOL_CONFIG);
-  add_button(DLG_QUIT,   -1, "", -12, -2, 18, 2);  
+  add_button_tool(TOOL_PREF,   TR("Preferiti"),       TOOL_PREF);
-  add_button(DLG_SHRINK, -1, PR("Menu Principale"), -22, -2, 18, 2);  
+  add_button_tool(TOOL_ADDPREF,TR("Aggiungi ai Preferiti"), TOOL_ADDPREF);
-  add_string(DLG_USER,   -1, PR("Cerca "), 11, -4, 50);
+  add_button_tool(DLG_INFO,    TR("Info"),            TOOL_INFO);
+  add_button_tool(DLG_HELP,    TR("Help"),            TOOL_HELP);
+  add_button_tool(DLG_QUIT,    TR("Fine"),            TOOL_QUIT);  
+
+  WINDOW panel = page_win(0);
 
   // Tree view
   TTree_field& trifola = add_tree(DLG_TREE, 0, 0, 0, 32, 0);
@@ -1246,13 +1214,12 @@ TExplorer_mask::TExplorer_mask(TMenu& menu) : _tree(menu)
 
   // List view
   TMenulist_field* mf = new TMenulist_field(this);
-  mf->create(DLG_LIST, 21, 0, 0, 0, win());
+  mf->create(DLG_LIST, 48, 0, 0, 0, panel);
   mf->set_menu(*(TMenu_tree*)trifola.tree());
   add_field(mf);
 	
-  xvt_win_add_pane(win(), dlg2win(DLG_LIST), "Main", 0, 0); // Main pane
+  xvt_pane_add(panel, dlg2win(DLG_LIST), "Main", 0, 0); // Right pane
-  xvt_win_add_pane(win(), dlg2win(DLG_TREE), "Menu", 1, 0); // Left pane
+  xvt_pane_change_flags(dlg2win(DLG_LIST), 1<<10,0);
-
+  xvt_pane_add(panel, dlg2win(DLG_TREE), "Menu", 1, 0); // Left pane
-  first_focus(DLG_LIST);
   set_handlers();
 }

ba/ba0102.h

@@ -107,7 +107,6 @@ class TExplorer_mask : public TSpidey_mask
 protected: // TMask
   virtual void update();
   virtual void handler(WINDOW win, EVENT* ep);
-  virtual void on_idle();
   virtual bool on_key(KEY k);
   virtual bool on_field_event(TOperable_field& o, TField_event e, long jolly);
 

ba/ba0103.cpp

@@ -3,92 +3,281 @@
 #include <defmask.h>
 #include <xvtility.h>
 
+enum { DLG_TREE = 101, DLG_LOOK = 102, DLG_MAIN = 103 };
+
 ///////////////////////////////////////////////////////////
-// TCampo_window
+// TApp_window & TBook_window declarations
 ///////////////////////////////////////////////////////////
 
-class TCampo_window : public TField_window
+class TBook_window;
+
+class TApp_window : public TWindow
+{
+  TBook_window* _owner;
+
+protected:
+  virtual void handler(WINDOW win, EVENT* ep);
+
+public:
+  TApp_window(TBook_window* owner);
+};
+
+class TBook_window : public TControl_host_window
 {
   TImage _logo;
 
 protected:
   virtual void update();
   virtual void handler(WINDOW win, EVENT* ep);
+  short pages() const;
+
+  void force_page(short page);
+  void erode_antipa();
 
 public:
-  TCampo_window(int x, int y, int dx, int dy, 
+  WINDOW notebook() const { return _ctrl; }
-                WINDOW parent, TWindowed_field* owner);
+  short add_page(const TString& caption);
-  ~TCampo_window();
+  void set_page_caption(short page, const TString& caption);
+  bool remove_page(WINDOW page);
+  
+  TBook_window(int x, int y, int dx, int dy, WINDOW parent, TWindowed_field* owner);
+  ~TBook_window();
 };
 
-void TCampo_window::update()
+///////////////////////////////////////////////////////////
+// TApp_window
+///////////////////////////////////////////////////////////
+
+void TApp_window::handler(WINDOW win, EVENT* ep)
 {
-  TField_window::update();
+  switch (ep->type)
-
-  RCT rctw; xvt_vobj_get_client_rect(win(), &rctw);
-  if (rctw.right >= 32)
   {
-    if (_logo.ok())
+  case E_TIMER:
+    if (xvt_vobj_is_focusable(win))
     {
-      RCT rcti = _logo.rect();
+      // Leggo il titolo della finestra corrente
-      if (rcti.right > rctw.right)
+      TString256 title;
+      xvt_vobj_get_title(win, title.get_buffer(), title.size());
+      // Se la finestra ospita gia' un'applicazione non si chiama piu' "__CAMPO_MENU__"
+      if (title != __MAGIC_CAPTION__) 
       {
-        const double ratio = double(rctw.right) / double(rcti.right);
+        if (xvt_win_get_children_count(win) == 0) // Se l'applicazione e' morta ...
-        rcti.right = int(rcti.right * ratio); 
+        {
-        rcti.bottom = int(rcti.bottom * ratio);
+          xvt_timer_destroy(ep->v.timer.id);      // Ammazzo il timer ...
+          _owner->remove_page(win);               // ... e pure la pagina ospitante
+        }
       }
-      xvt_rect_offset(&rcti, rctw.right - rcti.right, rctw.bottom - rcti.bottom);
-      _logo.draw(win(), rcti);
     }
+    break;
+  case E_DESTROY:
+    xvt_sys_close_children(win);
+    break;
+  default:
+    break;
+  }
+  
+  TWindow::handler(win, ep);
+}
 
-    PNT pnt = { 0, 0 };
+TApp_window::TApp_window(TBook_window* owner) : _owner(owner)
-    draw_spider(win(), 0x3, pnt);
+{
+  WINDOW w = create(0, 0, -1, -1, __MAGIC_CAPTION__, WSF_NONE, W_PLAIN, owner->notebook());
+  xvt_timer_create(w, 1500); // Ogni tanto controllo se l'applicazione e' ancora viva
+}
+
+///////////////////////////////////////////////////////////
+// TBook_window
+///////////////////////////////////////////////////////////
+
+void TBook_window::update()
+{
+  // Disegno lo sfondo solo se non esiste nessun notebook che occupa tutto lo spazio!
+  if (_ctrl == NULL_WIN)
+  {
+    clear(COLOR_WHITE);
+    RCT rctw; xvt_vobj_get_client_rect(win(), &rctw);
+    if (rctw.right >= 32)
+    {
+      if (_logo.ok())
+      {
+        RCT rcti = _logo.rect();
+        if (rcti.right > rctw.right)
+        {
+          const double ratio = double(rctw.right) / double(rcti.right);
+          rcti.right = int(rcti.right * ratio); 
+          rcti.bottom = int(rcti.bottom * ratio);
+        }
+        xvt_rect_offset(&rcti, rctw.right - rcti.right, rctw.bottom - rcti.bottom);
+        _logo.draw(win(), rcti);
+      }
+      const PNT pnt = { 0, 0 };
+      draw_spider(win(), 0x3, pnt);
+    }
   }
 }
 
-void TCampo_window::handler(WINDOW win, EVENT* ep)
+short TBook_window::pages() const
 {
-  if (ep->type == E_MOUSE_MOVE)
+  return _ctrl == NULL_WIN ? 0 : xvt_notebk_get_num_tabs(_ctrl);
-    draw_spider(win, 0x3, ep->v.mouse.where);
-  TField_window::handler(win, ep);
 }
 
-TCampo_window::TCampo_window(int x, int y, int dx, int dy, 
+void TBook_window::force_page(short page)
-                             WINDOW parent, TWindowed_field* owner)
+{
-             : TField_window(x, y, dx, dy, parent, owner), _logo("logo.gif")
+  // Per le applicazioni figlie pare necessaria questa forzatura della visibilta'
-{ 
+  for (int p = pages()-1; p >= 0; p--)
-  set_caption("__CAMPO_MENU__");
+  {
-  set_scroll_max(0, 0);  // Get rid of that useless scrollbars 
+    WINDOW pw = xvt_notebk_get_page(_ctrl, p);
+    const bool show = p == page;
+    if (show)
+      xvt_notebk_set_front_page(_ctrl, page);
+    xvt_vobj_set_visible(pw, show);
+  }
+}
 
+void TBook_window::handler(WINDOW win, EVENT* ep)
+{
+  switch (ep->type)
+  {
+  case E_MOUSE_MOVE:
+    if (_ctrl == NULL_WIN)
+      draw_spider(win, 0x3, ep->v.mouse.where);
+    break;
+  case E_CONTROL:
+    if (ep->v.ctl.ci.win == _ctrl)
+    {
+      force_page(ep->v.ctl.ci.v.notebk.tab_no);
+      return;
+    }
+    break;
+  default:
+    break;
+  }
+  TControl_host_window::handler(win, ep);
+}
+
+short TBook_window::add_page(const TString& caption)
+{
+  if (_ctrl == NULL_WIN)
+  {
+    WIN_DEF wd; memset(&wd, 0, sizeof(wd));
+    wd.wtype = WC_NOTEBK;
+    wd.v.ctl.ctrl_id = DLG_MAIN;
+    wd.v.ctl.flags = CTL_FLAG_RIGHT_JUST;
+    xvt_vobj_get_client_rect(win(), &wd.rct);
+    _ctrl = xvt_ctl_create_def(&wd, win(), 0L);
+  }
+
+  TString256 cap;
+  for (short pg = pages()-1; pg >= 0; pg--)
+  {
+    xvt_notebk_get_tab_title(_ctrl, pg, cap.get_buffer(), cap.size());
+    if (cap.compare(caption, -1, true) == 0)
+    {
+      force_page(pg);
+      return -1;      // Don't perform menu!
+    }
+  }
+  TApp_window* w = new TApp_window(this);
+  const short pg = xvt_notebk_add_page(_ctrl, w->win(), caption, NULL, -1);
+  if (pg >= 0)
+    force_page(pg);
+  else
+    delete w;
+ 
+  return pg;
+}
+
+void TBook_window::set_page_caption(short page, const TString& caption)
+{
+  xvt_notebk_set_tab_title(_ctrl, page, caption);  // Titolo dell'orecchio
+  xvt_notebk_set_page_title(_ctrl, page, caption); // Titolo della finestra
+}
+
+bool TBook_window::remove_page(WINDOW page)
+{
+  bool bFound = false;
+  for (int p = pages()-1; p >= 0; p--)
+  {
+    WINDOW win = xvt_notebk_get_page(_ctrl, p);
+    if (win == page)
+    {
+      xvt_notebk_rem_page(_ctrl, p);
+      bFound = true;
+      break;
+    }
+  }
+  if (bFound)
+  {
+    if (pages() == 0)
+    {
+      erode_antipa();
+      force_update();
+    }
+    else
+      force_page(0);
+  }
+  return bFound;
+}
+
+void TBook_window::erode_antipa()
+{
+  if (_ctrl != NULL_WIN)
+  {
+    // Ammazza anche tutti ... coloro che son sospesi
+    for (int p = pages()-1; p >= 0; p--)
+      xvt_notebk_rem_page(_ctrl, p);
+    xvt_vobj_destroy(_ctrl); 
+    _ctrl = NULL_WIN;
+  }
+}
+
+TBook_window::TBook_window(int x, int y, int dx, int dy, 
+                           WINDOW parent, TWindowed_field* owner)
+             : TControl_host_window(x, y, dx, dy, parent, owner), _logo("logo.gif")
+{ 
+  set_scroll_max(0, 0);  // Get rid of that useless scrollbars 
   if (_logo.ok() && can_be_transparent(_logo))
     _logo.convert_transparent_color(NORMAL_BACK_COLOR);
 }
 
-TCampo_window::~TCampo_window()
+TBook_window::~TBook_window()
-{
+{ erode_antipa(); }
-  xvt_sys_close_children(win());
-}
 
 ///////////////////////////////////////////////////////////
-// TCampo_field
+// TBook_field
 ///////////////////////////////////////////////////////////
 
-class TCampo_field : public TWindowed_field
+class TBook_field : public TWindowed_field
 {
 protected:
   virtual TField_window* create_window(int x, int y, int dx, int dy, WINDOW parent);
 
 public:
-  void create(short dlg, int x, int y, int dx, int dy, WINDOW parent);
+  virtual void create(short dlg, int x, int y, int dx, int dy, WINDOW parent);
-  TCampo_field(TMask* m) : TWindowed_field(m) {}
+
+  short add_page(const TString& caption);
+  void set_page_caption(short page, const TString& caption);
+  TBook_field(TMask* m) : TWindowed_field(m) {}
 };
 
-TField_window* TCampo_field::create_window(int x, int y, int dx, int dy, WINDOW parent)
+short TBook_field::add_page(const TString& caption)
 {
-  return new TCampo_window(x, y, dx, dy, parent, this);
+  TBook_window& bw = (TBook_window&)win();
+  return bw.add_page(caption);
 }
 
-void TCampo_field::create(short dlg, int x, int y, int dx, int dy, WINDOW parent)
+void TBook_field::set_page_caption(short page, const TString& caption)
+{
+  TBook_window& bw = (TBook_window&)win();
+  bw.set_page_caption(page, caption);
+}
+
+TField_window* TBook_field::create_window(int x, int y, int dx, int dy, WINDOW parent)
+{
+  return new TBook_window(x, y, dx, dy, parent, this);
+}
+
+void TBook_field::create(short dlg, int x, int y, int dx, int dy, WINDOW parent)
 {
   _dlg = dlg;
   _win = create_window(x, y, dx, dy, parent);
@@ -98,6 +287,18 @@ void TCampo_field::create(short dlg, int x, int y, int dx, int dy, WINDOW parent
 // TOutlook_mask
 ///////////////////////////////////////////////////////////
 
+short TOutlook_mask::add_page(const TString& caption)
+{
+  TBook_field& bf = (TBook_field&)field(DLG_MAIN);
+  return bf.add_page(caption);
+}
+
+void TOutlook_mask::set_page_caption(short page, const TString& caption)
+{
+  TBook_field& bf = (TBook_field&)field(DLG_MAIN);
+  bf.set_page_caption(page, caption);
+}
+
 bool TOutlook_mask::on_field_event(TOperable_field& o, TField_event e, long jolly)
 {
   switch (o.dlg())
@@ -115,9 +316,22 @@ bool TOutlook_mask::on_field_event(TOperable_field& o, TField_event e, long joll
         }
         else
         {
-		      mi.perform();
+          if (mi.action() != "ba1 -5")
-          if (installing())
+          {
-            stop_run(K_FORCE_CLOSE);
+            const short pg = add_page(mi.caption());
+            if (pg >= 0)
+            {
+  		        mi.perform();
+              xvt_sys_sleep(1000);
+              set_page_caption(pg, mi.caption());
+            }
+          }
+          else
+          {
+            mi.perform();
+            if (installing())           // Always true
+              stop_run(K_FORCE_CLOSE);
+          }
         }
       }
     }
@@ -141,21 +355,24 @@ TOutlook_mask::TOutlook_mask(TMenu& menu) : _tree(menu)
 { 
   xvtil_statbar_destroy(); // Ammazza status bar inutile
   RCT rct; xvt_vobj_get_client_rect(TASK_WIN, &rct);
-  xvt_vobj_move(win(), &rct); // Resiza la maschera in modo da occupare lo spazio liberato
+
+  WINDOW panel = page_win(0);
+  xvt_vobj_move(panel, &rct); // Resiza la maschera in modo da occupare lo spazio liberato
 
   menu.set_mask_mode(3); // Outlook mode
 
-  TTree_field& trifola = add_tree(DLG_TREE, 0, 0, 0, 28, 0);
+  const int w = 28;
+  const int h = rows() / 2;
+
+  TTree_field& trifola = add_tree(DLG_TREE, 0, 0, 0, w, h);
   trifola.set_tree(&_tree);
 
-  const int w = trifola.win().columns();
-  const int h = trifola.win().rows() / 2;
   TOutlook_field* of = new TOutlook_field(this);
-  of->create(DLG_LOOK, 0, h, w, h, win()); 
+  of->create(DLG_LOOK, 0, h, w, h, panel); 
   add_field(of);
 
-  TCampo_field* cf = new TCampo_field(this);
+  TBook_field* cf = new TBook_field(this);
-  cf->create(DLG_MAIN, w, 0, 0, 0, win()); 
+  cf->create(DLG_MAIN, w, 0, 0, 0, panel); 
   add_field(cf);
 
   TString caption;
@@ -167,9 +384,9 @@ TOutlook_mask::TOutlook_mask(TMenu& menu) : _tree(menu)
     of->add_item(ico, caption, 0);
   }
 
-  xvt_win_add_pane(win(), dlg2win(DLG_TREE), "Menu", 1, 0); // Left upper pane
+  xvt_pane_add(panel, dlg2win(DLG_TREE), "Menu", 1, 0); // Left upper pane
-  xvt_win_add_pane(win(), dlg2win(DLG_LOOK), "Bar",  1, 0); // Left lower pane
+  xvt_pane_add(panel, dlg2win(DLG_LOOK), "Bar",  1, 0); // Left lower pane
-  xvt_win_add_pane(win(), dlg2win(DLG_MAIN), "Main", 0, 0); // Main pane
+  xvt_pane_add(panel, dlg2win(DLG_MAIN), "Main", 0, 0); // Main pane
 
   set_handlers();
 }

ba/ba0103.h

@@ -19,7 +19,8 @@ class TOutlook_mask : public TSpidey_mask
 
 protected:
   virtual bool on_field_event(TOperable_field& o, TField_event e, long jolly);
-  enum { DLG_TREE = 101, DLG_LOOK = 102, DLG_MAIN = 103 };
+  short add_page(const TString& caption);
+  void set_page_caption(short page, const TString& caption);
 
 public:
   TOutlook_mask(TMenu& menu);

ba/ba0200a.uml

@@ -121,17 +121,18 @@ BEGIN
   PROMPT 36 17 "Grafica avanzata"
 END
 
-BUTTON DLG_USER 12 2
+BUTTON DLG_OK 12 2
+BEGIN
+  PROMPT -13 -1 ""
+END
+
+BUTTON DLG_EDIT 12 2
 BEGIN
   PROMPT -23 -1 "Font"
+  PICTURE 116
 END
 
 BUTTON DLG_CANCEL 12 2
-BEGIN
-  PROMPT -13 -1 "Annulla"
-END
-
-BUTTON DLG_OK 12 2
 BEGIN
   PROMPT -33 -1 ""
 END

ba/ba1100.cpp

@@ -7,6 +7,7 @@
 #include <printer.h>
 #include <progind.h>
 #include <utility.h>
+#include <urldefid.h>
 
 #include <user.h>
 
@@ -264,51 +265,42 @@ void TManutenzione_app::print()
   p.footerlen(4);
   if (_rec == NULL)
   {
-    TDir d;
+    TDir d; d.get(LF_DIR);
-
-    d.get(LF_DIR);
     int items = (int)d.eod();
-    TProgind *pi;
+    if (items > 0)
-    pi = new TProgind(items, TR("Stampa tracciati record archivi"), true, true);
-
-    pi->setstatus(2);
-    
-    int i;
-
-    for (i = LF_USER ; !pi->iscancelled() && i <= items; i++)
     {
-      d.get(i);
+      TProgind pi(items, TR("Stampa tracciati record archivi"), true, true);
-      if (d.len() > 0)
+      for (int i = LF_USER; pi.setstatus(i) && i <= items; i++)
       {
-        TRec_sheet r(i, "");
+        d.get(i);
-        pi->addstatus(1);
+        if (d.len() > 0)
-        do_print(p, r);
+        {
+          TRec_sheet r(i, "");
+          do_print(p, r);
+        }
       }
     }
-
+    
-    delete pi;
-
     TString_array list;
     items = list_files("recdesc/d???.des", list);
-
+    if (items > 0)
-    pi = new TProgind(items,TR("Stampa descrizione tabelle"), true, true);
-    
-    TString16 tab;
-    for (i = 0; !pi->iscancelled() && i < items; i++)
     {
-      tab = list.row(i).right(7);
+      TProgind pi(items, TR("Stampa descrizione tabelle"), true, true);
-      tab.cut(3);
+      TString16 tab;
-			if (isalpha(tab[0]))
+      for (int i = 0; pi.setstatus(i) && i < items; i++)
-			{
+      {
-				TRec_sheet r(4, tab);
+        tab = list.row(i).right(7);
-
+        tab.cut(3);
-				do_print(p, r);
+			  if (isalpha(tab[0]))
-			}
+			  {
-      pi->addstatus(1);
+				  TRec_sheet r(4, tab);
+				  do_print(p, r);
+			  }
+      }
     }
-    delete pi;
   }
-  else do_print(p, *_rec);
+  else 
+    do_print(p, *_rec);
   p.close();
 }
 
@@ -317,7 +309,8 @@ bool TManutenzione_app::create() // initvar e arrmask
   _firm = get_firm();
   
   TString sw(argc()>2 ? argv(2) : "");
-
+  // Posso fare le operazione avanzate solo se sono ammistratore 
+  // e NON mi trovo su di una installazione di tipo client
   _superprassi = user() == ::dongle().administrator();
   if (_superprassi)
   {
@@ -368,16 +361,15 @@ bool TManutenzione_app::create() // initvar e arrmask
 #endif
     load_des();
    
-    _mask = new TMask ("ba1100a");
+    _mask = new TMask("ba1100a");
-    _browse = new TDir_sheet (TR("Manutenzione file di sistema"), _superprassi ? 0xC : 0x8);
+    _browse = new TDir_sheet(TR("Manutenzione file di sistema"), _superprassi ? 0xC : 0x8);
     if (_superprassi)
     {
-      _browse->add_button(DLG_CONVERT, BR("~Converti", 9), K_F7);
+      _browse->add_button(DLG_OTHERFILE, TR("File Esterni"), K_F5, 113);
+      _browse->add_button(DLG_CONVERT, TR("Conversione"), K_F7, 156);
 			if (is_power_station())
-        _browse->add_button(DLG_ADDFILE, BR("~Aggiungi", 9), K_F8);
+        _browse->add_button(DLG_ADDFILE, TR("Nuovo file"), K_F8, BMP_NEWREC);
-      TButton_field& butt = ((TMask*)_browse)->add_button(DLG_OTHERFILE, 0, BR("A~ltri", 9), 0, -1, 9, 2, "", 0, 0);
+      _mask->enable(-1);         // Abilita campi privilegiati del gruppo 1
-      butt.set_exit_key(K_F5); 
-      _mask->enable(-1);         // Abilita campi privilegiati
     }
   }
   enable_menu_item(M_FILE_PRINT);
@@ -392,7 +384,6 @@ bool TManutenzione_app::destroy() // releasev e arrmask
   return TApplication::destroy() ;
 }
 
-
 void TManutenzione_app::open_log() 
 {                  
   TFilename log;
@@ -594,7 +585,7 @@ void TManutenzione_app::edit_riga (const TString& name)
     case K_F4:
     {
       TEdit_file ef;
-      ef.browse(f,n);
+      ef.browse_file(f, n);
       break;
     }
     case K_F6:
@@ -650,9 +641,9 @@ void TManutenzione_app::edit_riga (long riga_sel, TToken_string& riga)
     if (logicnum > 1)
     {
       const TFilename filename(_mask->get(FLD_NOME));
-      const TString16 tabella(_mask->get(F_TAB));
+      const TString& tabella = _mask->get(F_TAB);
       TEdit_file ef;
-      ef.browse(logicnum, filename, tabella);
+      ef.browse_file(logicnum, filename, tabella);
     }
     break;
   case K_F5:
@@ -1556,29 +1547,36 @@ void TManutenzione_app::main_loop()
 
     switch (key)
     {
+    case K_F1:
+      dispatch_e_menu(M_HELP_CONTENTS);
+      break;
+    case K_F2:
+      dispatch_e_menu(M_FILE_ABOUT);
+      break;
+    case K_F3:
+      dispatch_e_menu(M_FILE_PRINT);
+      break;
     case K_F6:
       riga_selezionata = _browse->selected();
       riga = _browse->row();
       insert_riga (riga_selezionata, riga);
-       break;
+      break;
-
     case K_ENTER:
       riga_selezionata = _browse->selected();
       riga = _browse->row();
       edit_riga (riga_selezionata, riga);
       break;
-
     case K_DEL:
       riga_selezionata = _browse->selected();
 			delete_riga(riga_selezionata);
 			break;
-
     case K_QUIT:
-    case K_ESC: done = true; close_history(); break;         
+    case K_ESC: 
-      
+      done = true; close_history(); 
+      break;               
     case K_F7: 
-      update(); break;
+      update(); 
-
+      break;
     case K_F8:
       _browse->add();
       riga_selezionata = _browse->items() - 1;
@@ -1593,8 +1591,8 @@ void TManutenzione_app::main_loop()
           edit_riga(other.get(101));
       }
       break;
-
+    default:
-    default: break;
+      break;
     }
     enable_menu_item(M_FILE_NEW);
   }

ba/ba1100.h

@@ -81,11 +81,12 @@ public:
 class TEdit_file : public TObject
 {
 protected:
-  KEY  edit_record(TRectype& rec, bool readonly = FALSE);
+  void edit_record(TRectype& rec);
-  bool _browse(TCursor& cur, const TFilename& name);
+  bool browse_cursor(TCursor& cur, const TFilename& name);
+
 public:
-  bool browse(int logicnum, const TFilename& name, const TString& tab);
+  bool browse_file(int logicnum, const TFilename& name, const TString& tab);
-  bool browse(TExternisamfile* file, const TFilename& name);
+  bool browse_file(TExternisamfile* file, const TFilename& name);
   TEdit_file() {} 
   virtual ~TEdit_file() {}
 };

ba/ba1100a.uml

@@ -1,6 +1,3 @@
-#include <defmask.h>
-#include <tokens.h>
-
 #include "ba1100a.h"
 
 PAGE "Modifica Archivio" -1 -1 70 15
@@ -85,54 +82,62 @@ BEGIN
   GROUP 1
 END
 
+ENDPAGE
+
+TOOLBAR "" 0 0 0 2
+
 BUTTON DLG_OK 9 2
 BEGIN
-  PROMPT -14 -3 ""
+  PROMPT 1 0 "Conferma"
-END
-
-BUTTON DLG_CANCEL 9 2
-BEGIN
-  PROMPT -24 -3 ""
 END
 
 BUTTON DLG_PACK 9 2
 BEGIN
-  PROMPT -34 -3 "Compatta"
+  PROMPT 2 0 "Compatta"
   MESSAGE EXIT,K_F5
   FLAGS "D"
-  GROUP 1
+  PICTURE 156
-END
-
-BUTTON DLG_RECORD 9 2
-BEGIN
-  PROMPT -44 -3 "Record"
-  MESSAGE EXIT,K_F6
-  FLAGS "D"
   GROUP 1
 END
 
 BUTTON DLG_DUMP 9 2
 BEGIN
-  PROMPT -14 -1 "Scarica"
+  PROMPT 3 0 "Scarica"
   MESSAGE EXIT,K_F7
+  PICTURE 151
   GROUP 1
 END
 
 BUTTON DLG_LOAD 9 2
 BEGIN
-  PROMPT -24 -1 "Carica"
+  PROMPT 4 0 "Carica"
   MESSAGE EXIT,K_F8
   FLAGS "D"
+  PICTURE 150
+  GROUP 1
+END
+
+BUTTON DLG_RECORD 9 2
+BEGIN
+  PROMPT 5 0 "Record"
+  MESSAGE EXIT,K_F6
+  FLAGS "D"
+  PICTURE 111
   GROUP 1
 END
 
 BUTTON DLG_EDIT 9 2
 BEGIN
-  PROMPT -34 -1 "~Edit"
+  PROMPT 6 0 "~Edit"
   PICTURE BMP_EDIT
   MESSAGE EXIT,K_F4
 END
 
+BUTTON DLG_CANCEL 9 2
+BEGIN
+  PROMPT 7 0 "Annulla"
+END
+
 ENDPAGE
 
 ENDMASK

ba/ba1100d.uml

@@ -1,25 +1,12 @@
 #include "ba1100a.h"
 
-TOOLBAR "" 0 20 0 2
+TOOLBAR "" 0 0 0 2
 
 BUTTON DLG_SAVEREC 10 2
 BEGIN
-  PROMPT -15 -1 ""
+  PROMPT -15 -1 "Conferma"
   MESSAGE EXIT,K_SAVE
-  PICTURE 103
+  PICTURE BMP_OK
-  PICTURE 153
-  GROUP 1
-END
-
-BUTTON DLG_PRINT 10 2
-BEGIN
-  PROMPT -25 -1 ""
-END
-
-BUTTON DLG_EXPORT 10 2
-BEGIN
-  PROMPT -35 -1 "~Esporta"
-  MESSAGE EXIT,K_F6
   GROUP 1
 END
 
@@ -27,9 +14,23 @@ BUTTON DLG_IMPORT 10 2
 BEGIN
   PROMPT -45 -1 "~Importa"
   MESSAGE EXIT,K_F7
+  PICTURE 150
   GROUP 1
 END
 
+BUTTON DLG_EXPORT 10 2
+BEGIN
+  PROMPT -35 -1 "~Esporta"
+  MESSAGE EXIT,K_F6
+  PICTURE 151
+  GROUP 1
+END
+
+BUTTON DLG_PRINT 10 2
+BEGIN
+  PROMPT -25 -1 ""
+END
+
 BUTTON DLG_CANCEL 10 2
 BEGIN
   PROMPT -55 -1 ""
@@ -41,19 +42,19 @@ PAGE "Tracciato Record" -1 -1 77 20
 
 NUMBER F_NUM 4
 BEGIN
-  PROMPT 1 1 "Archivio n. "
+  PROMPT 1 0 "Archivio n. "
   FLAGS "D"
 END
 
 STRING F_DES 50
 BEGIN
-  PROMPT 20 1 ""
+  PROMPT 20 0 ""
   FLAGS "D"
 END
 
-SPREADSHEET F_FIELDS 0 13
+SPREADSHEET F_FIELDS 0 14
 BEGIN
-  PROMPT 0 2 "Fields"
+  PROMPT 0 1 "Fields"
   ITEM "Nome@10"
   ITEM "Tipo"
   ITEM "Lunghezza"

ba/ba1101.cpp

@@ -3,6 +3,7 @@
 #include <isam.h>
 #include <msksheet.h>
 #include <progind.h>
+#include <urldefid.h>
 #include <utility.h>
 
 #include "ba1100.h"
@@ -28,9 +29,11 @@ void TDir_sheet::add ()
 TDir_sheet::TDir_sheet(const char* title, byte buttons, const char* colonne)
           : TSheet(0, 0, 0, 0, title, colonne, buttons)
 {
+  add_button(DLG_PRINT, TR("Stampa Tracciati"), K_F3, BMP_PRINT);
+  add_button(DLG_INFO, TR("Informazioni"), K_F2, BMP_INFO);
+  add_button(DLG_HELP, TR("Help"), K_F1, BMP_HELP);
   _dir = new TDir;
   _rec = new TTrec;
-  
   rebuild();
 }
 

ba/ba1102.cpp

@@ -1,14 +1,63 @@
-#include <defmask.h>
 #include <diction.h>
 #include <dongle.h>
 #include <prefix.h>
 #include <progind.h>
 #include <relation.h>
 #include <sheet.h>
+#include <toolfld.h>
+#include <urldefid.h>
 
 #include "ba1100.h"
 
-bool TEdit_file::_browse(TCursor& cursor, const TFilename& name)
+// Utilities
+
+// Ordina per importanza i campi di un tracciato record
+static int sort_fields(const TObject** r1, const TObject** r2)
+{
+  TToken_string& s1 = (TToken_string&)**r1;
+  TToken_string& s2 = (TToken_string&)**r2;
+  int k1 = s1.get_char(2) == '1';
+  int k2 = s2.get_char(2) == '1';
+  int cmp = k2 - k1;
+  if (cmp == 0)
+  {
+    k1 = s1.get_int(1);
+    k2 = s2.get_int(1);
+    cmp = k1 - k2;
+  }
+  return cmp;
+}
+
+// Riempie la lista dei campi del file corrente
+static int fill_fields(int logicnum, TString_array& flds, bool keys_only = false)
+{
+  const RecDes& rd = prefix().get_recdes(logicnum);
+  for (int i = 0; i < rd.NFields; i++)
+  {
+    TToken_string row;
+    const RecFieldDes& fd = rd.Fd[i];
+    row = fd.Name; // Nome
+    row.add(i);    // Indice
+    TString16 keys;  
+    for (int k = 0; k < rd.NKeys; k++)
+    {
+      const KeyDes& kd = rd.Ky[k];
+      for (int j = 0; j < kd.NkFields; j++)
+      {
+        const int n = kd.FieldSeq[j] % MaxFields;
+        if (n == i)
+          keys << (k+1) << ' '; // Chiavi di appartenenza
+      }
+    }
+    row.add(keys);
+    if (!keys_only || keys.full())
+      flds.add(row);
+  }
+  flds.TArray::sort(sort_fields);
+  return flds.items();
+}
+
+bool TEdit_file::browse_cursor(TCursor& cursor, const TFilename& name)
 {
   TRectype& curr = cursor.curr();
   TRectype svrec(cursor.curr());
@@ -16,12 +65,15 @@ bool TEdit_file::_browse(TCursor& cursor, const TFilename& name)
   TToken_string head(256);
   TToken_string trac(256);
   
-  const char* n;
   trac.add("");
   head.add("@1");
 
-  for(int i = 0; (n = curr.fieldname(i)) != NULL; i++)
+  TString_array flds;
+  fill_fields(curr.num(), flds);
+
+  FOR_EACH_ARRAY_ROW(flds, i, row)
   {
+    const TString16 n = row->get(0);
     trac.add(n);
     
     TString16 name(n); name.lower(); name[0] = toupper(name[0]);
@@ -42,9 +94,8 @@ bool TEdit_file::_browse(TCursor& cursor, const TFilename& name)
 
   const bool superprassi = user() == ::dongle().administrator();
   
-  KEY ch;
   TCursor_sheet sheet(&cursor, trac, name, head, superprassi ? 6 : 0);
-
+  KEY ch;
   while ((ch = sheet.run()) != K_ESC)
   {     
     if (!superprassi)
@@ -55,39 +106,25 @@ bool TEdit_file::_browse(TCursor& cursor, const TFilename& name)
     
     if (ch == K_DEL && sheet.one_checked())
     {
-      TProgind* pind = NULL;
-      cursor.freeze(TRUE);
- //     bool go = FALSE; inutili verificare
- //     bool first = FALSE;
-      long j;
-      const long items   = sheet.items();
       const long checked = sheet.checked();
-      if (checked && yesno_box(FR("Si desidera cancellare i %ld record indicati?"), checked))
+      if (yesno_box(FR("Si desidera cancellare i %ld record indicati?"), checked))
       {
-        TWait_cursor hourglass;
+        const long items   = sheet.items();
-        for (j = 0, cursor = 0; j < items; j++)
+        cursor.freeze(TRUE);
+        TProgind pi(items, TR("Attendere..."), true, true);
+        for (TRecnotype j = 0; j < items; j++)
         {
+          if (!pi.setstatus(j))
+            break;
           if (sheet.checked(j))
           {
-            if (!pind)
-            {
-              pind = new TProgind(sheet.checked(),TR("Attendere..."), TRUE, TRUE);
-              pind->addstatus(1);
-            }
-            else 
-            {
-              if (pind->iscancelled()) break;
-              pind->addstatus(1);
-            }  
-  
             cursor = j;
             cursor.file().remove();
             sheet.uncheck(j);
           }
         }
+        cursor.freeze(FALSE);
       }
-      if (pind) delete pind;
-      cursor.freeze(FALSE);
       
       // Forza update del cursore
       cursor.set_filterfunction(NULL, TRUE);
@@ -104,19 +141,7 @@ bool TEdit_file::_browse(TCursor& cursor, const TFilename& name)
     switch(ch)
     {
     case K_ENTER:  // edit fields
-      svrec = curr;
+      edit_record(curr);
-      if (edit_record(curr, FALSE) == K_ENTER)
-      {
-        const TString s(svrec.key(1));
-        if (s != curr.key(1))
-        {
-          const int err = curr.write(cursor.file());
-          if (err == NOERR)
-            svrec.remove(cursor.file());
-        }
-        else
-          curr.rewrite(cursor.file());
-      }
       break;
     case K_DEL:    // delete record
       if (yesno_box(TR("Confermare la cancellazione del record")))
@@ -124,8 +149,7 @@ bool TEdit_file::_browse(TCursor& cursor, const TFilename& name)
       break;
     case K_INS:    // insert new record
       curr.zero();
-      if (edit_record(curr,FALSE) == K_ENTER)
+      edit_record(curr);
-        cursor.file().write();
       break;
     default:
       break;  
@@ -135,7 +159,7 @@ bool TEdit_file::_browse(TCursor& cursor, const TFilename& name)
   return ch != K_ESC;
 }
 
-bool TEdit_file::browse(int logicnum, const TFilename& name, const TString& tab)
+bool TEdit_file::browse_file(int logicnum, const TFilename& name, const TString& tab)
 {
   if (logicnum > 2)
   {
@@ -146,7 +170,6 @@ bool TEdit_file::browse(int logicnum, const TFilename& name, const TString& tab)
     test.close();
   }
 
-
   TRelation relation(logicnum);
   TCursor cursor(&relation);
   if (logicnum == LF_TAB || logicnum == LF_TABCOM || logicnum == LF_TABGEN) 
@@ -158,98 +181,138 @@ bool TEdit_file::browse(int logicnum, const TFilename& name, const TString& tab)
       cursor.setregion(filter, filter);
     }  
   }  
-  return _browse(cursor,name);
+  return browse_cursor(cursor, name);
 }
 
-bool TEdit_file::browse(TExternisamfile* file, const TFilename& name)
+bool TEdit_file::browse_file(TExternisamfile* file, const TFilename& name)
 {
   TRelation relation(file);
   TCursor cursor(&relation);
-  
+  return browse_cursor(cursor, name);
-  return _browse(cursor,name);
 }
 
-KEY  TEdit_file::edit_record(TRectype& rec, bool readonly)
+class TEdit_mask : public TMask
 {
-  int recs;
+public:
+  TEdit_mask(int pages);
+};
+
+TEdit_mask::TEdit_mask(int pages) 
+          : TMask(TR("Modifica record"), pages, 0, 0, 0, 0)
+{ 
+  add_button_tool(DLG_OK, TR("Registra"), BMP_SAVEREC).set_exit_key(K_ENTER);
+  add_button_tool(DLG_DELREC, TR("Elimina"), BMP_DELREC).set_exit_key(K_DEL);
+  add_button_tool(DLG_CANCEL, TR("Annulla"), BMP_CANCEL).set_exit_key(K_ESC);
+  if (pages > 1) 
+    set_default_tab_buttons();
+}
+
+void TEdit_file::edit_record(TRectype& rec)
+{
+  TString_array flds;
+  const int recs = fill_fields(rec.num(), flds);
+  const int fpp = 18; // Fields per page
+  const int pages = (recs+fpp-1)/fpp;
   
-  for(recs = 0; rec.fieldname(recs) != NULL; recs++);
+  TEdit_mask m(pages);
+  m.enable(DLG_DELREC, !rec.empty());
   
-  const int fpp = 16;                               // Fields per page
+  int curpage = 0, currow = 1;
-  const int rows  = recs > fpp ? 20 : recs+4;
+  short nid = 100;
-  const int pages = recs/fpp + (recs % fpp ? 1 : 0);
+  bool grouped = false;
-  TMask m(TR("Modifica record"), pages, 78, rows);
-  if (pages > 1) m.add_default_tag_buttons();
   
-  int curpage = 0, currow = 1, nid = 100;
+  FOR_EACH_ARRAY_ROW(flds, i, row)
-  const char* cp;
- // inutile verificare int mcnt =0;
-  
-  const char* flags = readonly ? "D" : "";
-  int i;
-  
-  for(i = 0; (cp = rec.fieldname(i)) != NULL; i++)
   {
     // add fields ONE by ONE
-    TString16 s(cp); s.left_just(16);
+    const TString16 cp = row->get(0);
+    TString s = cp; s.left_just(16);
+    if (!grouped)
+    {
+      const bool primary = row->get_char(2) == '1';
+      if (primary)
+        s.insert("@b");
+      else
+      {
+        m.add_groupbox(-1, curpage, PR("@bChiave primaria"), 2, 0, 70, ++currow);
+        grouped = true;
+      }
+    }
+
     const int len = rec.length(cp);
     switch (rec.type(cp))
     {
     case _alfafld:
-      {
+      m.add_string(nid++,curpage, s, 3, currow, len, "_", len > 50 ? 50 : len);
-        TString16 f; f << flags << '_';
-        m.add_string(nid++,curpage, s, 3, currow, len, f, len > 50 ? 50 : len);
-      }
       break;
     case _intfld:
     case _longfld:
     case _wordfld:
     case _realfld:
-      m.add_number(nid++, curpage, s, 3, currow, len, flags, rec.ndec(cp));
+      m.add_number(nid++, curpage, s, 3, currow, len, "", rec.ndec(cp));
       break;
     case _datefld:
-      m.add_date(nid++, curpage, s, 3, currow, flags);
+      m.add_date(nid++, curpage, s, 3, currow, "");
       break;
     case _charfld:
-      m.add_string(nid++, curpage, s, 3, currow, 1, flags);
+      m.add_string(nid++, curpage, s, 3, currow, 1, "");
       break;
     case _boolfld:
-      m.add_boolean(nid++, curpage, s, 3, currow, flags);
+      m.add_boolean(nid++, curpage, s, 3, currow, "");
       break;
     case _intzerofld:
     case _longzerofld:                                 
-      {
+      m.add_number(nid++, curpage, s, 3, currow, len, "Z", 0);
-        TString16 f; f << flags << 'Z';
-        m.add_number(nid++, curpage, s, 3, currow, len, f, 0);
-      }  
       break;
     case _memofld:
-      m.add_zoom( nid++, curpage, s, 3, currow, 50, flags, 50 );
+      m.add_zoom( nid++, curpage, s, 3, currow, 50, "", 50 );
       break;
     default:
       break;
     }
-    
     m.field(nid-1).set(rec.get(cp));
     
     if (((i+1) % fpp) == 0 || i == recs-1) 
-    { 
+    {
-      m.add_button(DLG_OK, curpage, "", -12, -1, 9, 2);
+      curpage++; 
-      m.add_button(DLG_CANCEL, curpage, "", -22, -1, 9, 2);
+      currow = 1;
-      curpage++; currow = 1;
     }
-    else currow++;
+    else 
+      currow++;
   }
 
   const KEY k = m.run();
-  if (k == K_ENTER && !readonly)
+  if (k != K_ESC && k != K_QUIT)
   {
-    nid = 100;
+    TLocalisamfile file(rec.num());
-    for(i = 0; (cp = rec.fieldname(i)) != NULL; i++)
+    switch (k)
-      rec.put(cp, m.get(nid++));
+    {
+    case K_ENTER:
+      {
+        const TRectype svrec(rec); // Salva record originale
+        const TString svkey = svrec.key(1);
+        FOR_EACH_ARRAY_ROW(flds, i, row)
+        {
+          const char* cp = row->get(0);
+          rec.put(cp, m.get(100+i));
+        }
+        if (svkey != rec.key(1))
+        {
+          const int err = rec.write(file);
+          if (err == NOERR && !svrec.empty())
+            svrec.remove(file);
+        }
+        else
+          rec.rewrite(file);
+      }
+      break;
+    case K_DEL:
+      if (!rec.empty() && yesno_box(TR("Confermare la cancellazione del record")))
+        rec.remove(file);
+      break;
+    default:
+      break;
+    }
   }
-
-  return k;
 }
 
 

ba/ba1400.cpp

@@ -14,7 +14,6 @@
 
 #include <user.h>
 
-
 ///////////////////////////////////////////////////////////
 // Menu item
 ///////////////////////////////////////////////////////////
@@ -825,15 +824,16 @@ void  TSet_user_passwd::init_modify_mode(TMask& m)
 
 int ba1400(int argc, char** argv)
 {
+  const char* const title = TR("Configurazione utenti"); 
   if (user() == ::dongle().administrator())
   {
     TSet_users a;
-    a.run(argc, argv, TR("Configurazione utenti"));
+    a.run(argc, argv, title);
   } 
 	else 
 	{
     TSet_user_passwd a;
-    a.run(argc, argv, TR("Configurazione utenti"));
+    a.run(argc, argv, title);
   }
   return 0;
 }

ba/ba1400a.uml

@@ -1,7 +1,7 @@
 #include "ba0100a.h"
 
-TOOLBAR "" 0 -2 0 2 
+TOOLBAR "" 0 0 0 2
-#include <toolbar.h>
+#include <relapbar.h>
 ENDPAGE
 
 PAGE "Gestione utenti" -1 -1 35 7
@@ -11,7 +11,7 @@ BEGIN
   PROMPT 1 0 "@bDati"
 END
 
-RADIO F_GROUP 1 23
+RADIO F_GROUP 1 18
 BEGIN
   PROMPT 2 0 ""
   ITEM " |Utente"
@@ -203,6 +203,10 @@ BEGIN
   CHECKTYPE REQUIRED
 END
 
+ENDPAGE
+
+TOOLBAR "" 0 0 0 2
+
 BUTTON DLG_OK 10 2
 BEGIN
   PROMPT -13 -1 ""

ba/ba1500.cpp

@@ -54,10 +54,10 @@ const char* TInformazione_moduli::get_description_by_name(const char* code) cons
 {
   FOR_EACH_ARRAY_ROW_BACK(_infos, i, info)
   {
-    if (stricmp(info->get(1), code) == 0)
+    if (xvt_str_compare_ignoring_case(info->get(1), code) == 0)
       return info->get(0);
   }
-  return "{MODULO SCONOSCIUTO}";
+  return TR("{MODULO SCONOSCIUTO}");
 }
 
 const char* TInformazione_moduli::get_name_by_order(int index)
@@ -89,7 +89,7 @@ int TInformazione_moduli::get_index_by_name(const char* code) const
 {
   FOR_EACH_ARRAY_ROW_BACK(_infos, i, info)
   {
-    if (stricmp(info->get(1), code) == 0)
+    if (xvt_str_compare_ignoring_case(info->get(1), code) == 0)
       break;
   }
   return i >= 0 ? get_index(i) : i;

ba/ba3500a.uml

@@ -1,9 +1,7 @@
 #include "ba3500.h"
 
-TOOLBAR "" 0 20 0 2
+TOOLBAR "" 0 0 0 2
-
+#include <relapbar.h>
-#include <toolbar.h>
-
 ENDPAGE
 
 PAGE "Tabella libro unico 1/2" -1 -1 78 18

ba/ba3700a.uml

@@ -1,9 +1,7 @@
 #include "ba3700.h"
 
-TOOLBAR "" 0 20 0 2
+TOOLBAR "" 0 0 0 2
-
+#include <relapbar.h>
-#include <toolbar.h>
-
 ENDPAGE
 
 PAGE "Tabella condizioni di pagamento" -1 -1 78 15

ba/ba4100a.uml

@@ -1,7 +1,7 @@
 #include "ba4100.h"
 
-TOOLBAR "" 0 -2 0 2
+TOOLBAR "" 0 0 0 2
-#include <toolbar.h>
+#include <relapbar.h>
 ENDPAGE
 
 PAGE "Pag. 1" -1 -1 77 18

ba/ba4200b.uml

@@ -1,35 +1,36 @@
 #include "ba4200.h"
 
-TOOLBAR "" 0 -4 0 4
+TOOLBAR "" 0 0 0 2
+#include <relapbar.h>
+ENDPAGE 
 
+TOOLBAR "" 0 -2 0 2
 
 BUTTON DLG_CHGTIP 23 2
 BEGIN
-PROMPT -13 -3 "Persone ~Giuridiche"
+PROMPT -13 0 "Persone ~Giuridiche"
 MESSAGE K_F10
 END
 
 BUTTON DLG_DITTE 10 2
 BEGIN
-PROMPT -36 -3 "~Ditte"
+PROMPT -36 0 "~Ditte"
 MESSAGE K_F5
 END
 
 BUTTON DLG_EMAIL 10 2
 BEGIN
-  PROMPT -56 -3 "~Posta"
+  PROMPT -56 0 "~Posta"
   PICTURE BMP_EMAIL
 END
 
 GOLEM DLG_OGGETTI 10 2
 BEGIN   
-  PROMPT -66 -3 "~Oggetti"
+  PROMPT -66 0 "~Oggetti"
   FIELD OGGETTI
   FLAG "M"
 END
 
-#include <toolbar.h>
-
 ENDPAGE
 
 PAGE "Pag.1" -1 -1 77 19

ba/ba4200c.uml

@@ -1,33 +1,36 @@
 #include "ba4200.h"
 
-TOOLBAR "" 0 -4 0 4 
+TOOLBAR "" 0 0 0 2
+#include <relapbar.h>
+ENDPAGE 
+
+TOOLBAR "" 0 -2 0 2
 
 BUTTON DLG_CHGTIP 23 2
 BEGIN
-  PROMPT -13 -3 "Persone F~isiche"
+PROMPT -13 0 "Persone ~Fisiche"
-  MESSAGE K_F10
+MESSAGE K_F10
 END
 
 BUTTON DLG_DITTE 10 2
 BEGIN
-  PROMPT -36 -3 "~Ditte"
+PROMPT -36 0 "~Ditte"
-  MESSAGE K_F5
+MESSAGE K_F5
 END
 
 BUTTON DLG_EMAIL 10 2
 BEGIN
-  PROMPT -56 -3 "~Posta"
+  PROMPT -56 0 "~Posta"
   PICTURE BMP_EMAIL
 END
 
 GOLEM DLG_OGGETTI 10 2
 BEGIN   
-  PROMPT -66 -3 "~Oggetti"
+  PROMPT -66 0 "~Oggetti"
   FIELD OGGETTI
   FLAG "M"
 END
 
-#include <toolbar.h>
 ENDPAGE
 
 PAGE "Pag.1" -1 -1 77 19

ba/ba4300a.uml

@@ -1,38 +1,41 @@
 #include "ba4300.h"
 
-TOOLBAR "" 0 -4 0 4
+TOOLBAR "" 0 0 0 2
+#include <relapbar.h>
+ENDPAGE
+
+TOOLBAR "" 0 -2 0 2
 
 BUTTON DLG_ATT 10 2
 BEGIN
-  PROMPT -16 -3 "~Attivita'"
+  PROMPT -16 -11 "~Attivita'"
   MESSAGE K_F6
 END
 
 BUTTON DLG_ULC 10 2
 BEGIN
-  PROMPT -26 -3 "U.~Locali"
+  PROMPT -26 -11 "U.~Locali"
   MESSAGE K_F5
 END
 
 BUTTON DLG_SOC 10 2
 BEGIN
-  PROMPT -36 -3 "~Soci"
+  PROMPT -36 -11 "~Soci"
   MESSAGE K_F7
 END
 
 BUTTON DLG_REG 10 2
 BEGIN
-  PROMPT -46 -3 "Re~gistri"
+  PROMPT -46 -11 "Re~gistri"
   MESSAGE K_F8
 END
 
 BUTTON DLG_EMAIL 10 2
 BEGIN
-  PROMPT -66 -3 "~Posta"
+  PROMPT -66 -11 "~Posta"
   PICTURE BMP_EMAIL
 END
 
-#include <toolbar.h>
 ENDPAGE
 
 PAGE "Pag. 1" -1 -1 77 19

ba/ba4400a.uml

@@ -1,7 +1,7 @@
 #include "ba4400.h"
 
-TOOLBAR "" 0 -2 0 2 
+TOOLBAR "" 0 0 0 2
-#include <toolbar.h>
+#include <relapbar.h>
 ENDPAGE
 
 PAGE "Pag. 1" -1 -1 77 18

ba/ba4500a.uml

@@ -1,7 +1,7 @@
 #include "ba4500.h"
 
-TOOLBAR "" 0 -2 0 2
+TOOLBAR "" 0 0 0 2
-#include <toolbar.h>
+#include <relapbar.h>
 ENDPAGE
 
 PAGE "Pag. 1" -1 -1 77 20

ba/ba4600a.uml

@@ -1,7 +1,7 @@
 #include "ba4600.h"
 
-TOOLBAR "" 0 -2 0 2
+TOOLBAR "" 0 0 0 2
-#include <toolbar.h>
+#include <relapbar.h>
 ENDPAGE
 
 PAGE "Pag.1" -1 -1 77 20

ba/ba6.cpp

@@ -7,10 +7,9 @@ int main(int argc,char** argv)
 
   switch (r)
   {
-  case 1:
+  case 1 : ba6200(argc,argv); break;
-    ba6200(argc,argv); break;
+  case 2 : ba6300(argc,argv); break;
-  default:
+  default: ba6100(argc,argv); break;
-    ba6100(argc,argv); break;
   }
   return 0;
 }

ba/ba6.h

@@ -1,15 +1,9 @@
 #ifndef __BA6_H
 #define __BA6_H
 
-#ifdef MAIN
+int ba6100(int argc, char* argv[]);
-#define extern
+int ba6200(int argc, char* argv[]);
-#endif
+int ba6300(int argc, char* argv[]);
-
-#ifdef MAIN
-#undef extern
-#endif
 
 #endif // __BA6_H
 
-int ba6100(int argc, char* argv[]);
-int ba6200(int argc, char* argv[]);

ba/ba6100a.uml

@@ -1,5 +1,5 @@
 #include "ba6100a.h"
-#include <lffiles.h>
+
 PAGE "Definizione Stampe" -1 -1 70 17
 
 RADIOBUTTON RDB_BA6_TYPE 25

ba/ba6300a.uml

@@ -1,23 +1,23 @@
 #include "ba6300a.h"
 
-TOOLBAR "" 0 -3 0 3
+TOOLBAR "" 0 0 0 2
 
 BUTTON DLG_NEWREC 10 2
 BEGIN
-  PROMPT -14 -11 ""
+  PROMPT -14 -11 "Nuovo"
   PICTURE BMP_NEWREC
   PICTURE BMP_NEWRECDN
 END
 
 BUTTON DLG_EDIT 10 2
 BEGIN
-  PROMPT -24 -11 ""
+  PROMPT -24 -11 "Modifica"
   PICTURE BMP_EDIT
 END
 
 BUTTON DLG_PRINT 10 2
 BEGIN
-  PROMPT -34 -11 ""
+  PROMPT -34 -11 "Stampa"
 END
 
 BUTTON DLG_QUIT 10 2
@@ -233,7 +233,5 @@ BEGIN
 	PROMPT 2 19 "Report personalizzato"
 END
 
-
-
 ENDPAGE
 ENDMASK

ba/ba8100.cpp

@@ -51,7 +51,7 @@ TSelector_sheet::TSelector_sheet(TCursor& cur, const char* fields, const char* c
   TToken_string cap = c.prompt();
   if (cap.empty())
     cap = caption;
-  add_tag_buttons(cap);
+  set_tab_buttons(cap);
   
   TString16 flags;
   if (c.roman()) flags << 'M';

ba/ba8200.cpp

@@ -1381,7 +1381,7 @@ void TQuery_mask::handler(WINDOW wnd, EVENT* ep)
   switch (ep->type)
   {
   case E_MOUSE_DOWN:
-    if (ep->v.mouse.button == 0 && wnd == win(0))
+    if (ep->v.mouse.button == 0 && wnd == page_win(0))
     {
       const TSheet_field& sf = sfield(F_FIELDS);
       RCT rct; sf.get_rect(rct);

ba/ba8200a.uml

@@ -1,6 +1,6 @@
 #include "ba8200.h"
 
-TOOLBAR "" 0 -2 0 2
+TOOLBAR "" 0 0 0 2
 
 BUTTON DLG_SAVEREC 10 2
 BEGIN

ba/ba8300.cpp

@@ -17,12 +17,6 @@
 #include "ba8301.h"
 #include <bagn003.h>
 
-///////////////////////////////////////////////////////////
-// Utility
-///////////////////////////////////////////////////////////
-
-
-
 ///////////////////////////////////////////////////////////
 // TReport_sheet
 ///////////////////////////////////////////////////////////
@@ -45,8 +39,7 @@ void TReport_sheet::get_row(long r, TToken_string& row)
 {
   const TReport_field& rf = (const TReport_field&)_section[r];
   const TRectangle& rect = rf.get_rect();
-  row.cut(0);
+  row = checked(r) ? "X" : " ";
-  row.add(checked(r) ? "X" : " ");
   row.add(rf.type_name());
   row.add(rf.id());
   row.add(num2str(rect.top()));
@@ -106,10 +99,10 @@ KEY TReport_sheet::run()
 }
 
 TReport_sheet::TReport_sheet(TReport_section& sec)
-             : TSheet(-1, -1, -2, -4, "Campi", "@1|Tipo@10|ID@4R|Riga@R|Col.@R|Larg.@R|Alt.@R|Testo@50", 0xE),
+             : TSheet(-1, -1, -2, -4, TR("Campi"), 
+                      HR("@1|Tipo@10|ID@4R|Riga@R|Col.@R|Larg.@R|Alt.@R|Testo@50"), 0xE),
                _section(sec)
-{
+{ }
-}
 
 ///////////////////////////////////////////////////////////
 // TSection_properties_mask
@@ -136,14 +129,14 @@ void TSection_properties_mask::update()
   for (int i = 0; i < 2; i++)
   {
     TMask_field& fld = field(i == 0 ? F_FGCOLOR : F_BGCOLOR);
-    if (fld.active() && fld.parent() == win())
+    if (fld.active() && fld.parent() == curr_win())
     {
       RCT rctfld; fld.get_rect(rctfld); 
       const int x = rctfld.right / CHARX + 1;
       const int y = rctfld.top / ROWY + 1;
-      RCT& rct = resize_rect(x, y, -3, 1, W_PLAIN, win());
+      RCT& rct = resize_rect(x, y, -3, 1, W_PLAIN, fld.parent());
       rct.top =  rctfld.top; rct.bottom = rctfld.bottom;
-      xi_draw_3d_rect((XinWindow)win(), (XinRect*)&rct, TRUE, 2, MASK_LIGHT_COLOR, 
+      xi_draw_3d_rect((XinWindow)fld.parent(), (XinRect*)&rct, TRUE, 2, MASK_LIGHT_COLOR, 
         i == 0 ? _fgcolor : _bgcolor, MASK_DARK_COLOR);
     }
   }
@@ -226,10 +219,6 @@ void TSection_properties_mask::set_section(const TReport_section& rs)
   set_num(F_DY, rs.height());
   set(F_CONDITION, rs.condition());
   set(F_GROUP_BY, rs.grouped_by());
-  if (rs.recordset() != NULL)
-    set(F_SQL, rs.recordset()->query_text());
-  else
-    reset(F_SQL);
 
   set(F_HIDE_IF_NEEDED, rs.hidden_if_needed());
   set(F_HIDDEN, rs.hidden());
@@ -366,76 +355,20 @@ void TReport_properties_mask::get_report(TReport& r) const
 }
 
 ///////////////////////////////////////////////////////////
-// TReport_mask
+// TReport_query_mask
 ///////////////////////////////////////////////////////////
 
-class TReport_mask : public TAutomask
+class TReport_query_mask : public TAutomask
 {
-  TReport _report;
-  TReport_section* _curr_section;
-
-  TReport_tree _tree;
-  TFilename _curr_report;
-  bool _is_dirty;
-
 protected:
-  virtual TMask_field* parse_field(TScanner& scanner);
-  virtual void notify_focus_field(short id);
   virtual bool on_field_event(TOperable_field& o, TField_event e, long jolly);
-
-protected:
   bool select_query();
-  bool select_report();
-  void select_section();
-  void update_report() const;
-
-  TReport_section& curr_section();
-  void add_field();
-  void edit_field(TReport_field& rf);
-  void fields_properties();
-  bool add_section();
-  void section_properties();
-  void report_properties();
-  bool enumerate_bodies(int level, TToken_string& code, TToken_string& desc) const;
-
-  bool get_rep_path(TFilename& path) const;
-  void set_num_attr(TXmlItem& item, const char* attr, short num, short def = 0) const;
-  void set_col_attr(TXmlItem& item, const char* attr, COLOR col, COLOR def) const;
 
 public:
-  void on_print();
+  TReport_query_mask();
-  bool save_report();
-  bool save_if_needed();
-  void global_reset();
-  bool delete_report();
-  bool load_report();
-
-  TReport_tree& sections() { return _tree; }
-  TReport_mask();
 };
 
-TMask_field* TReport_mask::parse_field(TScanner& scanner)
+bool TReport_query_mask::select_query()
-{
-  if (scanner.token().starts_with("RE"))
-    return new TReport_drawer(this);
-  return TAutomask::parse_field(scanner);
-}
-
-/*
-bool TReport_mask::select_report()
-{
-  TFilename path;
-  const bool ok = select_custom_file(path, "rep");
-  if (ok)
-  {
-    path = path.name(); path.ext("");
-    set(F_CODICE, path);
-  }
-  return ok;
-}
-*/
-
-bool TReport_mask::select_query()
 {
   TFilename path; 
   bool ok = select_custom_file(path, "qry");
@@ -455,6 +388,119 @@ bool TReport_mask::select_query()
   return ok;
 }
 
+bool TReport_query_mask::on_field_event(TOperable_field& o, TField_event e, long jolly)
+{
+  switch (o.dlg())
+  {
+  case F_SQL:
+    if (e == fe_init || e == fe_modify)
+      enable(F_SHOW_QRY, !o.empty());
+    break;
+  case F_NEW_QRY:
+    if (e == fe_button)
+    {
+      TExternal_app q("ba8 -1");
+      q.run();
+    }
+    break;
+  case F_IMPORT_QRY:
+    if (e == fe_button)
+      select_query();
+    break;
+  case F_SHOW_QRY:
+    if (e == fe_button)
+    {
+      const TString& sql = get(F_SQL);
+      TRecordset* rex = create_recordset(sql);
+      if (rex != NULL)
+      {
+        if (rex->items() > 0)
+        {
+          TRecordset_sheet sht(*rex);
+          sht.run();
+        }
+        else
+        {
+          if (sql.find("SELECT ") >= 0)
+            warning_box(TR("Nessuna riga risultato"));
+        }
+        delete rex;
+      }
+    }
+    break;
+  default:
+    break;
+  }
+  return true;
+}
+
+TReport_query_mask::TReport_query_mask() : TAutomask("ba8300f")
+{
+}
+
+///////////////////////////////////////////////////////////
+// TReport_mask
+///////////////////////////////////////////////////////////
+
+class TReport_mask : public TAutomask
+{
+  TReport _report;
+  TReport_section* _curr_section;
+
+  TReport_tree _tree;
+  TFilename _curr_report;
+  bool _is_dirty;
+
+protected:
+  virtual TMask_field* parse_field(TScanner& scanner);
+  virtual void notify_focus_field(short id);
+  virtual bool on_field_event(TOperable_field& o, TField_event e, long jolly);
+  virtual void handler(WINDOW win, EVENT* ep);
+
+protected:
+  bool select_report();
+  void select_section();
+  void update_report() const;
+
+  TReport_section& curr_section();
+  void add_field();
+  void edit_field(TReport_field& rf);
+  void fields_properties();
+  bool add_section();
+  void section_properties();
+  void report_properties();
+  void report_query();
+  bool enumerate_bodies(int level, TToken_string& code, TToken_string& desc) const;
+
+  bool get_rep_path(TFilename& path) const;
+  void set_num_attr(TXmlItem& item, const char* attr, short num, short def = 0) const;
+  void set_col_attr(TXmlItem& item, const char* attr, COLOR col, COLOR def) const;
+  WINDOW dlg2win(short id) const;
+  void add_pane(short id, const char* title, int hook);
+  void update_toolbar(); // Aggiorna dis/abilitazioni dei bottoni
+
+public:
+  void on_print();
+  bool save_report();
+  bool save_if_needed();
+  void global_reset();
+  bool delete_report();
+  bool load_report();
+
+  TReport_tree& sections() { return _tree; }
+  TReport_mask();
+};
+
+TMask_field* TReport_mask::parse_field(TScanner& scanner)
+{
+  const TString& tok = scanner.token();
+  if (tok.starts_with("RE"))
+    return new TReport_drawer(this);
+  if (tok.starts_with("OU"))
+    return new TOutlook_field(this);
+  return TAutomask::parse_field(scanner);
+}
+
 bool TReport_mask::get_rep_path(TFilename& path) const
 {
   const TString& name = get(F_CODICE);
@@ -486,7 +532,6 @@ bool TReport_mask::save_report()
   if (!ok)
     return field(F_CODICE).on_key(K_ENTER); // Segnala errore
   _report.set_description(get(F_DESCR));
-  _report.set_recordset(get(F_SQL));
   if (is_power_station())
   {
     FILE_SPEC fsp; 
@@ -518,6 +563,7 @@ void TReport_mask::global_reset()
   _report.destroy();
   reset();
   update_report();
+  update_toolbar();
 }
 
 bool TReport_mask::load_report()
@@ -534,11 +580,7 @@ bool TReport_mask::load_report()
       path = path.name(); path.ext("");
       set(F_CODICE, path);
 
-      const TRecordset* rs = _report.recordset();
-      if (rs != NULL)
-        set(F_SQL, rs->query_text(), true);
       set(F_DESCR, _report.description());
-      field(F_SQL).set_dirty(false);
       _is_dirty = false;
 
       TTree_field& sections = tfield(F_SECTIONS);
@@ -566,7 +608,7 @@ bool TReport_mask::delete_report()
 void TReport_mask::on_print()
 {
   const TString& app = _report.command_line();
-  if (app.not_empty() && yesno_box(FR("Si desidera stampare utilizzando '%s'"), (const char*)app))
+  if (app.full() && yesno_box(FR("Si desidera stampare utilizzando '%s'"), (const char*)app))
   {
     TExternal_app a(app);
     a.run();
@@ -835,10 +877,11 @@ bool TReport_mask::add_section()
     if (level > 0)
     {
       _curr_section = &_report.section(type, level);
+      _tree.shrink_all();
       _tree.goto_node(type, level);
-      _tree.expand_all();
       TTree_field& tf = tfield(F_SECTIONS);
       tf.win().force_update();
+      tf.select_current();
       section_properties();
     }
     else
@@ -886,6 +929,19 @@ void TReport_mask::report_properties()
   }
 }
 
+void TReport_mask::report_query()
+{
+  TReport_query_mask qm;
+  if (_report.recordset() != NULL)
+    qm.set(F_SQL, _report.recordset()->query_text());
+  if (qm.run() == K_ENTER)
+  {
+    _report.set_recordset(qm.get(F_SQL));
+    _is_dirty = true;
+    enable(DLG_PRINT, _report.recordset() != NULL);
+  }
+}
+
 void TReport_mask::notify_focus_field(short id)
 {
   TAutomask::notify_focus_field(id);
@@ -896,87 +952,55 @@ void TReport_mask::notify_focus_field(short id)
   }
 }
 
+void TReport_mask::update_toolbar()
+{
+  const bool full = !efield(F_CODICE).empty();
+  enable(DLG_SAVEREC, full);
+  enable(DLG_DELREC, full);
+  enable(DLG_PRINT, full && _report.recordset() != NULL);
+}
+
 bool TReport_mask::on_field_event(TOperable_field& o, TField_event e, long jolly)
 {
   switch (o.dlg())
   {
   case F_CODICE:
-    if (e == fe_init)
+    if (e == fe_init || e == fe_modify)
     {
-      if (main_app().argc() >= 3)
+      if (e == fe_init)
       {
-        set(F_CODICE, main_app().argv(2));
+        if (main_app().argc() >= 3)
+        {
+          set(F_CODICE, main_app().argv(2));
+          load_report();
+        }
+      } else
+      if (e == fe_modify)
+      {
+        save_if_needed();
         load_report();
       }
-    }
+      update_toolbar();
-    if (e == fe_modify)
-    {
-      save_if_needed();
-      load_report();
     }
     break;
   case F_SECTIONS:
     if (e == fe_init || e == fe_modify)
-    {
       select_section();
+    break;
+  case F_TOOLS:
+    if (e == fe_modify)
+    {
       const TReport_section& rs = _tree.curr_section();
-      const bool ok = strchr("HBF", rs.type()) != NULL;
+      const bool on = strchr("HBF", rs.type()) != NULL;
-      enable(-1, ok);
+      switch (atoi(o.get()))
-    }
-    break;
-  case F_FLD_ADD:
-    if (e == fe_button && o.active())
-      add_field();
-    break;
-  case F_FLD_PROPERTIES:
-    if (e == fe_button && o.active())
-      fields_properties();
-    break;
-  case F_SEC_ADD:
-    if (e == fe_button && o.active())
-      add_section();
-    break;
-  case F_SEC_PROPERTIES:
-    if (e == fe_button && o.active())
-      section_properties();
-    break;
-  case F_REP_PROPERTIES:
-    if (e == fe_button)
-      report_properties();
-    break;
-  case F_SQL:
-    if (e == fe_init || e == fe_modify)
-      enable(F_SHOW_QRY, !o.empty());
-    break;
-  case F_NEW_QRY:
-    if (e == fe_button)
-    {
-      TExternal_app q("ba8 -1");
-      q.run();
-    }
-    break;
-  case F_IMPORT_QRY:
-    if (e == fe_button)
-      select_query();
-    break;
-  case F_SHOW_QRY:
-    if (e == fe_button)
-    {
-      const TString& sql = get(F_SQL);
-      TRecordset* rex = create_recordset(sql);
-      if (rex != NULL)
       {
-        if (rex->items() > 0)
+      case 0: if (on) add_field(); break;
-        {
+      case 1: if (on) fields_properties(); break;
-          TRecordset_sheet sht(*rex);
+      case 2: add_section(); break;
-          sht.run();
+      case 3: if (on) section_properties(); break;
-        }
+      case 4: report_properties(); break;
-        else
+      case 5: report_query(); break;
-        {
+      default: break;
-          if (sql.find("SELECT ") >= 0)
-            warning_box(TR("Nessuna riga risultato"));
-        }
-        delete rex;
       }
     }
     break;
@@ -997,6 +1021,7 @@ bool TReport_mask::on_field_event(TOperable_field& o, TField_event e, long jolly
   case DLG_FINDREC:
     if (e == fe_button)
       send_key(K_F9, F_CODICE);
+    break;
   case DLG_SAVEREC:
     if (e == fe_button)
     {
@@ -1020,14 +1045,55 @@ bool TReport_mask::on_field_event(TOperable_field& o, TField_event e, long jolly
   return true;
 }
 
+void TReport_mask::handler(WINDOW win, EVENT* ep)
+{
+  if (ep->type == E_COMMAND)
+  {
+    switch (ep->v.cmd.tag)
+    {
+    case POPUP_NEWFIELD  : add_field();          break;
+    case POPUP_PROPERTIES: fields_properties();  break;
+    case POPUP_SECTION   : section_properties(); break;
+    default: break;
+    }
+  }
+  return TAutomask::handler(win, ep);
+}
+
+WINDOW TReport_mask::dlg2win(short id) const
+{
+  WINDOW w = NULL_WIN;
+  const int pos = id2pos(id);
+  if (pos >= 0)
+  {
+    TMask_field& f = fld(pos);
+    CHECKD(f.is_kind_of(CLASS_WINDOWED_FIELD), "Not a windowed field ", id);
+    w = ((TWindowed_field&)f).win().win();
+  }
+  return w;
+}
+
+void TReport_mask::add_pane(short id, const char* title, int hook)
+{
+  WINDOW parent = page_win(0);
+  WINDOW child  = dlg2win(id);
+  xvt_pane_add(parent, child, title, hook, 0);
+}
+
 TReport_mask::TReport_mask() : _tree(_report), _is_dirty(false)
 { 
   read_mask("ba8300a", 0, -1); 
-  set_handlers();
+
+  TOutlook_field& of = (TOutlook_field&)field(F_TOOLS);
+  of.add_item(10210, PR("Nuovo Campo"), 0);
+  of.add_item(10210, PR("Proprieta' Campo"), 0);
+  of.add_item(10202, PR("Nuova Sezione"), 0);
+  of.add_item(10202, PR("Proprieta' Sezione"), 0);
+  of.add_item(10217, PR("Proprieta' Report"), 0);
+  of.add_item(10214, PR("Query Principale"), 0);
 
   TTree_field& albero = tfield(F_SECTIONS);
   RCT rct_sec; albero.get_rect(rct_sec);
-  
   const short sec[2] = { F_REPORT, F_REPORTH };
   for (int s = 0; s < 2; s++)
   {
@@ -1037,7 +1103,6 @@ TReport_mask::TReport_mask() : _tree(_report), _is_dirty(false)
     rct_rep.right -= ROWY;
     rct_rep.bottom -= ROWY;
     rd.set_rect(rct_rep);
-
     switch (s)
     {
     case 1 : 
@@ -1053,12 +1118,18 @@ TReport_mask::TReport_mask() : _tree(_report), _is_dirty(false)
   _tree.goto_node('B', 1);
   const int ih = _tree.image_height();
   if (ih > CHARY)
-    albero.set_row_height(ih);
+    albero.set_row_height(ih); // Imposta le dimensioni delle immagini
-  albero.set_tree(&_tree);
 
   _tree.goto_root();
   _tree.expand_all();
+  albero.set_tree(&_tree);
 
+  add_pane(F_SECTIONS, TR("Struttura"), 1); // Left upper pane
+  add_pane(F_TOOLS,    TR("Strumenti"), 1); // Left lower pane
+  add_pane(F_REPORTH,  TR("Testa"),    52); // Center top pane
+  add_pane(F_REPORT,   TR("Corpo"),    54); // Center bottom pane
+
+  set_handlers();
 }
 
 ///////////////////////////////////////////////////////////

ba/ba8300.h

@@ -2,15 +2,14 @@
 #define F_DESCR          102
 
 #define F_SECTIONS       103
-#define F_REPORTH_TITLE  104
 #define F_REPORTH        105
-#define F_REPORT_TITLE   106
 #define F_REPORT         107
 #define F_FLD_ADD        110
 #define F_FLD_PROPERTIES 111
 #define F_SEC_ADD        112
 #define F_SEC_PROPERTIES 113
 #define F_REP_PROPERTIES 114
+#define F_TOOLS          115
 
 #define F_TYPE           120
 #define F_ID             121
@@ -58,7 +57,6 @@
 #define F_COMMAND        171
 #define F_PAGE_SPLIT     172
 #define F_PAGE_MERGE     173 
-
  
 #define F_SQL            201
 #define F_IMPORT_QRY     202

ba/ba8300a.uml

@@ -1,51 +1,10 @@
 #include "ba8300.h"
 
-TOOLBAR "" 0 -2 0 2
+TOOLBAR "" 0 -1 0 1
-
-BUTTON DLG_SAVEREC 10 2
-BEGIN
-  PROMPT -16 -11 ""
-  PICTURE BMP_SAVEREC
-  PICTURE BMP_SAVERECDN
-END
-
-BUTTON DLG_NEWREC 10 2
-BEGIN
-  PROMPT -26 -11 "~Nuovo"
-  PICTURE BMP_NEWREC
-  PICTURE BMP_NEWRECDN
-END
-
-BUTTON DLG_DELREC 10 2
-BEGIN
-  PROMPT -36 -11 ""
-  PICTURE BMP_DELREC
-  PICTURE BMP_DELRECDN
-END
-
-BUTTON DLG_FINDREC 10 2
-BEGIN
-  PROMPT -46 -11 "Ri~cerca"
-  PICTURE BMP_FINDREC
-END
-
-BUTTON DLG_PRINT 10 2
-BEGIN
-  PROMPT -56 -11 "~Stampa"
-END
-
-BUTTON DLG_QUIT 10 2
-BEGIN
-  PROMPT -66 -11 ""
-END
-
-ENDPAGE
-
-PAGE "@bReport" -1 -1 78 23
 
 STRING F_CODICE 128 24
 BEGIN
-  PROMPT 1 0 ""
+  PROMPT 1 -11 ""
   RSELECT ""
   WARNING "E' necessario specificare il codice"
   CHECKTYPE REQUIRED
@@ -53,86 +12,70 @@ END
 
 STRING F_DESCR 50 46
 BEGIN
-  PROMPT 30 0 ""
+  PROMPT 30 -11 ""
 END
 
-TREE F_SECTIONS 30 12
+ENDPAGE 
+
+TOOLBAR "" 0 0 0 2
+
+BUTTON DLG_SAVEREC 10 2
 BEGIN
-  PROMPT 0 1 ""
+  PROMPT -16 -1 "Salva"
+  PICTURE BMP_SAVEREC
 END
 
-TEXT F_REPORTH_TITLE
+BUTTON DLG_NEWREC 10 2
 BEGIN
-  PROMPT 41 1 "Testata di livello 0"
+  PROMPT -26 -1 "Nuovo"
+  PICTURE BMP_NEWREC
 END
 
-REPORT F_REPORTH -3 4
+BUTTON DLG_DELREC 10 2
 BEGIN
-  PROMPT 21 2 ""
+  PROMPT -36 -1 "Elimina"
+  PICTURE BMP_DELREC
 END
 
-TEXT F_REPORT_TITLE
+BUTTON DLG_FINDREC 10 2
 BEGIN
-  PROMPT 41 7 "Corpo di livello 0"
+  PROMPT -46 -1 "Ricerca"
+  PICTURE 166
 END
 
-REPORT F_REPORT -3 -3
+BUTTON DLG_PRINT 10 2
 BEGIN
-  PROMPT 21 8 ""
+  PROMPT -56 -1 "Stampa"
+  PICTURE BMP_PRINT
 END
 
-BUTTON F_FLD_ADD 10 2
+BUTTON DLG_QUIT 10 2
 BEGIN
-  PROMPT -16 -1 "Campo +"
+  PROMPT -66 -1 ""
-  GROUP 1
-END
-
-BUTTON F_FLD_PROPERTIES 10 2
-BEGIN
-  PROMPT -26 -1 "Proprieta'"
-  GROUP 1
-END
-
-BUTTON F_SEC_ADD 10 2
-BEGIN
-  PROMPT -36 -1 "Sezione +"
-  GROUP 1
-END
-
-BUTTON F_SEC_PROPERTIES 10 2
-BEGIN
-  PROMPT -46 -1 "Sezione"
-  GROUP 1
-END
-
-BUTTON F_REP_PROPERTIES 10 2
-BEGIN
-  PROMPT -66 -1 "Report"
 END
 
 ENDPAGE
 
-PAGE "Sql" -1 -1 78 23
+PAGE "Report" -1 -1 78 23
 
-MEMO F_SQL 76 -2
+TREE F_SECTIONS 22 12
 BEGIN
-  PROMPT 2 1 "Query SQL origine dei dati"
+  PROMPT 0 1 "Struttura"
 END
 
-BUTTON F_NEW_QRY 20 2
+OUTLOOK F_TOOLS 22 8
 BEGIN
-  PROMPT -25 -1 "Nuova query"
+  PROMPT 0 12 "Strumenti"
 END
 
-BUTTON F_IMPORT_QRY 20 2
+REPORT F_REPORTH -3 4
 BEGIN
-  PROMPT -35 -1 "Importa query"
+  PROMPT 21 2 "Testa"
 END
 
-BUTTON F_SHOW_QRY 20 2
+REPORT F_REPORT -3 -3
 BEGIN
-  PROMPT -45 -1 "~Edit"
+  PROMPT 21 8 "Corpo"
-  PICTURE BMP_EDIT
 END
 
 ENDPAGE

ba/ba8300b.uml

@@ -1,6 +1,6 @@
 #include "ba8300.h"
 
-PAGE "Campo" -1 -1 74 17
+PAGE "Campo" -1 -1 74 18
 
 LIST F_TYPE 1 16
 BEGIN
@@ -94,9 +94,9 @@ BEGIN
   PROMPT 1 5 "@bTesto"
 END
 
-MEMO F_SOURCE 68 4
+MEMO F_SOURCE 68 5
 BEGIN
-  PROMPT 1 10 "@bSorgente"
+  PROMPT 1 9 "@bSorgente"
 END
 
 ZOOM F_SOURCE2 80 46
@@ -104,27 +104,6 @@ BEGIN
   PROMPT 1 14 "@bSorgente alternativa "
 END
 
-BUTTON DLG_FINDREC 10 2
-BEGIN
-  PROMPT -33, 9 ""
-  PICTURE BMP_FINDREC
-END
-
-BUTTON DLG_CANCEL 10 2
-BEGIN
-  PROMPT -13 -1 ""
-END
-
-BUTTON DLG_DELREC 10 2
-BEGIN
-  PROMPT -23 -1 ""
-END
-
-BUTTON DLG_OK 10 2
-BEGIN
-  PROMPT -33 -1 ""
-END
-
 ENDPAGE
 
 PAGE "Aspetto" -1 -1 74 16
@@ -204,17 +183,6 @@ BEGIN
   PROMPT 2 10 "~Font"
 END
 
-
-BUTTON DLG_CANCEL 10 2
-BEGIN
-  PROMPT -13 -1 ""
-END
-
-BUTTON DLG_OK 10 2
-BEGIN
-  PROMPT -33 -1 ""
-END
-
 ENDPAGE
 
 PAGE "Avanzate" -1 -1 74 16
@@ -229,16 +197,6 @@ BEGIN
   PROMPT 1 7 "Script finale"
 END
 
-BUTTON DLG_CANCEL 10 2
-BEGIN
-  PROMPT -13 -1 ""
-END
-
-BUTTON DLG_OK 10 2
-BEGIN
-  PROMPT -33 -1 ""
-END
-
 ENDPAGE
 
 PAGE "Lista" -1 -1 72 16
@@ -252,17 +210,32 @@ BEGIN
   FLAGS "H|"
 END
 
-BUTTON DLG_CANCEL 10 2
+ENDPAGE
-BEGIN
+
-  PROMPT -13 -1 ""
+TOOLBAR "Toolbar" 0 0 0 2
-END
 
 BUTTON DLG_OK 10 2
 BEGIN
-  PROMPT -33 -1 ""
+  PROMPT -14 -1 ""
 END
 
-ENDPAGE
+BUTTON DLG_DELREC 10 2
+BEGIN
+  PROMPT -24 -1 ""
+END
+
+BUTTON DLG_FINDREC 10 2
+BEGIN
+  PROMPT -34, 9 ""
+  PICTURE 166
+END
+
+BUTTON DLG_CANCEL 10 2
+BEGIN
+  PROMPT -44 -1 ""
+END
+
+END 
 
 ENDMASK
 
@@ -283,7 +256,7 @@ BEGIN
   PROMPT 1 1 "Script"
 END
 
-BUTTON DLG_CANCEL 10 2
+BUTTON DLG_OK 10 2
 BEGIN
   PROMPT -13 -1 ""
 END
@@ -293,7 +266,7 @@ BEGIN
   PROMPT -23 -1 ""
 END
 
-BUTTON DLG_OK 10 2
+BUTTON DLG_CANCEL 10 2
 BEGIN
   PROMPT -33 -1 ""
 END

ba/ba8300c.uml

@@ -97,21 +97,6 @@ BEGIN
   FLAGS "H"
 END
 
-BUTTON DLG_OK 10 2
-BEGIN
-  PROMPT -13 -1 ""
-END
-
-BUTTON DLG_DELREC 10 2
-BEGIN
-  PROMPT -23 -1 ""
-END
-
-BUTTON DLG_CANCEL 10 2
-BEGIN
-  PROMPT -33 -1 ""
-END
-
 ENDPAGE
 
 PAGE "Query" -1 -1 60 16
@@ -129,16 +114,6 @@ BEGIN
   CHECKTYPE REQUIRED
 END
 
-BUTTON DLG_OK 10 2
-BEGIN
-  PROMPT -13 -1 ""
-END
-
-BUTTON DLG_CANCEL 10 2
-BEGIN
-  PROMPT -33 -1 ""
-END
-
 ENDPAGE
 
 PAGE "Aspetto" -1 -1 72 16
@@ -195,16 +170,6 @@ BEGIN
   PROMPT 2 10 "~Font"
 END
 
-BUTTON DLG_CANCEL 10 2
-BEGIN
-  PROMPT -13 -1 ""
-END
-
-BUTTON DLG_OK 10 2
-BEGIN
-  PROMPT -33 -1 ""
-END
-
 ENDPAGE
 
 PAGE "Avanzate" -1 -1 50 16
@@ -219,12 +184,21 @@ BEGIN
   PROMPT 1 7 "Script finale"
 END
 
-BUTTON DLG_CANCEL 10 2
+ENDPAGE
+
+TOOLBAR "" 0 0 0 2
+
+BUTTON DLG_OK 10 2
 BEGIN
   PROMPT -13 -1 ""
 END
 
-BUTTON DLG_OK 10 2
+BUTTON DLG_DELREC 10 2
+BEGIN
+  PROMPT -23 -1 ""
+END
+
+BUTTON DLG_CANCEL 10 2
 BEGIN
   PROMPT -33 -1 ""
 END

ba/ba8300d.uml

@@ -2,7 +2,7 @@
 
 PAGE "Report" -1 -1 60 16
 
-RADIO F_ORIENTATION 1 58
+RADIO F_ORIENTATION 1 24
 BEGIN
   PROMPT 1 0 "@bOrientamento della carta"
   ITEM "0|Impostazioni Stampante"
@@ -10,16 +10,26 @@ BEGIN
   ITEM "2|Paesaggio (Orizzontale)"
 END
 
+BOOLEAN F_PAGE_SPLIT
+BEGIN
+  PROMPT 26 1 "Suddividi una pagina su piu' fogli"
+END
+
+BOOLEAN F_PAGE_MERGE
+BEGIN
+  PROMPT 26 2 "Raggruppa piu' pagine in un foglio"
+END
+
 BOOLEAN F_FONT_AUTO
 BEGIN
-  PROMPT 1 5 "Seleziona font in base alle impostazioni della stampante"
+  PROMPT 26 3 "Seleziona font corrente della stampante"
   MESSAGE FALSE ENABLE,F_FONT_SELECT|ENABLE,F_DY|ENABLE,F_DX
   MESSAGE TRUE DISABLE,F_FONT_SELECT|DISABLE,F_DY|DISABLE,F_DX
 END
 
 NUMBER F_DX 2 
 BEGIN
-  PROMPT 31 6 "Caratteri per pollice "
+  PROMPT 1 5 "Caratteri per pollice "
   FLAGS "U"
   CHECKTYPE NORMAL
 END
@@ -34,26 +44,16 @@ BEGIN
   PROMPT 26 2 "Raggruppa piu' pagine in un foglio"
 END
 
-BOOLEAN F_PAGE_SPLIT
-BEGIN
-  PROMPT 26 1 "Suddividi una pagina su piu' fogli"
-END
-
-BOOLEAN F_PAGE_MERGE
-BEGIN
-  PROMPT 26 2 "Raggruppa piu' pagine in un foglio"
-END
-
 NUMBER F_DY 2 
 BEGIN
-  PROMPT 26 3 "Linee per pollice "
+  PROMPT 28 5 "Linee per pollice "
   FLAGS "U"
   CHECKTYPE REQUIRED
 END
 
 BUTTON F_FONT_SELECT 12 2
 BEGIN
-  PROMPT 26 4 "~Font"
+  PROMPT 1 6 "~Font"
 END
 
 MEMO F_INCLUDE 57 3
@@ -71,37 +71,17 @@ BEGIN
   PROMPT 1 12 "Riga di comando "
 END
 
-BUTTON DLG_CANCEL 10 2
-BEGIN
-  PROMPT -12 -1 ""
-END
-
-BUTTON DLG_OK 10 2
-BEGIN
-  PROMPT -22 -1 ""
-END
-
 ENDPAGE
 
 PAGE "Parametri" -1 -1 60 16
 
 SPREADSHEET F_PARAMS 0 -3
 BEGIN
-  PROMPT 1 6 ""
+  PROMPT 1 1 ""
   ITEM "Parametro@16"
   ITEM "Valore@50"
 END
 
-BUTTON DLG_CANCEL 10 2
-BEGIN
-  PROMPT -12 -1 ""
-END
-
-BUTTON DLG_OK 10 2
-BEGIN
-  PROMPT -22 -1 ""
-END
-
 ENDPAGE
 
 PAGE "Avanzate" -1 -1 60 16
@@ -116,16 +96,6 @@ BEGIN
   PROMPT 1 10 "Script finale"
 END
 
-BUTTON DLG_CANCEL 10 2
-BEGIN
-  PROMPT -12 -1 ""
-END
-
-BUTTON DLG_OK 10 2
-BEGIN
-  PROMPT -22 -1 ""
-END
-
 ENDPAGE
 
 PAGE "Allegati" -1 -1 60 16
@@ -136,14 +106,18 @@ BEGIN
   ITEM "Allegato@50"
 END
 
-BUTTON DLG_CANCEL 10 2
+ENDPAGE
-BEGIN
+
-  PROMPT -12 -1 ""
+TOOLBAR "" 0 0 0 2
-END
 
 BUTTON DLG_OK 10 2
 BEGIN
-  PROMPT -22 -1 ""
+  PROMPT -13 -1 ""
+END
+
+BUTTON DLG_CANCEL 10 2
+BEGIN
+  PROMPT -33 -1 ""
 END
 
 ENDPAGE
@@ -162,6 +136,10 @@ BEGIN
   PROMPT 1 2 "Valore "
 END
 
+ENDPAGE
+
+TOOLBAR "" 0 0 0 2
+
 BUTTON DLG_CANCEL 10 2
 BEGIN
   PROMPT -13 -1 ""
@@ -189,7 +167,11 @@ BEGIN
   FSELECT ""
 END
 
-BUTTON DLG_CANCEL 10 2
+ENDPAGE
+
+TOOLBAR "" 0 0 0 2
+
+BUTTON DLG_OK 10 2
 BEGIN
   PROMPT -13 -1 ""
 END
@@ -199,7 +181,7 @@ BEGIN
   PROMPT -23 -1 ""
 END
 
-BUTTON DLG_OK 10 2
+BUTTON DLG_CANCEL 10 2
 BEGIN
   PROMPT -33 -1 ""
 END

ba/ba8300f.uml

@@ -0,0 +1,44 @@
+#include "ba8300.h"
+
+TOOLBAR "" 0 0 0 2
+
+BUTTON DLG_OK 15 2
+BEGIN
+  PROMPT -15 -11 "Conferma"
+END
+
+BUTTON F_NEW_QRY 15 2
+BEGIN
+  PROMPT -25 -11 "Nuovo"
+  PICTURE BMP_NEWREC
+END
+
+BUTTON F_IMPORT_QRY 15 2
+BEGIN
+  PROMPT -35 -11 "Importa"
+  PICTURE 166
+END
+
+BUTTON F_SHOW_QRY 15 2
+BEGIN
+  PROMPT -45 -11 "~Edit"
+  PICTURE BMP_EDIT
+END
+
+BUTTON DLG_CANCEL 15 2
+BEGIN
+  PROMPT -55 -11 ""
+END
+
+ENDPAGE
+
+PAGE "Query" -1 -1 78 23
+
+MEMO F_SQL
+BEGIN
+  PROMPT 0 0 ""
+END
+
+ENDPAGE
+
+ENDMASK

ba/ba8301.cpp

@@ -15,7 +15,6 @@
 
 void describe_section(char type, int level, TString& str)
 {
-  str = "     ";
   if (level <= 0)
   {
     switch (type)
@@ -37,15 +36,16 @@ void describe_section(char type, int level, TString& str)
     case 'F': str << TR("Coda");  break;
     default : break;
     }
+    str << ' ';
     if (level < 10 && (type == 'H' || type == 'F'))
     {
       if (level <= 1)
-        str << TR("Report");
+         str << TR("Report");
       else
         str << TR("Gruppo") << ' ' << (level-1);
     }
     else
-      str << ' ' << level;
+      str << level;
   }
 }
 
@@ -243,10 +243,12 @@ bool TReport_tree::has_root() const
 
 bool TReport_tree::has_father() const
 {
+/*
   if (curr_level() > 10)  // Subsection
     return true;
-
   return !has_son();
+*/
+  return _curr[0] != 'P' && _curr[0] != 'R';
 }
 
 bool TReport_tree::goto_father()
@@ -377,8 +379,7 @@ TImage* TReport_tree::image(bool selected) const
   }
   else
   {
-    if (has_son())
+    id = selected ? 177 : 178;   // Cartelle aperte/chiuse a caso
-      id = selected ? 178 : 177;
   }
   return id > 0 ? get_res_image(id) : TTree::image(selected);
 }
@@ -396,14 +397,14 @@ int TReport_tree::image_height() const
 void TReport_base_mask::update()
 {
   const TMask_field& fld = field(F_FONT_SELECT);
-  if (fld.active() && win() == fld.parent())
+  if (fld.active() && curr_win() == fld.parent())
   {
     RCT rctfld; fld.get_rect(rctfld); 
     const int x = rctfld.right / CHARX + 1;
     const int y = rctfld.top / ROWY + 1;
-    RCT& rct = resize_rect(x, y, -3, 2, W_PLAIN, win()); 
+    RCT& rct = resize_rect(x, y, -3, 2, W_PLAIN, fld.parent()); 
     rct.top =  rctfld.top; rct.bottom = rctfld.bottom;
-    xi_draw_3d_rect((XinWindow)win(), (XinRect*)&rct, TRUE, 2, MASK_LIGHT_COLOR, 
+    xi_draw_3d_rect((XinWindow)fld.parent(), (XinRect*)&rct, TRUE, 2, MASK_LIGHT_COLOR, 
       _bgcolor, MASK_DARK_COLOR);
 
     rct.left += 2; rct.right -= 2;
@@ -412,7 +413,7 @@ void TReport_base_mask::update()
 
     XVT_FNTID fontid = _font.get_xvt_font(*this);
     xvt_font_set_size(fontid, _font.size());
-    xvt_dwin_set_font(win(), fontid);
+    xvt_dwin_set_font(fld.parent(), fontid);
     set_color(_fgcolor, _bgcolor);
     advanced_draw_text_line(*this, _font.name(), rct, _halign, _valign);
   }
@@ -525,14 +526,14 @@ void TReport_field_mask::update()
   for (int i = 0; i < 2; i++)
   {
     TMask_field& fld = field(i == 0 ? F_FGCOLOR : F_BGCOLOR);
-    if (fld.active() && fld.parent() == win())
+    if (fld.active() && fld.parent() == curr_win())
     {
       RCT rctfld; fld.get_rect(rctfld); 
       const int x = rctfld.right / CHARX + 1;
       const int y = rctfld.top / ROWY + 1;
-      RCT& rct = resize_rect(x, y, -3, 1, W_PLAIN, win());
+      RCT& rct = resize_rect(x, y, -3, 1, W_PLAIN, fld.parent());
       rct.top =  rctfld.top; rct.bottom = rctfld.bottom;
-      xi_draw_3d_rect((XinWindow)win(), (XinRect*)&rct, TRUE, 2, MASK_LIGHT_COLOR, 
+      xi_draw_3d_rect((XinWindow)fld.parent(), (XinRect*)&rct, TRUE, 2, MASK_LIGHT_COLOR, 
         i == 0 ? _fgcolor : _bgcolor, MASK_DARK_COLOR);
     }
   }
@@ -761,9 +762,7 @@ void TReport_field_mask::get_field(TReport_field& rf) const
 
 TReport_field_mask::TReport_field_mask(TReport_field& rf) 
                   : TReport_base_mask("ba8300b", rf.section().report()), _rf(rf)
-{ 
+{ set_field(rf); }
-  set_field(rf); 
-}
 
 ///////////////////////////////////////////////////////////
 // Utility
@@ -874,6 +873,9 @@ void TReport_window::set_report_section(TReport_section& rs)
   _report = &rs.report();
   _type = rs.type();
   _level = rs.level();
+
+  TString str; describe_section(rs.type(), rs.level(), str);
+  xvt_pane_set_title(win(), str);
 }
 
 bool TReport_window::pick(const TPoint& ptlog) const
@@ -1010,20 +1012,6 @@ void TReport_window::snap(TRectangle& rct, bool shift) const
   rct.set(p0, p1);
 }
 
-
-#define POPUP_CUT        20883
-#define POPUP_COPY       20884
-#define POPUP_PASTE      20885
-#define POPUP_DUP        20886
-#define POPUP_CLEAR      20887
-#define POPUP_ZOOMIN     20888
-#define POPUP_ZOOMOUT    20889
-#define POPUP_BACKGROUND 20890
-#define POPUP_SELALL     20891
-#define POPUP_UNSELALL   20892
-#define POPUP_PROPERTIES 20893
-#define POPUP_NEWFIELD   20894
-
 bool TReport_window::on_key(KEY k)
 {
   switch (k)
@@ -1070,8 +1058,8 @@ bool TReport_window::on_key(KEY k)
     dispatch_e_menu(win(), POPUP_ZOOMOUT);
     return true;
   case K_ENTER:
-    owner().mask().send_key(K_SPACE, F_FLD_PROPERTIES);
+    dispatch_e_menu(win(), POPUP_PROPERTIES);
-    break;
+    return true;
   case K_ESC:
     {
       TReport_section& rs = curr_section();
@@ -1402,7 +1390,7 @@ void TReport_window::handler(WINDOW win, EVENT* ep)
     }
     break;
   case E_MOUSE_DBL:
-    owner().mask().send_key(K_SPACE, F_FLD_PROPERTIES);
+    dispatch_e_menu(win, POPUP_PROPERTIES);
     break;
   case E_COMMAND:
     switch(ep->v.cmd.tag)
@@ -1457,14 +1445,11 @@ void TReport_window::handler(WINDOW win, EVENT* ep)
       {
         clear_selection();
         const bool full = pick(_pt_drag_start);
-        if (full)
+        dispatch_e_menu(parent(), full ? POPUP_PROPERTIES : POPUP_SECTION);
-          owner().mask().send_key(K_SPACE, F_FLD_PROPERTIES);
-        else
-          owner().mask().send_key(K_SPACE, F_SEC_PROPERTIES);
       }
       break;
     case POPUP_NEWFIELD:
-      owner().mask().send_key(K_SPACE, F_FLD_ADD);
+      dispatch_e_menu(parent(), POPUP_NEWFIELD);
       break;
     default: 
       break;
@@ -1845,11 +1830,6 @@ void TReport_drawer::set_report_section(TReport_section& rs)
 { 
   TReport_window* w = (TReport_window*)_win;
   w->set_report_section(rs);
-
-  const int pos = mask().id2pos(dlg()) - 1; // Caption field position
-  TString str; describe_section(rs.type(), rs.level(), str);
-  str.insert("@b");
-  mask().fld(pos).set_prompt(str);
 }
 
 TReport_section& TReport_drawer::curr_section()

ba/ba8301.h

@@ -1,3 +1,6 @@
+#ifndef __BA8301_H
+#define __BA8301_H
+
 #ifndef __AUTOMASK_H
 #include <automask.h>
 #endif
@@ -114,3 +117,19 @@ public:
 
 const TString& num2str(int num);
 short str2num(const TString& str);
+
+#define POPUP_CUT        20883
+#define POPUP_COPY       20884
+#define POPUP_PASTE      20885
+#define POPUP_DUP        20886
+#define POPUP_CLEAR      20887
+#define POPUP_ZOOMIN     20888
+#define POPUP_ZOOMOUT    20889
+#define POPUP_BACKGROUND 20890
+#define POPUP_SELALL     20891
+#define POPUP_UNSELALL   20892
+#define POPUP_PROPERTIES 20893
+#define POPUP_NEWFIELD   20894
+#define POPUP_SECTION    20895
+
+#endif