paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-11-19 21:30:38 +01:00
Code Issues Packages Projects Releases Wiki Activity

lcl: formatting

Browse Source 
git-svn-id: trunk@25125 -
This commit is contained in:
paul 2010-05-02 07:00:16 +00:00
parent fa0ab5a8ad
commit 37bdc6873b
2 changed files with 9 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
lcl/interfaces/win32/win32callback.inc
View File

@ -2390,7 +2390,7 @@ begin
if NotifyUserInput then
NotifyApplicationUserInput(PLMsg^.Msg);
if (lWinControl <> nil) and (PLMsg^.Msg <> LM_NULL) then
if Assigned(lWinControl) and (PLMsg^.Msg <> LM_NULL) then
DeliverMessage(lWinControl, PLMsg^);
// respond to result of LCL handling the message

14
lcl/lclmessageglue.pas
View File

@ -100,16 +100,18 @@ begin
' ',TComponent(Target).Name,':',TObject(Target).ClassName,
' Message=',GetMessageName(TLMessage(AMessage).Msg));
{$ENDIF}
RefCounted:=false;
RefCounted := False;
try
if Target is TLCLComponent then begin
if Target is TLCLComponent then
begin
TLCLComponent(Target).IncLCLRefCount;
RefCounted:=true;
RefCounted := True;
end;
try
if Target is TControl
then TControl(Target).WindowProc(TLMessage(AMessage))
else Target.Dispatch(TLMessage(AMessage));
if Target is TControl then
TControl(Target).WindowProc(TLMessage(AMessage))
else
Target.Dispatch(TLMessage(AMessage));
except
Application.HandleException(nil);
end;