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

EditButton: make EditKeyPress and related methods virtual. The old KeyPress etc. were virtual as well.

Browse Source 
(Issue: #0026050)

git-svn-id: trunk@44797 -
This commit is contained in:
bart 2014-04-23 19:12:54 +00:00
parent d8d89db991
commit b9ff1d385e
1 changed files with 14 additions and 14 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

28
lcl/editbtn.pas
View File

@ -181,26 +181,26 @@ type
procedure DoEnter; override;
procedure EditChange; virtual;
procedure EditClick;
procedure EditClick; virtual;
procedure EditDblClick; virtual;
procedure EditDragDrop(Source: TObject; X,Y: Integer);
procedure EditDragOver(Source: TObject; X,Y: Integer; State: TDragState; var Accept: Boolean);
procedure EditEditingDone;
procedure EditEndDrag(Target: TObject; X,Y: Integer);
procedure EditDragDrop(Source: TObject; X,Y: Integer); virtual;
procedure EditDragOver(Source: TObject; X,Y: Integer; State: TDragState; var Accept: Boolean); virtual;
procedure EditEditingDone; virtual;
procedure EditEndDrag(Target: TObject; X,Y: Integer); virtual;
procedure EditEnter; virtual;
procedure EditExit; virtual;
procedure EditKeyDown(var Key: word; Shift: TShiftState); virtual;
procedure EditKeyPress( var Key: char);
procedure EditKeyUp(var Key: word; Shift: TShiftState);
procedure EditKeyPress( var Key: char); virtual;
procedure EditKeyUp(var Key: word; Shift: TShiftState); virtual;
procedure EditMouseDown(Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
Shift: TShiftState; X, Y: Integer); virtual;
procedure EditMouseUp(Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
procedure EditMouseEnter;
procedure EditMouseLeave;
procedure EditMouseMove(Shift: TShiftState; X, Y: Integer);
procedure EditUtf8KeyPress(var UTF8Key: TUTF8Char);
procedure EditStartDrag(var DragObject: TDragObject);
Shift: TShiftState; X, Y: Integer); virtual;
procedure EditMouseEnter; virtual;
procedure EditMouseLeave; virtual;
procedure EditMouseMove(Shift: TShiftState; X, Y: Integer); virtual;
procedure EditUtf8KeyPress(var UTF8Key: TUTF8Char); virtual;
procedure EditStartDrag(var DragObject: TDragObject); virtual;
procedure CheckCursor;