Posts: 842

Joined: Mon Oct 10, 2005 01:29 PM

Problem with TScrollPanel and GEt
Posted: Sat Mar 05, 2016 08:43 AM

Hello

WHEN and GET used together doesn't work in TScrollPanel

#include "fivewin.ch"
static oPanel

Function Main()

Local oPanel,oWnd, C := 'HELLO'
Local lOk := .f. 
   DEFINE WINDOW oWnd
   oPanel:= TScrollPanel():New(40,2,400,400,oWnd)
   //oPanel:SetBrush(oBrush)
   @ 10,10 GET C OF oPanel SIZE 100,20 PIXEL WHEN lOk 
   oPanel:SetRange()

//   oWnd:=oPanel
   ACTIVATE WINDOW oWnd maximized

Return nil

Regards, Maurizio
www.nipeservice.com

Maurizio
www.nipeservice.com

nageswaragunupudi

Posts: 10733

Joined: Sun Nov 19, 2006 05:22 AM

Re: Problem with TScrollPanel and GEt
Posted: Sun Mar 06, 2016 01:51 PM

The window and panel gets displayed and the get is not editable, though it receives focus.
May I know what do you mean by not working and what is the behavior you are expecting?

ScrollPanel works better if the first control is not disabled.

Regards

G. N. Rao.

Hyderabad, India

Maurizio

Posts: 842

Joined: Mon Oct 10, 2005 01:29 PM

Re: Problem with TScrollPanel and GEt
Posted: Mon Mar 07, 2016 07:56 AM

Hello ,

the GET in my EXE is editable

I use FW February 2016 , Harbour and BCC7,

Regards Maurizo

Maurizio
www.nipeservice.com

Silvio.Falconi

Posts: 7317

Joined: Thu Oct 18, 2012 07:17 PM

Re: Problem with TScrollPanel and GEt
Posted: Mon Mar 07, 2016 10:00 AM

How Use this class into a dialog ?

Application

Path and name: C:\WORK\Errori\scrollpanel\test.Exe (32 bits)
Size: 3,232,256 bytes
Compiler version: xHarbour 1.2.3 Intl. (SimpLex) (Build 20150603)
FiveWin Version: FWHX 16.01
Windows version: 5.1, Build 2600 Service Pack 3

Time from start: 0 hours 0 mins 0 secs
Error occurred at: 03/07/16, 11:05:59
Error description: Warning BASE/1004 Message not found: TSCROLLPANEL:DEFCONTROL

Stack Calls

Called from: source\rtl\tobject.prg => TSCROLLPANEL:ERROR( 0 )
Called from: source\rtl\tobject.prg => TSCROLLPANEL:MSGNOTFOUND( 0 )
Called from: source\rtl\tobject.prg => TSCROLLPANEL:DEFCONTROL( 0 )
Called from: .\source\classes\TGET.PRG => TGET:NEW( 377 )
Called from: test.prg => MAIN( 13 )

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

Antonio Linares

Posts: 44158

Joined: Thu Oct 06, 2005 05:47 PM

Re: Problem with TScrollPanel and GEt
Posted: Mon Mar 07, 2016 10:03 AM

Maurizio,

Please try this:

@ 10,10 GET oGet VAR C OF oPanel SIZE 100,20 PIXEL WHEN lOk

oGet:Disable()

regards, saludos

Antonio Linares
www.fivetechsoft.com

Maurizio

Posts: 842

Joined: Mon Oct 10, 2005 01:29 PM

Re: Problem with TScrollPanel and GEt
Posted: Mon Mar 07, 2016 10:31 AM

Yes,

I had solved so , I wanted to report the problem

Thanks Maurizio

www.nipeservice.com

Maurizio
www.nipeservice.com

Antonio Linares

Posts: 44158

Joined: Thu Oct 06, 2005 05:47 PM

Re: Problem with TScrollPanel and GEt
Posted: Mon Mar 07, 2016 11:35 AM

I guess the problem comes from the fact that there is only one control

We need more than one control to loose the focus and then the VALIDs and WHENs work

regards, saludos

Antonio Linares
www.fivetechsoft.com

Maurizio

Posts: 842

Joined: Mon Oct 10, 2005 01:29 PM

Re: Problem with TScrollPanel and GEt
Posted: Mon Mar 07, 2016 01:38 PM

Antonio ,
the problem remains even with more controls .

Maurizio

www.nipeservice.com

Maurizio
www.nipeservice.com

Gale FORd

Posts: 663

Joined: Mon Dec 05, 2005 11:22 PM

Re: Problem with TScrollPanel and GEt
Posted: Mon Mar 07, 2016 03:15 PM

It work ok for me when i use

Code (fw): Select all Collapse

ACTIVATE WINDOW oWnd maximized on init oPanel:AEvalWhen()

FiveTech Support Forums

Application

Stack Calls

Continue the discussion