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.
374 lines
12 KiB
374 lines
12 KiB
/***************************************************************************
|
|
table.cpp - Table widget
|
|
-------------------
|
|
copyright : (C) 2004 Michal Rudolf <mrudolf@kdewebdev.org>
|
|
***************************************************************************/
|
|
|
|
/***************************************************************************
|
|
* *
|
|
* This program is free software; you can redistribute it and/or modify *
|
|
* it under the terms of the GNU General Public License as published by *
|
|
* the Free Software Foundation; either version 2 of the License, or *
|
|
* (at your option) any later version. *
|
|
* *
|
|
***************************************************************************/
|
|
|
|
|
|
/* KDE INCLUDES */
|
|
#include <klocale.h>
|
|
#include <kglobal.h>
|
|
#include <kmessagebox.h>
|
|
|
|
/* QT INCLUDES */
|
|
#include <tqmetaobject.h>
|
|
#include <tqstring.h>
|
|
#include <tqwidget.h>
|
|
#include <tqstringlist.h>
|
|
#include <tqpoint.h>
|
|
|
|
/* OTHER INCLUDES */
|
|
#include "kommanderplugin.h"
|
|
#include "specials.h"
|
|
#include "table.h"
|
|
|
|
enum Functions {
|
|
FirstFunction = 365,
|
|
TBL_sortColumnExtra,
|
|
TBL_keepCellVisible,
|
|
TBL_selectCells,
|
|
TBL_selectRow,
|
|
TBL_selectColumn,
|
|
TBL_setColumnReadOnly,
|
|
TBL_setRowReadOnly,
|
|
TBL_rowCount,
|
|
TBL_colHeader,
|
|
TBL_rowHeader,
|
|
LastFunction
|
|
};
|
|
|
|
|
|
Table::Table(TQWidget *a_parent, const char *a_name)
|
|
: TQTable(a_parent, a_name), KommanderWidget(TQT_TQOBJECT(this))
|
|
{
|
|
TQStringList states;
|
|
states << "default";
|
|
setStates(states);
|
|
setDisplayStates(states);
|
|
KommanderPlugin::setDefaultGroup(Group::DCOP);
|
|
KommanderPlugin::registerFunction(TBL_sortColumnExtra, "sortColumnExtra(TQString widget, int col, bool ascending, bool wholeRows)", i18n("Sets a column to sort ascending or descending. Optionally can sort with rows intact for database use."), 2, 4);
|
|
KommanderPlugin::registerFunction(TBL_keepCellVisible, "keepCellVisible(TQString widget, int row, int col)", i18n("Scrolls the table so the cell indicated is visible."), 3);
|
|
KommanderPlugin::registerFunction(TBL_selectCells, "selectCells(TQString widget, int row, int col, int row, int col)", i18n("Select cells using the upper left and lower right cell addresses<br /><b>Not guaranteed to have KDE4 compatiblility</b>"), 5);
|
|
KommanderPlugin::registerFunction(TBL_selectRow, "selectRow(TQString widget, int row)", i18n("Select the row with the zero based index."), 2);
|
|
KommanderPlugin::registerFunction(TBL_selectColumn, "selectColumn(TQString widget, int col)", i18n("Select the column with the zero based index.<br /><b>Not guaranteed to have KDE4 compatiblility</b>"), 2);
|
|
KommanderPlugin::registerFunction(TBL_setColumnReadOnly, "setColumnReadOnly(TQString widget, int col, bool Readonly)", i18n("Set the column read only using zero based index.<br /><b>Not guaranteed to have KDE4 compatiblility</b>"), 3);
|
|
KommanderPlugin::registerFunction(TBL_setRowReadOnly, "setRowReadOnly(TQString widget, int row, bool Readonly)", i18n("Set the row read only using zero based index.<br /><b>Not guaranteed to have KDE4 compatiblility</b>"), 3);
|
|
KommanderPlugin::registerFunction(TBL_rowCount, "rowCount(TQString widget)", i18n("Returns the number of rows of the table"), 1);
|
|
KommanderPlugin::registerFunction(TBL_colHeader, "columnHeader(TQString widget, int Column)", i18n("Returns the text of the header for the column index"), 2);
|
|
KommanderPlugin::registerFunction(TBL_rowHeader, "rowHeader(TQString widget, int Row)", i18n("Returns the text of the header for the row index"), 2);
|
|
|
|
}
|
|
|
|
Table::~Table()
|
|
{
|
|
}
|
|
|
|
TQString Table::currentState() const
|
|
{
|
|
return TQString("default");
|
|
}
|
|
|
|
bool Table::isKommanderWidget() const
|
|
{
|
|
return true;
|
|
}
|
|
|
|
TQStringList Table::associatedText() const
|
|
{
|
|
return KommanderWidget::associatedText();
|
|
}
|
|
|
|
void Table::setAssociatedText(const TQStringList& a_at)
|
|
{
|
|
KommanderWidget::setAssociatedText(a_at);
|
|
}
|
|
|
|
void Table::setPopulationText(const TQString& a_text)
|
|
{
|
|
KommanderWidget::setPopulationText(a_text);
|
|
}
|
|
|
|
TQString Table::populationText() const
|
|
{
|
|
return KommanderWidget::populationText();
|
|
}
|
|
|
|
void Table::populate()
|
|
{
|
|
setWidgetText(KommanderWidget::evalAssociatedText( populationText()));
|
|
}
|
|
|
|
void Table::setWidgetText(const TQString&)
|
|
{
|
|
}
|
|
|
|
TQString Table::selectedArea()
|
|
{
|
|
TQTableSelection sel = selection(currentSelection());
|
|
return TQString("%1,%2,%3,%4").tqarg(sel.topRow()).tqarg(sel.leftCol()).tqarg(sel.bottomRow()).tqarg(sel.rightCol());
|
|
}
|
|
|
|
|
|
bool Table::isFunctionSupported(int f)
|
|
{
|
|
return f == DCOP::currentColumn || f == DCOP::currentRow || f == DCOP::insertColumn ||
|
|
f == DCOP::insertRow || f == DCOP::cellText || f == DCOP::setCellText || f == DCOP::setCellWidget || f == DCOP::cellWidget || f == DCOP::columnCount ||
|
|
f == DCOP::removeRow || f == DCOP::removeColumn || f == DCOP::setColumnCaption ||
|
|
f == DCOP::setRowCaption || f == DCOP::text || f == DCOP::setText || f == DCOP::selection || f == DCOP::tqgeometry || f == DCOP::hasFocus || f == DCOP::getBackgroundColor || f == DCOP::setBackgroundColor || (f >= FirstFunction && f <= LastFunction);
|
|
}
|
|
|
|
void Table::setCellWidget(int row, int col, const TQString & _widgetName)
|
|
{
|
|
KommanderWidget *w = widgetByName(_widgetName);
|
|
if (w)
|
|
{
|
|
TQWidget *widget = TQT_TQWIDGET(w->object());
|
|
if (TQTable::cellWidget(row, col) != widget)
|
|
{
|
|
setCurrentCell(-1, -1); //hack to not delete the cellwidget after clicking away to another cell.
|
|
//I don't know why it does so, but without this on a click to another cell calls endEdit, which calls
|
|
//clearCellWidget, all this before the currentChanged signal is emitted.
|
|
//this hack does ugly things once table starts scrolling - let's try to minize damage
|
|
//we should have a way to test doe cellWidget looses focus and send it right or down too
|
|
TQTable::ensureCellVisible(row, col);
|
|
clearCellWidget(row, col);
|
|
TQTable::setCellWidget(row, col, widget);
|
|
}
|
|
} else
|
|
clearCellWidget(row, col);
|
|
}
|
|
|
|
TQString Table::cellWidget(int row, int col)
|
|
{
|
|
|
|
TQWidget *widget = TQTable::cellWidget(row, col);
|
|
if (widget)
|
|
{
|
|
KommanderWidget *w = widgetByName(widget->name());
|
|
if (w)
|
|
return widget->name();
|
|
}
|
|
return TQString();
|
|
}
|
|
|
|
void Table::setCellText(int row, int col, const TQString& text)
|
|
{
|
|
TQWidget *widget = TQTable::cellWidget(row, col);
|
|
if (widget)
|
|
{
|
|
KommanderWidget *w = widgetByName(widget->name());
|
|
if (w)
|
|
widget->reparent(tqparentDialog(), TQPoint(0,0));
|
|
}
|
|
setText(row, col, text);
|
|
endEdit(row, col, false, false);
|
|
}
|
|
|
|
void Table::clearCellWidget(int row, int col)
|
|
{
|
|
TQTable::clearCellWidget(row, col); //just for debugging
|
|
}
|
|
|
|
void Table::contextMenuEvent( TQContextMenuEvent * e )
|
|
{
|
|
e->accept();
|
|
TQPoint p = e->globalPos();
|
|
emit contextMenuRequested(p.x(), p.y());
|
|
}
|
|
|
|
void Table::columnClicked(int col)
|
|
{
|
|
emit columnHeaderClicked(col);
|
|
static bool ascending = TRUE;
|
|
if (!sorting()) return;
|
|
ascending=!ascending;
|
|
sortColumn( col, ascending, TRUE);
|
|
}
|
|
|
|
TQString Table::handleDCOP(int function, const TQStringList& args)
|
|
{
|
|
switch (function)
|
|
{
|
|
case DCOP::cellText:
|
|
return text(args[0].toInt(), args[1].toInt());
|
|
case DCOP::setCellText:
|
|
if (numRows() >= args[0].toInt() && numCols() >+ args[1].toInt())
|
|
setCellText(args[0].toInt(), args[1].toInt(), args[2]);
|
|
break;
|
|
case DCOP::setCellWidget:
|
|
if (numRows() >= args[0].toInt() && numCols() >+ args[1].toInt())
|
|
setCellWidget(args[0].toInt(), args[1].toInt(), args[2]);
|
|
break;
|
|
case DCOP::cellWidget:
|
|
return cellWidget(args[0].toInt(), args[1].toInt());
|
|
break;
|
|
case DCOP::insertRow:
|
|
insertRows(args[0].toInt(), args.count() == 1 ? 1 : args[1].toInt());
|
|
break;
|
|
case DCOP::insertColumn:
|
|
insertColumns(args[0].toInt(), args.count() == 1 ? 1 : args[1].toInt());
|
|
break;
|
|
case DCOP::currentColumn:
|
|
return TQString::number(currentColumn());
|
|
case DCOP::currentRow:
|
|
return TQString::number(currentRow());
|
|
case DCOP::columnCount:
|
|
return TQString::number(numCols());
|
|
break;
|
|
case DCOP::removeColumn:
|
|
if (numCols() >= args[0].toInt())
|
|
{
|
|
if (!args[1].toInt())
|
|
removeColumn(args[0].toInt());
|
|
else
|
|
{
|
|
int column = args[0].toInt();
|
|
int lines = args[1].toInt();
|
|
for (int i = 0; i < lines; i++)
|
|
removeColumn(column);
|
|
}
|
|
break;
|
|
}
|
|
case TBL_rowCount:
|
|
return TQString::number(numRows());
|
|
break;
|
|
case DCOP::removeRow:
|
|
{
|
|
int row = args[0].toInt();
|
|
int lines = args[1].toInt();
|
|
for (int i = 0; i < lines; i++)
|
|
removeRow(row);
|
|
break;
|
|
}
|
|
case DCOP::setColumnCaption:
|
|
if (numCols() >= args[0].toInt())
|
|
horizontalHeader()->setLabel(args[0].toInt(), args[1]);
|
|
break;
|
|
case DCOP::setRowCaption:
|
|
if (numRows() >= args[0].toInt())
|
|
verticalHeader()->setLabel(args[0].toInt(), args[1]);
|
|
break;
|
|
case DCOP::text:
|
|
{
|
|
TQString rows;
|
|
for (int r = 0; r < numRows(); r++)
|
|
{
|
|
TQString row;
|
|
for (int c = 0; c < numCols(); c++)
|
|
{
|
|
if (c)
|
|
row += '\t';
|
|
row += text(r,c);
|
|
}
|
|
if (r)
|
|
rows += '\n';
|
|
rows += row;
|
|
}
|
|
return rows;
|
|
}
|
|
case DCOP::setText:
|
|
{
|
|
int r = 0, c = 0;
|
|
setNumCols(0);
|
|
setNumRows(0);
|
|
TQStringList rows;
|
|
TQStringList row;
|
|
rows = TQStringList::split("\n", args[0], true);
|
|
setNumRows(rows.count());
|
|
for (TQStringList::Iterator it = rows.begin(); it != rows.end(); ++it, ++r)
|
|
{
|
|
row = TQStringList::split("\t", *it, true);
|
|
if (!r)
|
|
setNumCols(row.count());
|
|
c = 0;
|
|
for (TQStringList::Iterator itr = row.begin(); itr != row.end(); ++itr, ++c)
|
|
setText(r, c, *itr);
|
|
}
|
|
break;
|
|
}
|
|
case DCOP::selection:
|
|
return selectedArea();
|
|
break;
|
|
case DCOP::getBackgroundColor:
|
|
return this->paletteBackgroundColor().name();
|
|
break;
|
|
case DCOP::setBackgroundColor:
|
|
{
|
|
TQColor color;
|
|
color.setNamedColor(args[0]);
|
|
this->setPaletteBackgroundColor(color);
|
|
break;
|
|
}
|
|
case TBL_sortColumnExtra:
|
|
if (numCols() >= args[0].toInt())
|
|
TQTable::sortColumn(args[0].toInt(), args[1].toInt(), args[2].toInt());
|
|
break;
|
|
case TBL_keepCellVisible:
|
|
if (numRows() >= args[0].toInt() && numCols() >+ args[1].toInt())
|
|
TQTable::ensureCellVisible(args[0].toInt()-1, args[1].toInt()-1);
|
|
break;
|
|
case TBL_selectCells:
|
|
if (numRows() >= args[0].toInt() && numCols() >+ args[1].toInt() && numRows() >= args[2].toInt() && numCols() >+ args[3].toInt())
|
|
TQTable::selectCells (args[0].toInt(), args[1].toInt(), args[2].toInt(), args[3].toInt());
|
|
break;
|
|
case TBL_selectRow:
|
|
if (numRows() >= args[0].toInt())
|
|
TQTable::selectRow (args[0].toInt());
|
|
break;
|
|
case TBL_selectColumn:
|
|
if (numCols() >= args[0].toInt())
|
|
TQTable::selectColumn (args[0].toInt());
|
|
break;
|
|
case TBL_setColumnReadOnly:
|
|
if (numCols() >= args[0].toInt())
|
|
TQTable::setColumnReadOnly (args[0].toInt(), args[1].toUInt());
|
|
break;
|
|
case TBL_setRowReadOnly:
|
|
if (numRows() >= args[0].toInt())
|
|
TQTable::setRowReadOnly (args[0].toInt(), args[1].toUInt());
|
|
break;
|
|
case TBL_colHeader:
|
|
{
|
|
TQHeader* hdr = TQTable::horizontalHeader();
|
|
if (numCols() >= args[0].toInt())
|
|
return hdr->label(args[0].toInt());
|
|
else
|
|
return "No column at index "+args[0];
|
|
break;
|
|
}
|
|
case TBL_rowHeader:
|
|
{
|
|
TQHeader* hdr = TQTable::verticalHeader();
|
|
if (numRows() >= args[0].toInt())
|
|
return hdr->label(args[0].toInt());
|
|
else
|
|
return "No row at index "+args[0];
|
|
break;
|
|
}
|
|
case DCOP::tqgeometry:
|
|
{
|
|
TQString geo = TQString::number(this->x())+" "+TQString::number(this->y())+" "+TQString::number(this->width())+" "+TQString::number(this->height());
|
|
return geo;
|
|
break;
|
|
}
|
|
case DCOP::hasFocus:
|
|
return TQString::number(this->hasFocus());
|
|
break;
|
|
default:
|
|
return KommanderWidget::handleDCOP(function, args);
|
|
}
|
|
return TQString();
|
|
}
|
|
|
|
#include "table.moc"
|
|
|