paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-14 12:40:20 +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 DoEnter; override;
procedure EditChange; virtual; procedure EditChange; virtual;
procedure EditClick; procedure EditClick; virtual;
procedure EditDblClick; virtual; procedure EditDblClick; virtual;
procedure EditDragDrop(Source: TObject; X,Y: Integer); procedure EditDragDrop(Source: TObject; X,Y: Integer); virtual;
procedure EditDragOver(Source: TObject; X,Y: Integer; State: TDragState; var Accept: Boolean); procedure EditDragOver(Source: TObject; X,Y: Integer; State: TDragState; var Accept: Boolean); virtual;
procedure EditEditingDone; procedure EditEditingDone; virtual;
procedure EditEndDrag(Target: TObject; X,Y: Integer); procedure EditEndDrag(Target: TObject; X,Y: Integer); virtual;
procedure EditEnter; virtual; procedure EditEnter; virtual;
procedure EditExit; virtual; procedure EditExit; virtual;
procedure EditKeyDown(var Key: word; Shift: TShiftState); virtual; procedure EditKeyDown(var Key: word; Shift: TShiftState); virtual;
procedure EditKeyPress( var Key: char); procedure EditKeyPress( var Key: char); virtual;
procedure EditKeyUp(var Key: word; Shift: TShiftState); procedure EditKeyUp(var Key: word; Shift: TShiftState); virtual;
procedure EditMouseDown(Button: TMouseButton; procedure EditMouseDown(Button: TMouseButton;
Shift: TShiftState; X, Y: Integer); Shift: TShiftState; X, Y: Integer); virtual;
procedure EditMouseUp(Button: TMouseButton; procedure EditMouseUp(Button: TMouseButton;
Shift: TShiftState; X, Y: Integer); Shift: TShiftState; X, Y: Integer); virtual;
procedure EditMouseEnter; procedure EditMouseEnter; virtual;
procedure EditMouseLeave; procedure EditMouseLeave; virtual;
procedure EditMouseMove(Shift: TShiftState; X, Y: Integer); procedure EditMouseMove(Shift: TShiftState; X, Y: Integer); virtual;
procedure EditUtf8KeyPress(var UTF8Key: TUTF8Char); procedure EditUtf8KeyPress(var UTF8Key: TUTF8Char); virtual;
procedure EditStartDrag(var DragObject: TDragObject); procedure EditStartDrag(var DragObject: TDragObject); virtual;
procedure CheckCursor; procedure CheckCursor;