topic-16682

Posts: 6983

Joined: Fri Oct 07, 2005 07:07 PM

Browser for FW sample folder
Posted: Sun Sep 13, 2009 06:56 AM

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

Posts: 598

Joined: Tue Apr 15, 2008 04:51 PM

Re: Browser for FW sample folder
Posted: Sun Sep 13, 2009 05:07 PM

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?

Thank you

Harvey

Otto

Posts: 6983

Joined: Fri Oct 07, 2005 07:07 PM

Re: Browser for FW sample folder
Posted: Sun Sep 13, 2009 05:53 PM

Hello Harvey,

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

Code (fw): Select all Collapse

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

Posts: 598

Joined: Tue Apr 15, 2008 04:51 PM

Re: Browser for FW sample folder
Posted: Sun Sep 13, 2009 09:37 PM

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

Thank you

Harvey

Otto

Posts: 6983

Joined: Fri Oct 07, 2005 07:07 PM

Re: Browser for FW sample folder
Posted: Mon Sep 14, 2009 05:56 AM

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

Otto

Posts: 6983

Joined: Fri Oct 07, 2005 07:07 PM

Re: Browser for FW sample folder
Posted: Tue Sep 15, 2009 07:10 AM

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

I uploaded the next 50 screenshots.
Best regards,
Otto

nageswaragunupudi

Posts: 10733

Joined: Sun Nov 19, 2006 05:22 AM

Re: Browser for FW sample folder
Posted: Sat Sep 19, 2009 04:58 AM

Mr Otto

This is a very nice program

Regards

G. N. Rao.

Hyderabad, India

Otto

Posts: 6983

Joined: Fri Oct 07, 2005 07:07 PM

Re: Browser for FW sample folder
Posted: Sun Sep 20, 2009 08:31 PM

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

Otto

Posts: 6983

Joined: Fri Oct 07, 2005 07:07 PM

Re: Browser for FW sample folder
Posted: Sun Oct 18, 2009 01:55 PM

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

gkuhnert

Posts: 274

Joined: Fri Apr 04, 2008 01:25 PM

Re: Browser for FW sample folder
Posted: Tue Oct 20, 2009 09:38 AM

Otto,

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

Best Regards,

Gilbert Kuhnert
CTO Software GmbH
http://www.ctosoftware.de

Otto

Posts: 6983

Joined: Fri Oct 07, 2005 07:07 PM

Re: Browser for FW sample folder
Posted: Sat Oct 31, 2009 10:15 PM

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

Posts: 782

Joined: Wed Dec 19, 2007 07:50 AM

Re: Browser for FW sample folder
Posted: Sat Oct 31, 2009 10:37 PM

Dear Otto:

Otto wrote: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.

manuelmercado at prodigy dot net dot mx

Otto

Posts: 6983

Joined: Fri Oct 07, 2005 07:07 PM

Re: Browser for FW sample folder
Posted: Sun Nov 01, 2009 08:51 AM

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

Posts: 723

Joined: Tue Sep 04, 2007 08:45 AM

Re: Browser for FW sample folder
Posted: Mon Nov 02, 2009 04:55 PM

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

Posts: 782

Joined: Wed Dec 19, 2007 07:50 AM

Re: Browser for FW sample folder
Posted: Mon Nov 02, 2009 05:26 PM

Dear Otto:

Otto wrote: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 (fw): Select all Collapse

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.

manuelmercado at prodigy dot net dot mx

FiveTech Support Forums