Vb & TreeView

[Dvs]

Xereis kaneis pos mporo na apothikeuso ena TreeView sto disko ? (se arxio) - tin logiki vasika thelo

[bandito]

Ego tin logiki den katalava. Na apothikeuseis to treeview? Apothikeuse ena ena ta stoixeia tou se ena arxeio i se mia vasi, kai kanto reconstruct oti to xreiasteis. An kai den mporw na katalavw ti to thes.

[Dvs]

na ta apothikeuso se ini i se aplo arxeio?? <BR>pios tropos einai pio volikos?(grigoros , kai sostos)?

[bandito]

Auto e3artatai apo tin efarmogi sou, kai apo ton tropo pou programmatizeis.

[kkal]

Den ginete na apotikeuseis ola mazi !! aplos ta pareis ena ena stoixeio kai ta to apotikeueis i sthn mnhmh h sto arxeio amesos ean ta apotikeueis stin mnhmh prota ta exeis kai kaluterh diaxhrhsei tou arxeiou sou!!

[Dvs]

eseis otan xreiastike na ta apothikeusete pos ta apothikeusate? <BR>(se ini or se aplo arxeio?)<BR>kai pls doste mia "tupikh" domh apothikeusis treeview! (gia na paro mia idea)

[sh4dow]

se ini balta kalitera gia na einai pio ierarximena.<BR>oso gia ta properties pou tha baleis sto ini tha prepei na metafrazontai se string kai anapoda allios klafta xaralampe.<BR>px o typos Boolean den mporei na ginei string ara prepei na baleis kati san ton parakato kodika<P>if TreeView.Visible=True then<BR> SaveIni(inifile, 'TreeView', 'Visible', '1')<BR>else<BR> SaveIni(inifile, 'TreeView', 'Visible', '0')<BR>end<P>ή mporeis na baleis anti gia '0' kai '1' na baleis 'False' kai 'True' ή o.ti allo thes<P>kai gia na tis fortoneis pali<P>x = ReadIni(inifile, 'TreeView', 'Visible')<BR>if x='1' then<BR> TreeView.Visible=True<BR>else<BR> TreeView.Visible=False<BR>end<P>bebaia oi procedures SaveIni kai ReadIni einai dikies mou (euevreseis) kai den iparxoun, prepei na breis kapoies free.<P>elpizo na boithisa an kai exo kopsei tin vb <BR>an thimame kala anti gia ' paei " ?<p>[ 15-06-2001: Message edited by: sh4dow ]

[Dvs]

nai , anti gia ' paei " [ to ' einai ta sxolia]<P>se ini - thx - ta alal tha ta vro siga siga

[sh4dow]

tha sou protina gia na ierarxiseis ton kodika sou na ftiaxeis mia procedure i function pou na dexete san parametro to Treeview kai meso autis na diabazeis to ini kai na allazeis ta properties. to idio gia na ta soneis sto ini.<BR>px:<P>procedure SaveTreeViewProperties(TRView: TTreeView);<BR>begin<BR>if TRView.Visible=True then<BR> SaveIni(inifile, 'TreeView', 'Visible', '1')<BR>else<BR> SaveIni(inifile, 'TreeView', 'Visible', '0')<BR>end;<P>SaveIni(inifile, 'TreeView', 'Visible', TRView.Color)<BR>end<P>to idio peripou kai me to na diavazei ta properties. autin tha tin kaleis:<BR>SaveTreeViewProperties(TreeView)<P>mporeis na kai na baleis alli mia parametro gia ean exeis perissotera treeviews<P>procedure SaveTreeViewProperties(TRView: TTreeView; TreeName: string);<BR>begin<BR>SaveIni(inifile, TreeName, 'Visible', TRView.Color)<BR>end<P>mporeis episis na soseis ola ta properties se mia grammi kai ta xorizeis apo kapoio xaraktyra px:<BR>[TreeViews]<BR>TreeOne=Visible%Color%Font%FontColor%FontSize<BR>(opou ta parapano einai values)<BR>[TreeViews]<BR>TreeOne=1%232422%Times New Roman%643322%12<P>kai meso katalilis procedure i function na ta prosarmozeis kai na perneis ta values gia kathe properties. pisteuo oti auto einai to kalitero an kai thelei perissoteri douleia.<P>pano kato katalabes nomizo, ean kai einai pascal pros pseudokodika.

[Dvs]

den thelo an apothikeuso ta properteis alla ta periexomena pou exei to treeview! (apothikeuo molis kleino to program kai diavzo molis to aneigo). me ton idio tropo ginetai .....<P>thx a lot

[sh4dow]

kai ta periexomena properties einai. to problima me auto pou zitas einai ligo poliploko, na exigiso:<P>to na soseis ola ta items se arxeio einai kati eukolo, to idio na ta fortoseis pali apo to arxeio sto treeview.<BR>to problima einai oti meta den xereis pio itan subitem kapoiou item kok.<BR>ara tha prepei na ftiaxeis parapano kodika gia auton akribos ton logo.<P>ean den exei subitems to treeview tote den iparxei problima kai mporeis na baleis kati san ton exis kodika:<P>procedure SaveTreeViewToIni;<BR>var //edo diloneis tis metavlites<BR>i, x : Integer;<BR>begin<BR>x:= TreeView1.Items.Count; //metras posa items exeis sto treeview<BR>for i:=0 to x-1 do //kai soneis to periexomeno twn items sto ini<BR>begin<BR> y:= 'Item' + IntToStr(i);<BR> SaveIni(IniName, 'TreeView', y, TreeView1.Items.Text)<BR>end;<P>end;<P>o parapano kodikas einai se delphi kai elpizo na bgazeis akri gia to pos ginete se vb, episis elpizo na periexei kapoies procedures to treeview opos to .Count (oups den einai procedure alla function mias kai girizei timi - akeraio .<P>tora ean exei subitems den mporo na skefto tora enan algorithmo, isos na iparxei etimo control gia autin tin douleia. pantos se delphi exei epilogi na soseis to periexomeno tou treeview se arxeio kai meta na to anoixeis, xoris na kourazese poly.<BR>TreeView1.SaveToFile('C:\tv.txt')<BR>TreeView1.LoadFromFile('C:\tv.txt')<BR>alla mporeis na ta soseis se stream kai na ta metafereis meso diktiou eukola kai enexoda <p>[ 16-06-2001: Message edited by: sh4dow ]

[Dvs]

se vb distixos den exei! mipos mporo na vro ton kodika pou iparxei stin delphi gia na ton metatrepso se vb ???

[sh4dow]

kala kai kaka mantata. ta kala einai oti einai pas (se morfi kodika) alla to kako einai oti briskete se arxeio 600kb (unzipped) peripou kai den bgazeis eukola noima + oti xreisimopoiei kai alla controls... isos mia lysi einai na breis kapoio control pou na kanei to idio, i na ftiaxeis ena ocx se delphi kai na periexei to enlogo treeview i san teleutaia kai kaliteri lysi , parata tin vb kai mathe delphi.<P>ps: iparxoun programmata pou metafrazoun to kodika tis vb se delphi ena kapote apofasiseis na matheis object pascal.<p>[ 19-06-2001: Message edited by: sh4dow ]

[Dvs]

tha to kano monos mou - na matho kai tipota! [kalokairi einai etsi kai allios] - thx gia tin help!!