paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-05-30 19:22:42 +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_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_LB_GETTOPINDEX: Result:=GetTopIndex(Sender);
@ -7704,6 +7695,9 @@ end;
{ =============================================================================
$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
convert LM_SETVALUE message to interface methods

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

@ -267,8 +267,6 @@ Begin
CreateComponent(Sender);
LM_SETPROPERTIES:
Result := SetProperties(Sender);
LM_SETDESIGNING:
if Data<>nil then EnableWindow((Sender As TWinControl).Handle, boolean(Data^));
End; // end of 1st case
End;
@ -1890,6 +1888,9 @@ End;
{
$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
convert LM_SETVALUE message to interface methods

7
lcl/lmessages.pp
View File

@ -60,8 +60,6 @@ const
LM_MINIMIZE = LM_COMUSER+59;
LM_SETDESIGNING = LM_COMUSER+60;
LM_SETGEOMETRY = LM_COMUSER+62;
LM_GETSELTEXT = LM_COMUSER+66;
@ -779,8 +777,6 @@ begin
LM_MINIMIZE :Result:='LM_MINIMIZE';
LM_SETDESIGNING :Result:='LM_SETDESIGNING';
LM_SETGEOMETRY :Result:='LM_SETGEOMETRY';
LM_GETSELTEXT :Result:='LM_GETSELTEXT';
@ -893,6 +889,9 @@ end.
{
$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
convert LM_SETVALUE message to interface methods