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...
