paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-16 16:12:57 +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

27
lcl/grids.pas
View File

@ -1428,20 +1428,18 @@ 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; DrawBackGround;
DrawBackGround; If FGCache.ValidGrid Then begin
If FGCache.ValidGrid Then begin {
{ DrawFixedCells;
DrawFixedCells; DrawInteriorCells;
DrawInteriorCells; DrawFocused;
DrawFocused; }
} DrawByRows;
DrawByRows; DrawColRowMoving;
DrawColRowMoving;
End;
End; End;
End; End;
End; End;
@ -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: