Page 1 of 2
Browser for FW sample folder
Posted: Sun Sep 13, 2009 6:56 am
by Otto
http://www.atzwanger-software.com/fw/SamplesPreview.zipI 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
Re: Browser for FW sample folder
Posted: Sun Sep 13, 2009 5:07 pm
by 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?
Re: Browser for FW sample folder
Posted: Sun Sep 13, 2009 5:53 pm
by Otto
Hello Harvey,
the source code is also included.
Please have a look to:
Code: Select all | Expand
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
Re: Browser for FW sample folder
Posted: Sun Sep 13, 2009 9:37 pm
by 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
Re: Browser for FW sample folder
Posted: Mon Sep 14, 2009 5:56 am
by Otto
Hello Harvey,
I will send you an email.
Best regards,
Otto
Re: Browser for FW sample folder
Posted: Tue Sep 15, 2009 7:10 am
by Otto
Re: Browser for FW sample folder
Posted: Sat Sep 19, 2009 4:58 am
by nageswaragunupudi
Mr Otto
This is a very nice program
Re: Browser for FW sample folder
Posted: Sun Sep 20, 2009 8:31 pm
by Otto
I uploaded the next 50 screenshots. Now there are 370 screeenshots online.
Best regards,
Otto
http://www.atzwanger-software.com/fw/SamplesPreview2.zip
Re: Browser for FW sample folder
Posted: Sun Oct 18, 2009 1:55 pm
by Otto
I uploaded the next 140 screenshots. Now there are 510 screeenshots online.
Best regards,
Otto
http://www.atzwanger-software.com/fw/SamplesPreview3.zip
Re: Browser for FW sample folder
Posted: Tue Oct 20, 2009 9:38 am
by gkuhnert
Otto,
thanks for sharing this nice tool. It's very convenient
Re: Browser for FW sample folder
Posted: Sat Oct 31, 2009 10:15 pm
by 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
Re: Browser for FW sample folder
Posted: Sat Oct 31, 2009 10:37 pm
by mmercado
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.
Re: Browser for FW sample folder
Posted: Sun Nov 01, 2009 8:51 am
by 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
Re: Browser for FW sample folder
Posted: Mon Nov 02, 2009 4:55 pm
by 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.
Re: Browser for FW sample folder
Posted: Mon Nov 02, 2009 5:26 pm
by mmercado
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: Select all | Expand
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.