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

added ptach from Jesus Reyes A.

Browse Source 
git-svn-id: trunk@3793 -
This commit is contained in:
mattias 2003-01-06 17:42:46 +00:00
parent 2d0fb715b4
commit bee1819dea
1 changed files with 12 additions and 15 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
lcl/grids.pas
View File

@ -1428,7 +1428,6 @@ end;
procedure TCustomGrid.Paint; procedure TCustomGrid.Paint;
begin begin
Inherited Paint; Inherited Paint;
If Not (csDesigning in ComponentState) Then begin
If FUpdateCount=0 Then begin If FUpdateCount=0 Then begin
//WriteLn('Paint: FGCache.ValidGrid=',FGCache.ValidGrid ); //WriteLn('Paint: FGCache.ValidGrid=',FGCache.ValidGrid );
DrawEdges; DrawEdges;
@ -1443,7 +1442,6 @@ begin
DrawColRowMoving; DrawColRowMoving;
End; End;
End; End;
End;
End; End;
procedure TCustomGrid.ResetOffset(chkCol, ChkRow: Boolean); procedure TCustomGrid.ResetOffset(chkCol, ChkRow: Boolean);
@ -2321,7 +2319,6 @@ begin
inherited MouseDown(Button, Shift, X, Y); inherited MouseDown(Button, Shift, X, Y);
If Not FGCache.ValidGrid Then Exit; If Not FGCache.ValidGrid Then Exit;
If Not (ssLeft in Shift) Then Exit; If Not (ssLeft in Shift) Then Exit;
Gz:=MouseToGridZone(X,Y, False); Gz:=MouseToGridZone(X,Y, False);
Case Gz of Case Gz of
gzFixedCols: gzFixedCols: