home *** CD-ROM | disk | FTP | other *** search
/ Delphi Magazine Collection 2001 / Delphi Magazine Collection 20001 (2001).iso / DISKS / Issue46 / packages / DinoSource.Zip / Bones.pas < prev    next >
Encoding:
Pascal/Delphi Source File  |  1999-05-11  |  2.1 KB  |  73 lines
  1. //Features:
  2. //
  3. //Adds component palette pages onto its popup menu
  4. //
  5. //Adds support for multi-line component palette
  6. //
  7. //Adds support for hot-tracking on the component palette
  8. //
  9. //Adds support for using buttons instead of component palette tabs
  10. //
  11. //Adds a Window menu
  12. //
  13. //Adds option for non-flat speedbuttons
  14. //
  15. //Adds options for getting to Object Inspector & main IDE window
  16. //from form designer
  17. //
  18. //Makes visible a number of normally hidden menu items:
  19. //  Search | Show Last Compile Error
  20. //    View | View as Text
  21. //    Help | How to Use Help
  22. //    Help | Windows API
  23.  
  24. //Various states are stored in the registry under
  25. //HKEY_CURRENT_USER\Software\Oblong\Archaeopteryx
  26. //There is an optional entry "Tab Height" which defaults
  27. //to the normal tab height (16 on my laptop). This is used to
  28. //decide how much to increase/decrease the IDE window when going
  29. //into or out of multiline mode. You can find that when using
  30. //button style tabs that you need a bigger value (the
  31. //problem arises when there are several rows). 19 works for me
  32. //
  33. //Another optional entry is "Window Menu Caption" which
  34. //defaults to "W&indow" to allow you to avoid shortcut key
  35. //clashes and also avoid possible multiple menus with the same
  36. //("Window") caption
  37.  
  38. unit Bones;
  39.  
  40. interface
  41.  
  42. implementation
  43.  
  44. //Just in case I want to generate a version with
  45. //a subset of the functionality, I have a bunch
  46. //of $defines which control which of these
  47. //independent units will be compiled in
  48.  
  49. {$ifdef Ver100} { Delphi 3.0x }
  50.   {$define DelphiLessThan4}
  51. {$endif}
  52. {$ifdef Ver110} { C++ Builder 3.0x }
  53.   {$define DelphiLessThan4}
  54. {$endif}
  55.  
  56. {$define NonFlatButtons}    //Pointless in Delphi 4+
  57. {$define HiddenMenus}       //Pointless in Delphi 4+
  58. {$define PalettePopup}
  59. {$define PaletteTweaking}
  60. {$define WindowMenu}        
  61.  
  62. uses
  63. {$ifdef DelphiLessThan4}
  64.   {$ifdef NonFlatButtons}NonFlatButtons,{$endif}
  65.   {$ifdef HiddenMenus}HiddenMenus,{$endif}
  66. {$endif}
  67.   {$ifdef PalettePopup}PalettePopup,{$endif}
  68.   {$ifdef PaletteTweaking}PaletteTweaking,{$endif}
  69.   {$ifdef WindowMenu}WindowMenu,{$endif}
  70.   Messages;
  71.  
  72. end.
  73.