search

Suiun / cnpack

Automatically exported from code.google.com/p/cnpack
0 stars 0 forks source link

Source highlighter makes the cursor hard to see #50

Open GoogleCodeExporter opened 8 years ago

GoogleCodeExporter commented 8 years ago 
When cn_pack is drawing lines between the begin and end block it is more or 
less hiding the cursor making it difficult to navigate. Drawing the lines 2 or 
3 pixels to the left solves the problem (cursor fully visible).

procedure HighlightCanvasLine(ACanvas: TCanvas; X1, Y1, X2, Y2: Integer;
  AStyle: TCnLineStyle);
var
  I, XStep, YStep, Step: Integer;
  OldStyle: TBrushStyle;
  OldColor: TColor;
begin
  if ACanvas <> nil then
  begin
  dec(x1,3); <--
  dec(x2,3); <--

This was the only diff with Castalia what was troubling me ;)

Thanks,
Marius

Original issue reported on code.google.com by knud...@gmail.com on 25 Apr 2013 at 7:39