Maks150988 Advanced Member Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору Подробнее... Вот... Всего записей: 836 | Зарегистр. 23-12-2006 | Отправлено: 12:05 16-07-2008

Erazer Advanced Member Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору часа полотора выяснял че после добавления TXPManifest при закрытии прога ругалась на uxtheme.dll - Eaccess violation получал каждый раз... Это aspr_ide.dll глючила - отладочная dll Asprotect'а... Как только прога запакована и работет без нее, все пучком... Всего записей: 1731 | Зарегистр. 02-08-2003 | Отправлено: 11:28 20-07-2008

Skipper Advanced Member Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору Повесь на OnPaint вызов своей функции как 1 из вариантов. 2 Вариант, это отловить изменение темы оформления и вызвать функцию. Всего записей: 961 | Зарегистр. 23-06-2002 | Отправлено: 17:43 22-07-2008

Maks150988 Advanced Member Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору Может стоит после каждой перерисовки вызывать InvalidateRect? Всего записей: 836 | Зарегистр. 23-12-2006 | Отправлено: 18:30 22-07-2008

Skipper Advanced Member Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору а .canvas не поможет? Или я ошибаюсь? Всего записей: 961 | Зарегистр. 23-06-2002 | Отправлено: 22:35 22-07-2008

OdesitVadim Advanced Member Редактировать | Профиль | Сообщение | ICQ | Цитировать | Сообщить модератору Скорее всего выставлен свойство Style в отличное от csDropDown. В некоторые другие свойства предназначены для ручной отрисовки списков. Если это не используется, то надо выставить правильный стиль. ---------- Press any key to continue or any other key to exit Пишите так, чтобы не было стыдно за нобелевскую премию. Всего записей: 1568 | Зарегистр. 19-09-2003 | Отправлено: 19:03 23-07-2008

MsdLamer Junior Member Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору Здравствуйте. Подскажите пожалуйста как можно удалить все знаки равно из текстового файла. При этом не удаляя всю строчку. Спасибо. Всего записей: 53 | Зарегистр. 26-07-2007 | Отправлено: 19:48 23-07-2008

deks Advanced Member Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору MsdLamer   что нибудь аналогичное предыдущему, но примерно такое..   var   aFileNAme : string;   aFileName := ''; sl := TStringList.Create; sl2 := TStringList.Create; sl.LoadFromFile(filename); // в sl будем хранить оригинальный файл, а в sl2 записывать текущий "маленький" файл for i := 0 to sl.Count - 1 do begin //  проанализируем текущую строку в файле sl   if Length(sl[i]) <= 3 then begin     // если она сигнализирует о начале нового файла, то запишем накопленные данные:     if (sl2.Count > 0) and (aFileNAme <> '') then begin // записывать будем только в том случае, если данные имеются               sl2.SaveToFile(aFileName + '.txt');       sl2.Clear;       aFileName := sl[i];   end;     sl2.Add(sl[i]); // добавим текущую строку в файл end;   // запишем оставшиеся данные: if (sl2.Count > 0) and (aFileNAme <> '') then         sl2.SaveToFile(aFileName + '.txt');   FreeAndNil(sl);   FreeAndNil(sl2); Всего записей: 857 | Зарегистр. 09-10-2003 | Отправлено: 10:44 24-07-2008

MsdLamer Junior Member Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору Блин всем спасибо огромное за помощь!! Все с пояснениями супер....))) Кайфовый форум. Всего записей: 53 | Зарегистр. 26-07-2007 | Отправлено: 10:49 24-07-2008

OdesitVadim Advanced Member Редактировать | Профиль | Сообщение | ICQ | Цитировать | Сообщить модератору Narrator Ну в таком случае "угадать" сложнее. Если бы форма, которая видна при дизайне и в запущенном приложении отличались в компонентах - тогда другое дело, эт мы знаем.   Может просто на форме есть какой-то "специфический сторонный компонент"? Например для скинов. у ComboBox/ListBox наблюдается полоса прокрутки (ну если она действительно нужна по размеру. цвет шрифта случайно не совпадает с цветом фона?   (тут два варианта:   - либо было решено разукрасить форму всемя цветами радуги. а многие компоненты наследуют эти цвета от родительского компонента - обычно формы. - был поставлен компонент TXPManifest. И цвета с подключёнными стилями немного не совпадают с теми, что были в дизайне. Наблюдал когда то такое с TMainMenu, при этом в в винде была настроена очень странная тема в чёрно-зелённых тонах)   В FormCreate/FormShow и так далее нет какого то "хорошего кода"? Воспроизводиться ли проблема на других формах этого проекта. А на другом проекте. А если этот проект запустить на другом компе?   Можно ещё пару вариантов привести, но сложно гадать на кофейной гуще. ---------- Press any key to continue or any other key to exit Пишите так, чтобы не было стыдно за нобелевскую премию. Всего записей: 1568 | Зарегистр. 19-09-2003 | Отправлено: 11:15 24-07-2008

MsdLamer Junior Member Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору И еще один вопрос подскажите пожалуйста как можно в текстовом файле оставить нужные куски текста? Допустим есть текстовый файл с содежимым: Саша 47 .... какой-то текст НатаШа 56.... дальше не нужный текст Саша 78.... какой-то текст НатаШа 71..... нужно чтобы осталось   Саша 47 .... какой-то текст НатаШа 56.... Саша 78.... какой-то текст НатаШа 71..... т.е. нужно чтобы остались только нужные куски. Саша и Наташа в одной строке не попадаются. Спасибо. Всего записей: 53 | Зарегистр. 26-07-2007 | Отправлено: 12:46 24-07-2008

Dimoniusis Silver Member Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору deks у тебя ошибка.   Цитата: if Length(sl[i]) <= 3 then begin       // если она сигнализирует о начале нового файла, то запишем накопленные данные:       if (sl2.Count > 0) and (aFileNAme <> '') then begin // записывать будем только в том случае, если данные имеются         sl2.SaveToFile(aFileName + '.txt');         sl2.Clear;         aFileName := sl[i];     end;     Правильно: Цитата:   if Length(sl[i]) <= 3 then begin       // если она сигнализирует о начале нового файла, то запишем накопленные данные:       if (sl2.Count > 0) and (aFileNAme <> '') then // записывать будем только в том случае, если данные имеются         sl2.SaveToFile(aFileName + '.txt');         sl2.Clear;       aFileName := sl[i];     end;   Всего записей: 4134 | Зарегистр. 18-10-2005 | Отправлено: 22:34 24-07-2008 | Исправлено: Dimoniusis, 22:35 24-07-2008

Страницы: 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95 96 97 98 99 100 101

Компьютерный форум Ru.Board » Компьютеры » Прикладное программирование » Вопросы по Delphi (все версии) - часть 4

ShIvADeSt (28-06-2009 02:10): Продолжение в http://forum.ru-board.com/topic.cgi?forum=33&topic=10477

Переход по форумам  Закладки   » Компьютеры Цифровое изображение Программы Microsoft Windows UNIX Другие OS Hardware В помощь сисадмину Прикладное программирование Игры Форумные игры   » Интернет Web-программирование В помощь вебмастеру Графика Хостинг Зацените-ка!   » Тематические Ikonboard v.2 Ikonboard v.3 Invision Board Другие форумы PHP-Nuke и другие порталы Мобила   » Общие Спорт Флейм Темы по региональным встречам Музыка и Кино Юмор Литература и Живопись   » Ru.Board Новости Помощь по форуму   » Андеграунд eBookz Варезник Раздачи и акции Мобильный варезник Андеграунд Игры и фильмы   » Специальные Тестирование