5
votes
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

Statistics

Visits: 1550
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ć
rvelthuis
Subscribe:
Contact us to advertise on DelphiFeeds.com

Community Links

Torry Firebird News

Sponsor

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