Problem with TScrollPanel and GEt

[Maurizio]

Hello

WHEN and GET used together doesn't work in TScrollPanel

Code: Select all  Expand view

#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:oclient:=oPanel
   ACTIVATE WINDOW oWnd maximized

Return nil

Regards, Maurizio
www.nipeservice.com

[nageswaragunupudi]

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.

[Maurizio]

Hello ,

the GET in my EXE is editable

I use FW February 2016 , Harbour and BCC7,

Regards Maurizo

[Silvio.Falconi]

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 )

[Antonio Linares]

Maurizio,

Please try this:

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

oGet:Disable()

[Maurizio]

Yes,

I had solved so , I wanted to report the problem

Thanks Maurizio
www.nipeservice.com

[Antonio Linares]

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

[Maurizio]

Antonio ,
the problem remains even with more controls .

Maurizio
www.nipeservice.com

[Gale FORd]

It work ok for me when i use

Code: Select all  Expand view

ACTIVATE WINDOW oWnd maximized on init oPanel:AEvalWhen()