Benötige Hilfe beim Entwickeln einer Komponente

[Alter Mann]

Hi torud,

zum zentrierten Text:

Nehme für 'TLayout' TTextLayout aus der Unit StdCtrls, einfach in den Uses-Abschnitt aufnehmen.

Dann fügst Du diesen Teil von oki's code ein:

Zitat:

case TextAlign of
taCenter : myAlignment := DT_CENTER;
taLeftJustify : myAlignment := DT_LEFT;
taRightJustify : myAlignment := DT_RIGHT;
end;

IF FWordWrap then myAlignment := myAlignment or DT_WORDBREAK;

Dann lesen wir in der Hilfe nach was da zu den Flags von DrawText steht -> DT_CALCRECT
und nutzen es auch gleich um uns über OffsetRect schlau zu machen.

Nach der Lektüre ergänzen wir den Code um folgende Passage:

Delphi-Quellcode:

    if FLayout <> tlTop then
    begin
      CalcRect := TextRect;
      DrawText(Canvas.Handle, PChar(FText), -1, CalcRect, myAlignment or DT_CALCRECT);
      if FLayout = tlBottom then OffsetRect(TextRect, 0, Height - CalcRect.Bottom)
                            else OffsetRect(TextRect, 0, (Height - CalcRect.Bottom) div 2);
    end;
    DrawText(Canvas.Handle, PChar(FText), -1, TextRect, myAlignment);

Was passiert:
Durch den Aufruf von 'DrawText(..., CalcRect, myAlignment or DT_CALCRECT)' wird die Weite und
Höhe des Textes berechnet und in CalcRect zurückgegeben.
Anschließend wird mit 'OffsetRect' das TextRect so verschoben, dass der Text entsprechend der
Layoutvorgabe mittels DrawText ausgegeben werden kann.

Das war es.

Gruß