mirrors/doublecmd
2
0
Fork 0
mirror of https://github.com/doublecmd/doublecmd.git synced 2026-06-21 09:58:13 +00:00
Code Issues Projects Releases Packages Wiki Activity

UPD: workaround for IME in pathedit are removed by the update of Lazarus Lcl (issue 40008) (#973)

Browse source
This commit is contained in:
rich2014 2023-05-07 02:03:07 +08:00 • committed by GitHub
commit 5b7d7a4a8b
No known key found for this signature in database
GPG key ID: 4AEE18F83AFDEB23
1 changed files with 0 additions and 69 deletions
Download patch file Download diff file Expand all files Collapse all files

69
components/KASToolBar/kaspathedit.pas
View file

@ -17,13 +17,6 @@
You should have received a copy of the GNU General Public License
along with this program. If not, see <http://www.gnu.org/licenses/>.
Notes:
1. PR #570 is the workaround for the bug of Lazarus.
related codes can be removed after Lazarus merges related Patches.
see also:
https://github.com/doublecmd/doublecmd/pull/570
https://gitlab.com/freepascal.org/lazarus/lazarus/-/issues/40008
}
unit KASPathEdit;
@ -57,10 +50,6 @@ type
FStringList: TStringList;
FObjectTypes: TObjectTypes;
FFileSortType: TFileSortType;
{$IF DEFINED(LCLCOCOA)}
originalText: String;
keyDownText: String;
{$ENDIF}
private
procedure setTextAndSelect( newText:String );
procedure handleSpecialKeys( var Key: Word );
@ -83,12 +72,6 @@ type
procedure VisibleChanged; override;
procedure KeyDown(var Key: Word; Shift: TShiftState); override;
procedure KeyUpAfterInterface(var Key: Word; Shift: TShiftState); override;
{$IF DEFINED(LCLCOCOA)}
procedure DoEnter; override;
procedure TextChanged; override;
procedure KeyUp(var Key: word; Shift: TShiftState); override;
procedure KeyDownAction(var Key: Word; Shift: TShiftState);
{$ENDIF}
public
onKeyESCAPE: TNotifyEvent;
onKeyRETURN: TNotifyEvent;
@ -401,51 +384,6 @@ begin
inherited VisibleChanged;
end;
{$IFDEF LCLCOCOA}
procedure TKASPathEdit.DoEnter;
begin
inherited DoEnter;
self.originalText:= self.Text;
end;
procedure TKASPathEdit.TextChanged;
begin
inherited TextChanged;
self.originalText:= self.Text;
end;
procedure TKASPathEdit.KeyDown( var Key: Word; Shift: TShiftState );
begin
case Key of
VK_ESCAPE:
self.keyDownText:= self.Text;
VK_RETURN,
VK_SELECT:
self.keyDownText:= self.originalText
end;
KeyDownAction( Key, Shift );
end;
procedure TKASPathEdit.KeyUp( var Key: Word; Shift: TShiftState );
begin
case Key of
VK_ESCAPE,
VK_RETURN,
VK_SELECT:
if self.text=self.keyDownText then begin
// from the text has not been changed,
// the TKASPathEdit is not in the IME state
handleSpecialKeys( Key )
end else begin
// in the IME state
AutoComplete(self.text);
Key:= 0;
end;
end;
inherited KeyUp( Key, Shift );
end;
{$ENDIF}
procedure TKASPathEdit.handleSpecialKeys( var Key: Word );
begin
if isShowingListBox() then begin
@ -496,21 +434,14 @@ begin
setTextAndSelect( ExtractFilePath(Text) );
end;
{$IF DEFINED(LCLCOCOA)}
procedure TKASPathEdit.KeyDownAction(var Key: Word; Shift: TShiftState);
{$ELSE}
procedure TKASPathEdit.KeyDown(var Key: Word; Shift: TShiftState);
{$ENDIF}
begin
FKeyDown:= Key;
case Key of
// handle in KeyUp on LCLCOCOA
{$IF NOT DEFINED(LCLCOCOA)}
VK_ESCAPE,
VK_RETURN,
VK_SELECT:
handleSpecialKeys( Key );
{$ENDIF}
VK_UP:
if isShowingListBox() then
begin