Приложение А. (Рекомендуемое)

(Рекомендуемое)

Код приложения «Конструктор мобильного приложения»

var

FMain: TFMain;

sl: tstringlist;

implementation

{$R *.dfm}

uses ucreate, uname, ClipBrd, ComObj, utest;

procedure TFMain.btn_acenterClick(Sender: TObject);

begin

jvre_theme.Paragraph.Alignment:=paCenter;

end;

procedure TFMain.btn_ajustifyClick(Sender: TObject);

begin

jvre_theme.Paragraph.Alignment:=paJustify;

end;

procedure TFMain.btn_aleftClick(Sender: TObject);

begin

jvre_theme.Paragraph.Alignment:=paLeftJustify;

end;

procedure TFMain.btn_arightClick(Sender: TObject);

begin

jvre_theme.Paragraph.Alignment:=paRightJustify;

end;

procedure TFMain.btn_boldClick(Sender: TObject);

begin if FUpdating then Exit;

Продолжение приложения А

if btn_bold.Down then

CurrText.Style:= CurrText.Style + [fsBold] else CurrText.Style:= CurrText.Style - [fsBold];

end;

procedure TFMain.btn_bullClick(Sender: TObject);

begin

if FUpdating then Exit;

jvre_theme.Paragraph.Numbering:= TJvNumbering(btn_bull.Down);

end;

procedure TFMain.btn_italicClick(Sender: TObject);

begin

if FUpdating then Exit;

if btn_italic.Down then CurrText.Style:= CurrText.Style + [fsItalic]

else CurrText.Style:= CurrText.Style - [fsItalic];

end;

procedure TFMain.btn_okClick(Sender: TObject);

var

fn, kat:string;

i:integer;

W: Variant;

begin

if jvre_theme.Visible=true then begin

SaveDialog1.FileName:= 'theme'+fcreate.le_num.Text+'.rtf';

if SaveDialog1.Execute then begin

jvre_theme.Lines.SaveToFile(savedialog1.filename);

W:= CreateOleObject('Word.Application');

W.Documents.Open(SaveDialog1.FileName,False,False);

kat:=ExtractFileDir(SaveDialog1.Filename);

Продолжение приложения А

fn:=StringReplace(SaveDialog1.FileName,ExtractFileExt(SaveDialog1.FileName),'',[]);

W.ActiveDocument.SaveAs(fn+'.html',$00000008);

W.ActiveDocument.Close;

W.Quit;

W:= UnAssigned;

DeleteFile(SaveDialog1.Filename); end;

jvre_theme.Visible:=false;

re_main.Visible:=true;

re_main.Lines.Add(fcreate.le_num.Text+'. '+fcreate.le_theme.Text);

sl.Add('<TR><TD> Тема '+fcreate.le_num.text+'</TD>');

sl.Add('<TD><A href="'+extractfilename(fn)+'.html">'+

fcreate.le_theme.Text + '</A></TD></TR>');

sl.Add('<TR><TD Colspan=2>');

for i:=0 to fcreate.m_ann.Lines.Count do begin

fmain.re_main.SelAttributes.Italic:=true;

fmain.re_main.lines.Add(fcreate.m_ann.Lines[i]);

fmain.re_main.SelAttributes.Italic:=false;

sl.Add('<I>'+fcreate.m_ann.Lines[i]+'</I>'); end;

sl.Add('</TD></TR>');

btn_newt.Enabled:=true;

btn_newst.Enabled:=true;

m_newt.Enabled:=true;

m_new_pt.Enabled:=true;

end else //если мы находимся в содержании

begin

sl.Add('</TABLE>');

sl.Add('</BODY>');

Дата добавления: 2015-10-13