if taRight in Aligns then begin TempExtent.CX := ARect.Right - J; TempExtent.CY := Y + Ceil((TempExtent.CX - X ) * Tan(-Direction * Pi / 180)); end else if taHorzCenter in Aligns then begin TempExtent.CX := (ARect.Right + ARect.Left - J) shr 1; TempExtent.CY := Y + Ceil((TempExtent.CX - X ) * Tan(-Direction * Pi / 180)); end else {if taLeft in Aligns then} begin TempExtent.CX := ARect.Left + 2; TempExtent.CY := Y; end; if DitheredFlag then DrawDitheredText(TempExtent.CX,TempExtent.CY,Texts[I]) else begin //Windows.ExtTextOut(ACanvas.Handle,0,0,ETO_OPAQUE,@ARect, Nil,0,Nil); Windows.ExtTextOut(ACanvas.Handle, TempExtent.CX, TempExtent.CY,{ETO_OPAQUE or} ETO_CLIPPED, @ARect, PChar(Texts[I]), Length(Texts[I]),Nil); end; Inc(Y,Interval); end; end; end; // ACanvas.Brush.Style := OldBrushStyle; end;