xbrowse settings to ini file - TO Antonio

xbrowse settings to ini file - TO Antonio

Postby Silvio » Sat Sep 19, 2009 10:48 am

I saw your xbrowse sample test ( testxbr4.prg)
I like it and inserted on my customer window your menu to set style of xbrowse and set the background images.
When I close the application it not save all sets .
I wish to save all the sets on file ini to restore it when the user return on the customer window.
Have you an Idea to create it ?

I made for ConfigMenu( oBrw )

WritePProString(INIBROWSE,"Marquee",ltrim(str(oApp():oGrid:nMarqueeStyle)),oApp():cIniFile) ,;
WritePProString(INIBROWSE,"RowLineStyle",ltrim(str(oApp():oGrid:nRowDividerStyle)),oApp():cIniFile) ,;
WritePProString(INIBROWSE,"ColLineStyle",ltrim(str(oApp():oGrid:nColDividerStyle)),oApp():cIniFile) ,;
WritePProString(INIBROWSE,"FontSize",str(oApp():oGrid:FontSize()),oApp():cIniFile) ,;
WritePProString(INIBROWSE,"Stretch",ltrim(str(oApp():oGrid:nStretchCol)),oApp():cIniFile) ,;
WritePProString(INIBROWSE,"NoFreeze",ltrim(str(oApp():oGrid:nFreeze)),oApp():cIniFile) , ;
WritePProString(INIBROWSE,"BackGround",oApp():oGrid:oBrush:cBmp,oApp():cIniFile) , ;
WritePProString(INIBROWSE,"BackMode",ltrim(str(oApp():oGrid:nBckMode)),oApp():cIniFile) , ;
WritePProString(INIBROWSE,"l2007",IIF(oApp():oGrid:l2007,"1","0"),oApp():cIniFile) , ;
WritePProString(INIBROWSE,"lFastEdit",IIF(oApp():oGrid:lFastEdit,"1","0"),oApp():cIniFile) , ;


but it save on ini file only these variables

Marquee=0
RowLineStyle=4
ColLineStyle=4
Stretch=-2
NoFreeze=0
BackMode=0
l2007=1
lFastEdit=0

it not save the font size why ?
and I cannot save the name o the file of background



and for BackMenu( oBrw )

I must save the image I set on background but I not Know how save it
but I can save the type mode of this background with WritePProString(INIBROWSE,"BackMode",ltrim(str(oApp():oGrid:nBckMode)),oApp():cIniFile) , ;



I try with WritePProString("Config","BackG",oApp():oGrid:oBrush:hBrush,oApp():cIniFile) , ;
but it not save any string
Best Regards, Saludos

Falconi Silvio
User avatar
Silvio
 
Posts: 3107
Joined: Fri Oct 07, 2005 6:28 pm
Location: Teramo,Italy

Return to FiveWin for Harbour/xHarbour

Who is online

Users browsing this forum: No registered users and 95 guests