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

lcl: grid: fix repainting issues when changing bounds on Gtk2. Issue #31518

Browse Source 
git-svn-id: trunk@54381 -
This commit is contained in:
ondrej 2017-03-10 12:52:32 +00:00
parent 3cbd802990
commit bc9ea113b6
1 changed files with 8 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
lcl/grids.pas
View File

@ -961,6 +961,7 @@ type
function DoMouseWheelUp(Shift: TShiftState; MousePos: TPoint): Boolean; override; function DoMouseWheelUp(Shift: TShiftState; MousePos: TPoint): Boolean; override;
procedure DoAutoAdjustLayout(const AMode: TLayoutAdjustmentPolicy; procedure DoAutoAdjustLayout(const AMode: TLayoutAdjustmentPolicy;
const AXProportion, AYProportion: Double); override; const AXProportion, AYProportion: Double); override;
procedure DoOnChangeBounds; override;
procedure DoOPDeleteColRow(IsColumn: Boolean; index: Integer); procedure DoOPDeleteColRow(IsColumn: Boolean; index: Integer);
procedure DoOPExchangeColRow(IsColumn: Boolean; index, WithIndex: Integer); procedure DoOPExchangeColRow(IsColumn: Boolean; index, WithIndex: Integer);
procedure DoOPInsertColRow(IsColumn: boolean; index: integer); procedure DoOPInsertColRow(IsColumn: boolean; index: integer);
@ -6927,6 +6928,13 @@ begin
{$ifdef dbgScroll}DebugLn('doMouseWheelUP END');{$endif} {$ifdef dbgScroll}DebugLn('doMouseWheelUP END');{$endif}
end; end;
procedure TCustomGrid.DoOnChangeBounds;
begin
inherited DoOnChangeBounds;
VisualChange;
end;
procedure TCustomGrid.KeyDown(var Key: Word; Shift: TShiftState); procedure TCustomGrid.KeyDown(var Key: Word; Shift: TShiftState);
var var
Sh, PreserveRowAutoInserted: Boolean; Sh, PreserveRowAutoInserted: Boolean;