Commit 33a4808

Nick Faro committed on
Fix a bit of silliness that's been around for a while
commit 33a4808587bcc909aba8dd213212e7bda9f99aee parent 079bb6d
1 changed files +2−5
Modifiedtrackergrid.pas +2−5
@@ -389,11 +389,8 @@ begin
389 Canvas.Pen.Color := clDividers; 389 Canvas.Pen.Color := clDividers;
390 Canvas.Pen.Width := 2; 390 Canvas.Pen.Width := 2;
391 391
392 for I := 0 to NumColumns do begin 392 for I := 0 to NumColumns do
393 //TODO: WTF? Why do we need this IfThen? 393 Canvas.Line((ColumnWidth*I) - 1, 0, (ColumnWidth*I) - 1, Height);
394 R := TRect.Create(ColumnWidth*I, 0, ColumnWidth + IfThen(I=0, 1, 0), Height);
395 Canvas.Rectangle(R);
396 end;
397 394
398 RenderSelectedArea; 395 RenderSelectedArea;
399 if DraggingSelection then 396 if DraggingSelection then