Исходник программы, показывающей пример демонстрации рисования компаса, вращения циферблата и стрелки на Delphi.
Угол вращения компаса задается в элементе управления TSpinEdit. Также используется TPaintbox для перерисовки компаса. Компас каждый раз полностью перерисовывается, поэтому его владелец (Panel1) имеет свойство DoubleBuffered, установленное в True, чтобы предотвратить мигание, когда фон очищается перед перерисовкой.
Также используется структура TLogRec и процедура CreateFontIndirect для рисования букв и цифр под прямым углом к радиальному направлению.
Указатель компаса представляет собой два нарисованных треугольника методом Polygon, заполненных разными цветами используя Paintbox.
