Skip to content
Permalink
Browse files

Remove the SHAutoComplete() call to revert the solution for #144 - th…

…is introduces too many new bugs.
  • Loading branch information...
ansgarbecker committed Oct 8, 2019
1 parent 3e6b522 commit 6c77fc7bc3759be76d0a5246f8489702f4f4557b
Showing with 1 addition and 9 deletions.
  1. +0 −9 source/extra_controls.pas
  2. +1 −0 source/grideditlinks.pas
@@ -89,15 +89,6 @@ class procedure TExtForm.FixControls(ParentComp: TComponent);
TToolButton(Cmp).Style := tbsButton;
TToolButton(Cmp).Style := tbsDropDown;
end;
if (Cmp is TCustomEdit) and (not (Cmp is TCustomMemo)) then begin
// Support Ctr+Backspace for deleting last word in TEdit and TButtonedEdit
// This did not work in OnCreate, so here's it in OnShow
// See https://stackoverflow.com/questions/10305634/ctrlbackspace-in-delphi-controls
// See issue #144
// Todo: find a way to fix TComboBox, for which this hack does nothing
// ... and for TMemo, which just selects all text when pressing Enter key
SHAutoComplete(TCustomEdit(Cmp).Handle, SHACF_AUTOAPPEND_FORCE_ON or SHACF_AUTOSUGGEST_FORCE_ON);
end;
end;
begin
// Passed component itself may also be some control to be fixed
@@ -304,6 +304,7 @@ function TBaseGridEditorLink.PrepareEdit(Tree: TBaseVirtualTree; Node: PVirtualN
if Assigned(FMainControl) then begin
FOldWindowProc := FMainControl.WindowProc;
FMainControl.WindowProc := TempWindowProc;
TExtForm.FixControls(FMainControl);
end;
// Adjust editor position and allow repainting mainform
SetBounds(FCellTextBounds);

0 comments on commit 6c77fc7

Please sign in to comment.
You can’t perform that action at this time.