Говнокод

using System;
using System.Drawing;
using System.Windows.Forms;

class HTMLCheapRedactor
{
    [STAThread]
    static void Main(string[] args)
    {
        Application.EnableVisualStyles();
        Form a = new Form() { Text = "HTML Doc" },
            b = new Form() { Text = "HTML Code" };
        var web = new WebBrowser() { Dock = DockStyle.Fill };
        var txt = new TextBox()
        {
            Multiline = true,
            Dock = DockStyle.Fill,
            ScrollBars = ScrollBars.Both,
            Font = new Font("Consolas", 12f),
            WordWrap = false,
            AcceptsTab = true
        };
        web.DataBindings.Add(new Binding("DocumentText", txt, "Text"));
        a.Controls.Add(web);
        b.Controls.Add(txt);
        b.Show();
        b.AddOwnedForm(a);
        txt.Text = @"<html>
<head>
     <title>Hello World!</title>
</head>
<body>
     Hello World!
</body>
</html>";
        Application.Run(a);
    }
}

Запостил:

groser, 24.11.2019 (Updated 24.11.2019)

Комментарии (9) RSS

XYPO3BO3 7 лет ago # 0

Даже работает...
Ответить
XYPO3BO3 7 лет ago # 0

Редактировать JS не получается. Браузер во время редактирования обновляет страницу и пытается выполнить недописанный скрипт.
Ответить
Rooster 7 лет ago # 0

А в чём говно?

Браузер или хотя бы rich text есть наверное во всех болемене приличных гуях.
Ответить

groser 6 лет ago # 0

Переписал на PowerShell:

Add-Type -assembly System.Windows.Forms
$global:webForm = New-Object System.Windows.Forms.Form -Property @{ Text = "HTML Doc" }
$global:txtForm = New-Object System.Windows.Forms.Form -Property @{ Text = "HTML Code" }
$web = New-Object System.Windows.Forms.WebBrowser -Property @{ Dock = 'Fill' }
$txt = New-Object System.Windows.Forms.TextBox -Property @{
    Multiline  = $true
    Dock       = 'Fill'
    ScrollBars = 'Both'
    Font       = New-Object System.Drawing.Font @('Consolas', 12)
    WordWrap   = $false
    AcceptsTab = $true
}
$webForm.DataBindings.Add((New-Object System.Windows.Forms.Binding @("Text", $web, "DocumentTitle")))
$webForm.Controls.Add($web)
$txtForm.Controls.Add($txt)
$txtForm.AddOwnedForm($webForm)
$txtForm.add_Load( { $webForm.Show() })
# Use Markdown support in PS 6
if ([bool](Get-Command ConvertFrom-Markdown -ErrorAction Ignore)) {
    $global:html = { ($txt.Text | ConvertFrom-Markdown).Html }
} else { $global:html = { $txt.Text } }
$txt.add_TextChanged( { $web.DocumentText = &$html })
$txt.Text = @"
<html>
<head>
     <title>Hello World!</title>
</head>
<body>
     Hello World!
</body>
</html>
"@
$txtForm.ShowDialog() | Out-Null

Ответить

MAKAKA 6 лет ago # 0 ⇈

ого... икарус, это ты?
Ответить
- CHayT 6 лет ago # 0 ⇈
  
  inkanus(?)
  
  Кстати, только сейчас до меня дошло, что он был либертарианец: "Не ходи по мне"
  Ответить
- IIIAPuK 6 лет ago # 0 ⇈
  
  «Икарус» когда-нибудь писал на «Помершелле»?
  Ответить
  - OCETuHCKuu_nemyx 6 лет ago # 0 ⇈
    
    Давай у него спросим?
    Ответить