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

TCustomComboBox: remove redundant KeyPress method. All this is already done in Utf8KeyPress.

Browse Source 
git-svn-id: trunk@44886 -
This commit is contained in:
bart 2014-05-02 12:58:31 +00:00
parent a2ff0824a2
commit 9cace444de
2 changed files with 0 additions and 11 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
lcl/include/customcombobox.inc
View File

@ -564,16 +564,6 @@ begin
end;
end;
procedure TCustomComboBox.KeyPress(var Key: char);
begin
//First invoke OnKeyPress, or else CharCase may be reverted again
inherited KeyPress(Key);
//Convert character cases if FCharCase is not ecNormalCase
case FCharCase of
ecLowerCase: Key := LowerCase(Key);
ecUpperCase: Key := UpCase(Key);
end;
end;
procedure TCustomComboBox.UTF8KeyPress(var UTF8Key: TUTF8Char);
begin

1
lcl/stdctrls.pp
View File

@ -339,7 +339,6 @@ type
procedure RealSetText(const AValue: TCaption); override;
procedure KeyDown(var Key: Word; Shift: TShiftState); override;
procedure KeyUp(var Key: Word; Shift: TShiftState); override;
procedure KeyPress(var Key: char); override;
procedure UTF8KeyPress(var UTF8Key: TUTF8Char); override;
procedure MouseUp(Button: TMouseButton; Shift:TShiftState; X, Y: Integer); override;
function SelectItem(const AnItem: String): Boolean;