paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-12-03 07:37:29 +01:00
Code Issues Packages Projects Releases Wiki Activity

LCL: debugging

Browse Source 
git-svn-id: trunk@26341 -
This commit is contained in:
mattias 2010-06-30 06:53:15 +00:00
parent afab0bd0c4
commit d130d94e34
4 changed files with 4 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
lcl/include/control.inc
View File

@ -1609,6 +1609,7 @@ begin
end;
end;
//debugln(['TControl.WndProc ',DbgSName(Self),' ',TheMessage.Msg]);
if TheMessage.Msg=LM_PAINT then begin
Include(FControlFlags,cfProcessingWMPaint);
try

1
lcl/include/wincontrol.inc
View File

@ -5089,6 +5089,7 @@ procedure TWinControl.WndProc(var Message: TLMessage);
var
Form: TCustomForm;
begin
//debugln(['TWinControl.WndProc ',DbgSName(Self),' ',Message.Msg]);
// Assert(False, Format('Trace:[TWinControl.WndPRoc] %s(%s) --> Message = %d', [ClassName, Name, Message.Msg]));
case Message.Msg of
LM_SETFOCUS:

1
lcl/interfaces/gtk2/gtk2widgetset.inc
View File

@ -2385,6 +2385,7 @@ begin
fMessageQueue.UnLock;
end;
//debugln(['TGtk2WidgetSet.AppProcessMessages ',vlMsg^.Message,' ',LM_CHAR,' ',dbgsname(GetLCLObject(Pointer(vlMsg^.hwnd)))]);
// Send message
try
with vlMsg^ do SendMessage(hWND, Message, WParam, LParam);

1
lcl/interfaces/gtk2/gtk2winapi.inc
View File

@ -6706,6 +6706,7 @@ var
begin
Result := True;
//debugln(['TGtk2WidgetSet.PostMessage ',dbgsname(GetLCLObject(Pointer(Handle)))]);
New(AMessage);
FillByte(AMessage^,SizeOf(TMsg),0);
AMessage^.HWnd := Handle; // this is normally the main gtk widget