Rif. mod. 95/51. Aggiunto membro _arrange e metodo TForm::set_arrange().

Si puo' ora dire al form se effettuare il posizionamento o no.
	 Fatto e provato sulla stampa versamenti.


git-svn-id: svn://10.65.10.50/trunk@2120 c028cbd2-c16b-5b4b-a496-9718f37d4682
This commit is contained in:
angelo 1995-11-09 13:40:20 +00:00
parent bce96f977c
commit bf258bead0
2 changed files with 6 additions and 3 deletions

View File

@ -2394,7 +2394,8 @@ bool TForm::print(long from, long to)
if (pr.printtype() == screenvis)
error_box("Stampa a video selezionata. Non e' possibile effettuare il posizionamento.");
else
arrange_form();
if (_arrange)
arrange_form();
}
pr.setheaderhandler(header_handler); // Setta handlers
@ -2675,7 +2676,7 @@ TForm::TForm(const char* name, const char* code, int lev, const char* desc)
: _name(name), _code(code), _relation(NULL), _cursor(NULL), _rel_desc(NULL),
_isnew(FALSE), _editlevel(lev), _desc(desc), _fontname("Courier New"),
_fontsize(12), _x(0), _y(0), _char_to_pos('\0'), _ipx(0), _ipy(0), _fpx(0),
_dirty(FALSE)
_arrange(TRUE), _dirty(FALSE)
{
main_app().begin_wait();

View File

@ -114,7 +114,8 @@ class TForm : public TObject
bool _lastpage; // I am about to print the last page?
bool _isnew; // new form
bool _isbase; // base form (.frm file)
bool _isbase; // base form (.frm file)
bool _arrange; // if TRUE perform arranging every time
int _editlevel; // Edit permission
TString _desc; // form description
@ -179,6 +180,7 @@ public:
int& fpx() { return _fpx; }
bool dirty() const { return _dirty; }
void set_dirty(bool d = TRUE) { _dirty = d; }
void set_arrange(bool arng = TRUE) { _arrange = arng ; }
// if code == NULL it's a base form
// otherwise it's integrated by a file definition