>>************************************************** >>*-- Class: cntmover (w:\sss\smna\proctrls.vcx) >>*-- ParentClass: container >>*-- BaseClass: container >>*-- Time Stamp: 06/22/09 05:33:11 PM >>*-- Mover class >>* >>DEFINE CLASS cntmover AS container >> >> >> Width = 516 >> Height = 221 >> BackStyle = 0 >> BorderWidth = 0 >> Name = "cntmover" >> >> *-- Array list of items >> DIMENSION arritems[1] >> >> >> ADD OBJECT cmdmoveone AS commandbutton_ WITH ; >> Top = 44, ; >> Left = 242, ; >> Height = 26, ; >> Width = 30, ; >> Anchor = 768, ; >> Picture = "..\..\vpme91\bitmaps\mover1.bmp", ; >> Caption = "", ; >> TabIndex = 4, ; >> ToolTipText = "Move", ; >> Name = "cmdMoveOne" >> >> >> ADD OBJECT cmdmoveall AS commandbutton_ WITH ; >> Top = 76, ; >> Left = 242, ; >> Height = 26, ; >> Width = 30, ; >> Anchor = 768, ; >> Picture = "..\..\vpme91\bitmaps\mover2.bmp", ; >> Caption = "", ; >> TabIndex = 5, ; >> ToolTipText = "Move All", ; >> Name = "cmdMoveAll" >> >> >> ADD OBJECT cmdremoveone AS commandbutton_ WITH ; >> Top = 118, ; >> Left = 242, ; >> Height = 26, ; >> Width = 30, ; >> Anchor = 768, ; >> Picture = "..\..\vpme91\bitmaps\mover_1.bmp", ; >> Caption = "", ; >> TabIndex = 6, ; >> ToolTipText = "Remove", ; >> Name = "cmdRemoveOne" >> >> >> ADD OBJECT cmdremoveall AS commandbutton_ WITH ; >> Top = 150, ; >> Left = 242, ; >> Height = 26, ; >> Width = 30, ; >> Anchor = 768, ; >> Picture = "..\..\vpme91\bitmaps\mover_2.bmp", ; >> Caption = "", ; >> TabIndex = 7, ; >> ToolTipText = "Remove All", ; >> Name = "cmdRemoveAll" >> >> >> ADD OBJECT lstsource AS listbox_ WITH ; >> OLEDragMode = 1, ; >> OLEDropMode = 1, ; >> FontName = "Arial", ; >> Anchor = 45, ; >> RowSourceType = 0, ; >> RowSource = "", ; >> Value = "", ; >> Height = 204, ; >> Left = 0, ; >> MultiSelect = .T., ; >> TabIndex = 3, ; >> Top = 17, ; >> Width = 228, ; >> Name = "lstSource" >> >> >> ADD OBJECT lblsource AS label_ WITH ; >> Caption = "Source", ; >> Left = 3, ; >> Top = 0, ; >> TabIndex = 2, ; >> Name = "lblSource" >> >> >> ADD OBJECT lbldestination AS label_ WITH ; >> Caption = "Destination", ; >> Height = 17, ; >> Left = 291, ; >> Top = 0, ; >> Width = 65, ; >> TabIndex = 8, ; >> Name = "lblDestination" >> >> >> ADD OBJECT lstdestination AS listbox_ WITH ; >> OLEDragMode = 1, ; >> OLEDropMode = 1, ; >> FontName = "Arial", ; >> Anchor = 45, ; >> RowSourceType = 0, ; >> RowSource = "", ; >> Value = "", ; >> Height = 204, ; >> Left = 288, ; >> MultiSelect = .T., ; >> TabIndex = 9, ; >> Top = 17, ; >> Width = 228, ; >> Name = "lstDestination" >> >> >> PROCEDURE Init >> ** Would changing anchor settings be enough for auto-resize? >> DODEFAULT() >> LOCAL lnAdjust, lnButtonsHeight, lnNewTop, lnBetweenListsSpace, lnExtraWidth >> STORE (this.Height - this.lstDestination.Top - 2) TO this.lstDestination.Height, this.lstSource.Height >> lnButtonsHeight = 132 >> lnNewTop = (this.Height - m.lnButtonsHeight)/2 >> lnAdjust = m.lnNewTop - this.cmdMoveOne.Top >> >> this.cmdMoveOne.Top = m.lnNewTop + m.lnAdjust >> this.cmdMoveAll.Top = this.cmdMoveAll.Top + m.lnAdjust >> this.cmdReMoveOne.Top = this.cmdReMoveOne.Top + m.lnAdjust >> this.cmdReMoveAll.Top = this.cmdReMoveAll.Top + m.lnAdjust >> >> lnBetweenListsSpace = this.lstDestination.Left - this.lstSource.Width && assuming that lstSource.Left = 0 >> lnExtraWidth = (this.Width - (2*this.lstDestination.Width + m.lnBetweenListsSpace))/2 >> STORE (this.lstDestination.Width + m.lnExtraWidth) TO this.lstSource.Width, this.lblDestination.Width >> STORE (this.cmdMoveAll.Left + m.lnExtraWidth) TO this.cmdMoveAll.Left, this.cmdMoveOne.Left, ; >> this.cmdReMoveAll.Left, this.cmdReMoveOne.Left >> this.lblDestination.Left = this.lblDestination.Left + m.lnExtraWidth >> this.lstDestination.Left = this.lstDestination.Left + m.lnExtraWidth >> >> >> ENDPROC >> >> >>ENDDEFINE >>* >>*-- EndDefine: cntmover >>************************************************** >>