paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-11-20 20:59:39 +01:00
Code Issues Packages Projects Releases Wiki Activity

LCL, fixed creating handle during loading of rowheights, hint from C Western, issue #10977

Browse Source 
git-svn-id: trunk@14559 -
This commit is contained in:
jesus 2008-03-17 18:49:19 +00:00
parent d965ef92a6
commit 0f8b78f1c9
1 changed files with 24 additions and 15 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

39
lcl/grids.pas
View File

@ -1775,10 +1775,13 @@ var
R: TRect;
Bigger: boolean;
begin
if AValue<0 then Avalue:=-1;
if AValue<0 then
Avalue:=-1;
if Avalue<>integer(PtrUInt(FCols[ACol])) then begin
Bigger := AValue>integer(PtrUInt(FCols[ACol]));
SetRawColWidths(ACol, Avalue);
if not (csLoading in ComponentState) then begin
if FUpdateCount=0 then begin
@ -1800,6 +1803,7 @@ begin
EditorWidthChanged(aCol, aValue);
ColWidthsChanged;
end;
end;
end;
@ -2052,30 +2056,35 @@ var
R: TRect;
Bigger: boolean;
begin
if AValue<0 then AValue:=-1;
if AValue<0 then
AValue:=-1;
if AValue<>integer(PtrUInt(FRows[ARow])) then begin
bigger := aValue > RowHeights[aRow];
FRows[ARow]:=Pointer(PtrInt(AValue));
if FUpdateCount=0 then begin
UpdateSizes;
if not (csLoading in ComponentState) then begin
if FUpdateCount=0 then begin
UpdateSizes;
R := CellRect(0, aRow);
R.Right := FGCache.MaxClientXY.X+GetBorderWidth+1;
if bigger then
R.Bottom := FGCache.MaxClientXY.Y+GetBorderWidth+1
else
R.Bottom := FGCache.ClientHeight;
if aRow=FTopLeft.y then
R.Top := FGCache.FixedHeight;
R := CellRect(0, aRow);
R.Right := FGCache.MaxClientXY.X+GetBorderWidth+1;
if bigger then
R.Bottom := FGCache.MaxClientXY.Y+GetBorderWidth+1
else
R.Bottom := FGCache.ClientHeight;
if aRow=FTopLeft.y then
R.Top := FGCache.FixedHeight;
InvalidateRect(handle, @R, False);
InvalidateRect(handle, @R, False);
end;
if (FEditor<>nil)and(Feditor.Visible)and(ARow<=FRow) then EditorPos;
RowHeightsChanged;
end;
if (FEditor<>nil)and(Feditor.Visible)and(ARow<=FRow) then EditorPos;
RowHeightsChanged;
end;
end;