diff options
| author | Stéphane Aulery <saulery@free.fr> | 2015-04-06 10:51:58 +0200 |
|---|---|---|
| committer | Stéphane Aulery <saulery@free.fr> | 2015-04-06 10:51:58 +0200 |
| commit | b7d9264751d18edefe2b4a86d72b480823fd47b9 (patch) | |
| tree | 53e4164c06758229c8951625a6e198981f44e022 /src/gui/fpg_basegrid.pas | |
| parent | c8acc2c1666015daeb3038c838e5018c0ecd8903 (diff) | |
| download | fpGUI-b7d9264751d18edefe2b4a86d72b480823fd47b9.tar.xz | |
Clean up unused local variables
Diffstat (limited to 'src/gui/fpg_basegrid.pas')
| -rw-r--r-- | src/gui/fpg_basegrid.pas | 4 |
1 files changed, 0 insertions, 4 deletions
diff --git a/src/gui/fpg_basegrid.pas b/src/gui/fpg_basegrid.pas index cbce739f..2c74a9ee 100644 --- a/src/gui/fpg_basegrid.pas +++ b/src/gui/fpg_basegrid.pas @@ -620,7 +620,6 @@ var cw: integer; vl: integer; i: integer; - x: integer; hmax: integer; vmax: integer; Hfits, showH : boolean; @@ -819,7 +818,6 @@ var rTop: integer; firstcol, lastcol, firstrow, lastrow : integer; cWidths: array of integer; - rect: TRect; begin Canvas.ClearClipRect; r.SetRect(0, 0, Width, Height); @@ -1336,7 +1334,6 @@ end; procedure TfpgBaseGrid.HandleLMouseUp(x, y: integer; shiftstate: TShiftState); var - lColumn: integer; hh: integer; { header height } cLeft: integer; { column left } c: integer; @@ -1402,7 +1399,6 @@ var hh: integer; n: Integer; cw: integer; - nw: integer; prow: Integer; pcol: Integer; c: integer; |