Testare eseguibile

[xinyiman]

grazie per il consiglio.
Ho provato ma mi da degli errori che non so decifrare.
Poi da quello che ho capito di lazreport, devo creare un foglio pdf base dove inserire tutti i componenti e richiamarlo per poi stamparlo. Solo che, come si vede nel mio progetto allegato, ho gia creato la form con miriade di componenti e quindi è un po seccante e non so neanche se si possa fare, ricopiarli nella pagina pdf.
Ho provato powerpdf, più intuitivo per un neofita come me.
Domanda:
I componenti che posso stampare in pdf sono solo quelli nativi di power pdf oppure posso anche stampare anche i componenti di lazarus?
Lo chiedo perchè non sono riuscito a stamparli.
Grazie mille

Ma quindi tu vuoi stampare proprio la form così come la vedi?!

[carmelo81]

Si.
Il punto è che se utilizzo la procedura attuale, devo fare in modo che le dimensioni del panel1 siano simili ad un foglio A4. Questo perchè la procedura di stampa forza le dimensioni del panel1 all'interno dell'A4 con la conseguenza che il panel stampato avrà una risoluzione non ottimale.
Questo si può vedere facilmente facendo una prova con il programma allegato.

Se invece utilizzassi powerpdf stamperei i testi e quant'altro con una risoluzione migliore, ovvero cosi come li vedo nel panel.

Con la speranza che sia chiaro, vi ci ritrovate nel mio pensiero?

[xinyiman]

Scusa il ritardo della risposta, è che sono stato un po impegnato, riallegami il file in formato zip, che ultimamente i rar mi da problemi a scompattarli

[carmelo81]

No problem

http://www.mediafire.com/download/27p33x4k880axbd/Project%20-%20Copia.zip

Grazie tante

ps: lascia stare la sintassi del codice. Sicuramente 100 righe di codice le potrei tradurre in 5 se sapessi programmare meglio.

[xinyiman]

Hai già pensato di salvare il file in formato jpg o bitmap e poi convertirlo in pdf?

Se non erro questa pagina dice come fare

http://forum.lazarus.freepascal.org/index.php?topic=7729.0

lanci imagemagic dopo il salvataggio del file immagine.

[carmelo81]

uhm...no non ci ho pensato.
se riuscissi a usare power pdf e stampare i componenti che ho già inserito sarebbe il top. Cosi non rifaccio il lavoro di posizionare quella miriade di componenti che devo stampare (come si vede nel programma allegato)

[xinyiman]

Allora ti suggerisco di usare FastReport/powerpdf.

[carmelo81]

Grazie, proverò il consiglio!
Credo che ci sia un altro problema.
durante il salvataggio dei file nella unit1 scrivo

Codice: [Seleziona]

Readln(F, S);
radiobutton69.Checked:=strtobool(S);
Readln(F, S);
Edit101.Text:=S;

Solo che durante l'apertura del file salvato pare che questi due valori non vengano memorizzati.
Quale potrebbe essere il problema?
Grazie ancora

[xinyiman]

Grazie, proverò il consiglio!
Credo che ci sia un altro problema.
durante il salvataggio dei file nella unit1 scrivo

Codice: [Seleziona]

Readln(F, S);
radiobutton69.Checked:=strtobool(S);
Readln(F, S);
Edit101.Text:=S;

Solo che durante l'apertura del file salvato pare che questi due valori non vengano memorizzati.
Quale potrebbe essere il problema?
Grazie ancora

Non saprei, ma risolvi così

Codice: [Seleziona]

Readln(F, S);
if UpperCase(Trim(S))='TRUE' then
radiobutton69.Checked
else
radiobutton69..Unchecked;
Readln(F, S);
Edit101.Text:=S;

Prova e mi dici

[carmelo81]

In questo caso l'edit mantiene il valore e va bene.

Mentre il radiobutton69 continua a non caricare il valore.

ps. Ho sbagliato a scrivere il post precedente. Con quel pezzetto carico i valori. Li memorizzo invece con questo codice:

Codice: [Seleziona]

Add(booltostr(radiobutton69.Checked));
Add(Edit101.Text); 

pps. Il codice tuo l'ho cambiato con questo:

Codice: [Seleziona]

if UpperCase(Trim(S))='TRUE' then
radiobutton69.Checked:=true
else
radiobutton69.Checked:=false;
Readln(F, S);
Edit101.Text:=S;  

[xinyiman]

In questo caso l'edit mantiene il valore e va bene.

Mentre il radiobutton69 continua a non caricare il valore.

ps. Ho sbagliato a scrivere il post precedente. Con quel pezzetto carico i valori. Li memorizzo invece con questo codice:

Codice: [Seleziona]

Add(booltostr(radiobutton69.Checked));
Add(Edit101.Text); 

pps. Il codice tuo l'ho cambiato con questo:

Codice: [Seleziona]

if UpperCase(Trim(S))='TRUE' then
radiobutton69.Checked:=true
else
radiobutton69.Checked:=false;
Readln(F, S);
Edit101.Text:=S;  

Devi fare la stessa cosa, solo che all'interno della if vai tu a popolare la edit con la stringa true oppure false.