You've already forked lazarus-ccr
tvplanit: Fix VpDayView, VpWeekView and VpTaskList inplace editor to cancel input when ESC is pressed (like VpContactGrid, see prev commit).
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@6480 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
@ -109,7 +109,7 @@ type
|
|||||||
{ Forward Declarations }
|
{ Forward Declarations }
|
||||||
TVpDayView = class;
|
TVpDayView = class;
|
||||||
|
|
||||||
TVpDvInPlaceEdit = class(TCustomEdit)
|
TVpDvInplaceEdit = class(TCustomEdit)
|
||||||
protected{private}
|
protected{private}
|
||||||
procedure CreateParams(var Params: TCreateParams); override;
|
procedure CreateParams(var Params: TCreateParams); override;
|
||||||
procedure KeyDown(var Key: Word; Shift: TShiftState); override;
|
procedure KeyDown(var Key: Word; Shift: TShiftState); override;
|
||||||
@ -583,6 +583,7 @@ begin
|
|||||||
VK_ESCAPE:
|
VK_ESCAPE:
|
||||||
begin
|
begin
|
||||||
Key := 0;
|
Key := 0;
|
||||||
|
Hide;
|
||||||
TVpDayView(Owner).SetFocus;
|
TVpDayView(Owner).SetFocus;
|
||||||
end;
|
end;
|
||||||
|
|
||||||
|
@ -477,7 +477,9 @@ begin
|
|||||||
VK_ESCAPE:
|
VK_ESCAPE:
|
||||||
begin
|
begin
|
||||||
Key := 0;
|
Key := 0;
|
||||||
TaskList.EndEdit(Self);
|
Hide;
|
||||||
|
TaskList.SetFocus;
|
||||||
|
// TaskList.EndEdit(Self);
|
||||||
end;
|
end;
|
||||||
|
|
||||||
else
|
else
|
||||||
|
@ -373,7 +373,8 @@ begin
|
|||||||
VK_ESCAPE:
|
VK_ESCAPE:
|
||||||
begin
|
begin
|
||||||
Key := 0;
|
Key := 0;
|
||||||
Grid.EndEdit(self);
|
Hide;
|
||||||
|
Grid.SetFocus;
|
||||||
end;
|
end;
|
||||||
|
|
||||||
else
|
else
|
||||||
|
Reference in New Issue
Block a user