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

improved placing new forms by Jan

Browse Source 
git-svn-id: trunk@6504 -
This commit is contained in:
mattias 2005-01-07 21:09:18 +00:00
parent b7cbb90119
commit 500dcf8cde
2 changed files with 5 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
docs/Contributors.txt
View File

@ -16,6 +16,7 @@ Eric Chapman
GongYu
Hans-Joachim Ott
Ido Kanner
Jan Foster
Jason King
Jeffrey A. Wormsley
Jeroen van Idekinge

4
ide/main.pp
View File

@ -3178,6 +3178,7 @@ begin
FormEditor1.ClearSelection;
// Figure out where we want to put the new form
// if there is more place left of the OI put it left, otherwise right
new_x:=ObjectInspector1.Left+ObjectInspector1.Width; //+60;
new_y:=MainIDEBar.Top+MainIDEBar.Height; //+80;
if screen.width-new_x>=ObjectInspector1.left then inc(new_x, 60) else new_x:=16;
@ -11330,6 +11331,9 @@ end.
{ =============================================================================
$Log$
Revision 1.823 2005/01/07 21:09:18 mattias
improved placing new forms by Jan
Revision 1.822 2005/01/07 21:02:59 mattias
TFont, TBrush, TPen can now be used with fpCanvas