paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-11-25 22:07:22 +01:00
Code Issues Packages Projects Releases Wiki Activity

Changed the code so when you add a control to the form, it's selected by the object inspector.

Browse Source 
Shane

git-svn-id: trunk@50 -
This commit is contained in:
lazarus 2000-11-27 20:33:18 +00:00
parent c45ea961df
commit d08fb6c888
1 changed files with 6 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
ide/main.pp
View File

@ -1639,6 +1639,9 @@ if (X >= 0) and (X <= TControl(sender).Width) and
//set the ONCLICK event so we know when the control is selected; //set the ONCLICK event so we know when the control is selected;
TControl(CInterface.Control).OnClick := @ClickOnControl; TControl(CInterface.Control).OnClick := @ClickOnControl;
FormEditor1.ClearSelected;
FormEditor1.AddSelected(TComponent(Cinterface.Control));
end; end;
//TIdeComponent(ideComplist.items[bpressed-1]). //TIdeComponent(ideComplist.items[bpressed-1]).
@ -2457,8 +2460,9 @@ end.
{ ============================================================================= { =============================================================================
$Log$ $Log$
Revision 1.9 2000/11/27 20:27:16 lazarus Revision 1.10 2000/11/27 20:33:18 lazarus
Fixed the code so you can drop controls on the form Changed the code so when you add a control to the form, it's selected by the object inspector.
Shane Shane
Revision 1.5 2000/08/10 13:22:51 lazarus Revision 1.5 2000/08/10 13:22:51 lazarus