FiveTech Support Forums

FiveWin / Harbour / xBase community
Board index FiveWin for Harbour/xHarbour xbrowse settings to ini file - TO Antonio
Posts: 3107
Joined: Fri Oct 07, 2005 06:28 PM
xbrowse settings to ini file - TO Antonio
Posted: 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():nMarqueeStyle)),oApp():cIniFile) ,;
WritePProString(INIBROWSE,"RowLineStyle",ltrim(str(oApp():nRowDividerStyle)),oApp():cIniFile) ,;
WritePProString(INIBROWSE,"ColLineStyle",ltrim(str(oApp():nColDividerStyle)),oApp():cIniFile) ,;
WritePProString(INIBROWSE,"FontSize",str(oApp():FontSize()),oApp():cIniFile) ,;
WritePProString(INIBROWSE,"Stretch",ltrim(str(oApp():nStretchCol)),oApp():cIniFile) ,;
WritePProString(INIBROWSE,"NoFreeze",ltrim(str(oApp():nFreeze)),oApp():cIniFile) , ;
WritePProString(INIBROWSE,"BackGround",oApp():cBmp,oApp():cIniFile) , ;
WritePProString(INIBROWSE,"BackMode",ltrim(str(oApp():nBckMode)),oApp():cIniFile) , ;
WritePProString(INIBROWSE,"l2007",IIF(oApp():l2007,"1","0"),oApp():cIniFile) , ;
WritePProString(INIBROWSE,"lFastEdit",IIF(oApp():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():nBckMode)),oApp():cIniFile) , ;



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



Falconi Silvio

Continue the discussion