Picture property of command button inside grid

[vfpmania]

I am using the following method in init event of grid to assign the picture property of command button control in the column.

grid's init method:

This.Column9.SetAll("Picture", Iif(Upper(AllTrim(trnhdr01.shipvia)) = "DHL", "tracking\dhl.jpg", "tracking\ups.jpg"), "commandbutton")

But, every row has same picture.
What am I doing wrong?

Thanks.

 

[ChrisRChamberlain]

vfpmania

Suggest you assign

[COLOR=blue]THIS.mBitmapname()[/color]

to the .DynamicCurrentControl property of the column of the grid.

Untested, but in .mBitmapname(), a method you need to add to the grid. put code similar to

[COLOR=blue]This.Column9.Image1.Picture =  Iif(Upper(AllTrim(trnhdr01.shipvia)) = "DHL", "tracking\dhl.jpg", "tracking\ups.jpg")[/color]

The importance of using the .DynamicCurrentControl property is that you will only render images that are visible in the grid.

FAQ184-2483​

Chris
PDFcommander.com
motrac.co.uk

 

[Mike Lewis]

VFPMania,

You can't set the Picture that way in the Init. At the time the Init is executed, VFP doesn't know the value of the Shipvia field.

Instead, you should add two buttons to the grid, one with each of the images. Then use DynamicCurrentControl to choose between them.

To save you having to write the same code in both buttons' Click methods, you can use BINDEVENT() to bind them to a commom method elsewhere.

Mike


__________________________________
Mike Lewis (Edinburgh, Scotland)

My Visual FoxPro site: www.ml-consult.co.uk

 

[ChrisRChamberlain]

vfpmania

Apologies for the typo

[COLOR=blue]This.Column9.Image1.Picture =  Iif(Upper(AllTrim(trnhdr01.shipvia)) = "DHL", "tracking\dhl.jpg", "tracking\ups.jpg")[/color]

should be:-

[COLOR=blue]This.Column9.Command1.Picture =  Iif(Upper(AllTrim(trnhdr01.shipvia)) = "DHL", "tracking\dhl.jpg", "tracking\ups.jpg")[/color]

FAQ184-2483​

Chris
PDFcommander.com
motrac.co.uk

 

[vfpmania]

Thanks Chris,

It works great.