mirror of
https://gitlab.com/freepascal.org/lazarus/lazarus.git
synced 2025-08-12 22:40:15 +02:00
LCL: fixed visibility of overrided KeyUpAfterInterface in TCustomComboBox.
git-svn-id: trunk@35216 -
This commit is contained in:
parent
3956876f16
commit
3e88452bc4
@ -297,7 +297,6 @@ type
|
|||||||
procedure LMDrawListItem(var TheMessage: TLMDrawListItem); message LM_DrawListItem;
|
procedure LMDrawListItem(var TheMessage: TLMDrawListItem); message LM_DrawListItem;
|
||||||
procedure LMMeasureItem(var TheMessage: TLMMeasureItem); message LM_MeasureItem;
|
procedure LMMeasureItem(var TheMessage: TLMMeasureItem); message LM_MeasureItem;
|
||||||
procedure LMSelChange(var TheMessage); message LM_SelChange;
|
procedure LMSelChange(var TheMessage); message LM_SelChange;
|
||||||
procedure KeyUpAfterInterface(var Key: Word; Shift: TShiftState); override;
|
|
||||||
procedure CNCommand(var TheMessage: TLMCommand); message CN_Command;
|
procedure CNCommand(var TheMessage: TLMCommand); message CN_Command;
|
||||||
procedure SetReadOnly(const AValue: Boolean);
|
procedure SetReadOnly(const AValue: Boolean);
|
||||||
procedure UpdateSorted;
|
procedure UpdateSorted;
|
||||||
@ -313,6 +312,7 @@ type
|
|||||||
procedure DoExit; override;
|
procedure DoExit; override;
|
||||||
procedure DrawItem(Index: Integer; ARect: TRect;
|
procedure DrawItem(Index: Integer; ARect: TRect;
|
||||||
State: TOwnerDrawState); virtual;
|
State: TOwnerDrawState); virtual;
|
||||||
|
procedure KeyUpAfterInterface(var Key: Word; Shift: TShiftState); override;
|
||||||
procedure MeasureItem(Index: Integer; var TheHeight: Integer); virtual;
|
procedure MeasureItem(Index: Integer; var TheHeight: Integer); virtual;
|
||||||
class function GetControlClassDefaultSize: TSize; override;
|
class function GetControlClassDefaultSize: TSize; override;
|
||||||
procedure LMChanged(var Msg); message LM_CHANGED;
|
procedure LMChanged(var Msg); message LM_CHANGED;
|
||||||
|
Loading…
Reference in New Issue
Block a user