Italian community of Lazarus and Free Pascal

Programmazione => Generale => Topic aperto da: Narciso - Agosto 05, 2014, 06:15:47 pm

Titolo: salvare e recuperare componenti creati runtime
Inserito da: Narciso - Agosto 05, 2014, 06:15:47 pm

SAlve, torno  a rompere dopo un bel po'... eheheh
Ho un problema che non riesco a risolvere, vediamo se mi date qlke dritta...
Allora, io creo runtime delle toolbar su una scrollbox... e sempre runtime carico dei ttoolbutton sulle toolbar...
Il problema e' questo: Come faccio a salvare tutte le toolbar e i bottoni relativi in modo tale da poterle richiamare daun file?

Ho provato cosi'...ma non funziona....

procedure TForm1.ToolButton4Click(Sender: TObject);
var x:integer;
  mtb:ttoolbar;
begin
if savedialog1.execute then
 begin

try
  X:=SCROLLBOX1.CoNTROLCount;
  Rewrite(Fstagione);  // creating the file
  for x:= 0 to SCROLLBOX1.CoNTROLCount-1 do begin
  if (SCROLLBOX1.coMPONENTS

• is ttoolbar)

   then  begin
     mtb:=SCROLLBOX1.components

• AS TTOOLBAR;

     if pos('F.',mtb.CAPTION)>0 then begin
     Writeln(mtb.caption);// nsettore
     Writeln(inttostr(mtb.tag));//tiposettore
     Writeln(inttostr(mtb.controlcount));//quanti bottoni
                                     end;
        end;
  end;


  CloseFile(Fstagione);
except
  on E: EInOutError do
  begin
    showmessage('Errore: '+E.ClassName+'/'+E.Message);
  end;
end;
             
e se non funziona il salvataggio, figuriamoci il restore... eheheh
Grazie..in anticipo

Titolo: Re:salvare e recuperare componenti creati runtime
Inserito da: nomorelogic - Agosto 06, 2014, 09:11:23 am

l'approccio non sembra sbagliato

per aiutarci ad aiutarti, usa la formattazione del codice e spiegaci meglio cosa vuol dire "non funziona" :)

Titolo: Re:salvare e recuperare componenti creati runtime
Inserito da: Stilgar - Agosto 06, 2014, 11:51:25 pm

Al posto dei file classici a blocchi, avrei usato gli stream ... ma è questione di gusto personale.

Stilgar