paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-09-04 10:03:01 +02:00
Code Issues Packages Projects Releases Wiki Activity

LCL, grids, modify editor bounds in case it's affected by modifying default Col width or Row height

Browse Source 
git-svn-id: trunk@42954 -
This commit is contained in:
jesus 2013-09-26 23:38:00 +00:00
parent 595776b9f2
commit c1f577aa5a
1 changed files with 23 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

23
lcl/grids.pas
View File

@ -2843,27 +2843,50 @@ end;
procedure TCustomGrid.SetDefColWidth(AValue: Integer);
var
i: Integer;
OldLeft,OldRight,NewLeft,NewRight: Integer;
begin
if AValue=fDefColwidth then
Exit;
FDefColWidth:=AValue;
if not AutoFillColumns then begin
if EditorMode then
ColRowToOffset(True, True, FCol, OldLeft, OldRight);
for i:=0 to ColCount-1 do
FCols[i] := Pointer(-1);
VisualChange;
if EditorMode then begin
ColRowToOffset(True, True, FCol, NewLeft, NewRight);
if (NewLeft<>OldLeft) or (NewRight<>OldRight) then
EditorWidthChanged(FCol, GetColWidths(FCol));
end;
end;
end;
procedure TCustomGrid.SetDefRowHeight(AValue: Integer);
var
i: Integer;
OldTop,OldBottom,NewTop,NewBottom: Integer;
begin
if (AValue<>fDefRowHeight) or (csLoading in ComponentState) then begin
include(FGridFlags, gfDefRowHeightChanged);
FDefRowheight:=AValue;
if EditorMode then
ColRowToOffSet(False,True, FRow, OldTop, OldBottom);
for i:=0 to RowCount-1 do
FRows[i] := Pointer(-1);
VisualChange;
if EditorMode then begin
ColRowToOffSet(False,True, FRow, NewTop, NewBottom);
if (NewTop<>OldTOp) or (NewBottom<>OldBottom) then
EditorPos;
end;
end;
end;