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?

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;