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

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

      Браузер или хотя бы rich text есть наверное во всех болемене приличных гуях.
      Ответить
    • Переписал на 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
      Ответить
    • >Redactor
      лол
      Ответить

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