Page 1 of 1
Update a scrollpanel
Posted: Mon Feb 03, 2020 12:22 pm
by Silvio.Falconi
I have a "scrollpanel" control in a dialog where I insert "btnbmp" controls which are the products the user can select: each "btnbmp" control has a description and a price
On the side I have a "combobox" control where the end user can select the type of price list.
When the user selects a different type of price list, the procedure must refresh the "btnbmp" checks with the right prices.
My problem is to update the "btnbmp" controls,
1) I tried to eliminate the "btnbmp" controls and update the prices but when I move the mouse over them I see the previous prices
2) I tried to eliminate the "scrollpanel" control and then recreate it again with oPanelscroll: End () but it makes an error
I can't find the solution
Re: Update a scrollpanel
Posted: Tue Feb 04, 2020 12:50 pm
by Silvio.Falconi
Perhaps
If len(oPanel:acontrols) >0
oPanel:acontrols:End()
Endif
for each oCtrl in oPanel:aControls
oCtrl:End()
next
but make error on
oPanel:acontrols
Code: Select all
Application
===========
Path and name: C:\Work\Prg\aarray_dlg_invoice\aarray_dlg_invoice\test.Exe (32 bits)
Size: 4,253,696 bytes
Compiler version: Harbour 3.2.0dev (r1712141320)
FiveWin version: FWH 19.12
C compiler version: Borland/Embarcadero C++ 7.3 (32-bit)
Windows version: 6.1, Build 7601 Service Pack 1
Time from start: 0 hours 0 mins 12 secs
Error occurred at: 04-02-2020, 14:01:41
Error description: Error BASE/1004 Metodo non disponibile: ACONTROLS
Args:
[ 1] = N 302
Stack Calls
===========
Called from: => ACONTROLS( 0 )
Called from: test.prg => PRODUCTSONPANEL( 1205 )
Called from: test.prg => (b)TEST_INVOICE( 421 )
Re: Update a scrollpanel
Posted: Wed Feb 05, 2020 10:46 am
by Silvio.Falconi
minimal test
there is a bug on btnbmp line 138 ?
Code: Select all
#include "fivewin.ch"
#include "constant.ch"
Function Test()
Local oDlg,oFolder
Local oPanelScroll
Local oCbxListino
Local aListini:= { {"01","Alta Stagione" },;
{"02","Media Stagione" },;
{"03","Bassa Stagione" }}
Local nListino:=3
Local oFont,oFontBold,oLarge
DEFINE FONT oFont NAME "TAHOMA" SIZE 0,-14
DEFINE FONT oFontBold NAME "TAHOMA" SIZE 0,-14 BOLD
DEFINE FONT oLarge NAME "VERDANA" SIZE 0,-24 BOLD
DEFINE DIALOG oDlg TITLE "test " SIZE 1130,650 ;
PIXEL TRUEPIXEL RESIZABLE COLOR CLR_HGRAY ,CLR_WHITE FONT oFont
@ 1, 0 FOLDEREX oFolder OF oDlg SIZE oDlg:nWidth-585,oDlg:nHeight-390 PIXEL ;
PROMPT "Prenotazioni","Pagamenti"
@ 6,5 COMBOBOX oCbxListino VAR nListino Items ArrTranspose( aListini )[2 ];
SIZE 80,90 PIXEL of oFolder:aDialogs[1] ;
ON CHANGE (MakeButtons(oPanelScroll,nListino,oFontBold),;
oPanelScroll:SetRange(),;
oPanelScroll:CheckResize() )
oDlg:bResized := <||
local oRect := oDlg:GetCliRect()
oFolder:nWidth := oRect:nRight-2
oFolder:nHeight := oRect:nBottom-60
* oCbxListino:nTop := oFolder:nHeight:nTop-30
oCbxListino:nLeft := oRect:nRight - 190
oPanelScroll := oRect:nBottom-350
return nil
>
ACTIVATE DIALOG oDlg CENTERED;
ON INIT ( oPanelScroll := CreatePanel( oFolder,oFontBold,nListino),;
oPanelScroll:CheckResize() ,;
EVAL( oDlg:bResized) )
Return nil
//-------------------------------------------------//
Function CreatePanel(oFolder,oFontBold,nListino)
local oPanel
oPanel := TScrollPanel():New( 135,010,250,550,oFolder:aDialogs[1], .t. )
oPanel:nRightMargin := 90
oPanel:nBottomMargin :=300 // 335
oPanel:WinStyle(WS_BORDER, .t.)
MakeButtons(oPanel,nListino,oFontBold)
oPanel:SetRange()
Return oPanel
//---------------------------------------------------//
Function MakeButtons(oPanel,nListino,oFontBold)
Local cDesc,nPrice
local nProductsforRow:= 5
local nSizeW := 195
local nSizeH := 55
local nSpaceH:= 5
local nSpaceW:= 5
local n,nProduct:=1
local nRow:= 10
local nCol:= 10
local oHand:= TCursor():New(,'HAND')
local ctooltip:= "fai click per aggiungere un servizio"
local oCtrl
local aProducts:= {}
local oBtn:=array(3)
If nListino =1
aProducts:= {{"Lettino",9},;
{"Sdraio",11},;
{"Regista",12} }
elseif nListino =2
aProducts:= {{"Lettino",90},;
{"Sdraio",110},;
{"Regista",120} }
elseif nListino =3
aProducts:= {{"Lettino",0},;
{"Sdraio",0},;
{"Regista",0} }
Endif
* for each oCtrl in oPanel:aControls
* oCtrl:End()
* next
For n=1 to Len (aProducts)
cDesc := aProducts[n][1]
nPrice := aProducts[n][2]
@ nRow,ncol BTNBMP oBtn[n] ;
FILENAME "" ;
SIZE nSizeW, nSizeH PIXEL;
FLAT RIGHT;
PROMPT "" + alltrim(cDesc) + CRLF +;
transform( nPrice,'@ €99,999.99') + " " ;
OF oPanel ;
TOOLTIP ctooltip ;
COLOR CLR_RED,Rgb( 225,239,219) //GDIP
oBtn[n]:oFontBold := oFontBold
oBtn[n]:ocursor:= oHand
oBtn[n]:bClrGrad = { | lInvert | If( ! lInvert,;
{ { 1, RGB( 225, 225, 225 ), RGB( 225, 225, 225 ) } },;
{ { 1, RGB( 229,241,251 ), RGB( 229,241,251 ) } } ) }
ncol+=nSizeW+nSpaceW
IF nProduct= nProductsforRow // prodotti per linea
nRow+=nSizeH+nSpaceH
nCol:=10
nProduct:= 0
endif
nProduct+=1
cDesc:=""
nPrice:=""
Next
return nil
//---------------------------------------------------//
Re: Update a scrollpanel
Posted: Wed Feb 05, 2020 12:38 pm
by Silvio.Falconi
any solution please?
Re: Update a scrollpanel
Posted: Wed Feb 05, 2020 4:03 pm
by nageswaragunupudi
When the user selects a different type of price list, the procedure must refresh the "btnbmp" checks with the right prices.
My problem is to update the "btnbmp" controls,
Very simple.
Please build the following sample.
Use this logic in your application.
Code: Select all
#include "fivewin.ch"
function Main()
local oDlg, oPanel, aBtn[ 2 ], oFont, oBold
local aPrices := { { 25.40, 45.70 }, { 77.20, 92.34 } }
local nTable := 1
DEFINE FONT oFont NAME "TAHOMA" SIZE 0,-22
DEFINE FONT oBold NAME "VERDANA" SIZE 0,-23 BOLD
DEFINE DIALOG oDlg SIZE 600,450 PIXEL TRUEPIXEL FONT oFont
oPanel := TScrollPanel():New( 40,40,300,560, oDlg )
@ 330,100 COMBOBOX nTable ITEMS { "Table-1", "Table-2" } ;
ON CHANGE oPanel:Update() ;
SIZE 200,400 PIXEL OF oDlg FONT oBold
oDlg:bInit := <||
@ 40, 40 BTNBMP aBtn[ 1 ] ;
PROMPT { || "FIRST" + CRLF + TRANSFORM( aPrices[ nTable, 1 ], "$ 99.99" ) } ;
BITMAP "c:\fwh\bitmaps\pngs\image7.png" RIGHT ;
SIZE 200,100 PIXEL OF oPanel 2007 UPDATE
@ 40,280 BTNBMP aBtn[ 2 ] ;
PROMPT { || "SECOND" + CRLF + TRANSFORM( aPrices[ nTable, 2 ], "$ 99.99" ) } ;
BITMAP "c:\fwh\bitmaps\pngs\image8.png" RIGHT ;
SIZE 200,100 PIXEL OF oPanel 2007 UPDATE
AEval( aBtn, { |o| o:oFontBold := oBold } )
oPanel:SetRange()
return nil
>
ACTIVATE DIALOG oDlg CENTERED
RELEASE FONT oFont, oBold
return nil
Re: Update a scrollpanel
Posted: Thu Feb 06, 2020 7:59 am
by Silvio.Falconi
Use this logic in your application
Thanks Rao.
that's the problem,
Nages,
your sample run ok , when I insert a dbf not run ok
I load prices from archive(dbf) and then not refresh the btnbmps with new prices
Re: Update a scrollpanel
Posted: Fri Feb 07, 2020 8:29 am
by Silvio.Falconi
Mr Rao
the array constructed in this way is not useful to me
local aPrices := { { 25.40, 45.70 }, { 77.20, 92.34} }
because you show one record at a time
that is, or I have to display all the articles that are in the archive
the structure of my dbf
local aFields := { { "DESC", "C", 100, 0 },;
{ "SETTORE", "C", 1, 0 },;
{ "DAY_BASSA", "N", 12, 2 },;
{ "DAY_MEDIA", "N", 12, 2 },;
{ "DAY_ALTA", "N", 12, 2 },;
{ "STAGIONE", "N", 12, 2 },;
{ "IMAGE", "C", 100, 0 },;
{ "MULTIPLE", "L", 1, 0 } }
for each item I have to show the image (Image) , the caption (Desc), and the price
the price may change according to the price list number( 1 day_bassa, 2 day_media, 3 day_alta)
I can't seem to recreate the array with the data I have making it compatible with what you did
Re: Update a scrollpanel
Posted: Fri Feb 07, 2020 8:44 am
by Otto
Silvio, very nice design!
Best regards
Otto
Re: Update a scrollpanel
Posted: Fri Feb 07, 2020 8:50 am
by Silvio.Falconi
Otto wrote:Silvio, very nice design!
Best regards
Otto
Otto not run ok
Re: Update a scrollpanel
Posted: Sun Feb 09, 2020 3:20 pm
by Silvio.Falconi
Resolved thanks to Nages and Maxp