1. Pascal / Говнокод #9065

    +95

    1. 1
    2. 2
    3. 3
    4. 4
    5. 5
    6. 6
    7. 7
    // со времен Delphi 7.
procedure TfrmMain.AppDeactivate(Sender: TObject);
begin
  OpenClipboard(0);
  if (IsClipboardFormatAvailable(CF_TEXT)) then SetClipboardData(CF_LOCALE, 0);
  CloseClipboard();
end;

    Полагаю, большинство в курсе, что при копировании русского текста из приложения, написанного на дельфи, в другое приложение иногда копируются кракозябры.
    Это происходит, когда при копировании НЕ выбрана русская раскладка клавиатуры.

    Удалось вылечить так.

    Запостил: ctm, 10 Января 2012

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

    • ava TarasB 10.01.2012 13:29 # 0

      Мне похрен, я пишу на ВинАПИ напрямую, у моих программ всё копируется чётко, потому что я CreateWindowW
      Ответить

    • ava eth0 10.01.2012 18:02 # +3

      Спасибо борланду за это.
      Ответить

    • ava bugmenot 10.01.2012 18:12 # +1

      Может таки проще TClipboard подпатчить?
      Ответить

      • ava ctm 11.01.2012 06:25 # 0

        ну вроде как неэтично менять стандартные модули...
        Ответить

        • ava bugmenot 11.01.2012 09:03 # 0

          почему нет? определенно баг
          Ответить

          • ava ctm 11.01.2012 09:12 # 0

            там не только этот баг.
            например, взять комбобокс, установить стиль csDropDownList, добавить итем пустую строку. запускаем, выбиаем его - падает ошибка в nt.dll. Помогает добавление строки " ". тоже баг.
            может и стоит поменять, останавливает то, что на другой машине (где забыли поменять оригинальные модули) билдим - падать будет.
            Ответить

            • ava bugmenot 11.01.2012 19:18 # +3

              четное количество багов нельзя фиксить? :-)
              Ответить

              • ava Govnocoder#0xFF 11.01.2012 20:20 # 0

                Нет нет, ты что! Поверье есть такое - если чётное количество багов пофиксишь, потом ни одна прога не откомпилируется! Поэтому все суеверные добавляют в программу ещё один баг, чтобы их число было нечётным и только тогда фиксят.
                Ответить

                • ava bugmenot 11.01.2012 21:33 # +1

                  ... семь лет компилиться не будет
                  Ответить

                • ava ctm 12.01.2012 09:22 # +1

                  еще:
                  выложить обновление в пятницу вечером - очень плохая примета
                  Ответить

                  • ava bugmenot 12.01.2012 10:19 # 0

                    синтаксически можно спрятать старый класс и подсунуть поправленный
                    или detour, если внутри откомпиленного
                    Ответить

                  • ava kyzi007 12.01.2012 10:40 # 0

                    У одной конторы обязательный бекап за пол часа-час до окончания работы по пятницам, остальные дни - по желанию.
                    Понедельник начинается с адреналина.
                    Ответить

                    • ava ctm 12.01.2012 12:23 # 0

                      мы работали с 50+ предприятиями с централизованным обновлением (но присылается по почте - политика их компании, ничо не поделаешь). И вот обязательно найдется 1-2 у которых все не как у всех прочих.
                      да, забыл сказать - установка обновления - сделать бекап, 2 раза кликнуть на вложенный файл (контрольная сумма есть, были случаи), нажать "установить". и в каждом письме это написано было.
                      И при этом бекапы - четверть из них годами не бекапила ничего, но с другой стороны это не наша зона ответственности, мы же их предупредили:)
                      Ответить

                      • ava bugmenot 12.01.2012 15:23 # 0

                        Я с ходу подумал, что сырцы таким образом расползаются :-o
                        FreeBSDelphi.xbm
                        Ответить

    • ava Govnocoder#0xFF 10.01.2012 20:45 # −1

      > Delphi 7
      Экий же вы некрофил, батенька! Посмотрите в окно, 2012 год на дворе!
      Ответить

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