1. C# / Говнокод #26043

    +1

    1. 01
    2. 02
    3. 03
    4. 04
    5. 05
    6. 06
    7. 07
    8. 08
    9. 09
    10. 10
    11. 11
    12. 12
    13. 13
    14. 14
    15. 15
    16. 16
    17. 17
    18. 18
    19. 19
    20. 20
    21. 21
    22. 22
    23. 23
    24. 24
    25. 25
    26. 26
    27. 27
    28. 28
    29. 29
    30. 30
    31. 31
    32. 32
    33. 33
    34. 34
    35. 35
    36. 36
    37. 37
    38. 38
    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 Ноября 2019

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

    • ava XYPO3BO3 25.11.2019 00:18 # 0

      Даже работает...
      Ответить

    • ava XYPO3BO3 25.11.2019 00:23 # 0

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

    • ava Rooster 25.11.2019 04:39 # 0

      А в чём говно?

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

    • ava groser 10.08.2020 14:26 # 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
      Ответить

    • ava MAKAKA 10.08.2020 14:55 # +1

      >Redactor
      лол
      Ответить

    Добавить комментарий