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

Merged revision(s) 48871-48872 #4ec7f482b1-#4ec7f482b1 from trunk:

Browse Source 
LCL, grids: make sure the grid is notified about text is changed on pressing the first char, issue #27955
........
LCL, grids: modified previous patch, the text should be the text value not the pressed key
........

git-svn-id: branches/fixes_1_4@48947 -
This commit is contained in:
maxim 2015-05-06 22:19:46 +00:00
parent c6edc599a2
commit fef115d67d
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
LCLIntf, LCLProc;
type
TCustomGridAccess=class(TCustomGrid)
end;
{ TWSCustomGrid }
class procedure TWSCustomGrid.SendCharToEditor(AEditor:TWinControl;
@ -94,6 +98,12 @@ begin
TCustomCombobox(AEditor).SelStart:=UTF8Length(GMsg.Value);
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, GMsg.Value);
end;
class function TWSCustomGrid.InvalidateStartY(const FixedHeight, RowOffset: Integer): Integer;