Commit 1e76b53a authored by Martin Schreiber's avatar Martin Schreiber

* Use tdataedit.modified instead of ea_textedited to call fgridintf.edited.

+ ttextedit calls fgridintf.edited by ea_textedited.
parent 432b9f96
......@@ -1982,7 +1982,9 @@ end;
procedure tcustomdataedit.modified;
begin
//dummy
if fgridintf <> nil then begin
fgridintf.edited();
end;
end;
procedure tcustomdataedit.valuechanged;
......@@ -2781,9 +2783,6 @@ begin
include(fstate,des_edited);
modified();
inherited;
if fgridintf <> nil then begin
fgridintf.edited();
end;
end;
ea_resetemptytext: begin
inherited;
......
......@@ -1582,6 +1582,7 @@ begin
if fupdating = 0 then begin
inc(fupdating);
try
fgridintf.edited();
int1:= fgridintf.getrow;
fgridintf.setdata(int1,feditor.richtext,true);
gridvaluechanged(int1);
......
......@@ -13329,16 +13329,11 @@ procedure twidget.getchildren(proc: tgetchildproc; root: tcomponent);
var
int1: integer;
widget: twidget;
// ev1: getchildreneventty;
begin
for int1:= 0 to high(fwidgets) do begin
widget:= fwidgets[int1];
if (ws_iswidget in widget.fwidgetstate) and
//(
(widget.owner = root){ or
bo1 and (widget.owner <> nil) and
(issubcomponent(widget.owner,root) or //common owner
issubcomponent(root,widget.owner)))} then begin
(widget.owner = root) then begin
proc(widget);
end;
end;
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment