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

remove handling of LM_SETFOCUS in interface, as it is never sent from LCL

Browse Source 
git-svn-id: trunk@5977 -
This commit is contained in:
micha 2004-09-12 13:30:13 +00:00
parent 832e1a41ad
commit 9a1617ebbb
2 changed files with 6 additions and 11 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
lcl/interfaces/gtk/gtkobject.inc
View File

@ -3162,12 +3162,6 @@ begin
LM_DESTROY : LM_DESTROY :
DestroyLCLComponent(Sender); DestroyLCLComponent(Sender);
LM_SETFOCUS:
begin
//DebugLn('[TGtkWidgetSet.IntSendMessage3] LM_SETFOCUS ',TObject(Sender).ClassName);
SetFocus(Handle);
end;
LM_SetSize: LM_SetSize:
begin begin
Assert(False, Format('Trace: [TGtkWidgetSet.IntSendMessage3] %s --> LM_SetSize(%d, %d, %d, %d)', [Sender.ClassNAme, PRect(Data)^.Left,PRect(Data)^.Top,PRect(Data)^.Right,PRect(Data)^.Bottom])); Assert(False, Format('Trace: [TGtkWidgetSet.IntSendMessage3] %s --> LM_SetSize(%d, %d, %d, %d)', [Sender.ClassNAme, PRect(Data)^.Left,PRect(Data)^.Top,PRect(Data)^.Right,PRect(Data)^.Bottom]));
@ -8521,6 +8515,9 @@ end;
{ ============================================================================= { =============================================================================
$Log$ $Log$
Revision 1.557 2004/09/12 13:30:13 micha
remove handling of LM_SETFOCUS in interface, as it is never sent from LCL
Revision 1.556 2004/09/12 13:21:37 micha Revision 1.556 2004/09/12 13:21:37 micha
remove obsolete message LM_DRAGINFOCHANGED remove obsolete message LM_DRAGINFOCHANGED

8
lcl/interfaces/win32/win32object.inc
View File

@ -336,11 +336,6 @@ Begin
Else Else
Assert(False, Format('Trace:I don''t know how to destroy component %S', [Sender.ClassName])); Assert(False, Format('Trace:I don''t know how to destroy component %S', [Sender.ClassName]));
End; End;
LM_SETFOCUS:
Begin
If Handle <> 0 Then
SetFocus(Handle);
End;
LM_SETFONT: LM_SETFONT:
begin begin
if Sender is TControl then begin if Sender is TControl then begin
@ -2504,6 +2499,9 @@ End;
{ {
$Log$ $Log$
Revision 1.249 2004/09/12 13:30:13 micha
remove handling of LM_SETFOCUS in interface, as it is never sent from LCL
Revision 1.248 2004/09/12 13:21:37 micha Revision 1.248 2004/09/12 13:21:37 micha
remove obsolete message LM_DRAGINFOCHANGED remove obsolete message LM_DRAGINFOCHANGED