Vote UpVote

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, ...
Favorite? Off-Topic? Warren Postma @ 2014-06-05 02:25


Visits: 1542
Votes: 5
Favorites: 1
Off-Topic: 0

Visits by Source

User Actions

Users who voted for this posting

Alister Christie
Jeroen Pluimers
Kyle A. Miller
Radosław Kokoć
Contact us to advertise on DelphiFeeds.com

Community Links

Torry Firebird News


Please login or register to use this functionality.
(click on this box to dismiss)