romfast/comun
2
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity
Files
1ae4086ee659e34ba1d6b505a84e993bd873dea8
comun/clase/sfsplitter.vc2
Marius Mutu 1ae4086ee6 sync SVN r18224
2026-09-29 16:36:56 +03:00

1084 lines
36 KiB
Plaintext
Raw Blame History

*--------------------------------------------------------------------------------------------------------------------------------------------------------
* (EN) AUTOGENERATED - ATTENTION!! - NOT INTENDED FOR EXECUTION!! USE ONLY FOR MERGING CHANGES AND STORING WITH SCM TOOLS!!
*--------------------------------------------------------------------------------------------------------------------------------------------------------
*< FOXBIN2PRG: Version="1.21" SourceFile="sfsplitter.vcx" CPID="1252" /> (Solo para binarios VFP 9 / Only for VFP 9 binaries)
*
*
DEFINE CLASS gripper AS container
*< CLASSDATA: Baseclass="container" Timestamp="" Scale="Pixels" Uniqueid="" />
*-- OBJECTDATA items order determines ZOrder / El orden de los items OBJECTDATA determina el ZOrder
*< OBJECTDATA: ObjPath="GripperDot1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="GripperDot2" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="GripperDot3" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="GripperDot4" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="GripperDot5" UniqueID="" Timestamp="" />
*<DefinedPropArrayMethod>
*m: repositiononresize && A method to move the gripper to keep it centererd in the Splitter when the hosting form is resized.
*m: setupforhorizontalsplitter && A method to set the positions of the dots to a vertical orientation.
*m: setupforverticalsplitter && A method to set the positions of the dots to a horizontal orientation.
*m: setupgripper && The setup method to positiosn the dots according to the orientation of the splitter, also sets up the number of dots.
*p: ndots && Enter a number from 0 to 5 to indicate how many gripper dots to show. Enter 0 for none.
*p: _memberdata && XML Metadata for customizable properties
*</DefinedPropArrayMethod>
*<PropValue>
BackStyle = 0
BorderWidth = 0
Height = 19
Name = "gripper"
ndots = 5
Width = 36
_memberdata = <VFPData>
<memberdata name="ndots" type="property" display="nDots"/>
<memberdata name="repositiononresize" type="method" display="RepositionOnResize"/>
<memberdata name="setupforhorizontalsplitter" type="method" display="SetupForHorizontalSplitter"/>
<memberdata name="setupforverticalsplitter" type="method" display="SetupForVerticalSplitter"/>
<memberdata name="setupgripper" type="method" display="SetupGripper"/>
</VFPData>
*</PropValue>
ADD OBJECT 'GripperDot1' AS gripperdot WITH ;
Left = 2, ;
Name = "GripperDot1", ;
Top = 4, ;
ShapeDark.BackStyle = 0, ;
ShapeDark.Name = "ShapeDark", ;
ShapeDark.ZOrderSet = 0, ;
ShapeLight.Name = "ShapeLight", ;
ShapeLight.ZOrderSet = 1, ;
ShapeMiddle.Name = "ShapeMiddle", ;
ShapeMiddle.ZOrderSet = 2
*< END OBJECT: ClassLib="sfsplitter.vcx" BaseClass="container" />
ADD OBJECT 'GripperDot2' AS gripperdot WITH ;
Left = 6, ;
Name = "GripperDot2", ;
Top = 4, ;
ShapeDark.BackStyle = 0, ;
ShapeDark.Name = "ShapeDark", ;
ShapeDark.ZOrderSet = 0, ;
ShapeLight.Name = "ShapeLight", ;
ShapeLight.ZOrderSet = 1, ;
ShapeMiddle.Name = "ShapeMiddle", ;
ShapeMiddle.ZOrderSet = 2
*< END OBJECT: ClassLib="sfsplitter.vcx" BaseClass="container" />
ADD OBJECT 'GripperDot3' AS gripperdot WITH ;
Left = 10, ;
Name = "GripperDot3", ;
Top = 4, ;
ShapeDark.BackStyle = 0, ;
ShapeDark.Name = "ShapeDark", ;
ShapeDark.ZOrderSet = 0, ;
ShapeLight.Name = "ShapeLight", ;
ShapeLight.ZOrderSet = 1, ;
ShapeMiddle.Name = "ShapeMiddle", ;
ShapeMiddle.ZOrderSet = 2
*< END OBJECT: ClassLib="sfsplitter.vcx" BaseClass="container" />
ADD OBJECT 'GripperDot4' AS gripperdot WITH ;
Left = 14, ;
Name = "GripperDot4", ;
Top = 4, ;
ShapeDark.BackStyle = 0, ;
ShapeDark.Name = "ShapeDark", ;
ShapeDark.ZOrderSet = 0, ;
ShapeLight.Name = "ShapeLight", ;
ShapeLight.ZOrderSet = 1, ;
ShapeMiddle.Name = "ShapeMiddle", ;
ShapeMiddle.ZOrderSet = 2
*< END OBJECT: ClassLib="sfsplitter.vcx" BaseClass="container" />
ADD OBJECT 'GripperDot5' AS gripperdot WITH ;
Left = 18, ;
Name = "GripperDot5", ;
Top = 4, ;
ShapeDark.BackStyle = 0, ;
ShapeDark.Name = "ShapeDark", ;
ShapeDark.ZOrderSet = 0, ;
ShapeLight.Name = "ShapeLight", ;
ShapeLight.ZOrderSet = 1, ;
ShapeMiddle.Name = "ShapeMiddle", ;
ShapeMiddle.ZOrderSet = 2
*< END OBJECT: ClassLib="sfsplitter.vcx" BaseClass="container" />
PROCEDURE Init
*-- Get MousePointer setting from parent Splitter
this.MousePointer=this.Parent.MousePointer
*-- Also, set the MousePointer on each shape in each GripperDot container
FOR EACH GripperDot in this.Controls
GripperDot.setall('MousePointer', this.MousePointer)
EndFor
this.SetupGripper()
Dodefault()
ENDPROC
PROCEDURE MouseMove
LPARAMETERS nButton, nShift, nXCoord, nYCoord
this.parent.MouseMove(nButton, nShift, nXCoord, nYCoord)
ENDPROC
PROCEDURE repositiononresize && A method to move the gripper to keep it centererd in the Splitter when the hosting form is resized.
*-- This method will keep the Gripper container centered when the hosting form is resized.
*-- For vertical splitter, we will set the Left of the Gripper container to center it horizontally
*-- For horizontal splitter, we will set the Top of the Gripper container to center it vertically.
If this.parent.Width>this.parent.Height
With this
.Anchor=0
.Left=(this.parent.Width-.Width)/2
.Anchor=10
Endwith
Else
With this
.Anchor=0
.top=(this.parent.Height-.height)/2
.Anchor=5
Endwith
Endif
ENDPROC
PROCEDURE setupforhorizontalsplitter && A method to set the positions of the dots to a vertical orientation.
*-- A method that will position the dots in a vertical orientation to be used on a horizontal splitter.
lnDotHeight=this.GripperDot1.Height
this.GripperDot1.Left=2
this.GripperDot1.Top=1
this.GripperDot2.Left=2
this.GripperDot2.Top=1+lnDotHeight
this.GripperDot3.Left=2
this.GripperDot3.Top=1+2*lnDotHeight
this.GripperDot4.Left=2
this.GripperDot4.Top=1+3*lnDotHeight
this.GripperDot5.Left=2
this.GripperDot5.Top=1+4*lnDotHeight
With this
.Anchor=0
.Height=this.nDots*lnDotHeight && This will cause the container to only show the correct number of dots.
.Width=lnDotHeight+1
.Anchor=5
EndWith
ENDPROC
PROCEDURE setupforverticalsplitter && A method to set the positions of the dots to a horizontal orientation.
*-- A method that will position the dots in a horizontal orientation to be used on a vertical splitter.
lnDotWidth=this.GripperDot1.Width
this.GripperDot1.Left=1
this.GripperDot1.Top=2
this.GripperDot2.Left=1+lnDotWidth
this.GripperDot2.Top=2
this.GripperDot3.Left=1+2*lnDotWidth
this.GripperDot3.Top=2
this.GripperDot4.Left=1+3*lnDotWidth
this.GripperDot4.Top=2
this.GripperDot5.Left=1+4*lnDotWidth
this.GripperDot5.Top=2
With this
.Anchor=0
.Width=this.nDots*this.GripperDot1.Width+1 && This will cause the container to only show the correct number of dots.
.Height=lnDotWidth+1
.Anchor=10
Endwith
ENDPROC
PROCEDURE setupgripper && The setup method to positiosn the dots according to the orientation of the splitter, also sets up the number of dots.
*-- 2009-01-04 By Matt Slay
*-- This sets the fixed positions that do no change when the form is resized.
*-- For vertical splitter, we will set the Top of the Gripper container to center it vertically.
*-- For horizontal splitter, we will set the Left of the Gripper container to center it horiziontally.
*-- This method only needs to be called once.
If this.parent.Width>this.parent.Height
With this
.SetupForVerticalSplitter()
.Anchor= 0
.top=(this.parent.Height-.height)/2-1
.Anchor=10
Endwith
Else
With this
.SetupForHorizontalSplitter()
.Anchor=0
.left=(this.parent.Width-.width)/2-1
.Anchor=5
Endwith
Endif
this.RepositionOnResize()
ENDPROC
ENDDEFINE
DEFINE CLASS gripperdot AS container
*< CLASSDATA: Baseclass="container" Timestamp="" Scale="Pixels" Uniqueid="" />
*-- OBJECTDATA items order determines ZOrder / El orden de los items OBJECTDATA determina el ZOrder
*< OBJECTDATA: ObjPath="ShapeDark" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="ShapeLight" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="ShapeMiddle" UniqueID="" Timestamp="" />
*<PropValue>
BackStyle = 0
BorderWidth = 0
Height = 4
Name = "gripperdot"
Width = 4
*</PropValue>
ADD OBJECT 'ShapeDark' AS shape WITH ;
BackStyle = 1, ;
BorderStyle = 0, ;
BorderWidth = 0, ;
FillColor = 80,80,80, ;
FillStyle = 0, ;
Height = 2, ;
Left = 1, ;
Name = "ShapeDark", ;
Top = 1, ;
Width = 2
*< END OBJECT: BaseClass="shape" />
ADD OBJECT 'ShapeLight' AS shape WITH ;
BackStyle = 1, ;
BorderStyle = 0, ;
BorderWidth = 0, ;
FillColor = 250,250,250, ;
FillStyle = 0, ;
Height = 2, ;
Left = 2, ;
Name = "ShapeLight", ;
Top = 2, ;
Width = 2
*< END OBJECT: BaseClass="shape" />
ADD OBJECT 'ShapeMiddle' AS shape WITH ;
BackStyle = 1, ;
BorderStyle = 0, ;
BorderWidth = 0, ;
FillColor = 173,209,255, ;
FillStyle = 0, ;
Height = 1, ;
Left = 2, ;
Name = "ShapeMiddle", ;
Top = 2, ;
Width = 1
*< END OBJECT: BaseClass="shape" />
PROCEDURE Init
this.MousePointer=this.Parent.Parent.MousePointer
this.SetAll('MousePointer', this.MousePointer, 'Shape')
ENDPROC
PROCEDURE MouseMove
LPARAMETERS nButton, nShift, nXCoord, nYCoord
this.parent.MouseMove(nButton, nShift, nXCoord, nYCoord)
ENDPROC
PROCEDURE ShapeDark.MouseMove
LPARAMETERS nButton, nShift, nXCoord, nYCoord
this.parent.MouseMove(nButton, nShift, nXCoord, nYCoord)
ENDPROC
PROCEDURE ShapeLight.MouseMove
LPARAMETERS nButton, nShift, nXCoord, nYCoord
this.parent.MouseMove(nButton, nShift, nXCoord, nYCoord)
ENDPROC
PROCEDURE ShapeMiddle.MouseMove
LPARAMETERS nButton, nShift, nXCoord, nYCoord
this.parent.MouseMove(nButton, nShift, nXCoord, nYCoord)
ENDPROC
ENDDEFINE
DEFINE CLASS sfsplitter AS control
*< CLASSDATA: Baseclass="control" Timestamp="" Scale="Pixels" Uniqueid="" />
*-- OBJECTDATA items order determines ZOrder / El orden de los items OBJECTDATA determina el ZOrder
*< OBJECTDATA: ObjPath="Gripper" UniqueID="" Timestamp="" />
*<DefinedPropArrayMethod>
*m: getobject1size && Gets the size for Object 1
*m: getobject2size && Gets the size for Object 2
*m: getobjectnames && Populates an array from a comma-delimited list
*m: getposition && Returns the new position: X for a horizontal splitter and Y for a vertical splitter
*m: moveobject1 && Moves Object 1 to the new position
*m: moveobject2 && Moves Object 2 to the new position
*m: movesplittertoposition && Moves the splitter to the specified position
*m: setposition && Sets the new position for the splitter
*m: setupgripper && A method to setup various properties on the gripper to visually configure it for Vertical or Horizontal configuration.
*m: splittermoved && Called after the splitter is moved
*p: cobject1name && The name of the object above (for a vertical splitter) or to the left of (for a horizontal splitter) the splitter
*p: cobject2name && The name of the object below (for a vertical splitter) or to the right of (for a horizontal splitter) the splitter
*p: linitialized && .T. after the control has been initialized
*p: ndots && Enter a value between 0 and 5 for the number of dots to be shown on the gripper. Enter 0 for none.
*p: nobject1minsize && The minimum height (for a vertical splitter) or width (for a horizontal splitter) of Object 1
*p: nobject2minsize && The minimum height (for a vertical splitter) or width (for a horizontal splitter) of Object 2
*p: _memberdata && XML Metadata for customizable properties
*</DefinedPropArrayMethod>
*<PropValue>
BackColor = 192,192,192
BackStyle = 1
BorderColor = 255,0,0
BorderWidth = 2
cobject1name =
cobject2name =
Height = 248
linitialized = .F.
Name = "sfsplitter"
ndots = 5
nobject1minsize = 150
nobject2minsize = 150
Width = 25
_memberdata = <VFPData>
<memberdata name="getobjectnames" type="method" display="GetObjectNames"/>
<memberdata name="movesplittertoposition" type="method" display="MoveSplitterToPosition"/>
<memberdata name="linitialized" type="property" display="lInitialized"/>
<memberdata name="cobject1name" type="property" display="cObject1Name"/>
<memberdata name="cobject2name" type="property" display="cObject2Name"/>
<memberdata name="nobject1minsize" type="property" display="nObject1MinSize"/>
<memberdata name="nobject2minsize" type="property" display="nObject2MinSize"/>
<memberdata name="getobject1size" type="method" display="GetObject1Size"/>
<memberdata name="getobject2size" type="method" display="GetObject2Size"/>
<memberdata name="setposition" type="method" display="SetPosition"/>
<memberdata name="moveobject1" type="method" display="MoveObject1"/>
<memberdata name="moveobject2" type="method" display="MoveObject2"/>
<memberdata name="getposition" type="method" display="GetPosition"/>
<memberdata name="splittermoved" type="method" display="SplitterMoved"/>
<memberdata name="lshowgripper" type="property" display="lShowGripper"/>
<memberdata name="showballoontip" type="method" display="ShowBalloonTip"/>
<memberdata name="setupgripper" type="method" display="SetupGripper"/>
<memberdata name="ndots" type="property" display="nDots"/>
</VFPData>
*</PropValue>
ADD OBJECT 'Gripper' AS gripper WITH ;
Height = 12, ;
Left = 1, ;
Name = "Gripper", ;
Top = -1, ;
Width = 20, ;
Gripperdot1.Name = "Gripperdot1", ;
Gripperdot1.ShapeDark.Name = "ShapeDark", ;
Gripperdot1.ShapeLight.Name = "ShapeLight", ;
Gripperdot1.ShapeMiddle.Name = "ShapeMiddle", ;
Gripperdot2.Name = "Gripperdot2", ;
Gripperdot2.ShapeDark.Name = "ShapeDark", ;
Gripperdot2.ShapeLight.Name = "ShapeLight", ;
Gripperdot2.ShapeMiddle.Name = "ShapeMiddle", ;
Gripperdot3.Name = "Gripperdot3", ;
Gripperdot3.ShapeDark.Name = "ShapeDark", ;
Gripperdot3.ShapeLight.Name = "ShapeLight", ;
Gripperdot3.ShapeMiddle.Name = "ShapeMiddle", ;
Gripperdot4.Name = "Gripperdot4", ;
Gripperdot4.ShapeDark.Name = "ShapeDark", ;
Gripperdot4.ShapeLight.Name = "ShapeLight", ;
Gripperdot4.ShapeMiddle.Name = "ShapeMiddle", ;
Gripperdot5.Name = "Gripperdot5", ;
Gripperdot5.ShapeDark.Name = "ShapeDark", ;
Gripperdot5.ShapeLight.Name = "ShapeLight", ;
Gripperdot5.ShapeMiddle.Name = "ShapeMiddle"
*< END OBJECT: ClassLib="sfsplitter.vcx" BaseClass="container" />
PROTECTED PROCEDURE getobject1size && Gets the size for Object 1
* Abstract method.
lparameters toObject
ENDPROC
PROTECTED PROCEDURE getobject2size && Gets the size for Object 2
* Abstract method.
lparameters toObject
ENDPROC
PROTECTED PROCEDURE getobjectnames && Populates an array from a comma-delimited list
lparameters tcList, ;
taArray
local lnOccurs, ;
lnStart, ;
lnI, ;
lnPos
lnOccurs = occurs(',', tcList) + 1
dimension taArray[lnOccurs]
lnStart = 1
for lnI = 1 to lnOccurs
if lnI = lnOccurs
lnPos = len(tcList) + 1
else
lnPos = at(',', tcList, lnI)
endif lnI = lnOccurs
taArray[lnI] = alltrim(substr(tcList, lnStart, lnPos - lnStart))
lnStart = lnPos + 1
next lnI
return lnOccurs
ENDPROC
PROTECTED PROCEDURE getposition && Returns the new position: X for a horizontal splitter and Y for a vertical splitter
* Abstract method.
lparameters tnXCoord, ;
tnYCoord
ENDPROC
PROCEDURE Init
* Make the border invisible and flag that Init has fired.
with This
.BorderWidth = 0
.lInitialized = .T.
.setupgripper()&& 2008-12-31 By Matt Slay
endwith
dodefault()
*--- Changes by Matt Slay to use Gripper control 2008-12-31 ----
* Added a Gripper container class to the VCX. A container consisting of (5) GripperDots.
* Added a GripprDot container class to the VCX. A container with a single "Dot" comprised of (3) VFP Shape objects with color, size, and position to make a cool shaded "dot".
* Added an instance of the Gripper object to the Splitter base control.
* Added nDots property to the Splitter base control.
* Added the SetupGripper() method to the Splitter base control.
* Added .SetupGripper() call in the Splitter base control Init() method.
* Added this.Gripper.RepositionOnResize() call on the Splitter base control Resize() method to keep the Gripper centered when hosting form or container is resized.
ENDPROC
PROCEDURE MouseMove
lparameters tnButton, ;
tnShift, ;
tnXCoord, ;
tnYCoord
local lnPosition
with This
if tnButton = 1 and .Enabled
lnPosition = .GetPosition(tnXCoord, tnYCoord)
.MoveSplitterToPosition(lnPosition)
endif tnButton = 1 ...
endwith
ENDPROC
PROTECTED PROCEDURE moveobject1 && Moves Object 1 to the new position
* Abstract method.
lparameters toObject
ENDPROC
PROTECTED PROCEDURE moveobject2 && Moves Object 2 to the new position
* Abstract method.
lparameters toObject
ENDPROC
PROCEDURE movesplittertoposition && Moves the splitter to the specified position
* Move the splitter to the specified position. Ensure it doesn't go too far,
* based on the nObject1MinSize and nObject2MinSize settings.
lparameters tnPosition
local lnPosition, ;
laObjects[1], ;
lnObjects, ;
lnI, ;
loObject, ;
lnAnchor
with This
lnPosition = tnPosition
lnObjects = .GetObjectNames(.cObject1Name, @laObjects)
for lnI = 1 to lnObjects
loObject = evaluate('.Parent.' + laObjects[lnI])
lnPosition = max(lnPosition, .GetObject1Size(loObject))
next lnI
lnObjects = .GetObjectNames(.cObject2Name, @laObjects)
for lnI = 1 to lnObjects
loObject = evaluate('.Parent.' + laObjects[lnI])
lnPosition = min(lnPosition, .GetObject2Size(loObject))
next lnI
lnAnchor = .Anchor
.Anchor = 0
.SetPosition(lnPosition)
.Anchor = lnAnchor
* Now move the left and right objects as well.
lnObjects = .GetObjectNames(.cObject1Name, @laObjects)
for lnI = 1 to lnObjects
loObject = evaluate('.Parent.' + laObjects[lnI])
with loObject
lnAnchor = .Anchor
.Anchor = 0
This.MoveObject1(loObject)
.Anchor = lnAnchor
endwith
next lnI
lnObjects = .GetObjectNames(.cObject2Name, @laObjects)
for lnI = 1 to lnObjects
loObject = evaluate('.Parent.' + laObjects[lnI])
with loObject
lnAnchor = .Anchor
.Anchor = 0
This.MoveObject2(loObject)
.Anchor = lnAnchor
endwith
next lnI
* Call a hook method.
.SplitterMoved()
endwith
ENDPROC
PROCEDURE Resize
this.Gripper.RepositionOnResize() && 2008-12-31 Added by Matt Slay to keep Gripper centered when form is resized.
Dodefault()
ENDPROC
PROTECTED PROCEDURE setposition && Sets the new position for the splitter
* Abstract method.
lparameters tnPosition
ENDPROC
PROCEDURE setupgripper && A method to setup various properties on the gripper to visually configure it for Vertical or Horizontal configuration.
*-- Method added by Matt Slay - 2009-01-04
this.Gripper.nDots=this.nDots
this.Gripper.SetupGripper()
ENDPROC
PROCEDURE splittermoved && Called after the splitter is moved
* Abstract method.
ENDPROC
ENDDEFINE
DEFINE CLASS sfsplitterh AS sfsplitter OF "sfsplitter.vcx"
*< CLASSDATA: Baseclass="control" Timestamp="" Scale="Pixels" Uniqueid="" />
*<PropValue>
Anchor = 13
MousePointer = 9
Name = "sfsplitterh"
gripper.Gripperdot1.Name = "Gripperdot1"
gripper.Gripperdot1.ShapeDark.Name = "ShapeDark"
gripper.Gripperdot1.ShapeLight.Name = "ShapeLight"
gripper.Gripperdot1.ShapeMiddle.Name = "ShapeMiddle"
gripper.Gripperdot2.Name = "Gripperdot2"
gripper.Gripperdot2.ShapeDark.Name = "ShapeDark"
gripper.Gripperdot2.ShapeLight.Name = "ShapeLight"
gripper.Gripperdot2.ShapeMiddle.Name = "ShapeMiddle"
gripper.Gripperdot3.Name = "Gripperdot3"
gripper.Gripperdot3.ShapeDark.Name = "ShapeDark"
gripper.Gripperdot3.ShapeLight.Name = "ShapeLight"
gripper.Gripperdot3.ShapeMiddle.Name = "ShapeMiddle"
gripper.Gripperdot4.Name = "Gripperdot4"
gripper.Gripperdot4.ShapeDark.Name = "ShapeDark"
gripper.Gripperdot4.ShapeLight.Name = "ShapeLight"
gripper.Gripperdot4.ShapeMiddle.Name = "ShapeMiddle"
gripper.Gripperdot5.Name = "Gripperdot5"
gripper.Gripperdot5.ShapeDark.Name = "ShapeDark"
gripper.Gripperdot5.ShapeLight.Name = "ShapeLight"
gripper.Gripperdot5.ShapeMiddle.Name = "ShapeMiddle"
gripper.Name = "gripper"
*</PropValue>
PROCEDURE getobject1size && Gets the size for Object 1
lparameters toObject
return toObject.Left + This.nObject1MinSize
ENDPROC
PROCEDURE getobject2size && Gets the size for Object 2
lparameters toObject
return toObject.Left + toObject.Width - This.nObject2MinSize - This.Width
ENDPROC
PROCEDURE getposition && Returns the new position: X for a horizontal splitter and Y for a vertical splitter
lparameters tnXCoord, ;
tnYCoord
return tnXCoord + This.Left - Objtoclient(this,2)
ENDPROC
PROCEDURE moveobject1 && Moves Object 1 to the new position
lparameters toObject
with toObject
.Move(.Left, .Top, This.Left - .Left, .Height)
endwith
ENDPROC
PROCEDURE moveobject2 && Moves Object 2 to the new position
lparameters toObject
with toObject
.Move(This.Left + This.Width, .Top, max(.Width + .Left - This.Left - ;
This.Width, 0), .Height)
endwith
ENDPROC
PROCEDURE setposition && Sets the new position for the splitter
lparameters tnPosition
This.Left = tnPosition
ENDPROC
ENDDEFINE
DEFINE CLASS sfsplitterh_panou AS sfsplitterh OF "sfsplitter.vcx"
*< CLASSDATA: Baseclass="control" Timestamp="" Scale="Pixels" Uniqueid="" />
*<DefinedPropArrayMethod>
*m: aliniazaobject1 && Lipeste Object 1 de splitter dupa Resize-ul lui Object 1
*m: legaobject1 && Leaga Resize-ul lui Object 1 de aliniazaobject1 (repetarea nu dubleaza legatura)
*m: mouseenter && Coloreaza splitterul la mouse over
*m: mouseleave && Readuce culoarea de dinainte de mouse over
*m: restoreposition && Restores the splitter position saved in the ini file (once)
*m: saveposition && Saves the splitter position in the ini file if it was changed
*p: cinicheie && Ini key for the saved position (empty = no persistence)
*p: cinisectiune && Ini section for the saved position (empty = no persistence)
*p: lhover && .T. cat timp splitterul e colorat la mouse over
*p: lrestaurat && .T. after RestorePosition() ran
*p: nbackcolorvechi && BackColor de dinainte de mouse over
*p: nbackstylevechi && BackStyle de dinainte de mouse over
*</DefinedPropArrayMethod>
*<PropValue>
BackColor = 200,215,230
BackStyle = 1
cinicheie =
cinisectiune =
lhover = .F.
lrestaurat = .F.
Name = "sfsplitterh_panou"
nbackcolorvechi = 0
nbackstylevechi = 0
gripper.Gripperdot1.Name = "Gripperdot1"
gripper.Gripperdot1.ShapeDark.Name = "ShapeDark"
gripper.Gripperdot1.ShapeLight.Name = "ShapeLight"
gripper.Gripperdot1.ShapeMiddle.Name = "ShapeMiddle"
gripper.Gripperdot2.Name = "Gripperdot2"
gripper.Gripperdot2.ShapeDark.Name = "ShapeDark"
gripper.Gripperdot2.ShapeLight.Name = "ShapeLight"
gripper.Gripperdot2.ShapeMiddle.Name = "ShapeMiddle"
gripper.Gripperdot3.Name = "Gripperdot3"
gripper.Gripperdot3.ShapeDark.Name = "ShapeDark"
gripper.Gripperdot3.ShapeLight.Name = "ShapeLight"
gripper.Gripperdot3.ShapeMiddle.Name = "ShapeMiddle"
gripper.Gripperdot4.Name = "Gripperdot4"
gripper.Gripperdot4.ShapeDark.Name = "ShapeDark"
gripper.Gripperdot4.ShapeLight.Name = "ShapeLight"
gripper.Gripperdot4.ShapeMiddle.Name = "ShapeMiddle"
gripper.Gripperdot5.Name = "Gripperdot5"
gripper.Gripperdot5.ShapeDark.Name = "ShapeDark"
gripper.Gripperdot5.ShapeLight.Name = "ShapeLight"
gripper.Gripperdot5.ShapeMiddle.Name = "ShapeMiddle"
gripper.Name = "gripper"
*</PropValue>
PROCEDURE aliniazaobject1 && Lipeste Object 1 de splitter dupa Resize-ul lui Object 1
Local lcObj1, loObj1
lcObj1 = This.cObject1Name
loObj1 = This.Parent.&lcObj1
If m.loObj1.Left + m.loObj1.Width # This.Left
m.loObj1.Width = Max(This.Left - m.loObj1.Left, 1)
Endif
ENDPROC
PROCEDURE Init
DoDefault()
This.LegaObject1()
ENDPROC
PROCEDURE legaobject1 && Leaga Resize-ul lui Object 1 de aliniazaobject1 (repetarea nu dubleaza legatura)
Local lcObj1, loObj1
lcObj1 = This.cObject1Name
If Pemstatus(This.Parent, m.lcObj1, 5)
loObj1 = This.Parent.&lcObj1
BindEvent(m.loObj1, 'Resize', This, 'aliniazaobject1', 1)
Endif
ENDPROC
PROCEDURE MouseEnter && Coloreaza splitterul la mouse over
LPARAMETERS nButton, nShift, nXCoord, nYCoord
DoDefault(m.nButton, m.nShift, m.nXCoord, m.nYCoord)
If !This.lHover
This.nBackColorVechi = This.BackColor
This.nBackStyleVechi = This.BackStyle
This.lHover = .T.
This.BackStyle = 1
This.BackColor = RGB(0,120,215)
Endif
ENDPROC
PROCEDURE MouseLeave && Readuce culoarea de dinainte de mouse over
LPARAMETERS nButton, nShift, nXCoord, nYCoord
Local loObj
DoDefault(m.nButton, m.nShift, m.nXCoord, m.nYCoord)
* mouse-ul a intrat pe gripper (copil al splitterului): ramane colorat
loObj = Sys(1270)
Try
Do While Vartype(m.loObj) = 'O'
If Compobj(m.loObj.Parent, This)
Return
Endif
loObj = m.loObj.Parent
Enddo
Catch
Endtry
If This.lHover
This.lHover = .F.
This.BackColor = This.nBackColorVechi
This.BackStyle = This.nBackStyleVechi
Endif
ENDPROC
PROCEDURE movesplittertoposition
LPARAMETERS tnPosition
Local lnDelta, lnPrag, lnAnchor, loCtl, loObj1, loObj2, lcObj1, lcObj2
lcObj1 = This.cObject1Name
lcObj2 = This.cObject2Name
loObj1 = This.Parent.&lcObj1
loObj2 = This.Parent.&lcObj2
tnPosition = Max(m.tnPosition, m.loObj1.Left + This.nObject1MinSize)
tnPosition = Min(m.tnPosition, This.Left + m.loObj2.Width - This.nObject2MinSize)
lnDelta = m.tnPosition - This.Left
If m.lnDelta = 0
m.loObj1.Width = m.tnPosition - m.loObj1.Left
Return
Endif
lnPrag = This.Left + This.Width
For Each loCtl In This.Parent.Objects
If Pemstatus(m.loCtl, 'Anchor', 5) And m.loCtl.Left >= m.lnPrag
lnAnchor = m.loCtl.Anchor
m.loCtl.Anchor = 0
If m.loCtl.Name == m.loObj2.Name
m.loCtl.Move(m.loCtl.Left + m.lnDelta, m.loCtl.Top, m.loCtl.Width - m.lnDelta, m.loCtl.Height)
Else
m.loCtl.Left = m.loCtl.Left + m.lnDelta
Endif
m.loCtl.Anchor = m.lnAnchor
Endif
Endfor
* splitterul si Object 1 se muta direct, fara a atinge Anchor (altfel tragerea pierde mouse-ul); Object 1 se dimensioneaza din pozitie
This.Left = m.tnPosition
m.loObj1.Width = m.tnPosition - m.loObj1.Left
This.SplitterMoved()
ENDPROC
PROCEDURE restoreposition && Restores the splitter position saved in the ini file (once)
Local lnPoz
This.LegaObject1()
If This.lRestaurat Or Empty(This.cIniSectiune) Or Empty(This.cIniCheie)
Return
Endif
This.lRestaurat = .T.
lnPoz = Val(Nvl(getini(m.gcGeneralIniFile, This.cIniSectiune, This.cIniCheie), ''))
If m.lnPoz > 0
This.MoveSplitterToPosition(m.lnPoz)
Endif
This.Tag = Transform(This.Left)
ENDPROC
PROCEDURE saveposition && Saves the splitter position in the ini file if it was changed
If This.lRestaurat And Transform(This.Left) != This.Tag
setini(m.gcGeneralIniFile, This.cIniSectiune, This.cIniCheie, Transform(This.Left))
Endif
ENDPROC
ENDDEFINE
DEFINE CLASS sfsplitterv AS sfsplitter OF "sfsplitter.vcx"
*< CLASSDATA: Baseclass="control" Timestamp="" Scale="Pixels" Uniqueid="" />
*<PropValue>
Anchor = 14
Height = 10
MousePointer = 7
Name = "sfsplitterv"
Width = 200
gripper.Gripperdot1.Name = "Gripperdot1"
gripper.Gripperdot1.ShapeDark.Name = "ShapeDark"
gripper.Gripperdot1.ShapeLight.Name = "ShapeLight"
gripper.Gripperdot1.ShapeMiddle.Name = "ShapeMiddle"
gripper.Gripperdot2.Name = "Gripperdot2"
gripper.Gripperdot2.ShapeDark.Name = "ShapeDark"
gripper.Gripperdot2.ShapeLight.Name = "ShapeLight"
gripper.Gripperdot2.ShapeMiddle.Name = "ShapeMiddle"
gripper.Gripperdot3.Name = "Gripperdot3"
gripper.Gripperdot3.ShapeDark.Name = "ShapeDark"
gripper.Gripperdot3.ShapeLight.Name = "ShapeLight"
gripper.Gripperdot3.ShapeMiddle.Name = "ShapeMiddle"
gripper.Gripperdot4.Name = "Gripperdot4"
gripper.Gripperdot4.ShapeDark.Name = "ShapeDark"
gripper.Gripperdot4.ShapeLight.Name = "ShapeLight"
gripper.Gripperdot4.ShapeMiddle.Name = "ShapeMiddle"
gripper.Gripperdot5.Name = "Gripperdot5"
gripper.Gripperdot5.ShapeDark.Name = "ShapeDark"
gripper.Gripperdot5.ShapeLight.Name = "ShapeLight"
gripper.Gripperdot5.ShapeMiddle.Name = "ShapeMiddle"
gripper.Name = "gripper"
*</PropValue>
PROCEDURE getobject1size
lparameters toObject
return toObject.Top + This.nObject1MinSize
ENDPROC
PROCEDURE getobject2size
lparameters toObject
return toObject.Top + toObject.Height - This.nObject2MinSize - This.Height
ENDPROC
PROCEDURE getposition
lparameters tnXCoord, ;
tnYCoord
return tnYCoord + This.Top - Objtoclient(this,1)
ENDPROC
PROCEDURE moveobject1
lparameters toObject
with toObject
.Move(.Left, .Top, .Width, This.Top - .Top)
endwith
ENDPROC
PROCEDURE moveobject2
lparameters toObject
with toObject
.Move(.Left, This.Top + This.Height, .Width, max(.Height + .Top - This.Top - ;
This.Height, 0))
endwith
ENDPROC
PROCEDURE setposition
lparameters tnPosition
This.Top = tnPosition
ENDPROC
ENDDEFINE
DEFINE CLASS sfsplitterv_panou AS sfsplitterv OF "sfsplitter.vcx"
*< CLASSDATA: Baseclass="control" Timestamp="" Scale="Pixels" Uniqueid="" />
*<DefinedPropArrayMethod>
*m: aliniazaobject1 && Lipeste Object 1 de splitter dupa Resize-ul lui Object 1
*m: legaobject1 && Leaga Resize-ul lui Object 1 de aliniazaobject1 (repetarea nu dubleaza legatura)
*m: mouseenter && Coloreaza splitterul la mouse over
*m: mouseleave && Readuce culoarea de dinainte de mouse over
*m: restoreposition && Restores the splitter position saved in the ini file (once)
*m: saveposition && Saves the splitter position in the ini file if it was changed
*p: cinicheie && Ini key for the saved position (empty = no persistence)
*p: cinisectiune && Ini section for the saved position (empty = no persistence)
*p: lhover && .T. cat timp splitterul e colorat la mouse over
*p: lrestaurat && .T. after RestorePosition() ran
*p: nbackcolorvechi && BackColor de dinainte de mouse over
*p: nbackstylevechi && BackStyle de dinainte de mouse over
*</DefinedPropArrayMethod>
*<PropValue>
BackColor = 200,215,230
BackStyle = 1
cinicheie =
cinisectiune =
lhover = .F.
lrestaurat = .F.
Name = "sfsplitterv_panou"
nbackcolorvechi = 0
nbackstylevechi = 0
gripper.Gripperdot1.Name = "Gripperdot1"
gripper.Gripperdot1.ShapeDark.Name = "ShapeDark"
gripper.Gripperdot1.ShapeLight.Name = "ShapeLight"
gripper.Gripperdot1.ShapeMiddle.Name = "ShapeMiddle"
gripper.Gripperdot2.Name = "Gripperdot2"
gripper.Gripperdot2.ShapeDark.Name = "ShapeDark"
gripper.Gripperdot2.ShapeLight.Name = "ShapeLight"
gripper.Gripperdot2.ShapeMiddle.Name = "ShapeMiddle"
gripper.Gripperdot3.Name = "Gripperdot3"
gripper.Gripperdot3.ShapeDark.Name = "ShapeDark"
gripper.Gripperdot3.ShapeLight.Name = "ShapeLight"
gripper.Gripperdot3.ShapeMiddle.Name = "ShapeMiddle"
gripper.Gripperdot4.Name = "Gripperdot4"
gripper.Gripperdot4.ShapeDark.Name = "ShapeDark"
gripper.Gripperdot4.ShapeLight.Name = "ShapeLight"
gripper.Gripperdot4.ShapeMiddle.Name = "ShapeMiddle"
gripper.Gripperdot5.Name = "Gripperdot5"
gripper.Gripperdot5.ShapeDark.Name = "ShapeDark"
gripper.Gripperdot5.ShapeLight.Name = "ShapeLight"
gripper.Gripperdot5.ShapeMiddle.Name = "ShapeMiddle"
gripper.Name = "gripper"
*</PropValue>
PROCEDURE aliniazaobject1 && Lipeste Object 1 de splitter dupa Resize-ul lui Object 1
Local lcObj1, loObj1
lcObj1 = This.cObject1Name
loObj1 = This.Parent.&lcObj1
If m.loObj1.Top + m.loObj1.Height # This.Top
m.loObj1.Height = Max(This.Top - m.loObj1.Top, 1)
Endif
ENDPROC
PROCEDURE Init
DoDefault()
This.LegaObject1()
ENDPROC
PROCEDURE legaobject1 && Leaga Resize-ul lui Object 1 de aliniazaobject1 (repetarea nu dubleaza legatura)
Local lcObj1, loObj1
lcObj1 = This.cObject1Name
If Pemstatus(This.Parent, m.lcObj1, 5)
loObj1 = This.Parent.&lcObj1
BindEvent(m.loObj1, 'Resize', This, 'aliniazaobject1', 1)
Endif
ENDPROC
PROCEDURE MouseEnter && Coloreaza splitterul la mouse over
LPARAMETERS nButton, nShift, nXCoord, nYCoord
DoDefault(m.nButton, m.nShift, m.nXCoord, m.nYCoord)
If !This.lHover
This.nBackColorVechi = This.BackColor
This.nBackStyleVechi = This.BackStyle
This.lHover = .T.
This.BackStyle = 1
This.BackColor = RGB(0,120,215)
Endif
ENDPROC
PROCEDURE MouseLeave && Readuce culoarea de dinainte de mouse over
LPARAMETERS nButton, nShift, nXCoord, nYCoord
Local loObj
DoDefault(m.nButton, m.nShift, m.nXCoord, m.nYCoord)
* mouse-ul a intrat pe gripper (copil al splitterului): ramane colorat
loObj = Sys(1270)
Try
Do While Vartype(m.loObj) = 'O'
If Compobj(m.loObj.Parent, This)
Return
Endif
loObj = m.loObj.Parent
Enddo
Catch
Endtry
If This.lHover
This.lHover = .F.
This.BackColor = This.nBackColorVechi
This.BackStyle = This.nBackStyleVechi
Endif
ENDPROC
PROCEDURE movesplittertoposition
LPARAMETERS tnPosition
Local lnDelta, lnPrag, lnAnchor, loCtl, loObj1, loObj2, lcObj1, lcObj2
lcObj1 = This.cObject1Name
lcObj2 = This.cObject2Name
loObj1 = This.Parent.&lcObj1
loObj2 = This.Parent.&lcObj2
tnPosition = Max(m.tnPosition, m.loObj1.Top + This.nObject1MinSize)
tnPosition = Min(m.tnPosition, This.Top + m.loObj2.Height - This.nObject2MinSize)
lnDelta = m.tnPosition - This.Top
If m.lnDelta = 0
m.loObj1.Height = m.tnPosition - m.loObj1.Top
Return
Endif
lnPrag = This.Top + This.Height
For Each loCtl In This.Parent.Objects
If Pemstatus(m.loCtl, 'Anchor', 5) And m.loCtl.Top >= m.lnPrag
lnAnchor = m.loCtl.Anchor
m.loCtl.Anchor = 0
If m.loCtl.Name == m.loObj2.Name
m.loCtl.Move(m.loCtl.Left, m.loCtl.Top + m.lnDelta, m.loCtl.Width, m.loCtl.Height - m.lnDelta)
Else
m.loCtl.Top = m.loCtl.Top + m.lnDelta
Endif
m.loCtl.Anchor = m.lnAnchor
Endif
Endfor
* splitterul si Object 1 se muta direct, fara a atinge Anchor (altfel tragerea pierde mouse-ul); Object 1 se dimensioneaza din pozitie
This.Top = m.tnPosition
m.loObj1.Height = m.tnPosition - m.loObj1.Top
This.SplitterMoved()
ENDPROC
PROCEDURE restoreposition && Restores the splitter position saved in the ini file (once)
Local lnPoz
This.LegaObject1()
If This.lRestaurat Or Empty(This.cIniSectiune) Or Empty(This.cIniCheie)
Return
Endif
This.lRestaurat = .T.
lnPoz = Val(Nvl(getini(m.gcGeneralIniFile, This.cIniSectiune, This.cIniCheie), ''))
If m.lnPoz > 0
This.MoveSplitterToPosition(m.lnPoz)
Endif
This.Tag = Transform(This.Top)
ENDPROC
PROCEDURE saveposition && Saves the splitter position in the ini file if it was changed
If This.lRestaurat And Transform(This.Top) != This.Tag
setini(m.gcGeneralIniFile, This.cIniSectiune, This.cIniCheie, Transform(This.Top))
Endif
ENDPROC
ENDDEFINE
Reference in New Issue View Git Blame Copy Permalink