Особенности создания математических формул в Web (стр. 3 из 3)
List[i]:='<table>'+tmpString+'</table>';
end;
end;
List.SaveToFile('tmp.html');
list.Free;
ShellExecute(handle, 'open', 'tmp.html', '', '', SW_SHOW);
//winexec('tmp.html', SW_SHOW)
//Form2.showModal;
End;
//end of prosmotr }
procedure TForm1.N8Click(Sender: TObject);
begin
close;
end;
procedure TForm1.N10Click(Sender: TObject);
var tmpMemo: string;
begin
With OpenDialog2 do
if execute then
Begin
begin
tmpMemo:=tmpMemo + '<img src=' + ExtractFilename(Filename) + '>';
Memo1.SelText :=tmpMemo;
end;
End;
end;
procedure TForm1.N11Click(Sender: TObject);
var Href: String;
begin
With OpenDialog3 do
if Execute then
Begin
Href:=Href + '<a href=' + ExtractFilename(OpenDialog3.Filename) + '>'
+ 'Ссылка' + '</a>';
Memo1.SelText :=Href;
End;
end;
procedure TForm1.N12Click(Sender: TObject);
begin
form4.ShowModal;
end;
end.
Приложение№2.
Скриншоты.
Рис.1
Рис.2
Рис.3
Рис.4