TDragBar -
Register - ==============================================================================
TBarStyle
TBarType
DragBarVersion
procedure Register;
==============================================================================
TBarStyle = (bsDynamic, bsSolid, bsFrame);
TBarType = (btHorz, btVert);
DragBarVersion = '1.2'
VCL to create a panel that can be dragged by the user. By attaching
a window, that window will be stretch to fit.
Author: William R. Florac
Company: FITCO, Verona, WI (wee little company from my house)
Copyright 1997, FITCO. All rights reserved.
1) Users of DragBar (and it's components) must accept this disclaimer of
warranty: "DragBar is supplied as is. The author disclaims all
warranties, expressed or implied, including, without limitation,
the warranties of merchantability and of fitness for any purpose.
The author assumes no liability for damages, direct or conse-
quential, which may result from the use of DragBar."
2) This Software is donated to the public as public domain except as
noted below.
3) If you distribute this software, you must include all parts and pages without
modification.
4) Software may be used, modified and distributed freely if compiled in with
commercial or private applications (not another VCL).
5) Fitco retains the copyright to this Software. You may not distribute
the source code (PAS) or its compiled unit (DCU) for profit.
6) If you do find this component handy and you feel guilty
for using such a great product without paying someone,
please send a few bucks ($25) to support further development.
I have spent a lot of time making this VCL the best it can be and
have included a help file to make it complete.
7) This file was formatted with tabs set to 2.
8) Thanks to all those who suggested (and got) improvements.
9) Latest version can always be found at http://sumac.etcconnect.com/fitco/
Please forward any comments or suggestions to Bill Florac at:
email: flash@etcconnect.com
mail: FITCO
209 Jenna Dr
Verona, WI 53593
===============================================================================
version 1.0
notes:
- Attached window must be aligned as alLeft, alRight, alTop or alBottom
- Setting the Align will find a window to attach to if possible
- Changing the BarType will remove any alignment and AttachedWindow
- If you put controls on the Bar, you will have to click on the
Bar to move it (not the components)
- You can use this anywhere in a stack of aligned controls. I spent a lot
of time making sure the controls stay in the same order!
- The movement of the window is limited so the attached window will not get
smaller than one (width or height). It seems the alignment will get lost if
a value of 0 is set.
- A DragBar without an AttachedWindow will not move
- You can not attach onw DragBar to another
- Only appropriate Align will be allow depending on the BarType.
version 1.1
- fixed loading default widths by changing csReading test to csLoading
version 1.2
- fixed order of sizing so attached window does not overwrite other windows
during dynamic drag
wishlist:
- never could find a way to cancel the drag with the escape key
===============================================================================