To antonio : tget LightBorder

To antonio : tget LightBorder

Postby Silvio.Falconi » Tue Apr 12, 2016 8:36 pm

I saw a Mastintin function LightBorder for tget control

why it cannot insert on tget clas directly ?

I wantes insert on an application with many gets but I have problems

sample :

for v= 1 to 11
aGet[v]:bPainted = { || LightBorder( aGet[v], aGet[v]:lFocused , .T. ) }
next v


give me this error
too many handles

Code: Select all  Expand view
Application
===========
   Path and name: C:\WORK\Prg\family\Family.Exe (32 bits)
   Size: 6,916,608 bytes
   Compiler version: xHarbour 1.2.3 Intl. (SimpLex) (Build 20150603)
   FiveWin  Version: FWHX 16.03
   Windows version: 6.1, Build 7600

   Time from start: 0 hours 0 mins 17 secs
   Error occurred at: 12-04-2016, 22:28:21
   Error description: Error BASE/1132  Limiti superati: accesso all'array
   Args:
     [   1] = A   { ... } length: 15
     [   2] = N   16

Stack Calls
===========
   Called from: source\PMov.prg => (b)MVEDITA( 2370 )
   Called from: .\source\classes\TGET.PRG => TGET:PAINT( 1526 )
   Called from: .\source\classes\TGET.PRG => (b)TGET:TGET( 106 )
   Called from:  => TGET:DISPLAY( 0 )
   Called from: .\source\classes\CONTROL.PRG => TCONTROL:HANDLEEVENT( 1699 )
   Called from: .\source\classes\TGET.PRG => TGET:HANDLEEVENT( 667 )
   Called from: .\source\classes\WINDOW.PRG => _FWH( 3278 )
   Called from:  => DIALOGBOXINDIRECT( 0 )
   Called from: .\source\classes\DIALOG.PRG => TDIALOG:ACTIVATE( 293 )
   Called from: .\source\function\ERRSYSW.PRG => ERRORDIALOG( 421 )
   Called from: .\source\function\ERRSYSW.PRG => (b)ERRORSYS( 23 )
   Called from: source\PMov.prg => (b)MVEDITA( 2370 )
   Called from: .\source\classes\TGET.PRG => TGET:PAINT( 1526 )
   Called from: .\source\classes\TGET.PRG => (b)TGET:TGET( 106 )
   Called from:  => TGET:DISPLAY( 0 )
   Called from: .\source\classes\CONTROL.PRG => TCONTROL:HANDLEEVENT( 1699 )
   Called from: .\source\classes\TGET.PRG => TGET:HANDLEEVENT( 667 )
   Called from: .\source\classes\WINDOW.PRG => _FWH( 3278 )
   Called from:  => DIALOGBOXINDIRECT( 0 )
   Called from: .\source\classes\DIALOG.PRG => TDIALOG:ACTIVATE( 293 )
   Called from: .\source\function\ERRSYSW.PRG => ERRORDIALOG( 421 )
   Called from: .\source\function\ERRSYSW.PRG => (b)ERRORSYS( 23 )
   Called from: source\PMov.prg => (b)MVEDITA( 2370 )
   Called from: .\source\classes\TGET.PRG => TGET:PAINT( 1526 )
   Called from: .\source\classes\TGET.PRG => (b)TGET:TGET( 106 )
   Called from:  => TGET:DISPLAY( 0 )
   Called from: .\source\classes\CONTROL.PRG => TCONTROL:HANDLEEVENT( 1699 )
   Called from: .\source\classes\TGET.PRG => TGET:HANDLEEVENT( 667 )
   Called from: .\source\classes\WINDOW.PRG => _FWH( 3278 )
   Called from:  => DIALOGBOXINDIRECT( 0 )
   Called from: .\source\classes\DIALOG.PRG => TDIALOG:ACTIVATE( 293 )
   Called from: .\source\function\ERRSYSW.PRG => ERRORDIALOG( 421 )
   Called from: .\source\function\ERRSYSW.PRG => (b)ERRORSYS( 23 )
   Called from: source\PMov.prg => (b)MVEDITA( 2370 )
   Called from: .\source\classes\TGET.PRG => TGET:PAINT( 1526 )
   Called from: .\source\classes\TGET.PRG => (b)TGET:TGET( 106 )
   Called from:  => TGET:DISPLAY( 0 )
   Called from: .\source\classes\CONTROL.PRG => TCONTROL:HANDLEEVENT( 1699 )
   Called from: .\source\classes\TGET.PRG => TGET:HANDLEEVENT( 667 )
   Called from: .\source\classes\WINDOW.PRG => _FWH( 3278 )
   Called from:  => DIALOGBOXINDIRECT( 0 )
   Called from: .\source\classes\DIALOG.PRG => TDIALOG:ACTIVATE( 293 )
   Called from: .\source\function\ERRSYSW.PRG => ERRORDIALOG( 421 )
   Called from: .\source\function\ERRSYSW.PRG => (b)ERRORSYS( 23 )
   Called from: source\PMov.prg => (b)MVEDITA( 2370 )
   Called from: .\source\classes\TGET.PRG => TGET:PAINT( 1526 )
   Called from: .\source\classes\TGET.PRG => (b)TGET:TGET( 106 )
   Called from:  => TGET:DISPLAY( 0 )
   Called from: .\source\classes\CONTROL.PRG => TCONTROL:HANDLEEVENT( 1699 )
   Called from: .\source\classes\TGET.PRG => TGET:HANDLEEVENT( 667 )
   Called from: .\source\classes\WINDOW.PRG => _FWH( 3278 )
   Called from:  => DIALOGBOXINDIRECT( 0 )
   Called from: .\source\classes\DIALOG.PRG => TDIALOG:ACTIVATE( 293 )
   Called from: .\source\function\ERRSYSW.PRG => ERRORDIALOG( 421 )
   Called from: .\source\function\ERRSYSW.PRG => (b)ERRORSYS( 23 )
   Called from: source\PMov.prg => (b)MVEDITA( 2370 )
   Called from: .\source\classes\TGET.PRG => TGET:PAINT( 1526 )
   Called from: .\source\classes\TGET.PRG => (b)TGET:TGET( 106 )
   Called from:  => TGET:DISPLAY( 0 )
   Called from: .\source\classes\CONTROL.PRG => TCONTROL:HANDLEEVENT( 1699 )
   Called from: .\source\classes\TGET.PRG => TGET:HANDLEEVENT( 667 )
   Called from: .\source\classes\WINDOW.PRG => _FWH( 3278 )
   Called from:  => DIALOGBOXINDIRECT( 0 )
   Called from: .\source\classes\DIALOG.PRG => TDIALOG:ACTIVATE( 293 )
   Called from: .\source\function\ERRSYSW.PRG => ERRORDIALOG( 421 )
   Called from: .\source\function\ERRSYSW.PRG => (b)ERRORSYS( 23 )
   Called from: source\PMov.prg => (b)MVEDITA( 2370 )
   Called from: .\source\classes\TGET.PRG => TGET:PAINT( 1526 )
   Called from: .\source\classes\TGET.PRG => (b)TGET:TGET( 106 )
   Called from:  => TGET:DISPLAY( 0 )
   Called from: .\source\classes\CONTROL.PRG => TCONTROL:HANDLEEVENT( 1699 )
   Called from: .\source\classes\TGET.PRG => TGET:HANDLEEVENT( 667 )

System
Since from 1991/1992 ( fw for clipper Rel. 14.4 - Momos)
I use : FiveWin for Harbour November 2023 - January 2024 - Harbour 3.2.0dev (harbour_bcc770_32_20240309) - Bcc7.70 - xMate ver. 1.15.3 - PellesC - mail: silvio[dot]falconi[at]gmail[dot]com
User avatar
Silvio.Falconi
 
Posts: 7047
Joined: Thu Oct 18, 2012 7:17 pm

Re: To antonio : tget LightBorder

Postby Gale FORd » Tue Apr 12, 2016 9:21 pm

One issue is you need to use detached local inside your code block.
Right now when the code block gets evaluated it has wrong value for variable v in { || LightBorder( aGet[v], aGet[v]:lFocused , .T. ) }
Gale FORd
 
Posts: 663
Joined: Mon Dec 05, 2005 11:22 pm
Location: Houston

Re: To antonio : tget LightBorder

Postby Silvio.Falconi » Tue Apr 12, 2016 9:38 pm

ooppss
Since from 1991/1992 ( fw for clipper Rel. 14.4 - Momos)
I use : FiveWin for Harbour November 2023 - January 2024 - Harbour 3.2.0dev (harbour_bcc770_32_20240309) - Bcc7.70 - xMate ver. 1.15.3 - PellesC - mail: silvio[dot]falconi[at]gmail[dot]com
User avatar
Silvio.Falconi
 
Posts: 7047
Joined: Thu Oct 18, 2012 7:17 pm


Return to FiveWin for Harbour/xHarbour

Who is online

Users browsing this forum: Natter and 72 guests