HTMLv files fix

git-svn-id: svn://kolibrios.org@2416 a494cfbc-eb01-0410-851d-a64ba20cac60
This commit is contained in:
2012-02-28 10:49:22 +00:00
parent 0f5cbca619
commit 5ba5037595
3 changed files with 63 additions and 43 deletions
+2 -3
View File
@@ -81,7 +81,8 @@ void TWebBrowser::Scan(dword id) {
if (!strcmp(get_URL_part(5),"http:"))) HttpLoad();
//Lee 21.02 }
ShowPage(#URL);
copystr(#URL, #editURL);
//ShowPage(#URL);
Draw_Window();
return;
}
@@ -202,8 +203,6 @@ void GetNewUrl(){
void HttpLoad()
{
za_kadrom = 0;
copystr(#URL, #editURL);
KillProcess(downloader_id); //óáèâàåì ñòàðûé ïðîöåññ
DeleteFile(#download_path);
@@ -9,8 +9,8 @@ UrlsHistory BrowserHistory;
void UrlsHistory::GoBack()
{
//WriteDebug(#UrlHistory);
WriteDebug(#UrlHistory);
//find_symbol(#UrlHistory, '|')
j = strlen(#UrlHistory);
WHILE(UrlHistory[j] <>'|') && (j > 0) j--;
@@ -20,6 +20,8 @@ void UrlsHistory::GoBack()
j--;
}
UrlHistory[j] = 0x00;
copystr(#URL, #editURL);
WB1.ShowPage(#URL);
}