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


Hi Stefan,

First of all, thanks for the speedy reply.
I was pretty sure I could not do what I asked, and so, was already working on creating a container with both a regular command button and a hyperlink command button.

Thanks for your efforts
Jim

> 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 Commandgroupd.MemberClass property or Commandgroup.NewObject("myButton1", "myHyperButton", "myLibrary.VCX | PRG")
>
> Or use a custom class 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