paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-15 23:19:50 +02:00
Code Issues Packages Projects Releases Wiki Activity

designer now using CN_KeyXXX messages, so that intf can not eat it

Browse Source 
git-svn-id: trunk@9236 -
This commit is contained in:
mattias 2006-05-03 20:51:13 +00:00
parent 68b3e095be
commit f027d14ea5
1 changed files with 4 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
designer/designer.pp
View File

@ -1098,7 +1098,7 @@ var
OwnerControl: TControl;
begin
Result:=AControl;
if (Result=nil) or (Result.Owner=LookupRoot) then exit;
if (Result=nil) or (Result=LookupRoot) or (Result.Owner=LookupRoot) then exit;
if (Result.Owner=nil) then exit(nil);
if (Result.Owner is TControl) then begin
OwnerControl:=TControl(Result.Owner);
@ -1556,6 +1556,7 @@ begin
end;
DesignSender:=GetDesignControl(Sender);
//DebugLn('TDesigner.MouseMoveOnControl Sender=',dbgsName(Sender),' ',dbgsName(DesignSender));
SenderParentForm:= GetParentForm(DesignSender);
if (SenderParentForm = nil) or (SenderParentForm <> Form) then exit;
@ -1832,8 +1833,8 @@ Begin
LM_PAINT,
LM_INTERNALPAINT:
Result:=PaintControl(Sender,TLMPaint(TheMessage));
LM_KEYDOWN: KeyDown(Sender,TLMKey(TheMessage));
LM_KEYUP: KeyUP(Sender,TLMKey(TheMessage));
CN_KEYDOWN: KeyDown(Sender,TLMKey(TheMessage));
CN_KEYUP: KeyUP(Sender,TLMKey(TheMessage));
LM_LBUTTONDOWN,
LM_RBUTTONDOWN,
LM_LBUTTONDBLCLK: MouseDownOnControl(Sender,TLMMouse(TheMessage));