Benötige Hilfe beim Entwickeln einer Komponente

[torud]

Hello Again,

darf ich Euch nochmals um Rat bitten?

Ich würde nun gern die Ausrichtung des Textes als Eigenschaft verpacken und habe nun folgendes gemacht:

Delphi-Quellcode:

  private
    .....
    procedure SetText(Content : String);
    procedure SetTextAlign(Alignment : Cardinal);
  published
    .....
    property Text : String read FText   write SetText;
    property TextAlign : Cardinal read FTextAlign   write SetTextAlign;

procedure TmyPanel.SetTextAlign(Alignment : Cardinal);  // Settermethode
begin
  If Alignment = FTextAlign then Exit;  // wenn gleicher Inhalt nichts tun
  FTextAlign := Alignment;              // Inhalt abspeichern
  Invalidate;                           // Control neu zeichnen
end;

    DrawText(self.Canvas.Handle, PChar(FText), -1, TextRect,
             DT_VCENTER or DT_VCENTER or DT_WORDBREAK);

Meine Frage lautet nun, wie kann ich das Ganze sinnvoll kombinieren? Bzw. was soll ich als Eigenschaftsvorgabewert für das Alignment benutzen? Kann ich die Cardinals, die für DrawText vorgegeben sind einfach durchreichen? Wenn ja wie? Oder muss ich mir eigene Eigenschaften schaffen, die ich dann übersetze?

Also mit:
  TalText = (alLeft, alTop, alBottom, alRight, alTopLeft); Und dann müsste ich wohl aus alLeft DT_Left machen?! Aber in der Routine werden Möglichkeiten angeboten. Also wie könnte ich das jetzt sinvoll gestalten, denn ich will natürlich mehrere Möglichkeiten der Textausrichtung haben...Das versteht ihr doch...Oder...