paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-06-02 11:52:37 +02:00
Code Issues Packages Projects Releases Wiki Activity

remove LM_SETDESIGNING message, as it is not used by LCL

Browse Source 
git-svn-id: trunk@6033 -
This commit is contained in:
micha 2004-09-19 19:22:54 +00:00
parent b1a4a3dab4
commit a0d9094edb
3 changed files with 9 additions and 15 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -3085,15 +3085,6 @@ begin
LM_SETPROPERTIES: Result := SetProperties(Sender); LM_SETPROPERTIES: Result := SetProperties(Sender);
LM_SETDESIGNING :
// Used by the form editor to set anything specifically needed
// when setting controls to Designing.
begin
// change cursor
if Sender is TWinControl then
gtkproc.SetCursor(TWinControl(Sender), TCursor(cardinal(Data)));
end;
LM_NB_UpdateTab: UpdateNotebookPageTab(nil,TCustomPage(Sender)); LM_NB_UpdateTab: UpdateNotebookPageTab(nil,TCustomPage(Sender));
LM_LB_GETTOPINDEX: Result:=GetTopIndex(Sender); LM_LB_GETTOPINDEX: Result:=GetTopIndex(Sender);
@ -7704,6 +7695,9 @@ end;
{ ============================================================================= { =============================================================================
$Log$ $Log$
Revision 1.586 2004/09/19 19:22:54 micha
remove LM_SETDESIGNING message, as it is not used by LCL
Revision 1.585 2004/09/19 18:50:28 micha Revision 1.585 2004/09/19 18:50:28 micha
convert LM_SETVALUE message to interface methods convert LM_SETVALUE message to interface methods

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

@ -267,8 +267,6 @@ Begin
CreateComponent(Sender); CreateComponent(Sender);
LM_SETPROPERTIES: LM_SETPROPERTIES:
Result := SetProperties(Sender); Result := SetProperties(Sender);
LM_SETDESIGNING:
if Data<>nil then EnableWindow((Sender As TWinControl).Handle, boolean(Data^));
End; // end of 1st case End; // end of 1st case
End; End;
@ -1890,6 +1888,9 @@ End;
{ {
$Log$ $Log$
Revision 1.277 2004/09/19 19:22:54 micha
remove LM_SETDESIGNING message, as it is not used by LCL
Revision 1.276 2004/09/19 18:50:28 micha Revision 1.276 2004/09/19 18:50:28 micha
convert LM_SETVALUE message to interface methods convert LM_SETVALUE message to interface methods

7
lcl/lmessages.pp
View File

@ -60,8 +60,6 @@ const
LM_MINIMIZE = LM_COMUSER+59; LM_MINIMIZE = LM_COMUSER+59;
LM_SETDESIGNING = LM_COMUSER+60;
LM_SETGEOMETRY = LM_COMUSER+62; LM_SETGEOMETRY = LM_COMUSER+62;
LM_GETSELTEXT = LM_COMUSER+66; LM_GETSELTEXT = LM_COMUSER+66;
@ -779,8 +777,6 @@ begin
LM_MINIMIZE :Result:='LM_MINIMIZE'; LM_MINIMIZE :Result:='LM_MINIMIZE';
LM_SETDESIGNING :Result:='LM_SETDESIGNING';
LM_SETGEOMETRY :Result:='LM_SETGEOMETRY'; LM_SETGEOMETRY :Result:='LM_SETGEOMETRY';
LM_GETSELTEXT :Result:='LM_GETSELTEXT'; LM_GETSELTEXT :Result:='LM_GETSELTEXT';
@ -893,6 +889,9 @@ end.
{ {
$Log$ $Log$
Revision 1.115 2004/09/19 19:22:54 micha
remove LM_SETDESIGNING message, as it is not used by LCL
Revision 1.114 2004/09/19 18:50:28 micha Revision 1.114 2004/09/19 18:50:28 micha
convert LM_SETVALUE message to interface methods convert LM_SETVALUE message to interface methods