paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-04-19 23:49:36 +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 :
DestroyLCLComponent(Sender);
LM_SETFOCUS:
begin
//DebugLn('[TGtkWidgetSet.IntSendMessage3] LM_SETFOCUS ',TObject(Sender).ClassName);
SetFocus(Handle);
end;
LM_SetSize:
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]));
@ -8521,6 +8515,9 @@ end;
{ =============================================================================
$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
remove obsolete message LM_DRAGINFOCHANGED

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

@ -336,11 +336,6 @@ Begin
Else
Assert(False, Format('Trace:I don''t know how to destroy component %S', [Sender.ClassName]));
End;
LM_SETFOCUS:
Begin
If Handle <> 0 Then
SetFocus(Handle);
End;
LM_SETFONT:
begin
if Sender is TControl then begin
@ -2504,6 +2499,9 @@ End;
{
$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
remove obsolete message LM_DRAGINFOCHANGED