root/campo-sirio
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Corretta la lettura della sezione general di un form:

Browse Source 
chiamava popkey() anziche' key(), per cui sbagliava se effettuava
piu' di un ciclo.


git-svn-id: svn://10.65.10.50/trunk@3393 c028cbd2-c16b-5b4b-a496-9718f37d4682
This commit is contained in:
angelo 1996-08-14 15:37:33 +00:00
parent 9b719fb694
commit bd3fef754a
1 changed files with 8 additions and 16 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

24
include/form.cpp
View File

@ -3128,36 +3128,27 @@ bool TForm::parse_general(TScanner &scanner)
{ {
while (scanner.pop() != "END") while (scanner.pop() != "END")
{ {
if (scanner.popkey() == "OF") // Offsets if (scanner.key() == "OF") // Offsets
{ {
_x = scanner.integer(); _x = scanner.integer();
_y = scanner.integer(); _y = scanner.integer();
} }
else scanner.push(); if (scanner.key() == "FO") // Font name
if (scanner.popkey() == "FO") // Font name
_fontname = scanner.string(); _fontname = scanner.string();
else scanner.push(); if (scanner.key() == "SI") // Font size
if (scanner.popkey() == "SI") // Font size
_fontsize = scanner.integer(); _fontsize = scanner.integer();
else scanner.push(); if (scanner.key() == "CA") // Carattere di posizionamento
if (scanner.popkey() == "CA") // Carattere di posizionamento
_char_to_pos = scanner.string()[0]; _char_to_pos = scanner.string()[0];
else scanner.push(); if (scanner.key() == "IN") // Riga e colonna del posizionamento iniziale
if (scanner.popkey() == "IN") // Riga e colonna del posizionamento iniziale
{ {
_ipx = scanner.integer(); _ipx = scanner.integer();
_ipy = scanner.integer(); _ipy = scanner.integer();
} }
else scanner.push(); if (scanner.key() == "FI") // Riga e colonna del posizionamento finale
if (scanner.popkey() == "FI") // Riga e colonna del posizionamento finale
{
_fpx = scanner.integer(); _fpx = scanner.integer();
}
else scanner.push();
if (scanner.popkey() == "GR") // Carattere di posizionamento if (scanner.key() == "GR") // Carattere di posizionamento
set_fincatura(scanner.string()); set_fincatura(scanner.string());
else scanner.push();
extended_parse_general(scanner); // Parse non-standard parameters extended_parse_general(scanner); // Parse non-standard parameters
} }
@ -4245,6 +4236,7 @@ void TForm::read(
// read base form // read base form
TFilename n(_name); n.ext("frm"); TFilename n(_name); n.ext("frm");
if (!fexist(n)) fatal_box("Il file %s non esiste.",(const char *) n);
TScanner scanner(n); TScanner scanner(n);
bool ok = TRUE; bool ok = TRUE;