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

LCL, grids: make sure the grid is notified about text is changed on pressing the first char, issue #27955

Browse Source 
git-svn-id: trunk@48871 -
This commit is contained in:
jesus 2015-04-26 20:34:38 +00:00
parent 77ddd148d7
commit 4ec7f482b1
1 changed files with 10 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
lcl/widgetset/wsgrids.pp
View File

@ -61,6 +61,10 @@ implementation
uses uses
LCLIntf; LCLIntf;
type
TCustomGridAccess=class(TCustomGrid)
end;
{ TWSCustomGrid } { TWSCustomGrid }
class procedure TWSCustomGrid.SendCharToEditor(AEditor:TWinControl; class procedure TWSCustomGrid.SendCharToEditor(AEditor:TWinControl;
@ -94,6 +98,12 @@ begin
TCustomCombobox(AEditor).SelStart:=UTF8Length(GMsg.Value); TCustomCombobox(AEditor).SelStart:=UTF8Length(GMsg.Value);
end; end;
end; end;
// make sure the grid is notified that some text is changed, some
// widgets do not notify when they are modified programmatically.
if GMsg.Grid<>nil then
with TCustomGridAccess(GMsg.Grid) do
EditorTextChanged(Col, Row, Ch);
end; end;
class function TWSCustomGrid.InvalidateStartY(const FixedHeight, RowOffset: Integer): Integer; class function TWSCustomGrid.InvalidateStartY(const FixedHeight, RowOffset: Integer): Integer;