paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-12 04:16:06 +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;
begin
Inherited Paint;
If Not (csDesigning in ComponentState) Then begin
If FUpdateCount=0 Then begin
//WriteLn('Paint: FGCache.ValidGrid=',FGCache.ValidGrid );
DrawEdges;
DrawBackGround;
If FGCache.ValidGrid Then begin
{
DrawFixedCells;
DrawInteriorCells;
DrawFocused;
}
DrawByRows;
DrawColRowMoving;
End;
If FUpdateCount=0 Then begin
//WriteLn('Paint: FGCache.ValidGrid=',FGCache.ValidGrid );
DrawEdges;
DrawBackGround;
If FGCache.ValidGrid Then begin
{
DrawFixedCells;
DrawInteriorCells;
DrawFocused;
}
DrawByRows;
DrawColRowMoving;
End;
End;
End;
@ -2321,7 +2319,6 @@ begin
inherited MouseDown(Button, Shift, X, Y);
If Not FGCache.ValidGrid Then Exit;
If Not (ssLeft in Shift) Then Exit;
Gz:=MouseToGridZone(X,Y, False);
Case Gz of
gzFixedCols: