\documentclass{report}
\usepackage{hyperref}
% WARNING: THIS SHOULD BE MODIFIED DEPENDING ON THE LETTER/A4 SIZE
\oddsidemargin 0cm
\evensidemargin 0cm
\marginparsep 0cm
\marginparwidth 0cm
\parindent 0cm
\setlength{\textwidth}{\paperwidth}
\addtolength{\textwidth}{-2in}


% Conditional define to determine if pdf output is used
\newif\ifpdf
\ifx\pdfoutput\undefined
\pdffalse
\else
\pdfoutput=1
\pdftrue
\fi

\ifpdf
  \usepackage[pdftex]{graphicx}
\else
  \usepackage[dvips]{graphicx}
\fi

% Write Document information for pdflatex/pdftex
\ifpdf
\pdfinfo{
 /Author     (Pasdoc)
 /Title      ()
}
\fi


% definitons for warning and note tag
\usepackage[most]{tcolorbox}
\newtcolorbox{tcbwarning}{
 breakable,
 enhanced jigsaw,
 top=0pt,
 bottom=0pt,
 titlerule=0pt,
 bottomtitle=0pt,
 rightrule=0pt,
 toprule=0pt,
 bottomrule=0pt,
 colback=white,
 arc=0pt,
 outer arc=0pt,
 title style={white},
 fonttitle=\color{black}\bfseries,
 left=8pt,
 colframe=red,
 title={Warning:},
}
\newtcolorbox{tcbnote}{
 breakable,
 enhanced jigsaw,
 top=0pt,
 bottom=0pt,
 titlerule=0pt,
 bottomtitle=0pt,
 rightrule=0pt,
 toprule=0pt,
 bottomrule=0pt,
 colback=white,
 arc=0pt,
 outer arc=0pt,
 title style={white},
 fonttitle=\color{black}\bfseries,
 left=8pt,
 colframe=yellow,
 title={Note:},
}

\begin{document}
\label{toc}\tableofcontents
\newpage
% special variable used for calculating some widths.
\newlength{\tmplength}
\chapter{Unit ok{\_}type{\_}aliases}
\label{ok_type_aliases}
\index{ok{\_}type{\_}aliases}
\section{Overview}
\begin{description}
\item[\texttt{\begin{ttfamily}TOriginalType\end{ttfamily} Record}]TOriginalType abstract description
\item[\texttt{\begin{ttfamily}TOriginalType2\end{ttfamily} Record}]TOriginalType2 abstract description.
\item[\texttt{\begin{ttfamily}TOriginalType3\end{ttfamily} Record}]TOriginalType3 abstract description.
\item[\texttt{\begin{ttfamily}TMyClass\end{ttfamily} Class}]
\item[\texttt{\begin{ttfamily}TControls\end{ttfamily} Class}]
\item[\texttt{\begin{ttfamily}TMyContainer\end{ttfamily} Class}]This class manages a \begin{ttfamily}Controls\end{ttfamily}(\ref{ok_type_aliases.TMyContainer-Controls}) list.
\end{description}
\begin{description}
\item[\texttt{Test}]Also linking using @tags to arbitrary qualified type identifiers should work:

\begin{itemize}
\item \begin{ttfamily}TMyClass.TMyNestedClass.TAnotherNestedClass.TOriginalType\end{ttfamily}(\ref{ok_type_aliases.TMyClass-TMyNestedClass-TAnotherNestedClass-TOriginalType})
\item \begin{ttfamily}ok{\_}type{\_}aliases.TMyClass.TMyNestedClass.TAnotherNestedClass.TOriginalType\end{ttfamily}(\ref{ok_type_aliases.TMyClass-TMyNestedClass-TAnotherNestedClass-TOriginalType})
\item \begin{ttfamily}TMyClass.TMyNestedClass.TAnotherNestedClass\end{ttfamily}(\ref{ok_type_aliases.TMyClass-TMyNestedClass-TAnotherNestedClass})
\item \begin{ttfamily}ok{\_}type{\_}aliases.TMyClass.TMyNestedClass.TAnotherNestedClass\end{ttfamily}(\ref{ok_type_aliases.TMyClass-TMyNestedClass-TAnotherNestedClass})
\item \begin{ttfamily}TMyClass.TMyNestedClass\end{ttfamily}(\ref{ok_type_aliases.TMyClass-TMyNestedClass})
\item \begin{ttfamily}ok{\_}type{\_}aliases.TMyClass.TMyNestedClass\end{ttfamily}(\ref{ok_type_aliases.TMyClass-TMyNestedClass})
\item \begin{ttfamily}TMyClass\end{ttfamily}(\ref{ok_type_aliases.TMyClass})
\item \begin{ttfamily}ok{\_}type{\_}aliases.TMyClass\end{ttfamily}(\ref{ok_type_aliases.TMyClass})
\item \begin{ttfamily}ok{\_}type{\_}aliases\end{ttfamily}(\ref{ok_type_aliases})
\end{itemize}
\end{description}
\section{Classes, Interfaces, Objects and Records}
\ifpdf
\subsection*{\large{\textbf{TOriginalType Record}}\normalsize\hspace{1ex}\hrulefill}
\else
\subsection*{TOriginalType Record}
\fi
\label{ok_type_aliases.TOriginalType}
\index{TOriginalType}
\subsubsection*{\large{\textbf{Description}}\normalsize\hspace{1ex}\hfill}
TOriginalType abstract description\subsubsection*{\large{\textbf{Fields}}\normalsize\hspace{1ex}\hfill}
\begin{list}{}{
\settowidth{\tmplength}{\textbf{x}}
\setlength{\itemindent}{0cm}
\setlength{\listparindent}{0cm}
\setlength{\leftmargin}{\evensidemargin}
\addtolength{\leftmargin}{\tmplength}
\settowidth{\labelsep}{X}
\addtolength{\leftmargin}{\labelsep}
\setlength{\labelwidth}{\tmplength}
}
\label{ok_type_aliases.TOriginalType-x}
\index{x}
\item[\textbf{x}\hfill]
\ifpdf
\begin{flushleft}
\fi
\begin{ttfamily}
public x: integer \end{ttfamily}

\ifpdf
\end{flushleft}
\fi


\par  \label{ok_type_aliases.TOriginalType-y}
\index{y}
\item[\textbf{y}\hfill]
\ifpdf
\begin{flushleft}
\fi
\begin{ttfamily}
public y: integer \end{ttfamily}

\ifpdf
\end{flushleft}
\fi


\par  \end{list}
\ifpdf
\subsection*{\large{\textbf{TOriginalType2 Record}}\normalsize\hspace{1ex}\hrulefill}
\else
\subsection*{TOriginalType2 Record}
\fi
\label{ok_type_aliases.TOriginalType2}
\index{TOriginalType2}
\subsubsection*{\large{\textbf{Description}}\normalsize\hspace{1ex}\hfill}
TOriginalType2 abstract description.\hfill\vspace*{1ex}

 More and more description.\subsubsection*{\large{\textbf{Fields}}\normalsize\hspace{1ex}\hfill}
\begin{list}{}{
\settowidth{\tmplength}{\textbf{x}}
\setlength{\itemindent}{0cm}
\setlength{\listparindent}{0cm}
\setlength{\leftmargin}{\evensidemargin}
\addtolength{\leftmargin}{\tmplength}
\settowidth{\labelsep}{X}
\addtolength{\leftmargin}{\labelsep}
\setlength{\labelwidth}{\tmplength}
}
\label{ok_type_aliases.TOriginalType2-x}
\index{x}
\item[\textbf{x}\hfill]
\ifpdf
\begin{flushleft}
\fi
\begin{ttfamily}
public x: integer \end{ttfamily}

\ifpdf
\end{flushleft}
\fi


\par  \label{ok_type_aliases.TOriginalType2-y}
\index{y}
\item[\textbf{y}\hfill]
\ifpdf
\begin{flushleft}
\fi
\begin{ttfamily}
public y: integer \end{ttfamily}

\ifpdf
\end{flushleft}
\fi


\par  \end{list}
\ifpdf
\subsection*{\large{\textbf{TOriginalType3 Record}}\normalsize\hspace{1ex}\hrulefill}
\else
\subsection*{TOriginalType3 Record}
\fi
\label{ok_type_aliases.TOriginalType3}
\index{TOriginalType3}
\subsubsection*{\large{\textbf{Description}}\normalsize\hspace{1ex}\hfill}
TOriginalType3 abstract description.\hfill\vspace*{1ex}

 More and more description.\subsubsection*{\large{\textbf{Fields}}\normalsize\hspace{1ex}\hfill}
\begin{list}{}{
\settowidth{\tmplength}{\textbf{x}}
\setlength{\itemindent}{0cm}
\setlength{\listparindent}{0cm}
\setlength{\leftmargin}{\evensidemargin}
\addtolength{\leftmargin}{\tmplength}
\settowidth{\labelsep}{X}
\addtolength{\leftmargin}{\labelsep}
\setlength{\labelwidth}{\tmplength}
}
\label{ok_type_aliases.TOriginalType3-x}
\index{x}
\item[\textbf{x}\hfill]
\ifpdf
\begin{flushleft}
\fi
\begin{ttfamily}
public x: integer \end{ttfamily}

\ifpdf
\end{flushleft}
\fi


\par  \label{ok_type_aliases.TOriginalType3-y}
\index{y}
\item[\textbf{y}\hfill]
\ifpdf
\begin{flushleft}
\fi
\begin{ttfamily}
public y: integer \end{ttfamily}

\ifpdf
\end{flushleft}
\fi


\par  \end{list}
\ifpdf
\subsection*{\large{\textbf{TMyClass Class}}\normalsize\hspace{1ex}\hrulefill}
\else
\subsection*{TMyClass Class}
\fi
\label{ok_type_aliases.TMyClass}
\index{TMyClass}
\subsubsection*{\large{\textbf{Hierarchy}}\normalsize\hspace{1ex}\hfill}
TMyClass {$>$} TObject
%%%%Description
\ifpdf
\subsection*{\large{\textbf{TControls Class}}\normalsize\hspace{1ex}\hrulefill}
\else
\subsection*{TControls Class}
\fi
\label{ok_type_aliases.TControls}
\index{TControls}
\subsubsection*{\large{\textbf{Hierarchy}}\normalsize\hspace{1ex}\hfill}
TControls {$>$} TObject
%%%%Description
\ifpdf
\subsection*{\large{\textbf{TMyContainer Class}}\normalsize\hspace{1ex}\hrulefill}
\else
\subsection*{TMyContainer Class}
\fi
\label{ok_type_aliases.TMyContainer}
\index{TMyContainer}
\subsubsection*{\large{\textbf{Hierarchy}}\normalsize\hspace{1ex}\hfill}
TMyContainer {$>$} TObject
\subsubsection*{\large{\textbf{Description}}\normalsize\hspace{1ex}\hfill}
This class manages a \begin{ttfamily}Controls\end{ttfamily}(\ref{ok_type_aliases.TMyContainer-Controls}) list.\subsubsection*{\large{\textbf{Properties}}\normalsize\hspace{1ex}\hfill}
\begin{list}{}{
\settowidth{\tmplength}{\textbf{Controls}}
\setlength{\itemindent}{0cm}
\setlength{\listparindent}{0cm}
\setlength{\leftmargin}{\evensidemargin}
\addtolength{\leftmargin}{\tmplength}
\settowidth{\labelsep}{X}
\addtolength{\leftmargin}{\labelsep}
\setlength{\labelwidth}{\tmplength}
}
\label{ok_type_aliases.TMyContainer-Controls}
\index{Controls}
\item[\textbf{Controls}\hfill]
\ifpdf
\begin{flushleft}
\fi
\begin{ttfamily}
public property Controls: TControls read GetControls;\end{ttfamily}

\ifpdf
\end{flushleft}
\fi


\par  \end{list}
\section{Functions and Procedures}
\ifpdf
\subsection*{\large{\textbf{Test}}\normalsize\hspace{1ex}\hrulefill}
\else
\subsection*{Test}
\fi
\label{ok_type_aliases-Test}
\index{Test}
\begin{list}{}{
\settowidth{\tmplength}{\textbf{Description}}
\setlength{\itemindent}{0cm}
\setlength{\listparindent}{0cm}
\setlength{\leftmargin}{\evensidemargin}
\addtolength{\leftmargin}{\tmplength}
\settowidth{\labelsep}{X}
\addtolength{\leftmargin}{\labelsep}
\setlength{\labelwidth}{\tmplength}
}
\item[\textbf{Declaration}\hfill]
\ifpdf
\begin{flushleft}
\fi
\begin{ttfamily}
procedure Test;\end{ttfamily}

\ifpdf
\end{flushleft}
\fi

\par
\item[\textbf{Description}]
Also linking using @tags to arbitrary qualified type identifiers should work:

\begin{itemize}
\item \begin{ttfamily}TMyClass.TMyNestedClass.TAnotherNestedClass.TOriginalType\end{ttfamily}(\ref{ok_type_aliases.TMyClass-TMyNestedClass-TAnotherNestedClass-TOriginalType})
\item \begin{ttfamily}ok{\_}type{\_}aliases.TMyClass.TMyNestedClass.TAnotherNestedClass.TOriginalType\end{ttfamily}(\ref{ok_type_aliases.TMyClass-TMyNestedClass-TAnotherNestedClass-TOriginalType})
\item \begin{ttfamily}TMyClass.TMyNestedClass.TAnotherNestedClass\end{ttfamily}(\ref{ok_type_aliases.TMyClass-TMyNestedClass-TAnotherNestedClass})
\item \begin{ttfamily}ok{\_}type{\_}aliases.TMyClass.TMyNestedClass.TAnotherNestedClass\end{ttfamily}(\ref{ok_type_aliases.TMyClass-TMyNestedClass-TAnotherNestedClass})
\item \begin{ttfamily}TMyClass.TMyNestedClass\end{ttfamily}(\ref{ok_type_aliases.TMyClass-TMyNestedClass})
\item \begin{ttfamily}ok{\_}type{\_}aliases.TMyClass.TMyNestedClass\end{ttfamily}(\ref{ok_type_aliases.TMyClass-TMyNestedClass})
\item \begin{ttfamily}TMyClass\end{ttfamily}(\ref{ok_type_aliases.TMyClass})
\item \begin{ttfamily}ok{\_}type{\_}aliases.TMyClass\end{ttfamily}(\ref{ok_type_aliases.TMyClass})
\item \begin{ttfamily}ok{\_}type{\_}aliases\end{ttfamily}(\ref{ok_type_aliases})
\end{itemize}

\end{list}
\section{Types}
\ifpdf
\subsection*{\large{\textbf{TWeakAliasType}}\normalsize\hspace{1ex}\hrulefill}
\else
\subsection*{TWeakAliasType}
\fi
\label{ok_type_aliases-TWeakAliasType}
\index{TWeakAliasType}
\begin{list}{}{
\settowidth{\tmplength}{\textbf{Description}}
\setlength{\itemindent}{0cm}
\setlength{\listparindent}{0cm}
\setlength{\leftmargin}{\evensidemargin}
\addtolength{\leftmargin}{\tmplength}
\settowidth{\labelsep}{X}
\addtolength{\leftmargin}{\labelsep}
\setlength{\labelwidth}{\tmplength}
}
\item[\textbf{Declaration}\hfill]
\ifpdf
\begin{flushleft}
\fi
\begin{ttfamily}
TWeakAliasType = TOriginalType;\end{ttfamily}

\ifpdf
\end{flushleft}
\fi

\par
\item[\textbf{Description}]
TOriginalType abstract description

\end{list}
\ifpdf
\subsection*{\large{\textbf{TStrongAliasType}}\normalsize\hspace{1ex}\hrulefill}
\else
\subsection*{TStrongAliasType}
\fi
\label{ok_type_aliases-TStrongAliasType}
\index{TStrongAliasType}
\begin{list}{}{
\settowidth{\tmplength}{\textbf{Description}}
\setlength{\itemindent}{0cm}
\setlength{\listparindent}{0cm}
\setlength{\leftmargin}{\evensidemargin}
\addtolength{\leftmargin}{\tmplength}
\settowidth{\labelsep}{X}
\addtolength{\leftmargin}{\labelsep}
\setlength{\labelwidth}{\tmplength}
}
\item[\textbf{Declaration}\hfill]
\ifpdf
\begin{flushleft}
\fi
\begin{ttfamily}
TStrongAliasType = type TOriginalType;\end{ttfamily}

\ifpdf
\end{flushleft}
\fi

\par
\item[\textbf{Description}]
TOriginalType abstract description

\end{list}
\ifpdf
\subsection*{\large{\textbf{TWeakAliasType2}}\normalsize\hspace{1ex}\hrulefill}
\else
\subsection*{TWeakAliasType2}
\fi
\label{ok_type_aliases-TWeakAliasType2}
\index{TWeakAliasType2}
\begin{list}{}{
\settowidth{\tmplength}{\textbf{Description}}
\setlength{\itemindent}{0cm}
\setlength{\listparindent}{0cm}
\setlength{\leftmargin}{\evensidemargin}
\addtolength{\leftmargin}{\tmplength}
\settowidth{\labelsep}{X}
\addtolength{\leftmargin}{\labelsep}
\setlength{\labelwidth}{\tmplength}
}
\item[\textbf{Declaration}\hfill]
\ifpdf
\begin{flushleft}
\fi
\begin{ttfamily}
TWeakAliasType2 = TOriginalType2;\end{ttfamily}

\ifpdf
\end{flushleft}
\fi

\par
\item[\textbf{Description}]
TOriginalType2 abstract description.\hfill\vspace*{1ex}

 More and more description.

\end{list}
\ifpdf
\subsection*{\large{\textbf{TStrongAliasType2}}\normalsize\hspace{1ex}\hrulefill}
\else
\subsection*{TStrongAliasType2}
\fi
\label{ok_type_aliases-TStrongAliasType2}
\index{TStrongAliasType2}
\begin{list}{}{
\settowidth{\tmplength}{\textbf{Description}}
\setlength{\itemindent}{0cm}
\setlength{\listparindent}{0cm}
\setlength{\leftmargin}{\evensidemargin}
\addtolength{\leftmargin}{\tmplength}
\settowidth{\labelsep}{X}
\addtolength{\leftmargin}{\labelsep}
\setlength{\labelwidth}{\tmplength}
}
\item[\textbf{Declaration}\hfill]
\ifpdf
\begin{flushleft}
\fi
\begin{ttfamily}
TStrongAliasType2 = type TOriginalType2;\end{ttfamily}

\ifpdf
\end{flushleft}
\fi

\par
\item[\textbf{Description}]
TOriginalType2 abstract description.\hfill\vspace*{1ex}

 More and more description.

\end{list}
\ifpdf
\subsection*{\large{\textbf{TWeakAliasType3}}\normalsize\hspace{1ex}\hrulefill}
\else
\subsection*{TWeakAliasType3}
\fi
\label{ok_type_aliases-TWeakAliasType3}
\index{TWeakAliasType3}
\begin{list}{}{
\settowidth{\tmplength}{\textbf{Description}}
\setlength{\itemindent}{0cm}
\setlength{\listparindent}{0cm}
\setlength{\leftmargin}{\evensidemargin}
\addtolength{\leftmargin}{\tmplength}
\settowidth{\labelsep}{X}
\addtolength{\leftmargin}{\labelsep}
\setlength{\labelwidth}{\tmplength}
}
\item[\textbf{Declaration}\hfill]
\ifpdf
\begin{flushleft}
\fi
\begin{ttfamily}
TWeakAliasType3 = TOriginalType3;\end{ttfamily}

\ifpdf
\end{flushleft}
\fi

\par
\item[\textbf{Description}]
Special weak alias abstract.\hfill\vspace*{1ex}

 More and more description.

\end{list}
\ifpdf
\subsection*{\large{\textbf{TStrongAliasType3}}\normalsize\hspace{1ex}\hrulefill}
\else
\subsection*{TStrongAliasType3}
\fi
\label{ok_type_aliases-TStrongAliasType3}
\index{TStrongAliasType3}
\begin{list}{}{
\settowidth{\tmplength}{\textbf{Description}}
\setlength{\itemindent}{0cm}
\setlength{\listparindent}{0cm}
\setlength{\leftmargin}{\evensidemargin}
\addtolength{\leftmargin}{\tmplength}
\settowidth{\labelsep}{X}
\addtolength{\leftmargin}{\labelsep}
\setlength{\labelwidth}{\tmplength}
}
\item[\textbf{Declaration}\hfill]
\ifpdf
\begin{flushleft}
\fi
\begin{ttfamily}
TStrongAliasType3 = type TOriginalType3;\end{ttfamily}

\ifpdf
\end{flushleft}
\fi

\par
\item[\textbf{Description}]
Special strong alias abstract.\hfill\vspace*{1ex}

 More and more description.

\end{list}
\ifpdf
\subsection*{\large{\textbf{TWeakAliasTypeVeryNested}}\normalsize\hspace{1ex}\hrulefill}
\else
\subsection*{TWeakAliasTypeVeryNested}
\fi
\label{ok_type_aliases-TWeakAliasTypeVeryNested}
\index{TWeakAliasTypeVeryNested}
\begin{list}{}{
\settowidth{\tmplength}{\textbf{Description}}
\setlength{\itemindent}{0cm}
\setlength{\listparindent}{0cm}
\setlength{\leftmargin}{\evensidemargin}
\addtolength{\leftmargin}{\tmplength}
\settowidth{\labelsep}{X}
\addtolength{\leftmargin}{\labelsep}
\setlength{\labelwidth}{\tmplength}
}
\item[\textbf{Declaration}\hfill]
\ifpdf
\begin{flushleft}
\fi
\begin{ttfamily}
TWeakAliasTypeVeryNested = TMyClass.TMyNestedClass.TAnotherNestedClass.TOriginalType;\end{ttfamily}

\ifpdf
\end{flushleft}
\fi

\par
\item[\textbf{Description}]
TOriginalType abstract description, inside nested class(es).\hfill\vspace*{1ex}

 More and more description.

\end{list}
\ifpdf
\subsection*{\large{\textbf{TStrongAliasTypeVeryNested}}\normalsize\hspace{1ex}\hrulefill}
\else
\subsection*{TStrongAliasTypeVeryNested}
\fi
\label{ok_type_aliases-TStrongAliasTypeVeryNested}
\index{TStrongAliasTypeVeryNested}
\begin{list}{}{
\settowidth{\tmplength}{\textbf{Description}}
\setlength{\itemindent}{0cm}
\setlength{\listparindent}{0cm}
\setlength{\leftmargin}{\evensidemargin}
\addtolength{\leftmargin}{\tmplength}
\settowidth{\labelsep}{X}
\addtolength{\leftmargin}{\labelsep}
\setlength{\labelwidth}{\tmplength}
}
\item[\textbf{Declaration}\hfill]
\ifpdf
\begin{flushleft}
\fi
\begin{ttfamily}
TStrongAliasTypeVeryNested = type TMyClass.TMyNestedClass.TAnotherNestedClass.TOriginalType;\end{ttfamily}

\ifpdf
\end{flushleft}
\fi

\par
\item[\textbf{Description}]
TOriginalType abstract description, inside nested class(es).\hfill\vspace*{1ex}

 More and more description.

\end{list}
\ifpdf
\subsection*{\large{\textbf{TMyContainerAlias}}\normalsize\hspace{1ex}\hrulefill}
\else
\subsection*{TMyContainerAlias}
\fi
\label{ok_type_aliases-TMyContainerAlias}
\index{TMyContainerAlias}
\begin{list}{}{
\settowidth{\tmplength}{\textbf{Description}}
\setlength{\itemindent}{0cm}
\setlength{\listparindent}{0cm}
\setlength{\leftmargin}{\evensidemargin}
\addtolength{\leftmargin}{\tmplength}
\settowidth{\labelsep}{X}
\addtolength{\leftmargin}{\labelsep}
\setlength{\labelwidth}{\tmplength}
}
\item[\textbf{Declaration}\hfill]
\ifpdf
\begin{flushleft}
\fi
\begin{ttfamily}
TMyContainerAlias = TMyContainer;\end{ttfamily}

\ifpdf
\end{flushleft}
\fi

\par
\item[\textbf{Description}]
This class manages a \begin{ttfamily}Controls\end{ttfamily}(\ref{ok_type_aliases.TMyContainer-Controls}) list.

\end{list}
\ifpdf
\subsection*{\large{\textbf{TMyContainerStrongAlias}}\normalsize\hspace{1ex}\hrulefill}
\else
\subsection*{TMyContainerStrongAlias}
\fi
\label{ok_type_aliases-TMyContainerStrongAlias}
\index{TMyContainerStrongAlias}
\begin{list}{}{
\settowidth{\tmplength}{\textbf{Description}}
\setlength{\itemindent}{0cm}
\setlength{\listparindent}{0cm}
\setlength{\leftmargin}{\evensidemargin}
\addtolength{\leftmargin}{\tmplength}
\settowidth{\labelsep}{X}
\addtolength{\leftmargin}{\labelsep}
\setlength{\labelwidth}{\tmplength}
}
\item[\textbf{Declaration}\hfill]
\ifpdf
\begin{flushleft}
\fi
\begin{ttfamily}
TMyContainerStrongAlias = type TMyContainer;\end{ttfamily}

\ifpdf
\end{flushleft}
\fi

\par
\item[\textbf{Description}]
This class manages a \begin{ttfamily}Controls\end{ttfamily}(\ref{ok_type_aliases.TMyContainer-Controls}) list.

\end{list}
\ifpdf
\subsection*{\large{\textbf{UCS4Char}}\normalsize\hspace{1ex}\hrulefill}
\else
\subsection*{UCS4Char}
\fi
\label{ok_type_aliases-UCS4Char}
\index{UCS4Char}
\begin{list}{}{
\settowidth{\tmplength}{\textbf{Description}}
\setlength{\itemindent}{0cm}
\setlength{\listparindent}{0cm}
\setlength{\leftmargin}{\evensidemargin}
\addtolength{\leftmargin}{\tmplength}
\settowidth{\labelsep}{X}
\addtolength{\leftmargin}{\labelsep}
\setlength{\labelwidth}{\tmplength}
}
\item[\textbf{Declaration}\hfill]
\ifpdf
\begin{flushleft}
\fi
\begin{ttfamily}
UCS4Char = type 0..{\$}10ffff;\end{ttfamily}

\ifpdf
\end{flushleft}
\fi

\par
\item[\textbf{Description}]
Alias to subrange type, allowed by FPC (though not by Delphi, at least as of Delphi 12).

\end{list}
\ifpdf
\subsection*{\large{\textbf{TEnum}}\normalsize\hspace{1ex}\hrulefill}
\else
\subsection*{TEnum}
\fi
\label{ok_type_aliases-TEnum}
\index{TEnum}
\begin{list}{}{
\settowidth{\tmplength}{\textbf{Description}}
\setlength{\itemindent}{0cm}
\setlength{\listparindent}{0cm}
\setlength{\leftmargin}{\evensidemargin}
\addtolength{\leftmargin}{\tmplength}
\settowidth{\labelsep}{X}
\addtolength{\leftmargin}{\labelsep}
\setlength{\labelwidth}{\tmplength}
}
\item[\textbf{Declaration}\hfill]
\ifpdf
\begin{flushleft}
\fi
\begin{ttfamily}
TEnum = (...);\end{ttfamily}

\ifpdf
\end{flushleft}
\fi

\par
\item[\textbf{Description}]
 \item[\textbf{Values}]
\begin{description}
\item[\texttt{One}] \label{ok_type_aliases-One}
\index{}
 
\item[\texttt{Two}] \label{ok_type_aliases-Two}
\index{}
 
\item[\texttt{Three}] \label{ok_type_aliases-Three}
\index{}
 
\end{description}


\end{list}
\ifpdf
\subsection*{\large{\textbf{TEnumAlias}}\normalsize\hspace{1ex}\hrulefill}
\else
\subsection*{TEnumAlias}
\fi
\label{ok_type_aliases-TEnumAlias}
\index{TEnumAlias}
\begin{list}{}{
\settowidth{\tmplength}{\textbf{Description}}
\setlength{\itemindent}{0cm}
\setlength{\listparindent}{0cm}
\setlength{\leftmargin}{\evensidemargin}
\addtolength{\leftmargin}{\tmplength}
\settowidth{\labelsep}{X}
\addtolength{\leftmargin}{\labelsep}
\setlength{\labelwidth}{\tmplength}
}
\item[\textbf{Declaration}\hfill]
\ifpdf
\begin{flushleft}
\fi
\begin{ttfamily}
TEnumAlias = type Two..Three;\end{ttfamily}

\ifpdf
\end{flushleft}
\fi

\par
\item[\textbf{Description}]
Alias to subrange type of anums, again allowed only by FPC.

\end{list}
\end{document}
