Читайте также:
|
if btn_newlect.tag=1 then begin
if m_save.Tag=1 then begin //esli lectiyu otkryvali
sl.SaveToFile(opendialog1.FileName);
f_name:=stringreplace(opendialog1.FileName,extractfileext(opendialog1.filename),'',[]);
re_main.lines.SaveToFile(f_name+'_ct.datt');
end else begin
sl.SaveToFile(extractfilepath(savedialog1.FileName)+fname.Edit1.Text+'.dat');
re_main.Lines.SaveToFile(extractfilepath(savedialog1.FileName)+fname.Edit1.Text+'_ct.datt');
end;
if btn_ok.Tag=0 then showmessage('Лекция сохранена.');
end else showmessage('Нечего сохранять-то.');
end;
procedure TFMain.m_testClick(Sender: TObject);
begin
ftest:=tftest.Create(self);
ftest.show;
end;
procedure TFMain.NewLectionExecute(Sender: TObject);
begin
fname.Show;
fname.Edit1.SetFocus;
btn_newt.Enabled:=true;
btn_newst.Enabled:=true;
m_newt.Enabled:=true;
m_new_pt.Enabled:=true;
re_main.Lines.Clear;
sl:=TStringList.Create;
Продолжение приложения А
sl.Clear;
sl.add('<!DOCTYPE html>');
sl.Add('<HTML>');
sl.Add('<HEAD>');
sl.Add('<TITLE>');
btn_newlect.Tag:=1;
m_save.Enabled:=true;
end;
procedure TFMain.NewSubThemeExecute(Sender: TObject);
begin
fcreate.show;
fcreate.le_theme.Tag:=1;
fcreate.le_num.SetFocus;
fcreate.le_theme.EditLabel.Caption:='Создать подтему.';
fcreate.Caption:='Создание подтемы';
fcreate.le_theme.Text:='';
fcreate.le_num.Text:='';
fcreate.m_ann.Lines.Clear;
end;
procedure TFMain.NewThemeExecute(Sender: TObject);
begin
if btn_newt.Tag=0 then begin
sl.add(fname.Edit1.Text);
sl.Add('</TITLE>');
sl.Add('</HEAD>');
sl.Add('<H1 font size=9 align=left> <font color=#000040>'+
fname.Edit1.Text+'</font></H1>');
Продолжение приложения А
sl.Add('<BODY>');
sl.Add('<TABLE BORDER=2>');
btn_newt.Tag:=1;
end;
if btn_newt.Tag=1 then sl.Add('</TABLE><TABLE BORDER=2>');
fcreate.show;
fcreate.le_num.SetFocus;
fcreate.Tag:=1;
fcreate.le_theme.EditLabel.Caption:='Создать тему.';
fcreate.Caption:='Создание темы';
fcreate.le_theme.Text:='';
fcreate.le_num.Text:='';
fcreate.m_ann.Lines.Clear;
end;
procedure TFMain.paragraph_alignmentExecute(Sender: TObject);
begin
if FUpdating then Exit;
jvre_theme.Paragraph.Alignment:=TParaAlignment(TComponent(Sender).Tag);
end;
procedure TFMain.spinFontSizeChange(Sender: TObject);
begin
if FUpdating then Exit;
if spinFontSize.Value > 0 then CurrText.Size:= spinFontSize.value;
end;
function TFMain.CurrText: TJvTextAttributes;
begin
if jvre_theme.SelLength > 0 then Result:= jvre_theme.SelAttributes
Дата добавления: 2015-10-13; просмотров: 80 | Нарушение авторских прав
| <== предыдущая страница | | | следующая страница ==> |
| Приложение А | | | Продолжение приложения А |