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

LCL, Grids: Implements AutoAdjustColumns in DbGrid, deprecates AutoSizeColumns. Fix Indicator resize problem, issue #30061

Browse Source 
git-svn-id: trunk@52583 -
This commit is contained in:
jesus 2016-06-29 00:59:27 +00:00
parent 629e720ec7
commit 4d57da51b5
2 changed files with 10 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
lcl/dbgrids.pas
View File

@ -495,7 +495,8 @@ type
property OnUserCheckboxState: TDbGridCheckboxStateEvent read FOnCheckboxState write FOnCheckboxState;
public
constructor Create(AOwner: TComponent); override;
procedure AutoSizeColumns;
procedure AutoAdjustColumns; override;
procedure AutoSizeColumns; deprecated 'This method will be deleted in 1.8. Use AutoAdjustColumns';
procedure InitiateAction; override;
procedure DefaultDrawColumnCell(const Rect: TRect; DataCol: Integer; Column: TColumn; State: TGridDrawState);
function EditorByStyle(Style: TColumnButtonStyle): TWinControl; override;
@ -3496,10 +3497,15 @@ begin
AllowOutboundEvents := false;
end;
procedure TCustomDBGrid.AutoAdjustColumns;
begin
Exclude(FGridStatus, gsAutoSized);
UpdateAutoSizeColumns;
end;
procedure TCustomDBGrid.AutoSizeColumns;
begin
RenewColWidths;
LayoutChanged;
AutoAdjustColumns;
end;
procedure TCustomDBGrid.InitiateAction;

2
lcl/grids.pas
View File

@ -1204,7 +1204,7 @@ type
{ Exposed procs }
procedure AdjustInnerCellRect(var ARect: TRect);
procedure AutoAdjustColumns;
procedure AutoAdjustColumns; virtual;
procedure BeginUpdate;
function CellRect(ACol, ARow: Integer): TRect;
function CellToGridZone(aCol,aRow: Integer): TGridZone;