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

remove LM_SETTEXT message as it is not used

Browse Source 
git-svn-id: trunk@5955 -
This commit is contained in:
micha 2004-09-10 11:20:44 +00:00
parent d189d5601f
commit 7f1de98fae
3 changed files with 9 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -3156,8 +3156,6 @@ begin
handle := hwnd(ObjectToGtkObject(Sender)); handle := hwnd(ObjectToGtkObject(Sender));
Case LM_Message of Case LM_Message of
LM_SetText : SetText(PgtkWidget(Handle), Data);
LM_AddChild : LM_AddChild :
begin begin
{$IFDEF OldToolBar} {$IFDEF OldToolBar}
@ -8931,6 +8929,9 @@ end;
{ ============================================================================= { =============================================================================
$Log$ $Log$
Revision 1.544 2004/09/10 11:20:44 micha
remove LM_SETTEXT message as it is not used
Revision 1.543 2004/09/10 09:43:13 micha Revision 1.543 2004/09/10 09:43:13 micha
convert LM_SETLABEL message to interface methods convert LM_SETLABEL message to interface methods

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

@ -349,8 +349,6 @@ Begin
TWin32WSWinControl.SetText(Sender as TWinControl, S); TWin32WSWinControl.SetText(Sender as TWinControl, S);
end; end;
End; End;
LM_SETTEXT:
SetText(Handle, Data);
LM_ADDCHILD: LM_ADDCHILD:
Begin Begin
Assert(False, 'Trace:Adding a child to Parent'); Assert(False, 'Trace:Adding a child to Parent');
@ -2817,6 +2815,9 @@ End;
{ {
$Log$ $Log$
Revision 1.237 2004/09/10 11:20:44 micha
remove LM_SETTEXT message as it is not used
Revision 1.236 2004/09/10 09:43:13 micha Revision 1.236 2004/09/10 09:43:13 micha
convert LM_SETLABEL message to interface methods convert LM_SETLABEL message to interface methods

5
lcl/lmessages.pp
View File

@ -59,7 +59,6 @@ const
LM_RESIZECHILDREN = LM_ComUser+13; LM_RESIZECHILDREN = LM_ComUser+13;
LM_AddPage = LM_ComUser+15; LM_AddPage = LM_ComUser+15;
LM_GetLineCount = LM_ComUser+16; LM_GetLineCount = LM_ComUser+16;
LM_SETTEXT = LM_ComUser+17;
LM_GETTEXT = LM_ComUser+18; LM_GETTEXT = LM_ComUser+18;
LM_CANVASCREATE = LM_ComUser+19; LM_CANVASCREATE = LM_ComUser+19;
LM_ReDraw = LM_ComUser+26; LM_ReDraw = LM_ComUser+26;
@ -871,7 +870,6 @@ begin
LM_RESIZECHILDREN :Result:='LM_RESIZECHILDREN'; LM_RESIZECHILDREN :Result:='LM_RESIZECHILDREN';
LM_AddPage :Result:='LM_AddPage'; LM_AddPage :Result:='LM_AddPage';
LM_GetLineCount :Result:='LM_GetLineCount'; LM_GetLineCount :Result:='LM_GetLineCount';
LM_SETTEXT :Result:='LM_SETTEXT';
LM_GETTEXT :Result:='LM_GETTEXT'; LM_GETTEXT :Result:='LM_GETTEXT';
LM_CANVASCREATE :Result:='LM_CANVASCREATE'; LM_CANVASCREATE :Result:='LM_CANVASCREATE';
LM_ReDraw :Result:='LM_ReDraw'; LM_ReDraw :Result:='LM_ReDraw';
@ -1038,6 +1036,9 @@ end.
{ {
$Log$ $Log$
Revision 1.78 2004/09/10 11:20:44 micha
remove LM_SETTEXT message as it is not used
Revision 1.77 2004/09/10 09:43:12 micha Revision 1.77 2004/09/10 09:43:12 micha
convert LM_SETLABEL message to interface methods convert LM_SETLABEL message to interface methods