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

undo removal of LM_SETDESIGNING; used by lazarus ide (main.pp)

Browse Source 
git-svn-id: trunk@6034 -
This commit is contained in:
micha 2004-09-19 19:39:10 +00:00
parent a0d9094edb
commit 76c2c59c99
3 changed files with 21 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -3085,6 +3085,15 @@ 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);
@ -7695,8 +7704,8 @@ 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.587 2004/09/19 19:39:10 micha
undo removal of LM_SETDESIGNING; used by lazarus ide (main.pp)
Revision 1.585 2004/09/19 18:50:28 micha
convert LM_SETVALUE message to interface methods

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

@ -267,6 +267,8 @@ 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;
@ -1888,8 +1890,8 @@ 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.278 2004/09/19 19:39:10 micha
undo removal of LM_SETDESIGNING; used by lazarus ide (main.pp)
Revision 1.276 2004/09/19 18:50:28 micha
convert LM_SETVALUE message to interface methods

8
lcl/lmessages.pp
View File

@ -60,6 +60,8 @@ const
LM_MINIMIZE = LM_COMUSER+59;
LM_SETDESIGNING = LM_COMUSER+60;
LM_SETGEOMETRY = LM_COMUSER+62;
LM_GETSELTEXT = LM_COMUSER+66;
@ -777,6 +779,8 @@ begin
LM_MINIMIZE :Result:='LM_MINIMIZE';
LM_SETDESIGNING :Result:='LM_SETDESIGNING';
LM_SETGEOMETRY :Result:='LM_SETGEOMETRY';
LM_GETSELTEXT :Result:='LM_GETSELTEXT';
@ -889,8 +893,8 @@ 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.116 2004/09/19 19:39:10 micha
undo removal of LM_SETDESIGNING; used by lazarus ide (main.pp)
Revision 1.114 2004/09/19 18:50:28 micha
convert LM_SETVALUE message to interface methods