Написал язык Суржи

[Rik]

Сообщение от vladrvv

Сейчас обновился. Работаю над другой задачей. Вообще из под дизайнера ГроссМашина перестала запускаться.

А что показывает окно сообщений. Если что-то пошло не так, там должно быть упоминание об этом, пролистайте весь список сообщений.

Сообщение от vladrvv

Теперь по поводу обновлений.Возможно я вас к этому подтолкнул, но мне кажется с Tdbf вы пошли по неправильному пути (так я считаю).Есть понятие частного и общего. Всякое обобщение при наличии плюсов ведет к потере гибкости (очевидный минус). Этот как перейти к строительству из блоков или монолитному вместо кирпичей. То что можно сделать из кирпичей никогда не сделаешь из блоков.
Так вот здесь появилась предопределенная панель и автоматом отрисовывается иконка сортировки и т.д.
Так и в 1С: сложные вещи делаются просто, простые - никак!

Ну, поиск можно отключить, для иконок тоже могу опцию сделать.. У меня это изначально было, просто с DBF некорректно работало, поэтому я вас не стал сразу посвящать.. Завтра отрисовку иконок в опцию вынесу, машина поди из-за них вылетает...

Сообщение от vladrvv

Теперь о другом.
Каждая программа содержит много справочников. А я хотел озадачить Вас : можно или нет и как создать класс формы на основе разработанного образца, чтобы его один использовать для большого количества различных, но подобных, справочников.

Визуального наследования нет и не будет, во всяком случае в ближайшее время точно, идеи которые у меня были, провалились. Можно просто создать дочерний класс от формы-шаблона, вы можете переопределить конструктор, то что есть уникально для каждой формы вынести в конструктор или какой-нибудь другой метод, но переопределять методы-события базового класса в наследнике нельзя. Можно попробовать использовать фрэймы.

[Rik]

vladrvv
Рисовать иконку или нет в гриде при подключении грида к данным, вынесено в опцию TxDBGrid.Options.AutoSortIcon, по умолчанию выключено, попробуйте обновиться, если кросс-машина с вашим приложением из-за этой фичи незапускалась, должно помочь.

[vladrvv]

Посмотрите пример в личке.
1) Запуск в Дизайнере не стабилен;
2) Возвращение модального результата при Открытии форм Имена и Отчества из формы FormEdit.
3) FormEdit
у DBEditButton - удаляю Caption , а он снова появляется.
4)Загрузка DbCombo_s
Как правильно загрузить?
Текст - ANSI, таблица ANSI - на форме нечитаемые символы

[Rik]

Сообщение от vladrvv

Посмотрите пример в личке.
1) Запуск в Дизайнере не стабилен;
2) Возвращение модального результата при Открытии форм Имена и Отчества из формы FormEdit.
3) FormEdit
у DBEditButton - удаляю Caption , а он снова появляется.
4)Загрузка DbCombo_s
Как правильно загрузить?
Текст - ANSI, таблица ANSI - на форме нечитаемые символы

После внесения исправлений, проблем в работе приложения не обнаружил (во всяком случае на LInux, на Win пока проверить негде).
Исправленый пример отправил в ЛС. В DBF я пути стер, пропишите по новой, чтобы в DesignTime нормально работало.
1. Будьте крайне внимательны с путями. Будет Лучше, если все названия имен таблиц, индексных файлов и индексов приведете к одному регистру, чтобы не путаться. Я пока названия индексных файлов и индексов не привел к заглавным, работать не хотело. Пути то-же критично, если Win может что-то прожевать, то на Linux Data и DATA - разные имена.

2. Чтобы форма возвращала ModalResult, установите у неё в BorderStyle=bsDialog. Хотя это не влияет it From1.ShowModal = mrOK then ... Form1.ModalResult = mrOK всё работает не зависимо от BorderStyle.

3. Caption удалять не нужно, сделайте LabelVisible = False, а ещё лучше, там есть свойство - LabelAncorCompanion, поставьте akRight и используйте эту лэйблу, это избавит вас от заползания текста в поле редактирования, в случае изменения шрифта, например может возникнуть ситуация, когда указанного шрифта в системе нет, другой шрифт может привести к неприятному результать. Лэйбла, связанная с едитом, будет всегда на нужной дистанции.

4. Файл из которого грузите в DbCombo_s испорчен, там только 3 записи в кодировке 1251, остальные непонятно. Система рассчитана на UTF8, поэтому все должно быть в UTF8, в т.ч. и текстовые файлы. Я перекодировал текстовый файл в UTF8, завтра в TSTrings добавлю функции конвертации, на всякий случай, чтобы после загрузки из cp1251 конвертировало внутри TStrings.

[vladrvv]

все названия имен таблиц, индексных файлов и индексов приведете к одному регистру,

Понятно, но наглядность и читабельность, особенно длинных путей, ДлинныхИмен гораздо выше, если пишется в смешанном регистре.

КомБокс

после загрузки из cp1251 конвертировало внутри TStrings

а также и при сохранении в файл.

Как открыть с клавиатуры КомбоБокс ?
Из-за UTF следующий код не срабатывает

if Ord(Key) = 113 then
DBCombo_S.DroppedDown =true;
end;

[Rik]

Сообщение от vladrvv

Как открыть с клавиатуры КомбоБокс ?
Из-за UTF следующий код не срабатывает

ALT + Стрелка вниз открывает список,
Стрелка вниз, Стрелка вверх меняют значение пролистыванием без открытия.

В полях с кнопкой - нажать на кнопку с клавиатуры Ctrl+Enter

[Rik]

Сообщение от vladrvv

КомБокс
а также и при сохранении в файл.

Добавлены методы:
TStrings.ConvertUTF8To1251
TStrings.Convert1251ToUTF8
Пример программа конвертации текста http://visual-t.ru/files/StringsConvert.lm9

Исправлен метод TDataSet.FN(), который фактически вызывал FindField, вызов исправлен на FieldByName
Добавлен метод TDataSet.FF(), = методу FindField

[милт]

где или как скачать установщик суржи?

[Rik]

Сообщение от милт

где или как скачать установщик суржи?

http://www.visual-t.ru/download.html

ps.
Версия для Delphi больше не поддерживается

[Rik]

В дизайнере CrossDesigner значительно улучшен редактор свойств SQL. В редактор добавлен подсказчик, упрощающий написание SQL запросов. Парсер подсказчика распознает имена таблиц, объявленные переменные, входные и выходные параметры для EXECUTE BLOCK, позволяет обращаться к полям таблиц и вьюшек через их имена или псевдонимы. Парсер ориентирован на диалект SQL сервера FireBird.
Если кому интересно как работает, можете посмотреть исходный код в проекте CrossDesigner, модули sqleditor.pas и sqlparser.pas.

Видео на ютюбе:
http://youtu.be/rjqx6tc3y84