caddtobutton
cimagelist
clistview
clistviewbar
cmanagebutton
cmanagefavorites
cmorefavorites

Class: caddtobutton

Class: cbuttonsmall in vfxappl.vcx
Baseclass: commandbutton

Properties Methods Objects

Properties

Name	Initial value
Picture	..\bitmap\toolbar\addto.bmp
ToolTipText	"Add to Favorites"

Methods

caddtobutton.Refresh
DODEFAULT()

THIS.ENABLED = .T.
caddtobutton.Click
addtofavorite()

Class: cimagelist

Class: olecontrol
Baseclass: olecontrol

Properties Methods Objects

Name Initial value Comment

nimageheight 0

nimagewidth 0

Name	Initial value	Comment
nimageheight	0
nimagewidth	0

Class: clistview

Class: olecontrol
Baseclass: olecontrol

Properties Methods Objects

Name Initial value Comment

oactiveitem .NULL.

Name	Initial value	Comment
oactiveitem	.NULL.

Methods

clistview.gotofavorite
LPARAMETERS oitem

gotofavorite(IIF(" "$oitem.subitems(1), SUBSTR(oitem.subitems(1),1,AT(" ", oitem.subitems(1))-1), oitem.subitems(1)), ;
VAL(LEFT(oitem.KEY, 10)))
clistview.AfterLabelEdit
*** OLE Control Event ***
LPARAMETERS CANCEL, newstring

LOCAL lcmenu
lcmenu = IIF(" "$THIS.SELECTEDITEM.subitems(1), ;
SUBSTR(THIS.SELECTEDITEM.subitems(1),1,AT(" ", THIS.SELECTEDITEM.subitems(1))-1), ;
THIS.SELECTEDITEM.subitems(1))

DEFINE BAR VAL(LEFT(THIS.SELECTEDITEM.KEY, 10)) OF (lcmenu) PROMPT TRIM(newstring)
clistview.ColumnClick
*** OLE Control Event ***
LPARAMETERS COLUMNHEADER

THIS.SORTED = .T.
IF THIS.sortkey = COLUMNHEADER.INDEX -1
    THIS.sortorder = IIF(THIS.sortorder = 0, 1, 0)
ELSE
    THIS.sortkey   = COLUMNHEADER.INDEX -1
    THIS.sortorder = 0
ENDIF
clistview.ItemClick
*** OLE Control Event ***
LPARAMETERS ITEM

THIS.oactiveitem = ITEM
clistview.MouseDown
*** OLE Control Event ***
LPARAMETERS BUTTON, SHIFT, x, Y

THIS.oactiveitem = .NULL.
clistview.DblClick
*** OLE Control Event ***

IF !ISNULL(THIS.oactiveitem)
    THISFORM.RELEASE()
    THIS.gotofavorite(THIS.oactiveitem)
ELSE
    THIS.SORTED = .T.
ENDIF

Class: clistviewbar

Class: container
Baseclass: container

Properties Methods Objects

Properties

Name	Initial value
Comment	""

Objects

Baseclass	Class	Object name
commandbutton	ctoolbarbutton	clistviewbar.cmdclose
		clistviewbar.cmddelete
		clistviewbar.cmddetail
		clistviewbar.cmdlarge
		clistviewbar.cmdlist
		clistviewbar.cmdopen
		clistviewbar.cmdsmall
shape	shape	clistviewbar.oBorder

clistviewbar.cmdclose

Class: ctoolbarbutton in vfxctrl.vcx
Baseclass: commandbutton
Properties Methods Objects

Properties

Name	Initial value
Picture	..\bitmap\toolbar\close.bmp
TabIndex	7
ToolTipText	"Close (Esc)"

Methods

clistviewbar.cmdclose.Click
THISFORM.RELEASE()

clistviewbar.cmddelete

Class: ctoolbarbutton in vfxctrl.vcx
Baseclass: commandbutton
Properties Methods Objects

Properties

Name	Initial value
Picture	..\bitmap\toolbar\delete.bmp
TabIndex	2
ToolTipText	"Delete Favorite"

Methods

clistviewbar.cmddelete.Click
IF !ISNULL(THISFORM.olelistview.SELECTEDITEM)
    LOCAL oitem, lcmenu, lnelement
    oitem = THISFORM.olelistview.SELECTEDITEM
    lcmenu = IIF(" "$oitem.subitems(1), ;
        SUBSTR(oitem.subitems(1),1,AT(" ", oitem.subitems(1))-1), ;
        oitem.subitems(1))

    lnelement = 0
    LOCAL z
    FOR z=1 TO ALEN(goprogram.afavorites)
        IF getarg(goprogram.afavorites[z],1)=lcmenu AND;
                getarg(goprogram.afavorites[z],6)=LEFT(oitem.KEY,10)
            lnelement = z
            EXIT
        ENDIF
    NEXT

    IF lnelement <> 0
        RELEASE BAR VAL(LEFT(oitem.KEY,10)) OF (lcmenu)
        ADEL(goprogram.afavorites, lnelement)
        IF ALEN(goprogram.afavorites,1) = 1
            goprogram.afavorites[1] = .F.
        ELSE
            DIMENSION goprogram.afavorites[alen(goProgram.aFavorites,1) -1]
        ENDIF
        THISFORM.olelistview.listitems.REMOVE(THISFORM.olelistview.SELECTEDITEM.KEY)
        THISFORM.olelistview.SORTED = .T.
    ENDIF
ENDIF

THISFORM.olelistview.SETFOCUS()

clistviewbar.cmddetail

Class: ctoolbarbutton in vfxctrl.vcx
Baseclass: commandbutton
Properties Methods Objects

Properties

Name	Initial value
Picture	..\bitmap\toolbar\idetails.bmp
TabIndex	6
ToolTipText	"Details"

Methods

clistviewbar.cmddetail.Click
THISFORM.olelistview.VIEW = 3

clistviewbar.cmdlarge

Class: ctoolbarbutton in vfxctrl.vcx
Baseclass: commandbutton
Properties Methods Objects

Properties

Name	Initial value
Picture	..\bitmap\toolbar\ilarge.bmp
TabIndex	3
ToolTipText	"Large Icons"

Methods

clistviewbar.cmdlarge.Click
THISFORM.olelistview.VIEW = 0

clistviewbar.cmdlist

Class: ctoolbarbutton in vfxctrl.vcx
Baseclass: commandbutton
Properties Methods Objects

Properties

Name	Initial value
Picture	..\bitmap\toolbar\ilist.bmp
TabIndex	5
ToolTipText	"List"

Methods

clistviewbar.cmdlist.Click
THISFORM.olelistview.VIEW = 2

clistviewbar.cmdopen

Class: ctoolbarbutton in vfxctrl.vcx
Baseclass: commandbutton
Properties Methods Objects

Properties

Name	Initial value
Picture	..\bitmap\toolbar\open.bmp
TabIndex	1
ToolTipText	"Open Favorite"

Methods

clistviewbar.cmdopen.Click
IF !ISNULL(THISFORM.olelistview.SELECTEDITEM)
THISFORM.RELEASE()
THISFORM.olelistview.gotofavorite(THISFORM.olelistview.SELECTEDITEM)
ENDIF

clistviewbar.cmdsmall

Class: ctoolbarbutton in vfxctrl.vcx
Baseclass: commandbutton
Properties Methods Objects

Properties

Name	Initial value
Picture	..\bitmap\toolbar\ismall.bmp
TabIndex	4
ToolTipText	"Small Icons"

Methods

clistviewbar.cmdsmall.Click
THISFORM.olelistview.VIEW = 1

clistviewbar.oBorder

Class: shape
Baseclass: shape
Properties Methods Objects

Properties

Name	Initial value
SpecialEffect	0

Class: cmanagebutton

Class: cbuttonsmall in vfxappl.vcx
Baseclass: commandbutton

Properties Methods Objects

Properties

Name	Initial value
Picture	..\bitmap\toolbar\manage.bmp
ToolTipText	"Look in Favorites"

Methods

cmanagebutton.Refresh
DODEFAULT()

THIS.ENABLED = .T.
cmanagebutton.Click
runmanagefavorites()

Class: cmanagefavorites

Class: cform in vfxobj.vcx
Baseclass: form

Properties Methods Objects

Properties

Name	Initial value
Caption	"Manage Favorites"
DoCreate	.T.

Methods

cmanagefavorites.updatefavorites
LOCAL lni, lcbitmap, lcsubitem

oolelistview = THISFORM.olelistview
WITH oolelistview

    .listitems.CLEAR()

    IF !EMPTY( goprogram.afavorites)
        FOR lni = 1 TO ALEN( goprogram.afavorites, 1)

            lcbitmap  = getarg( goprogram.afavorites[lni],4)
            lcsubitem = getarg( goprogram.afavorites[lni],1)
            loobject = .listitems.ADD(, getarg( goprogram.afavorites[lni],6)+SYS(2015), ;
                getarg( goprogram.afavorites[lni],3) , lcbitmap, lcbitmap)

            loobject.subitems(1) = lcsubitem
        ENDFOR
    ENDIF

    .sortkey = 1
    .SETFOCUS()

ENDWITH
cmanagefavorites.langsetup
**__VFX_WIZARD_HEADER - 04.10.98 00:20:22

thisForm.Caption = CAP_FRMMANAGEFAVORITES
thisform.listviewbar1.cmdlarge.ToolTipText = TTT_CMDLARGE
thisform.listviewbar1.cmdsmall.ToolTipText = TTT_CMDSMALL
thisform.listviewbar1.cmdlist.ToolTipText = TTT_CMDLIST
thisform.listviewbar1.cmddetail.ToolTipText = TTT_CMDDETAIL
thisform.listviewbar1.cmddelete.ToolTipText = TTT_CMDDELETE
thisform.listviewbar1.cmdclose.ToolTipText = TTT_CMDCLOSE
thisform.listviewbar1.cmdopen.ToolTipText = TTT_CMDOPEN

return .T.
**__VFX_WIZARD_FOOTER
***********************************************************
cmanagefavorites.Init
DODEFAULT()

WITH THISFORM.olelistview

    * Check for existance of images.
    IF TYPE("thisform.oleImageListLarge.Object")#"U"
        .icons      = THISFORM.oleimagelistlarge.OBJECT
        .smallicons = THISFORM.oleimagelistsmall.OBJECT
    ENDIF

    .COLUMNHEADERS.CLEAR()
    .listitems.CLEAR()

    .COLUMNHEADERS.ADD(, "Titel", "Titel", 95, 0)
    .COLUMNHEADERS.ADD(, "Typ",   "Typ", 95, 0)

ENDWITH

* Check for existance of images.
IF TYPE("thisform.oleImageListLarge.Object")#"U"
    THISFORM.updatefavorites()
ENDIF
cmanagefavorites.Activate
DODEFAULT()

THISFORM.olelistview.SORTED = .T.

Objects

Baseclass	Class	Object name
container	clistviewbar	cmanagefavorites.Listviewbar1
olecontrol	cimagelist	cmanagefavorites.oleImageListLarge
		cmanagefavorites.oleImageListSmall
	clistview	cmanagefavorites.oleListView

cmanagefavorites.Listviewbar1

Class: clistviewbar in vfxfavor.vcx
Baseclass: container
Properties Methods Objects

Properties

Name	Initial value
TabIndex	1
ZOrderSet	1

Objects

Baseclass	Class	Object name
zzz	zzz	cmanagefavorites.Listviewbar1.cmdClose
		cmanagefavorites.Listviewbar1.cmdDelete
		cmanagefavorites.Listviewbar1.cmdOpen
		cmanagefavorites.Listviewbar1.cmddetail
		cmanagefavorites.Listviewbar1.cmdlarge
		cmanagefavorites.Listviewbar1.cmdlist
		cmanagefavorites.Listviewbar1.cmdsmall
		cmanagefavorites.Listviewbar1.oBorder

cmanagefavorites.Listviewbar1.cmdClose

Class: zzz
Baseclass: zzz
Properties Methods Objects

cmanagefavorites.Listviewbar1.cmdDelete

Class: zzz
Baseclass: zzz
Properties Methods Objects

cmanagefavorites.Listviewbar1.cmdOpen

Class: zzz
Baseclass: zzz
Properties Methods Objects

cmanagefavorites.Listviewbar1.cmddetail

Class: zzz
Baseclass: zzz
Properties Methods Objects

cmanagefavorites.Listviewbar1.cmdlarge

Class: zzz
Baseclass: zzz
Properties Methods Objects

cmanagefavorites.Listviewbar1.cmdlist

Class: zzz
Baseclass: zzz
Properties Methods Objects

cmanagefavorites.Listviewbar1.cmdsmall

Class: zzz
Baseclass: zzz
Properties Methods Objects

cmanagefavorites.Listviewbar1.oBorder

Class: zzz
Baseclass: zzz
Properties Methods Objects

cmanagefavorites.oleImageListLarge

Class: cimagelist in vfxfavor.vcx
Baseclass: olecontrol
Properties Methods Objects

Properties

Name	Initial value
nimageheight	gu_IconSize
nimagewidth	gu_IconSize

Methods

cmanagefavorites.oleImageListLarge.Init
LOCAL latemp, lni, lnii, lcbitmap, lcerror, llerror
lni        = 1
lnii    = 1

lcerror    = ON("error")
ON ERROR llerror=.T.

DIMENSION latemp[1]

IF !EMPTY(goprogram.afavorites)

    FOR lni = 1 TO ALEN(goprogram.afavorites, 1)

        lcbitmap  = TRIM(getarg(goprogram.afavorites[lni], 4))
        llerror        = .F.

        IF ASCAN(latemp, lcbitmap) = 0

            DIMENSION latemp[lnii]
            latemp[lnii] = lcbitmap

            lnii    = lnii +1

            **    NOTE: Ico's from the main form must be included in the project.
            **    however, when used on the imagelist, they must be excluded to be able
            **    to run in an exe. That's why you must use separate bmp's for the
            **    favorites! The main.ico can be used because it's by default escluded
            **    and it will be used whenever no icon has been specified for the form.
            IF LOWER(lcbitmap) <> "main"
                THIS.listimages.ADD(, lcbitmap, LOADPICTURE("bitmap\" + lcbitmap + ".bmp"))
                IF llerror
                    llerror    = .F.
                    THIS.listimages.ADD(, lcbitmap, LOADPICTURE(lcbitmap + ".bmp"))
                ENDIF
            ENDIF

            IF LOWER(lcbitmap) = "main" OR llerror
                llerror    = .F.
                THIS.listimages.ADD(, lcbitmap, LOADPICTURE("bitmap\main.ico"))
                IF llerror
                    llerror    = .F.
                    THIS.listimages.ADD(, lcbitmap, LOADPICTURE("main.ico"))
                    IF llerror
                        llerror    = .F.
                        THIS.listimages.ADD(, lcbitmap, LOADPICTURE("bitmap\main.bmp"))
                        IF llerror
                            THIS.listimages.ADD(, lcbitmap, LOADPICTURE("main.bmp"))
                        ENDIF
                    ENDIF
                ENDIF
            ENDIF

        ENDIF

    NEXT lni

ENDIF

ON ERROR &lcerror

cmanagefavorites.oleImageListSmall

Class: cimagelist in vfxfavor.vcx
Baseclass: olecontrol
Properties Methods Objects

Properties

Name	Initial value
nimageheight	gu_IconSize_s
nimagewidth	gu_IconSize_s

Methods

cmanagefavorites.oleImageListSmall.Init
LOCAL latemp, lni, lnii, lcbitmap, lcerror, llerror
lni        = 1
lnii    = 1

lcerror    = ON("error")
ON ERROR llerror=.T.

DIMENSION latemp[1]

IF !EMPTY(goprogram.afavorites)

    FOR lni = 1 TO ALEN(goprogram.afavorites, 1)

        lcbitmap  = TRIM(getarg(goprogram.afavorites[lni], 4))
        llerror        = .F.

        IF ASCAN(latemp, lcbitmap) = 0

            DIMENSION latemp[lnii]
            latemp[lnii] = lcbitmap

            lnii    = lnii +1

            **    NOTE: Ico's from the main form must be included in the project.
            **    however, when used on the imagelist, they must be excluded to be able
            **    to run in an exe. That's why you must use separate bmp's for the
            **    favorites! The main.ico can ^be used because it's by default escluded
            **    and it will be used whenever no icon has been specified for the form.
            IF LOWER(lcbitmap) <> "main"
                THIS.listimages.ADD(, lcbitmap, LOADPICTURE("bitmap\" + lcbitmap + ".bmp"))
                IF llerror
                    llerror    = .F.
                    THIS.listimages.ADD(, lcbitmap, LOADPICTURE(lcbitmap + ".bmp"))
                ENDIF
            ENDIF

            IF LOWER(lcbitmap) = "main" OR llerror
                llerror    = .F.
                THIS.listimages.ADD(, lcbitmap, LOADPICTURE("bitmap\main.ico"))
                IF llerror
                    llerror    = .F.
                    THIS.listimages.ADD(, lcbitmap, LOADPICTURE("main.ico"))
                    IF llerror
                        llerror    = .F.
                        THIS.listimages.ADD(, lcbitmap, LOADPICTURE("bitmap\main.bmp"))
                        IF llerror
                            THIS.listimages.ADD(, lcbitmap, LOADPICTURE("main.bmp"))
                        ENDIF
                    ENDIF
                ENDIF
            ENDIF

        ENDIF

    NEXT lni

ENDIF

ON ERROR &lcerror

cmanagefavorites.oleListView

Class: clistview in vfxfavor.vcx
Baseclass: olecontrol
Properties Methods Objects

Properties

Name	Initial value
Comment	""
TabIndex	4
ZOrderSet	0

Methods

cmanagefavorites.oleListView.KeyPress
*** ActiveX-Steuerelementereignis ***
LPARAMETERS keyascii
DO CASE
CASE keyascii=13
    this.dblclick()
CASE keyascii=27
    thisform.keypress(keyascii,0)
    NODEFAULT
ENDCASE

Class: cmorefavorites

Class: cform in vfxobj.vcx
Baseclass: form

Properties Methods Objects

Properties

Name	Initial value
Caption	"Activate Favorite"
DoCreate	.T.

Name Initial value Comment

^laitems[1,3] .f.

Name	Initial value	Comment
^laitems[1,3]	.f.

Methods

cmorefavorites.activatefavorite
gotofavorite(TRIM(THISFORM.laitems[thisform.clistbox1.ListIndex, 2]), ;
VAL(THISFORM.laitems[thisform.clistbox1.ListIndex, 4]))
cmorefavorites.Init
LPARAMETERS lcmenu
LOCAL lnii

lnii = 1
FOR lni = 1 TO ALEN(goprogram.afavorites, 1)
    IF UPPER(getarg(goprogram.afavorites[lni], 1)) = UPPER(lcmenu)
        DIMENSION THISFORM.laitems[lnii, 4]
        THISFORM.laitems[lnii, 1] = getarg(goprogram.afavorites[lni], 3)
        THISFORM.laitems[lnii, 2] = getarg(goprogram.afavorites[lni], 1)
        THISFORM.laitems[lnii, 3] = getarg(goprogram.afavorites[lni], 2)
        THISFORM.laitems[lnii, 4] = getarg(goprogram.afavorites[lni], 6)
        lnii = lnii +1
    ENDIF
ENDFOR
THISFORM.clistbox1.REQUERY()

RETURN DODEFAULT()
cmorefavorites.langsetup
**__VFX_WIZARD_HEADER - 04.10.98 00:21:48

thisForm.Caption = CAP_FRMACTIVATEFAVORITE
thisform.cmdopen.Caption = CAP_CMDOPEN
thisform.cmdclose.Caption = CAP_CMDCANCEL

return .T.
**__VFX_WIZARD_FOOTER
***********************************************************

Objects

Baseclass	Class	Object name
commandbutton	ccommandbutton	cmorefavorites.cmdclose
		cmorefavorites.cmdopen
listbox	clistbox	cmorefavorites.Clistbox1
shape	cshape	cmorefavorites.Cshape1

cmorefavorites.cmdclose

Class: ccommandbutton in vfxobj.vcx
Baseclass: commandbutton
Properties Methods Objects

Properties

Name	Initial value
Caption	"\<Cancel"

Methods

cmorefavorites.cmdclose.Click
THISFORM.RELEASE()

cmorefavorites.cmdopen

Class: ccommandbutton in vfxobj.vcx
Baseclass: commandbutton
Properties Methods Objects

Properties

Name	Initial value
Caption	"\<Open"
Default	.T.

Methods

cmorefavorites.cmdopen.Click
THISFORM.RELEASE()
THISFORM.activatefavorite()

cmorefavorites.Clistbox1

Class: clistbox in vfxobj.vcx
Baseclass: listbox
Properties Methods Objects

Properties

Name	Initial value
BoundColumn	1
RowSource	"thisform.laItems"
RowSourceType	5
ZOrderSet	1
lautosetup	.F.

Methods

cmorefavorites.Clistbox1.DblClick
THISFORM.RELEASE()
THISFORM.activatefavorite()

cmorefavorites.Cshape1

Class: cshape in vfxobj.vcx
Baseclass: shape
Properties Methods Objects

Properties

Name	Initial value
ZOrderSet	0