Remove the SHAutoComplete() call to revert the solution for #144 - this introduces too many new bugs.

This commit is contained in:
Ansgar Becker
2019-10-08 19:26:51 +02:00
parent 3e6b522ca5
commit 6c77fc7bc3
2 changed files with 1 additions and 9 deletions

View File

@@ -89,15 +89,6 @@ var
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

View File

@@ -304,6 +304,7 @@ begin
if Assigned(FMainControl) then begin
FOldWindowProc := FMainControl.WindowProc;
FMainControl.WindowProc := TempWindowProc;
TExtForm.FixControls(FMainControl);
end;
// Adjust editor position and allow repainting mainform
SetBounds(FCellTextBounds);