[BCB] TShiftState met C++ hoe?

[WarMaster]

Bij sommige events krijg je een TShiftState mee als argument.

De TShiftState is in de classes.hpp gedefinieerd als volgt:

C++:

#pragma option push -b-
enum Classes__1 { ssShift, ssAlt, ssCtrl, ssLeft, ssRight, ssMiddle, ssDouble };
#pragma option pop

typedef Set<Classes__1, ssShift, ssDouble>  TShiftState;  

Nu is het probleem dat bij een event oid, je de ShiftState niet kan benaderen als een fatsoenlijk type...

C++:

void __fastcall TfrmMyICQClient::ListView1MouseDown(TObject *Sender,
      TMouseButton Button, TShiftState Shift, int X, int Y)
{

        if (Shift== iets) DoSomething();

}

Alle andere Types kan je in principe gewoon overnemen en uitlezen, maar bij ShiftStates dus niet.

Nu zit het probleem in de Set<Type, MinVal, MaxVal> <NewType>
Het is iets van een Delphi Object Pascal gebeuren.
Als ik het uit de Classes.hpp verwijder en vervang met

C++:

typedef Classes__1 TShiftState;

dan werkt de Shift wel, en kan ik hem benaderen als een int.

Echter ben ik hier erg huiverig voor, want ik rotzooi niet graag in de headers.
Heeft iemand hier een nuttige opmerking over?

Ik heb gezien dat je in Object Pascal de ShiftState wel gewoon met een if kan benaderen.

[whoami]

Shiftstate is dus een set.
Kijk eens in de help, naar informatie over sets.

Hoe je items toevoegt aan een set, hoe je kijkt welke waarden er in een set zitten:

code:

TShiftState t;
t << ssAlt;
if( t in [ssAlt] )
{
}

Zoiets, als ik me nog goed herinner.

[WarMaster]

Dat is toch pascal met die brackets om de ssAlt?
Ik krijg het zo niets aan de praat...

Ik heb nu:

C++:

void __fastcall TfrmForm1::ListView1MouseDown(TObject *Sender,
      TMouseButton Button, TShiftState Shift, int X, int Y)
{

        Shift << ssAlt;
        if(Shift in [ssAlt]) ShowMessage("Alt");

}

Met als errors:

- Illegal structure operation
- If Statement missing

[ Voor 4% gewijzigd door WarMaster op 28-11-2002 16:46 ]

[curry684]

Ja hallo lees de help eens.

C++:

void __fastcall TfrmForm1::ListView1MouseDown(TObject *Sender,
      TMouseButton Button, TShiftState Shift, int X, int Y)
{
        Shift << ssAlt;
        if(Shift.Contains(ssAlt))   ShowMessage("Alt");
}

[ Voor 6% gewijzigd door curry684 op 28-11-2002 16:39 . Reden: Bug in React.... ]

[curry684]

Even nagekeken, en in de online help van TShiftState staat een link naar de definitie van Set, waarbij het volgende Example aan te klikken is:

C++:

#include <iostream>

#include <system.hpp>

using namespace std;

typedef Set<char,'U','Z'> UpperSet;
typedef Set<char,'a','z'> LowerSet;
typedef Set<char,'a','j'> HalfLowerSet;

void set_example()
{
LowerSet ae, ae2, ac, de;
UpperSet AE, AE2, AC, DE;
HalfLowerSet aj;

// Both of these are false. Sets are empty until members are added.
cout <<"Set ae " << (ae.Contains('a')?"does":"does not") << " contain 'a' " << endl;
cout <<"Set AE " << (AE.Contains('C')?"does":"does not") << " contain 'C' " << endl;

ae  << 'a' << 'b' << 'c' << 'd' << 'e';
ae2 << 'a' << 'b' << 'c' << 'd' << 'e';
ac  << 'a' << 'b' << 'c';
de  << 'd' << 'e';
aj  << 'd' << 'e';
DE  << 'D' << 'E';

cout <<"Now, set ae " << (ae.Contains('a')?"does":"does not") << " contain 'a' " << endl;

/***
 Compile-time error! Although sets 'de' and 'aj' contain the same members, 
  they are different types of sets and cannot be compared.
****/
//cout << (de==aj?" == ":" != ") << endl;

// Sets support operations * (intersection),+ (union) and - (difference).

cout << "Set ae " << (ae==(ac+de)?" == ":" != ") << "set ac + de." << endl;
cout << "Set de " << (de==(ae-ac)?" == ":" != ") << "set ae - ac." << endl;

// Clear member function
cout << "Set ae2: " << ae2 << endl;
ae2.Clear();
cout << "Set ae2: " << ae2 << " after ae2.Clear()" << endl;

// Sets also support operations *= (intersection),+= (union) and -= (difference).
ae2+=ac;
cout << "Union ae2+=ac: Set ae2 " << (ae2==ac?" == ":" != ") << "set ac." << endl;
ae2+=de;

cout << "Union ae2+=de: Set ae2 " << (ae2==ae?" == ":" != ") << "set ae." << endl;
ae2-=ac;
cout << "Difference ae2-=ac: Set ae2 " << (ae2==de?" == ":" != ") << "set de." << endl;
}

int main()
{
    set_example();

return 0;
}

I mean, daar staat alle mogelijke functionaliteit in. Not to mention dat je bij Set op 'Methods' kunt klikken om alle mogelijkheden te vinden.

[ Voor 32% gewijzigd door curry684 op 28-11-2002 16:43 . Reden: Readability ]

[WarMaster]

Ja daar zit ik al een dag of 3 op te staren...

Ik word altijd een beetje scheel van de << en >> operators...

[ Voor 42% gewijzigd door WarMaster op 28-11-2002 16:45 ]

[curry684]

Erm, het staat daar... nog net niet in hoofdletters omdat de compiler het anders niet zou snappen.

[WarMaster]

Bedankt voor je hulp en je sarcasme.. maar ja.. we zijn niet allemaal geniaal hè?

Waar kan je überhaupt zien wat de members zijn van TShiftState?
Of überhaupt een object?!

Er staat wel een lijst met Methods met de o.a. de == operator.. maar als ik die gebruikte, kreeg ik de melding dat het geen member was...

[ Voor 30% gewijzigd door WarMaster op 28-11-2002 16:55 ]

[curry684]

WarMaster schreef op 28 november 2002 @ 16:53:
Bedankt voor je hulp en je sarcasme.. maar ja.. we zijn niet allemaal geniaal hè?

Jammer genoeg niet, zou me een hoop werk schelen.

Waar kan je überhaupt zien wat de members zijn van TShiftState?
Of überhaupt een object?!

Er staat wel een lijst met Methods met de o.a. de == operator.. maar als ik die gebruikte, kreeg ik de melding dat het geen member was...

Nou dan klik je op de entry 'operator==' en dan zie je:

Compares two Set objects for equality.

code:

bool __fastcall operator ==(const Set& rhs) const;

Description
The == operator returns true if the two Set objects contain the same elements, false otherwise.

Need I say more?

[WarMaster]

curry684 schreef op 28 November 2002 @ 16:57:
[...]

Jammer genoeg niet, zou me een hoop werk schelen.

Niemand verplicht je om te helpen/antwoorden...

[...]

Nou dan klik je op de entry 'operator==' en dan zie je:

[...]

Need I say more?

Ja helaas volg ik het niet heelmaal.
Ik weet niet of ik eerst die operator moet aanmaken of overloaden of whatever...

Maar doet er nu ook niet meer toe...

[curry684]

WarMaster schreef op 28 November 2002 @ 17:05:
Niemand verplicht je om te helpen/antwoorden...

Niet te hard happen

* curry684 is best knuffelbaar.

[Verwijderd]

Maar je kunt dus in elk geval zoals curry684 zegt toch i.p.v.
if (Shift== iets) DoSomething();

dit doen:
if (Shift.contains(iets)) DoSomething();

Of volstaat dat niet?

edit:
Dat had je dus al begrepen...

[ Voor 11% gewijzigd door Verwijderd op 02-12-2002 17:44 ]

[WarMaster]

curry684 schreef op 28 november 2002 @ 17:13:
[...]

Niet te hard happen

* curry684 is best knuffelbaar.

ok... aai over de bol, allebij weer lief
Bij deze ook hartelijk bedankt...

Verwijderd schreef op 28 November 2002 @ 17:15:
Maar je kunt dus in elk geval zoals curry684 zegt toch i.p.v.
if (Shift== iets) DoSomething();

dit doen:
if (Shift.contains(iets)) DoSomething();

Of volstaat dat niet?

oooooooohkeeeeeeee, zo ver was ik al een tijdje

[ Voor 48% gewijzigd door WarMaster op 28-11-2002 17:20 ]