topic-32258

Posts: 7317

Joined: Thu Oct 18, 2012 07:17 PM

To antonio : tget LightBorder
Posted: Tue Apr 12, 2016 08: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 (fw): Select all Collapse

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 March-April 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

Gale FORd

Posts: 663

Joined: Mon Dec 05, 2005 11:22 PM

Re: To antonio : tget LightBorder
Posted: Tue Apr 12, 2016 09: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. ) }

Silvio.Falconi

Posts: 7317

Joined: Thu Oct 18, 2012 07:17 PM

Re: To antonio : tget LightBorder
Posted: Tue Apr 12, 2016 09:38 PM

ooppss

Since from 1991/1992 ( fw for clipper Rel. 14.4 - Momos)

I use : FiveWin for Harbour March-April 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

FiveTech Support Forums

Continue the discussion