This hilariously awful piece of code is from FooBars (fobar.pas), the name of the vendor has been removed so I can feel better about placing it up here to be openly criticized:procedure TfooBarPainter.BarDrawMarkArrow(ABarControl: TfooBarControl;
DC: HDC; MarkR: TRect);var P: array[1..3] ...
More...