KSG-Script/ksgScript/Klassen/KSGSTextFeld.cpp

#include "KSGSTextFeld.h"
#include "KSGSTyp.h"
#include "../Error/Error.h"
#include "KSGSBool.h"
#include "KSGSText.h"
#include "KSGSBild.h"
#include "KSGSInt.h"
#include "KSGSBool.h"
#include "../Main/KSGScriptObj.h"
#include "KSGSMausEreignis.h"
#include "KSGSTastaturEreignis.h"
#include <ToolTip.h>

using namespace KSGScript;

// Inhalt der KSGSTextFeldKlasse Klasse aus KSGSTextFeld.h
// Konstruktor
KSGSTextFeldKlasse::KSGSTextFeldKlasse( KSGScriptProcessor *zObj, TextFeld *std )
    : KSGSKlasseInstanz( KSGS_TEXTFELD, 0, 0, zObj )
{
    val = std;
    mausF = -1;
    tastaturF = -1;
    val->setMausEreignisParameter( this );
    val->setMausEreignis( ksgsTextFeldME );
    val->setTastaturEreignisParameter( this );
    val->setTastaturEreignis( ksgsTextFeldTE );
    if( zObj->zSchrift() )
        val->setSchriftZ( (Schrift *)zObj->zSchrift()->getThis() );
}

// Destruktor
KSGSTextFeldKlasse::~KSGSTextFeldKlasse()
{
    val->release();
}

// nicht constant
KSGSVariable *KSGSTextFeldKlasse::startFunktion( int id, bool access, RCArray< KSGSVariable > *parameter )
{
    KSGSVariable *ret = 0;
    switch( id )
    {
    case 0: // void setText( Text )
        if( parameter->getEintragAnzahl() < 1 )
            error( 20, {}, obj );
        val->setText( parameter->z( 0 ) ? parameter->z( 0 )->getText() : new Text() );
        break;
    case 1: // void addZeile( Text )
        if( 1 )
        {
            if( parameter->getEintragAnzahl() < 1 )
                error( 20, {}, obj );
            Text *txt = parameter->z( 0 ) ? parameter->z( 0 )->getText() : new Text();
            val->addZeile( *txt );
            txt->release();
        }
        break;
    case 2: // void setAuswahl( int, int )
        if( parameter->getEintragAnzahl() < 2 )
            error( 20, {}, obj );
        val->setAuswahl( parameter->z( 0 ) ? parameter->z( 0 )->getInt() : 0,
                         parameter->z( 1 ) ? parameter->z( 1 )->getInt() : 0 );
        break;
    case 3: // void setHintergrundBild( Bild )
        if( parameter->getEintragAnzahl() < 1 )
            error( 20, {}, obj );
        val->setHintergrundBildZ( parameter->z( 0 ) ? parameter->z( 0 )->getBild() : 0 );
        break;
    case 4: // void setHintergrundFarbe( int )
        if( parameter->getEintragAnzahl() < 1 )
            error( 20, {}, obj );
        val->setHintergrundFarbe( parameter->z( 0 ) ? parameter->z( 0 )->getInt() : 0 );
        break;
    case 5: // void setSchriftGröße( int )
        if( parameter->getEintragAnzahl() < 1 )
            error( 20, {}, obj );
        val->setSchriftSize( parameter->z( 0 ) ? parameter->z( 0 )->getInt() : 0 );
        break;
    case 6: // void setSchriftFarbe( int )
        if( parameter->getEintragAnzahl() < 1 )
            error( 20, {}, obj );
        val->setSchriftFarbe( parameter->z( 0 ) ? parameter->z( 0 )->getInt() : 0 );
        break;
    case 7: // void setAFStärke( int )
        if( parameter->getEintragAnzahl() < 1 )
            error( 20, {}, obj );
        val->setAlphaFeldStrength( parameter->z( 0 ) ? parameter->z( 0 )->getInt() : 0 );
        break;
    case 8: // void setAFFarbe( int )
        if( parameter->getEintragAnzahl() < 1 )
            error( 20, {}, obj );
        val->setAlphaFeldFarbe( parameter->z( 0 ) ? parameter->z( 0 )->getInt() : 0 );
        break;
    case 9: // void setLRBreite( int )
        if( parameter->getEintragAnzahl() < 1 )
            error( 20, {}, obj );
        val->setRahmenBreite( parameter->z( 0 ) ? parameter->z( 0 )->getInt() : 0 );
        break;
    case 10: // void setLRFarbe( int )
        if( parameter->getEintragAnzahl() < 1 )
            error( 20, {}, obj );
        val->setRahmenFarbe( parameter->z( 0 ) ? parameter->z( 0 )->getInt() : 0 );
        break;
    case 11: // void setShowChar( int )
        if( parameter->getEintragAnzahl() < 1 )
            error( 20, {}, obj );
        val->setSchowChar( (char)( parameter->z( 0 ) ? parameter->z( 0 )->getInt() : 0 ) );
        break;
    case 12: // void setVKlickScroll( int )
        if( parameter->getEintragAnzahl() < 1 )
            error( 20, {}, obj );
        val->setVertikalKlickScroll( parameter->z( 0 ) ? parameter->z( 0 )->getInt() : 0 );
        break;
    case 13: // void setVScrollPos( int )
        if( parameter->getEintragAnzahl() < 1 )
            error( 20, {}, obj );
        val->setVertikalScrollPos( parameter->z( 0 ) ? parameter->z( 0 )->getInt() : 0 );
        break;
    case 14: // void setVScrollZuZeile( int )
        if( parameter->getEintragAnzahl() < 1 )
            error( 20, {}, obj );
        val->setVScrollZuZeile( parameter->z( 0 ) ? parameter->z( 0 )->getInt() : 0 );
        break;
    case 15: // void updateVScroll()
        val->updateVScroll();
        break;
    case 16: // void setStyle( int )
        if( parameter->getEintragAnzahl() < 1 )
            error( 20, {}, obj );
        val->setStyle( parameter->z( 0 ) ? parameter->z( 0 )->getInt() : 0 );
        break;
    case 17: // void addStyle( int )
        if( parameter->getEintragAnzahl() < 1 )
            error( 20, {}, obj );
        val->addStyle( parameter->z( 0 ) ? parameter->z( 0 )->getInt() : 0 );
        break;
    case 18: // void löscheStyle( int )
        if( parameter->getEintragAnzahl() < 1 )
            error( 20, {}, obj );
        val->removeStyle( parameter->z( 0 ) ? parameter->z( 0 )->getInt() : 0 );
        break;
    case 19: // bool tick( double )
        if( parameter->getEintragAnzahl() < 1 )
            error( 20, {}, obj );
        ret = new KSGSBoolKlasse( obj, val->tick( parameter->z( 0 ) ? parameter->z( 0 )->getDouble() : 0 ) );
        break;
    case 20: // void setMausEreignis( Text )
        if( 1 )
        {
            if( parameter->getEintragAnzahl() < 1 )
                error( 20, {}, obj );
            Text *n = parameter->z( 0 ) ? parameter->z( 0 )->getText() : 0;
            if( n )
            {
                mausF = obj->getFunktionId( *n );
                n->release();
            }
            else
                mausF = -1;
        }
        break;
    case 21: // void setTastaturEreignis( Text )
        if( 1 )
        {
            if( parameter->getEintragAnzahl() < 1 )
                error( 20, {}, obj );
            Text *n = parameter->z( 0 ) ? parameter->z( 0 )->getText() : 0;
            if( n )
            {
                tastaturF = obj->getFunktionId( *n );
                n->release();
            }
            else
                tastaturF = -1;
        }
        break;
    case 22: // void doMausEreignis( MausEreignis )
        if( 1 )
        {
            if( parameter->getEintragAnzahl() < 1 )
                error( 20, {}, obj );
            MausEreignis me = parameter->z( 0 ) ? parameter->z( 0 )->getMausEreignis() : MausEreignis{ 0, 0, 0, 0, 1, 0, 0 };
            val->doPublicMausEreignis( me );
        }
        break;
    case 23: // void doTastaturEreignis( TastaturEreignis )
        if( 1 )
        {
            if( parameter->getEintragAnzahl() < 1 )
                error( 20, {}, obj );
            TastaturEreignis te = parameter->z( 0 ) ? parameter->z( 0 )->getTastaturEreignis() : TastaturEreignis{ 0, 0, 0 };
            val->doTastaturEreignis( te );
        }
        break;
    case 24: // void render( int, int, Bild )
        if( 1 )
        {
            if( parameter->getEintragAnzahl() < 1 )
                error( 20, {}, obj );
            Bild *b = parameter->z( 0 ) ? parameter->z( 0 )->getBild() : 0;
            if( b )
            {
                val->render( *b );
                b->release();
            }
        }
        break;
    case 25: // Text getText()
        if( 1 )
        {
            Text *txt = val->getText();
            ret = new KSGSTextKlasse( obj, *txt );
            txt->release();
        }
        break;
    case 26: // Bild getHintergrundBild()
        if( val->zHintergrundBild() )
            ret = new KSGSBildKlasse( obj, val->getHintergrundBild() );
        break;
    case 27: // int getHintergrundFarbe()
        ret = new KSGSIntKlasse( obj, val->getHintergrundFarbe() );
        break;
    case 28: // int getSchriftGröße()
        ret = new KSGSIntKlasse( obj, val->getSchriftSize() );
        break;
    case 29: // int getSchriftFarbe()
        ret = new KSGSIntKlasse( obj, val->getSchriftFarbe() );
        break;
    case 30: // int getAFStärke()
        ret = new KSGSIntKlasse( obj, val->getAlphaFeldStrength() );
        break;
    case 31: // int getAFFarbe()
        ret = new KSGSIntKlasse( obj, val->getAlphaFeldFarbe() );
        break;
    case 32: // int getLRBreite()
        ret = new KSGSIntKlasse( obj, val->getRahmenBreite() );
        break;
    case 33: // int getLRFarbe()
        ret = new KSGSIntKlasse( obj, val->getRahmenFarbe() );
        break;
    case 34: // int getShowChar()
        ret = new KSGSIntKlasse( obj, val->getShowChar() );
        break;
    case 35: // bool hatStyle( int )
        if( parameter->getEintragAnzahl() < 1 )
            error( 20, {}, obj );
        ret = new KSGSBoolKlasse( obj, val->hatStyle( parameter->z( 0 ) ? parameter->z( 0 )->getInt() : 0 ) );
        break;
    case 36: // bool hatStyleNicht( int )
        if( parameter->getEintragAnzahl() < 1 )
            error( 20, {}, obj );
        ret = new KSGSBoolKlasse( obj, val->hatStyleNicht( parameter->z( 0 ) ? parameter->z( 0 )->getInt() : 0 ) );
        break;
    case 37: // TextFeld dublizieren()
        ret = new KSGSTextFeldKlasse( obj, (TextFeld *)val->dublizieren() );
        break;
    case 38: // void setToolTipText( Text )
        if( 1 )
        {
            if( parameter->getEintragAnzahl() < 1 )
                error( 20, {}, obj );
            Text *txt = parameter->z( 0 ) ? parameter->z( 0 )->getText() : 0;
            val->setToolTipText( txt ? *txt : 0, obj->zBildschirm(), obj->zSchrift() );
            if( txt )
                txt->release();
        }
        break;
    case 39: // void setPosition( int, int )
        if( parameter->getEintragAnzahl() < 2 )
            error( 20, {}, obj );
        val->setPosition( parameter->z( 0 ) ? parameter->z( 0 )->getInt() : 0,
                          parameter->z( 1 ) ? parameter->z( 1 )->getInt() : 0 );
        break;
    case 40: // void setGröße( int, int )
        if( parameter->getEintragAnzahl() < 2 )
            error( 20, {}, obj );
        val->setSize( parameter->z( 0 ) ? parameter->z( 0 )->getInt() : 0,
                      parameter->z( 1 ) ? parameter->z( 1 )->getInt() : 0 );
        break;
    case 41: // int getBreite()
        ret = new KSGSIntKlasse( obj, val->getBreite() );
        break;
    case 42: // int getHöhe()
        ret = new KSGSIntKlasse( obj, val->getHeight() );
        break;
    case 43: // int getX()
        ret = new KSGSIntKlasse( obj, val->getX() );
        break;
    case 44: // int getY()
        ret = new KSGSIntKlasse( obj, val->getY() );
        break;
    case 45: // void setGrößeNachText()
        if( 1 )
        {
            TextRenderer *t = val->zTextRenderer();
            if( t )
            {
                t->setSchriftSize( val->getSchriftSize() );
                val->setSize( t->getTextBreite( val->zText()->getText() ), t->getTextHeight( val->zText()->getText() ) );
            }
        }
        break;
    case 46: // void setTextNachGröße()
        if( 1 )
        {
            TextRenderer *t = val->zTextRenderer();
            if( t )
            {
                t->setSchriftSize( val->getSchriftSize() );
                t->textFormatieren( val->zText(), val->getBreite() );
            }
        }
        break;
    default: // unbekannt
        error( 19, {}, obj );
        break;
    }
    parameter->release();
    return ret;
}

KSGSVariable *KSGSTextFeldKlasse::doOperator( int id, KSGSVariable *rechts )
{
    if( !rechts )
    {
        error( 3, {}, obj );
        return 0;
    }
    KSGSVariable *ret = 0;
    switch( id )
    {
    case KSGS_O_SET:
        if( 1 )
        {
            val->release();
            val = rechts->getTextFeld();
            ret = (KSGSVariable *)getThis();
        }
        break;
    }
    if( !ret )
        error( 21, {}, obj );
    if( rechts )
        rechts->release();
    return ret;
}

bool KSGSTextFeldKlasse::doMausEreignis( MausEreignis &me )
{
    if( mausF < 0 )
        return 1;
    RCArray< KSGSVariable > *parameter = new RCArray< KSGSVariable >();
    parameter->add( new KSGSMausEreignisKlasse( obj, me ) );
    KSGSVariable *ret = obj->startFunktion( mausF, parameter );
    if( ret )
    {
        bool r = ret->getBool();
        ret->release();
        return r;
    }
    return 1;
}

bool KSGSTextFeldKlasse::doTastaturEreignis( TastaturEreignis &te )
{
    if( tastaturF < 0 )
        return 1;
    RCArray< KSGSVariable > *parameter = new RCArray< KSGSVariable >();
    parameter->add( new KSGSTastaturEreignisKlasse( obj, te ) );
    KSGSVariable *ret = obj->startFunktion( tastaturF, parameter );
    if( ret )
    {
        bool r = ret->getBool();
        ret->release();
        return r;
    }
    return 1;
}

// constant
TextFeld *KSGSTextFeldKlasse::getVal() const
{
    return (TextFeld *)val->getThis();
}

TextFeld *KSGSTextFeldKlasse::zVal() const
{
    return val;
}


// Ereignisse
bool KSGScript::ksgsTextFeldME( void *var, void *obj, MausEreignis me )
{
    if( !var )
        return 1;
    return ( (KSGSTextFeldKlasse *)var )->doMausEreignis( me );
}

bool KSGScript::ksgsTextFeldTE( void *var, void *obj, TastaturEreignis te )
{
    if( !var )
        return 1;
    return ( (KSGSTextFeldKlasse *)var )->doTastaturEreignis( te );
}