GetTextAlign TA_LEFT=TA_TOP?

**Bomberbb**

Irgendwie hab ich nich ganz geschnallt, wie bekomme ich die Textausrichtungen raus? Ich hab folgende Funktion:

Code:

			function inTextAlign(inValue:Byte):Byte;

Begin

  Result:=ord(fOwner.fTextalign and inValue = inValue);

End;

Nun hat aber doch TA_LEFT den gleichen Wert wie TA_TOP, dementsprechend kann meine Funtion so nicht funktionieren.
Muss ich alle andern Konstanten der Ausrichtung abfragen und kann dann erst auf die Ausrichtung schließen?

Keine Ahnung warum TA_LEFT=TA_TOP???

Mit Hoffe auf Hilfe

BBB

edit:
kann ich das nur so lösen?

markieren

Code:

			  Function inTextAlignV(inValue: Byte): Byte;

  Begin

    If inValue = TA_TOP Then

      Result := ord((fOwner.fTextalign And TA_BOTTOM <> TA_BOTTOM) And (fOwner.fTextalign And TA_BASELINE <> TA_BASELINE))

    Else

      Result := ord(fOwner.fTextalign And inValue = inValue);

  End;

  Function inTextAlignH(inValue: Byte): Byte;

  Begin

    If inValue = TA_LEFT Then

      Result := ord((fOwner.fTextalign And TA_RIGHT <> TA_RIGHT) And (fOwner.fTextalign And TA_CENTER <> TA_CENTER))

    Else

      Result := ord(fOwner.fTextalign And inValue = inValue);

  End;

GetTextAlign TA_LEFT=TA_TOP?

GetTextAlign TA_LEFT=TA_TOP?

Forumregeln