Пишем программу для создания книг FB2 - [8]

Шрифт

Интервал

PrintString('publisher', publisher.Text); //

PrintString('city', city.Text); //

PrintString('year', year.Text); //

PrintString('isbn', isbn.Text); //

//OutList.Add(' 1.0');

OutList.Add(' ');

end;

OutList.Add(' ');

OutList.Add('');

end;

function SubStyle(m,w: TmyStyle):integer;

begin

result:= integer(m) - integer(w);

end;

procedure SaveBodyFB2;

var

i, j: integer;

S, ss: string;

oldStyle,

LastStyle, CurStyle: TmyStyle; // style

procedure StyleStucture;

begin

if CurStyle <> oldStyle then

begin

if SytleStack.Count = 0 then

begin

SytleStack.Add(TObject(CurStyle))

end

else

begin

LastStyle:= TmyStyle(SytleStack.Last);

case SubStyle(CurStyle,LastStyle) of

0: OutList.Add('

');

1: SytleStack.Add(TObject(CurStyle));

else

begin

OutList.Add('');

while CurStyle <> LastStyle do

begin

SytleStack.Delete(SytleStack.Count-1);

OutList.Add('');

LastStyle:= TmyStyle(SytleStack.Last);

end;

end;// case

end;

OutList.Add('

');

OutList.Add('');end;OutList.Add(''+s+'');end; // StyleStucture; beginoldStyle:= ZZ; EndNotes_count:= 1;// ifOutList.Add('<section>'); with Form1.ListBox1 dofor i:= 0 to Count - 1 do // просматриваем текстbeginS:= Items[i];Ss:= GetStyle(S, CurStyle); // получаем чистую строку и стильs:= '';if ss <> '' thenfor j:= 1 to length(Ss) dobegin // просматриваем строкуcase ss[j] of'~': begin // если это концевая сноскаS:= S + '<a l: href="#n_'+IntToStr(EndNotes_count)+'" type="note">'+IntToStr(EndNotes_count)+'</a>';inc(EndNotes_count); // увеличиваем счетчик сносокend;'^': S:= S + '́'; // ставим ударениеelse S:= S + ss[j];end; // caseend; if (S = '') and (CurStyle <> Poem)thenbeginOutList.Add('<empty-line/>');continue;end; if (CurStyle <> oldStyle) and (CurStyle <> Auth) thenbegincase oldStyle of // завершение предыдущего блокаPoem: OutList.Add('</stanza></poem>');Epig: OutList.Add('</epigraph>');Citat: OutList.Add('</cite>'); H1..H5: OutList.Add('');

end; // case завершение предыдущего блока

case CurStyle of // начало блока

Poem: OutList.Add('');

Epig: OutList.Add('');

Citat: OutList.Add('');

end; // case начало блока

end;

// анализ стилей

case CurStyle of // в зависимости от стиля абзаца

Norm,Epig,Citat: OutList.Add('

'+S+'

');

H1..H5: StyleStucture; // Heading

Sub: OutList.Add(''+s+''); // Subtitle

Poem: begin

if S = ''

then OutList.Add('')

else OutList.Add(''+S+'');

end;

Auth: begin

OutList.Add(''+S+'');

if oldStyle in [Poem, Epig, Citat]

then CurStyle:= oldStyle;

end;

None: continue; //None

end; // case

oldStyle:= CurStyle;

end; // for просмотр текста

if SytleStack.Count > 0 then

begin // закрываем все открытые секции

while SytleStack.Count > 0 do

begin

SytleStack.Delete(SytleStack.Count-1);

OutList.Add('

');

end;

OutList.Add('');

end;

procedure SaveEndnotes;

var

S: string;

i: integer;

begin

if Form1.EndNotesList.Items.Count = 0 then exit; //[1]

OutList.Add('Примечания');

for i:= 0 to Form1.EndNotesList.Items.Count - 1 do

begin

S:= Form1.EndNotesList.Items[i];

OutList.Add('

'+IntToStr(i+1)+'');OutList.Add('

'+S+'

');

OutList.Add('

');

end;

OutList.Add('');

end;

Procedure Make_fb2(S: string);

begin //

if Form1.ListBox1.Items.Count = 0 then exit;

SytleStack.Clear;

OutList.Clear;

SaveDescription;

SaveBodyFB2;

SaveEndnotes;

OutList.Add('');

OutList.SaveToFile(S); //++ +

showMessage('Done.');

end;

function BookHaveName: boolean;

begin

with Form1 do

result:= (book_title.Text <> '') and

(FB2_file.Text <> '') and

(GenresBox.Count > 0);

end;

procedure TForm1.SaveasFB21Click(Sender: TObject);

begin

if not BookHaveName then

begin

PageControl1.ActivePageIndex:= 0;

ShowMessage('Fill the form.');

exit;

end;

SaveDialog1.FileName:= form1.FB2_file.Text;

if SaveDialog1.Execute then

Make_fb2(SaveDialog1.FileName);

end;

function SetStyle(n: TmyStyle):string;

begin

case n of

Norm: result:= ' N';

Epig: result:= ' E';

Auth: result:= ' A';

H1: result:= 'H1';

H2: result:= 'H2';

H3: result:= 'H3';

H4: result:= 'H4';

H5: result:= 'H5';

Sub: result:= ' S';

Poem: result:= ' P';

Citat: result:= ' C';

None: result:= '-';

end; // case

end;

function SetStyle1(n: TmyStyle):string;

begin

result:= ' '+ SetStyle(n)+'| ';

end;

procedure ChangeStyle(LStyle: TmyStyle);

var

n, curIndex: integer;

S: string;

begin

with Form1.ListBox1 do

begin

curIndex:= ItemIndex;

if curIndex = -1 then exit;

S:= Items[curIndex];

n:= pos('|', s);

delete(S, 1, n+1);

Items[curIndex]:= SetStyle1(LStyle)+ S;

if ItemIndex < Items.Count - 1

then ItemIndex:= ItemIndex+1;

SetFocus;

end;

procedure TForm1.Button12Click(Sender: TObject);

begin

ChangeStyle(TmyStyle(RG.itemindex));

end;

procedure TForm1.Button4Click(Sender: TObject);

begin

Form3.ListBox1.Items.Assign(GenresBox.Items);

Form3.ShowModal;

if Form3.ModalResult = mrOK then

begin

GenresBox.Items.Assign(Form3.ListBox1.Items);

end;

procedure TForm1.Button10Click(Sender: TObject);