gambas-source-code/gb.qt4/src/CProgress.cpp
Benoît Minisini 3df72165af [CONFIGURATION]
* NEW: The syntax of pkg-config detection macro has changed to better use 
  the pkg-config possibilities.

[DEVELOPMENT ENVIRONMENT]
* BUG: Correctly update .startup file when closing the project property 
  dialog.
* BUG: Don't crash when the debugger stops inside the form generated code.
* BUG: Update the project templates to the 3.0 syntax.

[GB.QTE]
* BUG: Make this component compile correctly.
* BUG: Remove the automake warning.

[GB.QT4]
* NEW: Upgrade to the new QT 4 syntax in many places.
* NEW: Menu class has been redesigned to use the new QAction class. Not 
  tested yet.
* NEW: Standard controls work better.


git-svn-id: svn://localhost/gambas/trunk@1344 867c0c6c-44f3-4631-809d-bfa615b0a4ec
2008-04-29 13:40:55 +00:00

122 lines
2.5 KiB
C++

/***************************************************************************
CProgress.cpp
(c) 2000-2007 Benoit Minisini <gambas@users.sourceforge.net>
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 1, or (at your option)
any later version.
This program 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 General Public License for more details.
You should have received a copy of the GNU General Public License
along with this program; if not, write to the Free Software
Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
***************************************************************************/
#define __CPROGRESS_CPP
#include <QProgressBar>
#include "gambas.h"
#include "CProgress.h"
BEGIN_METHOD(CPROGRESS_new, GB_OBJECT parent)
QProgressBar *wid = new QProgressBar(QCONTAINER(VARG(parent)));
wid->setMaximum(10000);
wid->setTextVisible(true);
CWIDGET_new(wid, (void *)_object);
END_METHOD
#if 0
BEGIN_PROPERTY(CPROGRESS_max)
if (READ_PROPERTY)
GB.ReturnInteger(WIDGET->totalSteps());
else
{
int max = PROPERTY(int);
if (max < 1 || max < WIDGET->progress())
{
GB.Error("Bad argument");
return;
}
WIDGET->setTotalSteps(max);
}
END_PROPERTY
#endif
BEGIN_PROPERTY(CPROGRESS_value)
if (READ_PROPERTY)
{
int pr = WIDGET->value();
GB.ReturnFloat(pr < 0 ? 0 : (double)pr / WIDGET->maximum());
}
else
{
double val = VPROP(GB_FLOAT);
if (val < 0)
WIDGET->reset();
else
{
if (val > 1)
val = 1;
WIDGET->setValue((int)(WIDGET->maximum() * val + 0.5));
}
}
END_PROPERTY
BEGIN_PROPERTY(CPROGRESS_label)
if (READ_PROPERTY)
GB.ReturnBoolean(WIDGET->isTextVisible());
else
WIDGET->setTextVisible(VPROP(GB_BOOLEAN));
END_PROPERTY
BEGIN_METHOD_VOID(CPROGRESS_reset)
WIDGET->reset();
END_METHOD
GB_DESC CProgressDesc[] =
{
GB_DECLARE("ProgressBar", sizeof(CPROGRESS)), GB_INHERITS("Control"),
GB_METHOD("_new", NULL, CPROGRESS_new, "(Parent)Container;"),
GB_PROPERTY("Value", "f", CPROGRESS_value),
GB_PROPERTY("Label", "b", CPROGRESS_label),
//GB_PROPERTY("Max", "i", CPROGRESS_max),
//GB_PROPERTY("Border", "i<Border>", CWIDGET_border),
GB_METHOD("Reset", NULL, CPROGRESS_reset, NULL),
PROGRESSBAR_DESCRIPTION,
GB_END_DECLARE
};