Browser for FW sample folder

[Otto]

http://www.atzwanger-software.com/fw/SamplesPreview.zip

I have made a handy tool to browse the Fivewin samples which I want share.
Maybe you like it. At the moment I have about 260 screenshots. But I saw that there are more than 700 sample-prgs.
But I will continue.

1) Unpack the zip-file into the sample folder
2) In samples.dbf the path must look to the fivewin/sample folder.
3) snipk.exe is the exe to browse the samples.

Best regards,
Otto

[hag]

OTTO:
Great idea. Years ago fw192 had a program that compiled samples and work great.

I'm having a problem. unziped all in c:\fwh\samples.
executed the snipk.exe the dialog opens. None of the button bmps appear.
Try to run a file and I get on most msg File not found. Only works on one or 2 files.

What am I doing wrong?

[Otto]

Hello Harvey,

the source code is also included.
Please have a look to:

Code: Select all  Expand view  RUN

DEFINE BUTTON FILE cPathBMP + "run.bmp"  OF oBar ;
         ACTION  iif(file(winexec(cDirName +  substr(oBrw:aArrayData[oBrw:nArrayAt,1],1,( len(oBrw:aArrayData[oBrw:nArrayAt,1])-4)  )+ ".exe" )),;
         winexec(cDirName +  substr(oBrw:aArrayData[oBrw:nArrayAt,1],1,( len(oBrw:aArrayData[oBrw:nArrayAt,1])-4)  )+ ".exe" ),msginfo("File not found")) ;
         PROMPT "&Run" ;
         TOOLTIP "Run" ;
         MESSAGE "Run"  NOBORDER

“Run” only executes programs which are already compiled.

As I use UeStudio for my work I compile with UeStudio.

Before I had also a function call:

function compile( oBrw )
// winexec("buildx.bat " + substr(oBrw:aArrayData[oBrw:nArrayAt,1],1,( len(oBrw:aArrayData[oBrw:nArrayAt,1])-4) ) )

winexec("buildh.bat " + substr(oBrw:aArrayData[oBrw:nArrayAt,1],1,( len(oBrw:aArrayData [oBrw:nArrayAt,1])-4) ) )

return nil


>None of the button bmps appear.

In the sample.dbf I have "c:\FWH\samples" – first record. Maybe you have a different folder.
The “SamplesPreview” folder must be a subfolder of “samples”.



Best regards,
Otto

[hag]

Otto:

I'll take a look at the program later today.

Have you had a chance to look at the program you downloaded..re: my product

[Otto]

Hello Harvey,
I will send you an email.
Best regards,
Otto

[Otto]

http://www.atzwanger-software.com/fw/SamplesPreview1.zip

I uploaded the next 50 screenshots.
Best regards,
Otto

[nageswaragunupudi]

Mr Otto

This is a very nice program

[Otto]

I uploaded the next 50 screenshots. Now there are 370 screeenshots online.
Best regards,
Otto
http://www.atzwanger-software.com/fw/SamplesPreview2.zip

[Otto]

I uploaded the next 140 screenshots. Now there are 510 screeenshots online.
Best regards,
Otto
http://www.atzwanger-software.com/fw/SamplesPreview3.zip

[gkuhnert]

Otto,

thanks for sharing this nice tool. It's very convenient

[Otto]

Fivewin 9.10

I uploaded the next 160 screenshots. Now there are 660 screeenshots online.
More or less all the samples.

Best regards,
Otto
http://www.atzwanger-software.com/fw/SamplesPreview4.zip

[mmercado]

Dear Otto:

I uploaded the next 160 screenshots. Now there are 660 screeenshots online.
More or less all the samples.

Great work, thanks a lot, I use your code sniper program from the begining.

Best regards.

[Otto]

Hello Manuel,
thank you for your kind words.
Good to know that snipkeeper is of some help for you. I use your great work “TSBUTTON” so much.

May I take the opportunity to ask for your help:

@ 88,697 BITMAP oBmp FILENAME cPathBMP + "snipkeeper.bmp" OF oWnd ;
SIZE 580,300 PIXEL SCROLL ADJUST

I show the screenshots with the adjust clause. But it would be better only to adjust if the screenshot is larger than the place reserved on the screen to show it.
How could I check for the size and only adjust it necessary?
Thanks in advance
Otto

[HunterEC]

Otto:

Great work ! Kudos ! It would be nice if Antonio provide us with some sort of make utility or batch file to compile all samples. I think this will reduce unnecessary posting.

[mmercado]

Dear Otto:

I show the screenshots with the adjust clause. But it would be better only to adjust if the screenshot is larger than the place reserved on the screen to show it.
How could I check for the size and only adjust it necessary?

The functions to get the sizes of bitmaps are:

nBmpWidth( oBmp:hBitmap ) // bitmap's width
nBmpHeight( oBmp:hBitmap ) // bitmap's height

I was trying with a function that may do the job (not fully tested)

Code: Select all  Expand view  RUN

Function AdjustBmp( oBmp )

   Local nAdj, nNewH, ;
         nWidth  := nBmpWidth( oBmp:hBitMap ), ;
         nHeight := nBmpHeight( oBmp:hBitMap )

   nAdj := 1 + ( nWidth / 450 )
   nNewH := nHeight * nAdj

   While nNewH > 300
      nAdj -= .01
      nNewH := nHeight * nAdj
   EndDo

   nWidth  *= nAdj
   nHeight *= nAdj
   oBmp:SetSize( nWidth, nHeight, .T. )

Return Nil

This function could be inserted in your bChange code block.

Another suggestion, in the main window of your program, remove the space for the directory selection (putting it in tools tab) and increase the space for the snapshot and the code viewer.

Best regards.