APPS: new meta width height left top and exit

git-svn-id: svn://kolibrios.org@9350 a494cfbc-eb01-0410-851d-a64ba20cac60
This commit is contained in:
pavelyakov 2021-12-01 16:23:00 +00:00
parent f0b73bb5f3
commit 67c53d7a93
1 changed files with 20 additions and 0 deletions

View File

@ -56,6 +56,10 @@ void TWebBrowser::SetStyle()
if (tag.is("tr")) { tag_table(); return; }
if (tag.is("th")) { tag_table(); return; }
if (tag.is("td")) { tag_table(); return; }
if (application_mode) {
if (tag.is("exit")) { ExitProcess(); return; }
}
}
void TWebBrowser::tag_p()
@ -144,6 +148,22 @@ void TWebBrowser::tag_meta_xml()
if (streq(tag.get_value_of("http-equiv"), "refresh")) && (tag.get_value_of("content")) {
if (tag.value = strstri(tag.value, "url")) strcpy(#redirect, tag.value);
}
if (streq(tag.get_value_of("name"), "application")) {
if (application_mode) {
if (tag.get_value_of("left")) {
MoveSize(atoi(tag.value),-1,-1,-1);
}
if (tag.get_value_of("top")) {
MoveSize(-1,atoi(tag.value),-1,-1);
}
if (tag.get_value_of("width")) {
MoveSize(-1,-1,atoi(tag.value),-1);
}
if (tag.get_value_of("height")) {
MoveSize(-1,-1,-1,atoi(tag.value));
}
}
}
}
signed int get_encoding_type_by_name(dword name)