Calvin Hsia's WebLog

Various ways to display multiple photographs: on a Fox form

My prior 2 posts show how to display multiple photos on a VB.Net form, first using the PictureBox control, the second drawing to the form directly. Below is some code to display multiple photos on a Fox form using an array of Fox Image controls. These controls are windowless: you can use Spy++ to verify.

It gives each image a name in the form of “imxxyy”, like “im0101” and “im0912”.

For another sample of an array of controls, see the Fox version of the Minesweeper game (Tools->Task Pane->MineSweeper). The source code can be found in Tools\xsource\xsource.zip, VFPSource\TaskPane\PaneCache\Microsoft.minesweeper\mines.prg

#define CWIDTH 2

PUBLIC ox

ox=CREATEOBJECT("MyForm")

ox.Show()

DEFINE CLASS MyForm AS Form

          Allowoutput=.f.

          xPix=12

          yPix=9

          picwidth=160  && default thumbnail dim

          picheight=120

          width=1024

          height=768

          PROCEDURE init

                   USE d:\pictures\pixthumb

                   this.picwidth = this.Width / this.xpix

                   this.picheight = this.Height / this.ypix

                   this.DoArray()

          PROCEDURE keypress(nKeyCode, nShiftAltCtrl)

                   this.DoArray           

          PROCEDURE DoArray

                   local xx,yy,cname,oi

                   for yy = 1 to thisform.ypix

                             for xx = 1 to thisform.xpix

                                      cname = "im"+padl(yy,CWIDTH,'0')+padl(xx,CWIDTH,'0')

                                      cstr="thisform."+cname

                                      IF VARTYPE(&cstr) != 'O'               && If it hasn't been added yet

                                                thisform.AddObject(cname,"myimage")

                                                oi = EVALUATE("THISFORM."+CNAME)

                                                oi.height = thisform.picheight

                                                oi.width = thisform.picwidth

                                                oi.top = 20 + oi.height * (yy - 1)

                                                oi.left = (xx - 1) * oi.width

                                                oi.visible=1

                                      ELSE

                                                oi = EVALUATE("THISFORM."+CNAME)

                                      ENDIF

                                      oi.pictureval=thumb

                                      skip

                             ENDFOR

                   ENDFOR

ENDDEFINE

DEFINE CLASS MyImage as Image

          * Add your own event handlers,etc.

ENDDEFINE