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

lcl: don't block special keys in common TControl handler - this is up to descendants.

Browse Source 
SynEdit: use shorter inherited call since TControl does not have the handler now

git-svn-id: trunk@37150 -
This commit is contained in:
paul 2012-05-04 00:55:22 +00:00
parent d73fbccbd9
commit f8dcbb669b
5 changed files with 1 additions and 18 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
components/synedit/synedit.pp
View File

@ -4575,7 +4575,7 @@ begin
Message.Result := 0;
end
else
inherited CMWantSpecialKey(Message);
inherited;
end;
procedure TCustomSynEdit.ScanRanges(ATextChanged: Boolean = True);

1
lcl/controls.pp
View File

@ -1278,7 +1278,6 @@ type
procedure CMParentShowHintChanged(var Message: TLMessage); message CM_PARENTSHOWHINTCHANGED;
procedure CMVisibleChanged(var Message: TLMessage); message CM_VISIBLECHANGED;
procedure CMTextChanged(var Message: TLMessage); message CM_TEXTCHANGED;
procedure CMWantSpecialKey(var Message: TLMessage); message CM_WANTSPECIALKEY;
procedure CMCursorChanged(var Message: TLMessage); message CM_CURSORCHANGED;
protected
// drag and drop

6
lcl/include/buttoncontrol.inc
View File

@ -50,12 +50,6 @@ begin
if Assigned(OnChange) then OnChange(Self);
end;
procedure TButtonControl.CMWantSpecialKey(var Message: TLMessage);
begin
// button controls do not want any special keys
Message.Result := 0;
end;
procedure TButtonControl.Click;
begin
DoOnChange;

9
lcl/include/control.inc
View File

@ -1114,15 +1114,6 @@ begin
TextChanged;
end;
procedure TControl.CMWantSpecialKey(var Message: TLMessage);
begin
// by default control does not want to handle VK_TAB itself
if Message.wParam = VK_TAB then
Message.Result := 0
else
Message.Result := 1;
end;
procedure TControl.CMCursorChanged(var Message: TLMessage);
begin
if not (csDesigning in ComponentState) then

1
lcl/stdctrls.pp
View File

@ -1056,7 +1056,6 @@ type
procedure SetChecked(Value: Boolean); virtual;
procedure DoOnChange; virtual;
procedure Click; override;
procedure CMWantSpecialKey(var Message: TLMessage); message CM_WANTSPECIALKEY;
protected
property Checked: Boolean read GetChecked write SetChecked stored IsCheckedStored default False;
property ClicksDisabled: Boolean read FClicksDisabled write FClicksDisabled;