5
votes

I officially hate hate hate the WITH statement.
Delphi Code Monkey
– 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] of TPoint; AColor: COLORREF;begin with MarkR, P[1] do begin P[1] := Point((Left + Right - MarkSizeArrowX) div 2, (Top + Bottom - MarkSizeArrowY) div 2 + (Top + Bottom - MarkSizeArrowY) mod 2); P[2] := Point(X + MarkSizeArrowX - 1, ...
Statistics
|
Visits by Source |
User Actions |