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

LCL: fixed visibility of overrided KeyUpAfterInterface in TCustomComboBox.

Browse Source 
git-svn-id: trunk@35216 -
This commit is contained in:
zeljko 2012-02-07 11:40:41 +00:00
parent 3956876f16
commit 3e88452bc4
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
lcl/stdctrls.pp
View File

@ -297,7 +297,6 @@ type
procedure LMDrawListItem(var TheMessage: TLMDrawListItem); message LM_DrawListItem;
procedure LMMeasureItem(var TheMessage: TLMMeasureItem); message LM_MeasureItem;
procedure LMSelChange(var TheMessage); message LM_SelChange;
procedure KeyUpAfterInterface(var Key: Word; Shift: TShiftState); override;
procedure CNCommand(var TheMessage: TLMCommand); message CN_Command;
procedure SetReadOnly(const AValue: Boolean);
procedure UpdateSorted;
@ -313,6 +312,7 @@ type
procedure DoExit; override;
procedure DrawItem(Index: Integer; ARect: TRect;
State: TOwnerDrawState); virtual;
procedure KeyUpAfterInterface(var Key: Word; Shift: TShiftState); override;
procedure MeasureItem(Index: Integer; var TheHeight: Integer); virtual;
class function GetControlClassDefaultSize: TSize; override;
procedure LMChanged(var Msg); message LM_CHANGED;