[ Delphi / Pascal ] — начинающим: задаем вопросы (архивная - 2015)

Discussion in 'С/С++, C#, Rust, Swift, Go, Java, Perl, Ruby' started by banned, 6 May 2007.

Thread Status:
Not open for further replies.
  1. binarymaster

    binarymaster Elder - Старейшина

    Joined:
    11 Dec 2010
    Messages:
    4,717
    Likes Received:
    10,195
    Reputations:
    126
    Надеюсь, вы приняли во внимание моё сообщение ?)
     
  2. vasykas

    vasykas Banned

    Joined:
    7 Mar 2011
    Messages:
    963
    Likes Received:
    137
    Reputations:
    37
    я так понял что цикл создания потоков:
    то он у меня с нуля и менять еще что либо
    в коде не пришлось или...?
     
  3. binarymaster

    binarymaster Elder - Старейшина

    Joined:
    11 Dec 2010
    Messages:
    4,717
    Likes Received:
    10,195
    Reputations:
    126
    for Thread:=0 to pot-1 do

    Полагаю.
     
  4. vasykas

    vasykas Banned

    Joined:
    7 Mar 2011
    Messages:
    963
    Likes Received:
    137
    Reputations:
    37
    не не помгло:
    пробовал методом тыка...
    если в цикле остановки потоков только
    (повторюсь)
    при событии он останавливает потоки а при закрытии формы ошибка
    если так:
    то при событии ошибка.
    ладно буду искать beep`ом.
     
  5. vasykas

    vasykas Banned

    Joined:
    7 Mar 2011
    Messages:
    963
    Likes Received:
    137
    Reputations:
    37
    запустил exe из директории почему то ошибки нет.
     
  6. #colorblind

    #colorblind Moderator

    Joined:
    31 Jan 2014
    Messages:
    634
    Likes Received:
    246
    Reputations:
    42
    Потому что ошибку ловит встроенный дебаггер, а когда ты запускаешь не из под дельфей, то эксепшен обрабатывается твоим try except
     
  7. vasykas

    vasykas Banned

    Joined:
    7 Mar 2011
    Messages:
    963
    Likes Received:
    137
    Reputations:
    37
    так и не смог найти ошибку.
    закоментировал try ,except.
    все так же. :(
     
  8. lord_of_keyb

    lord_of_keyb New Member

    Joined:
    26 Jul 2010
    Messages:
    4
    Likes Received:
    0
    Reputations:
    0
    Code:
      ReleaseCapture;
      Perform(WM_SysCommand, $F012, 0);
    
    Как реализовать этот код на xe7? Ругается на неизвестный "Perform". На xe4 запускается в легкую без подключения чего либо
     
  9. binarymaster

    binarymaster Elder - Старейшина

    Joined:
    11 Dec 2010
    Messages:
    4,717
    Likes Received:
    10,195
    Reputations:
    126
    Perform - это обёртка над API функцией SendMessage. Для начала вам нужно будет получить дескриптор "окна" объекта формы - Handle. И, используя его, вызывать функцию SendMessage.

    XE7 не юзал, так что не знаю, есть ли возможность вернуть Perform. Может он был переименован или что-то ещё, читайте доки.
     
  10. #colorblind

    #colorblind Moderator

    Joined:
    31 Jan 2014
    Messages:
    634
    Likes Received:
    246
    Reputations:
    42
  11. lord_of_keyb

    lord_of_keyb New Member

    Joined:
    26 Jul 2010
    Messages:
    4
    Likes Received:
    0
    Reputations:
    0
  12. binarymaster

    binarymaster Elder - Старейшина

    Joined:
    11 Dec 2010
    Messages:
    4,717
    Likes Received:
    10,195
    Reputations:
    126
    Возник вопрос о грамотной реализации ползунка прокрутки для объекта TStringGrid.

    Существует две известные проблемы ползунка прокрутки TStringGrid:
    1. Размер ползунка всегда маленький, даже при незначительном переполнении содержимым
    2. При перемещении ползунка, содержимое остаётся неподвижным до отпуска кнопки мыши

    Первая проблема частично решается здесь:
    http://delphiworld.narod.ru/base/propol_show.html

    Частично, потому что при перемещении ползунка в конец, он не до конца пролистывает содержимое.

    Реквестирую идеи по этому поводу. Больше интересует решение 1 проблемы. Вторая пока менее приоритетна, но тоже жду рекомендаций.
     
  13. #colorblind

    #colorblind Moderator

    Joined:
    31 Jan 2014
    Messages:
    634
    Likes Received:
    246
    Reputations:
    42
    Никогда со скролбарами не работал, хоть узнал что-то новое.
    Обе проблемы решены ;)
    http://rghost.ru/6GQNrYp6m
     
    1 person likes this.
  14. binarymaster

    binarymaster Elder - Старейшина

    Joined:
    11 Dec 2010
    Messages:
    4,717
    Likes Received:
    10,195
    Reputations:
    126
    Ну... это не совсем то) Имел ввиду ползунки, не как отдельные объекты, а те, что встроены в TStringGrid.

    Их можно задействовать, используя свойство ScrollBars, поставив значение ssBoth.
     
  15. #colorblind

    #colorblind Moderator

    Joined:
    31 Jan 2014
    Messages:
    634
    Likes Received:
    246
    Reputations:
    42
    Ну хз что тебя не устроило, ибо обе твои проблемы решены. В принципе можно динамически поработать с родными скроллбарами, через ScrollInfo, заставив их делать то же самое, но это геморно и мне не хочется разбираться.
     
  16. VladimirV

    VladimirV Well-Known Member

    Joined:
    1 Apr 2013
    Messages:
    1,130
    Likes Received:
    6,150
    Reputations:
    57
    'goThumbTracking' устаноыить в 'true'
     
    1 person likes this.
  17. binarymaster

    binarymaster Elder - Старейшина

    Joined:
    11 Dec 2010
    Messages:
    4,717
    Likes Received:
    10,195
    Reputations:
    126
    Что-ж, и на этом спасибо. Если появится желание, дайте знак.

    Действительно, вторую проблему решает. +)
     
  18. VulturRe

    VulturRe Member

    Joined:
    9 Dec 2010
    Messages:
    59
    Likes Received:
    6
    Reputations:
    0
    подскажите как заменить обработку строк в мемо(программа виснет из-за большого количества строк) както может в оперативке правильно строки обрабатывать? не могли бы пример скинуть как без мемо обойтись и в файле строки обработать.?
     
  19. #colorblind

    #colorblind Moderator

    Joined:
    31 Jan 2014
    Messages:
    634
    Likes Received:
    246
    Reputations:
    42
    var
    lst:TStringList;
    begin
    lst := TStringList.Create;
    //дальше как с Memo
    end;
     
  20. VulturRe

    VulturRe Member

    Joined:
    9 Dec 2010
    Messages:
    59
    Likes Received:
    6
    Reputations:
    0
    это уберет зависания ?
    как в мемо - тоесть string - строки вместо Lines?
     
Thread Status:
Not open for further replies.