paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-13 12:09:21 +02:00
Code Issues Packages Projects Releases Wiki Activity

Merged revision(s) 49885 #40e2ef952b from trunk:

Browse Source 
LCL, make ClearSelections public, from wp, issue #27437
........

git-svn-id: branches/fixes_1_4@49902 -
This commit is contained in:
maxim 2015-09-30 22:16:23 +00:00
parent 4150308e4b
commit 48f7fdc7b5
1 changed files with 4 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
lcl/grids.pas
View File

@ -883,7 +883,6 @@ type
procedure CellClick(const aCol,aRow: Integer; const Button:TMouseButton); virtual; procedure CellClick(const aCol,aRow: Integer; const Button:TMouseButton); virtual;
procedure CheckLimits(var aCol,aRow: Integer); procedure CheckLimits(var aCol,aRow: Integer);
procedure CheckLimitsWithError(const aCol, aRow: Integer); procedure CheckLimitsWithError(const aCol, aRow: Integer);
procedure ClearSelections;
procedure CMBiDiModeChanged(var Message: TLMessage); message CM_BIDIMODECHANGED; procedure CMBiDiModeChanged(var Message: TLMessage); message CM_BIDIMODECHANGED;
procedure CMMouseEnter(var Message: TLMessage); message CM_MOUSEENTER; procedure CMMouseEnter(var Message: TLMessage); message CM_MOUSEENTER;
procedure CMMouseLeave(var Message :TLMessage); message CM_MouseLeave; procedure CMMouseLeave(var Message :TLMessage); message CM_MouseLeave;
@ -1177,6 +1176,7 @@ type
function CellToGridZone(aCol,aRow: Integer): TGridZone; function CellToGridZone(aCol,aRow: Integer): TGridZone;
procedure CheckPosition; procedure CheckPosition;
procedure Clear; procedure Clear;
procedure ClearSelections;
function EditorByStyle(Style: TColumnButtonStyle): TWinControl; virtual; function EditorByStyle(Style: TColumnButtonStyle): TWinControl; virtual;
procedure EditorKeyDown(Sender: TObject; var Key:Word; Shift:TShiftState); procedure EditorKeyDown(Sender: TObject; var Key:Word; Shift:TShiftState);
@ -7431,6 +7431,9 @@ end;
procedure TCustomGrid.ClearSelections; procedure TCustomGrid.ClearSelections;
begin begin
SetLength(FSelections, 0); SetLength(FSelections, 0);
UpdateSelectionRange;
FPivot := Point(Col, Row);
InvalidateGrid;
end; end;
procedure TCustomGrid.CMBiDiModeChanged(var Message: TLMessage); procedure TCustomGrid.CMBiDiModeChanged(var Message: TLMessage);