TSButton V.6.1 as I promised.

User avatar
mmercado
Posts: 782
Joined: Wed Dec 19, 2007 7:50 am
Location: Salamanca, Gto., México

TSButton V.6.1 as I promised.

Post by mmercado »

Image

What you see is NewShape.prg in TSButton\Samples, review it to know how to use new TSButton shapes.

Here you are:
http://hyperupload.com/download/025e38d ... N.zip.html

Best Regards

Manuel Mercado
hua
Posts: 861
Joined: Fri Oct 28, 2005 2:27 am

Post by hua »

Cool! Thanks Manuel. :D Hope will have time to give it a try soon.
User avatar
mmercado
Posts: 782
Joined: Wed Dec 19, 2007 7:50 am
Location: Salamanca, Gto., México

Post by mmercado »

ooooopppppsssss, I uploded the wrong file, here is the right one (I hope) :lol:

http://hyperupload.com/download/025e38d ... N.zip.html

Truly shamed, matter of age :oops:

Regards

Manuel Mercado
User avatar
richard-service
Posts: 583
Joined: Tue Oct 16, 2007 8:57 am
Location: New Taipei City, Taiwan
Contact:

Post by richard-service »

Hi Mmercado,

Thanks for your nice version.

Regards,

Richard
MGA
Posts: 1219
Joined: Mon Feb 25, 2008 2:54 pm
Location: Brasil/PR/Maringá
Contact:

Post by MGA »

:lol: THANKS Manuel, Very nice version!!!
ubiratanmga@gmail.com

FWH17.04
FWPPC
Harbour/xHarbour
xMate
Pelles´C
TDolphin
User avatar
Silvio
Posts: 3107
Joined: Fri Oct 07, 2005 6:28 pm
Location: Teramo,Italy

Post by Silvio »

when a version for fwppc?
Best Regards, Saludos

Falconi Silvio
ShumingWang
Posts: 454
Joined: Sun Oct 30, 2005 6:37 am
Location: Guangzhou(Canton),China

Post by ShumingWang »

Manuel Mercado,
Why I can't rmake sbutton.lib?
\clipper5\bin\rmake sbuttonh

// defining some preprocessor directives for bcc32
Def ="__HARBOUR__;HB_API_MACROS;HB_FM_STATISTICS_OFF"

// defining paths
BC ="d:\borland\bcc55"
FW ="d:\FW801"
HB ="d:\Harbour"
makepath[.prg] ="..\source\classes"
makepath[.c] ="..\lib;..\source\function"

.prg.c:
$(HB)\bin\harbour $< /n /i..\include;$(FW)\include;$(HB)\include >> comp.log

.c.obj:
$(BC)\bin\bcc32 -D$(Def) -O2 -c -I$(HB)\include;$(FW)\include $< >> comp.log

TSButton.c : TSButton.prg
TSBar.c : TSBar.prg
TSLines.c : TSLines.prg
TSRadio.c : TSRadio.prg
TSTSay.c : TSTSay.prg
TSButton.obj : TSButton.c
TSBar.obj : TSBar.c
TSLines.obj : TSLines.c
TSRadio.obj : TSRadio.c
TSTSay.obj : TSTSay.c
BPaint.obj : BPaint.c
TSButton.exe : BPaint.obj TSButton.obj TSBar.obj TSLines.obj TSRadio.obj TSTSay.obj
Del SButtonH.lib
$(BC)\bin\Tlib SButtonH +TSButton > Lib.log
$(BC)\bin\Tlib SButtonH +BPaint >> Lib.log
$(BC)\bin\Tlib SButtonH +TSBar >> Lib.log
$(BC)\bin\Tlib SButtonH +TSLines >> Lib.log
$(BC)\bin\Tlib SButtonH +TSRadio >> Lib.log
$(BC)\bin\Tlib SButtonH +TSTSay >> Lib.log
Del *.c
Del *.obj
Del *.log
Del *.bak

comp error:
error rmake:r2001 exit 12 :"d:\borland\bcc55\bin\bcc32 -D__HARBOUR__ ;HB_API_MACROS;HB_FM_STATICS_OFF;-O2-C -Id:\harbour\include;d:\fw801\include;..\lib\tsbutton.c;

// sbutton.c exist in ..\lib
Best regard!
Shuming Wang
User avatar
Silvio
Posts: 3107
Joined: Fri Oct 07, 2005 6:28 pm
Location: Teramo,Italy

Post by Silvio »

Use Xmate to compile applications , lib, dll.
it is easy, you can set also w2 es2 n0 and other parameters...
Best Regards, Saludos

Falconi Silvio
User avatar
mmercado
Posts: 782
Joined: Wed Dec 19, 2007 7:50 am
Location: Salamanca, Gto., México

Post by mmercado »

Hi Shuming:
ShumingWang wrote: Why I can't rmake sbutton.lib?
\clipper5\bin\rmake sbuttonh
I mailed you a revised Sbuttonh.rmk, let me know if it worked.

Best regards

Manuel Mercado
User avatar
Otto
Posts: 4470
Joined: Fri Oct 07, 2005 7:07 pm
Contact:

Post by Otto »

Mr. Manuel,

Congratulation! Excellent work.

I would like to try your classes but I can’t compile the libs.
Is there an English version of VERCE?

I opened c:\tsbutton\LIB\SBUTTONH.VRC
I see the “Propiedades del Proyecto”. All seems to be OK.

Next I click on “Compilar”. Is this right?

But there is no LIB.

Regards,
Otto
User avatar
mmercado
Posts: 782
Joined: Wed Dec 19, 2007 7:50 am
Location: Salamanca, Gto., México

Post by mmercado »

Hello Otto:
Otto wrote:I would like to try your classes but I can’t compile the libs.
Is there an English version of VERCE?
I'm afraid not, it's a shame because it is an excellent tool
Otto wrote:I opened c:\tsbutton\LIB\SBUTTONH.VRC
I see the “Propiedades del Proyecto”. All seems to be OK.
Next I click on “Compilar”. Is this right?
But there is no LIB.
I think is a matter of versions, please give me an email to send you the Verce's last version and a working vrc file

Anyway, replace SButtonH.rmk with next statements and try to build the library with RMake SButtonH:

Code: Select all

Def ="__HARBOUR__"

BC ="c:\bcc55"
FW ="c:\FWH"
HB ="c:\Harbour"
makepath[.prg] ="..\source\classes"
makepath[.c] =".\;..\source\function"

.prg.c:
   $(HB)\bin\harbour $< /n  /i..\include;$(FW)\include;$(HB)\include > comp.log

.c.obj:
   $(BC)\bin\bcc32 -D$(Def) -O2 -c -I$(HB)\include;$(FW)\include $<  >> comp.log

TSButton.c     : TSButton.prg
TSBar.c        : TSBar.prg
TSLines.c      : TSLines.prg
TSRadio.c      : TSRadio.prg
TSTSay.c       : TSTSay.prg
TSButton.obj   : TSButton.c
TSBar.obj      : TSBar.c
TSLines.obj    : TSLines.c
TSRadio.obj    : TSRadio.c
TSTSay.obj     : TSTSay.c
BPaint.obj     : BPaint.c
TSButton.exe   : BPaint.obj TSButton.obj TSBar.obj TSLines.obj TSRadio.obj TSTSay.obj
                 Del SButtonH.lib
                 $(BC)\bin\Tlib SButtonH +TSButton  > Lib.log
                 $(BC)\bin\Tlib SButtonH +BPaint   >> Lib.log
                 $(BC)\bin\Tlib SButtonH +TSBar    >> Lib.log
                 $(BC)\bin\Tlib SButtonH +TSLines  >> Lib.log
                 $(BC)\bin\Tlib SButtonH +TSRadio  >> Lib.log
                 $(BC)\bin\Tlib SButtonH +TSTSay   >> Lib.log
                 Del *.c
                 Del *.obj
                 Del *.log
                 Del *.bak
Best regards.

Manuel Mercado
User avatar
Otto
Posts: 4470
Joined: Fri Oct 07, 2005 7:07 pm
Contact:

Post by Otto »

Mr, Manuel,
thank you for your help.

My email: datron + @ + aon.at

Now the Lib compiled.
But starting the exe I get following error:
Application
===========
Path and name: c:\tsbutton\SAMPLES\newshape.exe (32 bits)
Size: 1,233,408 bytes
Time from start: 0 hours 0 mins 0 secs
Error occurred at: 04/06/08, 14:16:16
Error description: Error BASE/1109 Argument error: $
Args:
[ 1] = C OFFICE
[ 2] = L .F.

Stack Calls
===========
Called from: => TSBAR:NEW(124)
Called from: newshape.prg => SHOWCHILD(30)
Called from: newshape.prg => (b)MAIN(11)
Called from: => TMDIFRAME:ACTIVATE(0)
Called from: newshape.prg => MAIN(11)

testbtn.prg


pplication
===========
Path and name: c:\tsbutton\SAMPLES\testbtn.exe (32 bits)
Size: 1,464,832 bytes
Time from start: 0 hours 0 mins 2 secs
Error occurred at: 04/06/08, 14:18:16
Error description: Error BASE/1109 Argument error: $
Args:
[ 1] = C OFFICE
[ 2] = L .F.

Stack Calls
===========
Called from: => TSBAR:NEW(124)
Called from: testbtn.prg => CHILD1(59)
Called from: testbtn.prg => (b)BUILDMENU(218)
Called from: => TMENU:COMMAND(0)
Called from: => TWINDOW:COMMAND(0)
Called from: => TMDIFRAME:COMMAND(0)
Called from: => TMDIFRAME:HANDLEEVENT(0)
Called from: .\source\classes\WINDOW.PRG => _FWH(0)
Called from: => WINRUN(0)
Called from: => TMDIFRAME:ACTIVATE(0)
Called from: testbtn.prg => MAIN(25)


Regards,
Otto
User avatar
mmercado
Posts: 782
Joined: Wed Dec 19, 2007 7:50 am
Location: Salamanca, Gto., México

Post by mmercado »

Otto wrote:But starting the exe I get following error:
Application
===========
Path and name: c:\tsbutton\SAMPLES\newshape.exe (32 bits)
Size: 1,233,408 bytes
Time from start: 0 hours 0 mins 0 secs
Error occurred at: 04/06/08, 14:16:16
Error description: Error BASE/1109 Argument error: $
Args:
[ 1] = C OFFICE
[ 2] = L .F.
Try to make visible \TSButton\Include\TSButton.ch through INCLUDE path environment variable or copy \TSButton\Include\TSButton.ch to \TSBtutton\Samples

Regards

Manuel Mercado
User avatar
Otto
Posts: 4470
Joined: Fri Oct 07, 2005 7:07 pm
Contact:

Post by Otto »

Brilliant. All is working.
Very impressive buttons.
Thank you.
Regards,
Otto
User avatar
Otto
Posts: 4470
Joined: Fri Oct 07, 2005 7:07 pm
Contact:

Post by Otto »

Mr. Manuel,
my first test.
Thanks again,
regards,
Otto


Image
Post Reply