SweetHTML - новый релиз

[hCORe]

Дорогие участники, прошу Вас протестировать новую версию моего (и не только) редактора QuickHTML - 1.5 Pre-Beta 3. Изменено название программы, введен ряд новых интересных возможностей (не все из них реализованы, но все же )

Целей несколько:
1) найти ошибки и баги;
2) подсказать необходимые изменения в пользовательском интерфейсе;
3) ну и, конечно, стать горячим поклонником программы (шутка )

Итак, список изменений в этой версии:
(- удаление, + добавление, * изменение)

+ окно «Корзинка» для открытия, печати и просмотра файлов методом drag-n-drop (перетащить и опустить)
+ новые всплывающие подсказки с изменяемыми цветами (пока - в главном окне, в окнах FTP-менеджера, оптимизатора, частично - CSS-редактора)
+ начало установки механизма локализации
+ быстрая вставка кусков кода (snippets.txt) - по Alt+S
* оптимизированные функции конвертации текстов
* новое название программы - SweetHTML, новый логотип, новая иконка
* улучшенное окно «Вставка цвета»
* улучшенные кнопки в окнах CSS-редактора, вставки цвета, в главном окне, в окнах редакторов панели тэгов, шаблонов и базы тэгов
* улучшенная панель тэгов и панель навигатора
* устранены баги

Вот, в общем-то, и все.

Дистрибутив находится по адресу:
http://templgn.chat.ru/sweethtmlb30.exe

ЗЫ. Тому, кто найдет скрытый «прикол» - картинку в окне «О программе» от меня вкусный-превкусный пирожок
ЗЗЫ. Описание предыдущей версии см.:
http://bbs.vbstreets.ru/viewtopic.php?t=7385

[marvan]

ЗЫ. Тому, кто найдет скрытый «прикол» - картинку в окне «О программе» от меня вкусный-превкусный пирожок

типа высылай пирожок - картинка появляется при нажатии на ссылку: http://fcpteam.narod.ru/

[marvan]

баги:
- при выборе в списке дисков пустого CD - дальнейший выбор папок не работает.
- после изменения масштаба - номера строк не перерисовываются автоматически
- а после отмены при увеличенном масштабе - размер номеров строк так и остаётся гигантским
- в мастере оптимизации кода при наведении указателя на ссылку на сайт исчезает указатель
- He yдaeтcя нaйти "C:\Program Files\SweetHTML 1.5 Beta 3\\colors.txt" - при смене режима по F12
фичи:
- нет отмены перекодировки
- в мастере оптимизации кода узнал, что бывает прирост производительности: в 1 раз(а)

[hCORe]

1) Исправлено!
2, 3) Какая операционка? Этот баг был в Windows 9x.
4) Класс. Исправлено!
5) Объясни поподробнее, что происходит.
6) Как же нет, когда есть! Ctrl+Z и флаг тебе в руки. Попробуй перекодировать этот текст:

Код: Выделить всё

рТПЗТБННЙУФ, ФЩ УФБМ УПЧУЕН ЧЪТПУМЩК. х ФЕВС ХЦЕ ТБУФХФ ТХЛЙ.

из KOI8-R в Windows-1251 и обратно, выбрав пункт меню Сервис>Перекодировка только один раз.
7) Бывает, когда нечего оптимизировать. Будет выдача сообщения: "Уважаемый пользователь, я такой тупой, что не вижу, что здесь можно оптимизнуть "

[hCORe]

Пирожок забыл

Вот он (ну какой есть):

[marvan]

2,3 - WinXP SP1
5 - сам ищи где у тебя в путь файла два слэша запихивается
6 - а на кнопке нет

спасибо за пирожок (какая программа, такой и пирожок)

Пока не собираюсь переходить с Dreamweaver MX 2004 на это чудо.
Ну, а если серьёзно - программа понравилась, оствляет ошущение добротного продукта.

Тока - иконки зашей в файл ресурсов и избавься от этого глюкавого ocx'а которым делаеш подсветку синтаксиса.

[hCORe]

Спасибо за отзыв

Насчет вопроса №2 - не знаю, что это может быть
№3 - Масштаб выбирается для всех документов и на отмену никак не влияет.
№6 - И вправду нет. Будем бить баги

В файл ресурсов иконки не буду засовывать из принципа - они грузятся с диска, так как являются частью темы панелей.
Подсветка синтаксиса в версии 2.0 (гораздо после 1.5) будет осуществляться при помощи плагинов, а пока это не OCX, а "раскрашивающая" процедура, обрабатывающая обыкновенный RichTextBox.

[GM]

Вот и я один баг нашел. Если перейти в режим просмотра (F12) и нажать на кнопку первая или последняя строка, то сразу выбивает с программы.

[hCORe]

Спасибо! Пирожок выдавать?

[GM]

Спасибо не надо.

[hCORe]

Зря, зря

[Alexanbar]

У меня вопрос не по обсуждению этой программы, а по использованию в ней контрола cPopmenu6.ocx.
Приспособил его к своей программе, выудил кучу глюков. Выяснил, что для создания динамичного контекстного меню он абсолютно неприспособлен (для этой цели есть другой). И в конце концов, когда, казалось бы, победа была уже близко, вдруг обнаружил у себя в своей программе (см. Пользовательская оболочка) неприятный глюк. При изменении размера панели задач у формы прячется меню.
Зная, что SweetHTML использует этот же кнотрол, попробовал обнаружить это в SweetHTML, но глюка не обнаружил.

При передёргивании панели задач можно заметить, что SWEEtHTML чего-то перерисовывает с целью борьбы с этим.

Если можно, просьба подсказать, как бороться с этим глюком.

[hCORe]

Для контекстных меню я создаю невидимые менюшки с Caption="<несколько пробелов>" и потом открываю их по такой методике:

Код: Выделить всё

Private Sub rtfHTML_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
On Error Resume Next
    If Button = 2 Then
        Dim p As POINTAPI, rc As Long
        Dim hMnu As Long
        GetCursorPos p
        mnuHTML.Visible = True
        cPopMain.CheckForNewItems
        hMnu = pGetMenu(" ")
        pSetIcon "b0", "&Отменить "
        pSetIcon "b1", "Пов&торить "
        pSetIcon "b2", "Вы&резать "
        pSetIcon "b3", "&Копировать "
        pSetIcon "b4", "&Вставить "
        pSetIcon "b8", "&Глобальная замена... "
        pSetIcon "d0", "Выбрать &цвет... "
        rc = TrackPopupMenu(hMnu, &H0, p.X, p.Y, 0, Me.hwnd, ByVal 0&)
        mnuHTML.Visible = False
        cPopMain.CheckForNewItems
    End If
End Sub

Private Sub pSetIcon( _
        ByVal sIconKey As String, _
        ByVal sMenuCaption As String _
    , Optional ByVal lNumIter As Long = 1)
On Error Resume Next
Dim lIconIndex As Long, lInd As Long, lIter As Long
    lIconIndex = plGetIconIndex(sIconKey)
    lIter = 0
    For lInd = 1 To cPopMain.Count
        DoEvents
        If UCase(cPopMain.Caption(lInd)) = _
        UCase(sMenuCaption) Then
            lIter = lIter + 1
            If lIter >= lNumIter Then
                cPopMain.ItemIcon(lInd) = lIconIndex
                Exit For
            End If
        End If
    Next lInd
End Sub

Private Sub pSetIconByNum( _
        ByVal sIconKey As String, _
        ByVal lMenuNum As Long _
    )
Dim lIconIndex As Long, sMenuNm As String
    lIconIndex = plGetIconIndex(sIconKey)
    sMenuNm = cPopMain.MenuKey(lMenuNum)
    cPopMain.ItemIcon(sMenuNm) = lIconIndex
End Sub

API объявишь сам, да?

А перерисовка, увы, тривиальна:

Код: Выделить всё

Me.Refresh

и все тут

[Alexanbar]

Оказалось всё не просто, а очень просто:

Popmenu1.Subclassmenu, False

Когда делаешь True, меню начинает попадать при передёргивании Панели задач.

При создании контекстного меню при помощи этого контрола мне не очень не понравились две вещи:
1) если спрятать линию, а потом показать её вновь, она уже не прорисовывается в стиле OfficeXP, а выглядит так, как в стандартном VB.
2) чтобы показхывать Контекстное меню, оно должно быть видимо, т.е. где-то сидеть в видимой части меню, а меня это не устраивает
3) большие конфликты обнаружились при использовании методов Load/Unload VB и Additem в контроле.
Один из самых неприятных глюков - при выборе меню, которые образоаны контролом, почему-то вызываются те, которые созданы методом Load, а потом те, что надо.

Так что для контекстных меню использую cNewMenu6.dll этого же автора