applicat.cpp Corretta gestione nome applicazionme

applicat.h     Trasformate TString80 in TString(80)
tabapp.h       Corretto commento errato


git-svn-id: svn://10.65.10.50/trunk@4049 c028cbd2-c16b-5b4b-a496-9718f37d4682
This commit is contained in:
guy 1997-01-09 16:33:39 +00:00
parent 1d7eaab959
commit a35b293943
3 changed files with 14 additions and 13 deletions

View File

@ -157,11 +157,11 @@ long XVT_CALLCONV1 TApplication::task_eh(WINDOW win, EVENT *ep)
{
case E_CREATE:
if (_application->pre_create())
{
{
TTemp_window tw(win);
TString caption(32);
caption << prassi_spa() << " - " << main_app().get_module_name();
tw.set_caption(caption);
TString cap;
cap << prassi_spa() << " - " << main_app().get_module_name();
tw.set_caption(cap);
/*
#if XVT_OS == XVT_OS_WIN
HWND hwnd = (HWND)xvt_vobj_get_attr(win, ATTR_NATIVE_WINDOW);
@ -310,8 +310,9 @@ bool TApplication::remove_menu(MENU_TAG id)
}
TApplication::TApplication() : _savefirm(0), _create_ok(FALSE)
, _bar(TASK_MENUBAR)
TApplication::TApplication()
: _savefirm(0), _create_ok(FALSE), _bar(TASK_MENUBAR),
_name(80), _title(80)
{}
@ -505,12 +506,12 @@ void TApplication::run(
const TFixed_string mod(get_module_name());
if (mod.empty())
return;
XVT_CONFIG cfg;
cfg.menu_bar_ID = TASK_MENUBAR+addbar;
cfg.about_box_ID = 0;
cfg.base_appl_name = (char*)base.name();
cfg.appl_name = _title.get_buffer();
cfg.appl_name = (char*)title;
cfg.taskwin_title = "PR.A.S.S.I.";
xvt_vobj_set_attr(NULL_WIN,ATTR_WIN_PM_DRAWABLE_TWIN, TRUE);

View File

@ -38,10 +38,10 @@ class TApplication
// @cmember:(INTERNAL) Array di autorizzazione concessa all'utente
TBit_array _user_aut;
// @cmember:(INTERNAL) Nome dell'applicazione
TString80 _name;
// @cmember:(INTERNAL) Titolo della finestra
TString80 _title;
// @cmember:(INTERNAL) Codice dell'applicazione
TString _name;
// @cmember:(INTERNAL) Nome della applicazione
TString _title;
// @cmember:(INTERNAL) Codice della ditta
long _savefirm;

View File

@ -27,7 +27,7 @@ class Tab_application : public TRelation_application
// @cmember:(INTERNAL) Relazione corrente dell'applicazione
TRelation* _rel;
// @cmember:(INTERNAL) Nome della tabella da utilizzare
TString16 _tabname;
TString _tabname;
// @access Protected Member
protected: