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

anchordocking: updates todo

Browse Source 
git-svn-id: trunk@26367 -
This commit is contained in:
mattias 2010-06-30 20:49:26 +00:00
parent 58192fb656
commit 982372bede
2 changed files with 10 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
examples/anchordocking/anchordocking.pas
View File

@ -68,9 +68,7 @@
- on close button: save a restore layout
ToDo:
- use workarearect instead of screen
- keep custom dock site content visible
- restore:
- undock on hide
- popup menu
- shrink side left, top, right, bottom

11
examples/anchordocking/design/registeranchordocking.pas
View File

@ -26,6 +26,15 @@
You should have received a copy of the GNU Library General Public License
along with this library; if not, write to the Free Software Foundation,
Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA.
ToDo:
- save settings after options dialog
- when opening another project first tab in source editor shows wrong page name
- close source editor and show again
- show anchor editor => too small
- qt: focus on close page
- gtk2: focus on cancel completion box
- gtk2: focus on execute completion box
}
unit RegisterAnchorDocking;
@ -397,7 +406,7 @@ begin
SiteForm.BoundsRect:=NewBounds;
SiteForm.UndockWidth:=NewBounds.Right-NewBounds.Left;
SiteForm.UndockHeight:=NewBounds.Bottom-NewBounds.Top;
debugln(['TIDEAnchorDockMaster.ShowForm creator for ',DbgSName(AControl),' found: Left=',Creator.Left,' Top=',Creator.Top,' Right=',Creator.Right,' Bottom=',Creator.Bottom,' DockSiblingName=',DockSiblingName,' DockAlign=',dbgs(DockAlign)]);
debugln(['TIDEAnchorDockMaster.ShowForm creator for ',DbgSName(AControl),' found: Left=',Creator.Left,' Top=',Creator.Top,' Right=',Creator.Right,' Bottom=',Creator.Bottom,' DockSiblingName=',DockSiblingName,' DockAlign=',dbgs(DockAlign),' ',dbgs(SiteForm.BoundsRect)]);
Site:=DockMaster.GetAnchorSite(SiteForm);
if (Site<>nil) and (DockSiblingName<>'') then begin
DockSibling:=Screen.FindForm(DockSiblingName);