You can not select more than 25 topics Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
koffice/kexi/plugins/forms/widgets/kexidbsubform.cpp

132 lines
3.9 KiB

/* This file is part of the KDE project
Copyright (C) 2004 Cedric Pasteur <cedric.pasteur@free.fr>
Copyright (C) 2004-2005 Jaroslaw Staniek <js@iidea.pl>
This library is free software; you can redistribute it and/or
modify it under the terms of the GNU Library General Public
License as published by the Free Software Foundation; either
version 2 of the License, or (at your option) any later version.
This library is distributed in the hope that it will be useful,
but WITHOUT ANY WARRANTY; without even the implied warranty of
MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
Library General Public License for more details.
You should have received a copy of the GNU Library General Public License
along with this library; see the file COPYING.LIB. If not, write to
the Free Software Foundation, Inc., 51 Franklin Street, Fifth Floor,
* Boston, MA 02110-1301, USA.
*/
#include "kexidbsubform.h"
#include "kexidbform.h"
#include "../kexiformview.h"
#include <kexidb/utils.h>
#include <formeditor/formIO.h>
#include <formeditor/objecttree.h>
#include <formeditor/utils.h>
#include <formeditor/container.h>
#include <formeditor/formmanager.h>
KexiDBSubForm::KexiDBSubForm(KFormDesigner::Form *parentForm, TQWidget *parent, const char *name)
: TQScrollView(parent, name), m_parentForm(parentForm), m_form(0), m_widget(0)
{
setFrameStyle(TQFrame::WinPanel | TQFrame::Sunken);
viewport()->setPaletteBackgroundColor(colorGroup().mid());
}
/*
void
KexiDBSubForm::paintEvent(TQPaintEvent *ev)
{
TQScrollView::paintEvent(ev);
TQPainter p;
setWFlags(WPaintUnclipped);
TQString txt("Subform");
TQFont f = font();
f.setPointSize(f.pointSize() * 3);
TQFontMetrics fm(f);
const int txtw = fm.width(txt), txth = fm.height();
p.begin(this, true);
p.setPen(black);
p.setFont(f);
p.drawText(width()/2, height()/2, txt, TQt::AlignCenter|TQt::AlignVCenter);
p.end();
clearWFlags( WPaintUnclipped );
}
*/
void
KexiDBSubForm::setFormName(const TQString &name)
{
if(m_formName==name)
return;
m_formName = name; //assign, even if the name points to nowhere
if(name.isEmpty()) {
delete m_widget;
m_widget = 0;
updateScrollBars();
return;
}
TQWidget *pw = parentWidget();
KexiFormView *view = 0;
TQStringList list;
while(pw) {
if(pw->isA("KexiDBSubForm")) {
if(list.contains(pw->name())) {
//! @todo error message
return; // Be sure to don't run into a endless-loop cause of recursive subforms.
}
list.append(pw->name());
}
else if(! view && pw->isA("KexiFormView"))
view = static_cast<KexiFormView*>(pw); // we need a KexiFormView*
pw = pw->parentWidget();
}
if (!view || !view->parentDialog() || !view->parentDialog()->mainWin()
|| !view->parentDialog()->mainWin()->project()->dbConnection())
return;
KexiDB::Connection *conn = view->parentDialog()->mainWin()->project()->dbConnection();
// we check if there is a form with this name
int id = KexiDB::idForObjectName(*conn, name, KexiPart::FormObjectType);
if((id == 0) || (id == view->parentDialog()->id())) // == our form
return; // because of recursion when loading
// we create the container widget
delete m_widget;
m_widget = new KexiDBFormBase(viewport(), "KexiDBSubForm_widget");
m_widget->show();
addChild(m_widget);
m_form = new KFormDesigner::Form(KexiFormPart::library(), this->name());
m_form->createToplevel(m_widget);
// and load the sub form
TQString data;
tristate res = conn->loadDataBlock(id, data, TQString());
if (res == true)
res = KFormDesigner::FormIO::loadFormFromString(m_form, m_widget, data);
if(res != true) {
delete m_widget;
m_widget = 0;
updateScrollBars();
m_formName = TQString();
return;
}
m_form->setDesignMode(false);
// Install event filters on the whole newly created form
KFormDesigner::ObjectTreeItem *tree = m_parentForm->objectTree()->lookup(TQT_TQOBJECT(this)->name());
KFormDesigner::installRecursiveEventFilter(TQT_TQOBJECT(this), tree->eventEater());
}
#include "kexidbsubform.moc"