Welcome To The Home Of The Visual FoxPro Experts  
home. signup. forum. archives. search. google. articles. downloads. faq. members. weblogs. file info. rss.
 From: Stefan Wuebbe
  Where is Stefan Wuebbe?
 Hamburg
 Germany
 Stefan Wuebbe
 To: Jim Caster
  Where is Jim Caster?
 Kent
 Washington - United States
 Jim Caster
 Tags
Subject: RE: HyperLink Command Buttons
Thread ID: 395547 Message ID: 395548 # Views: 49 # Ratings: 1
Version: Visual FoxPro 6 Category: Forms
Date: Wednesday, January 15, 2014 7:46:48 PM         
   


Hi Jim,

As far as I know, Vfp's Commandgroup base class cannot contain anything but Vfp CommandButton (base) classes.
So that the Hyperlink base class would not fit there, but you surely could either

create a custom "myHyperButton" class based on CommandButton and then either use the Commandgroup.MemberClass property or the Commandgroup.NewObject("myButton1", "myHyperButton", "myLibrary.VCX | PRG") method.

Or create a custom class or control based on Vfp's "Container" to host anything you want there, like a hypothetical "myHyperLabel" or so.
FWIW, I would surely prefer a Container rather than Commandgroup anyway myself, because the latter has some backwards-compatibility flair if you ask me.




hth
-Stefan


> Good morning all,
>
> Is it possible to have both regular command buttons and hyperlink command buttons in the same command group?
> If so, how would you write the class deffinition? (i.e. below is how I would write a class deffinition for a command group containing only reglular command buttons)
>
> Define class CmdGrp6 as CommandGroup
> AutoSize=.t.
> ButtonCount=3
> Height=35
> Left=10
> Name='CmdGrp6'
> Top=275
> Value=0
> Visible=.f.
> Width=387
>
> Procedure Init
> With This.Buttons(1)
> .AutoSize=.f.
> .Caption='This Step Complete'
> .FontBold=.f.
> .FontSize=8
> .ForeColor=rgb(0,0,0)
> .Height=25
> .Left=5
> .Name='Command1'
> .Top=5
> .Width=108
> Endwith
>
> With This.Buttons(2)
> .AutoSize=.f.
> .Caption='Detailed Instructions'
> .FontBold=.f.
> .FontSize=8
> .ForeColor=rgb(0,0,0)
> .Height=25
> .Left=113
> .Name='Command2'
> .Top=5
> .Width=113
> Endwith
>
> With This.Buttons(3)
> .AutoSize=.f.
> .Caption='Exit without Further Changes'
> .FontBold=.f.
> .FontSize=8
> .ForeColor=rgb(0,0,0)
> .Height=25
> .Left=226
> .Name='Command3'
> .Top=5
> .Width=156
> Endwith
> Endproc
> Enddefine
>
> Thank you in advance for any help you can provide.
> Jim

ENTIRE THREAD

HyperLink Command Buttons Posted by Jim Caster @ 1/15/2014 7:34:33 PM
RE: HyperLink Command Buttons Posted by Stefan Wuebbe @ 1/15/2014 7:46:48 PM
RE: HyperLink Command Buttons Posted by Jim Caster @ 1/15/2014 7:50:45 PM