Вопросы по Delphi (все версии) - часть 4 - [95] :: Прикладное программирование

Новости • Файловые архивы
Поиск • Активные темы • Топ лист
Правила • Кто в on-line?

Вход • Забыли пароль? • Первый раз на этом сайте? • Регистрация

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

Модерирует : ShIvADeSt
ShIvADeSt (28-06-2009 02:10): Продолжение в http://forum.ru-board.com/topic.cgi?forum=33&topic=10477	Версия для печати • Подписаться • Добавить в закладки
Страницы: 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

Mandor Sawall Junior Member	Редактировать \| Профиль \| Сообщение \| Цитировать \| Сообщить модератору ShIvADeSt +1
	Всего записей: 119 \| Зарегистр. 20-03-2003 \| Отправлено: 09:19 05-06-2009

SIgor33 Advanced Member	Редактировать \| Профиль \| Сообщение \| Цитировать \| Сообщить модератору greenpc Выложил файлы сюда http://ifolder.ru/12483038 Дам dat и idx. Посмотри может сто и присоветуешь
	Всего записей: 653 \| Зарегистр. 03-03-2009 \| Отправлено: 09:35 05-06-2009

SANIOK_AV

Full Member

Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору

mdid

Цитата:

DateTimePicker1.Format:=' dd.mm.yyyy';

у меня 5я Дельфа...там только есть DateFormat из приблизительно похожих на Format свойств...
но ему dd.mm.yyyy не присваивается...

Всего записей: 485 | Зарегистр. 31-03-2009 | Отправлено: 13:23 05-06-2009

chum2000 Full Member	Редактировать \| Профиль \| Сообщение \| Цитировать \| Сообщить модератору Посоветуйте, пожалуйста, компонент для построения графиков, диаграм и т.д. Аналог TChart. Желательно бесплатный, но не обязательно.
	Всего записей: 505 \| Зарегистр. 04-03-2004 \| Отправлено: 14:30 05-06-2009

mdid

Advanced Member

Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору

SANIOK_AV
не помню я уже 5 делфю..как вариант можно попробовать так

Код:

var
dt : TDateTime;

begin
dt:=Date;
или
dt:=DateTimePicker1.Date;

edit1.Text:=FormatDateTime('dd.MM.yyyy',dt);

если конечно есть FormatDateTime в 5 версии
ПС
ну и если совсем ничего не поможет то конвертируете дату в строку и заменяете все вхождения '/' на '.'

Всего записей: 1298 | Зарегистр. 13-02-2006 | Отправлено: 15:46 05-06-2009 | Исправлено: mdid, 15:50 05-06-2009

SIgor33 Advanced Member	Редактировать \| Профиль \| Сообщение \| Цитировать \| Сообщить модератору chum2000 TMS Advanced Charts попробуй
	Всего записей: 653 \| Зарегистр. 03-03-2009 \| Отправлено: 16:04 05-06-2009

gvidon2009

Newbie

Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору

Символы вопросов в надписях.

есть прога написаная на Delphi 7.
при запуске в Win 7 RC 7100 некоторые надписи (видимо в зависимости от шрифта) состоят из одних вопросов. Например: ??? ????
Как избавиться от них?
Есть возможность перекомпилировать прогу.
В региональных настройках стоит русский язык везде где можно.
На XP такого не наблюдалось.

Всего записей: 6 | Зарегистр. 13-03-2009 | Отправлено: 16:30 05-06-2009

SANIOK_AV

Full Member

Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору

mdid спасибо...

Цитата:

ну и если совсем ничего не поможет то конвертируете дату в строку и заменяете все вхождения '/' на '.'

я в принципе почти так и сделал ))

Код:

Copy(datetostr(DateTimePicker1.date), 1, 2) +
'.' + Copy(datetostr(DateTimePicker1.date), 4, 2) +
'.' + Copy(datetostr(DateTimePicker1.date), 7, 4)

Всего записей: 485 | Зарегистр. 31-03-2009 | Отправлено: 16:46 05-06-2009

caross Newbie	Редактировать \| Профиль \| Сообщение \| Цитировать \| Сообщить модератору gvidon2009 собери проект с указанием шрифтов, которые 100% есть в Win 7 RC 7100
	Всего записей: 6 \| Зарегистр. 16-11-2004 \| Отправлено: 16:47 05-06-2009

MrZeRo

Advanced Member

Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору

gvidon2009
В свойствах Font надо обратить внимание на CharSet - если винда не русская, то там должен стоять не DEFAUL_CHARSET, а RUSSIAN_CHARSET

----------
... не это главное ...

Всего записей: 831 | Зарегистр. 30-01-2002 | Отправлено: 17:15 05-06-2009

gvidon2009

Newbie

Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору

SANIOK_AV
а как узнать наличие шрифта MS Sans Serif Cyrillic в Windows?
меняю на другие не помогает.

Добавлено:
MrZeRo
у меня в окне настройки шрифта есть пункт script и он выставлен в Cyrillic
CharSet нет такого свойства в окне Font в Delphi 7

Всего записей: 6 | Зарегистр. 13-03-2009 | Отправлено: 17:15 05-06-2009

YarGen

Junior Member

Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору

gvidon2009
в ObjectInspector у необходимых объектов есть свойство Font у него параметр Charset нужно выставить в RUSSIAN_CHARSET.

Добавлено:
SANIOK_AV
а если попробавоть выставить глобальныю переменную
ShortDateFormat:='dd.MM.yyyy'?;

Всего записей: 42 | Зарегистр. 19-06-2008 | Отправлено: 17:57 05-06-2009

gvidon2009

Newbie

Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору

у меня в Delphi 7 (на windows 7 7100) в полях Caption, Label.Text вместо русского текста появились вопросы.
Что делать чтобы вернуть русский текст?

Добавлено:
русский текст заменился на знаки вопроса только при отображении из DFM файлов.
Причём в самом DFM всё храниться как обычно.
Например:
Caption = #1057#1077#1088#1074#1077#1088' '#1040#1056#1052' '#1044#1080#1089#1087#1077#1090#1095#1077#1088#1072
Из чего это может быть?

Добавлено:
всё разрешилось
ошибка в Win 7 RC
необходимо заново установить в региональных настройках русскую System Locale (т.е. переключить на английскую, перезугрузиться и обратно на русскую)

Всего записей: 6 | Зарегистр. 13-03-2009 | Отправлено: 09:47 08-06-2009

SIgor33 Advanced Member	Редактировать \| Профиль \| Сообщение \| Цитировать \| Сообщить модератору Подскажите, чем лучше визуализацировать и построить граф в delphi. Если можно с примерами
	Всего записей: 653 \| Зарегистр. 03-03-2009 \| Отправлено: 16:48 08-06-2009

V1s1ter

Advanced Member

Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору

SIgor33
Графы бывают разные, взгляни для начала
DeveloperExpress FlowChart
DeveloperExpress OrgChart - граф типа организационная диаграмма (однонаправленній)
Больше возможностей, но не граф, а универсальная "чертилка"
Draw Objects - достаточно легко рисуется любой граф, встроенные объекты типа линии-коннекторы. Встроенная поддержка тени (красивая). Помоему бесплатна и с исходниками.

Всего записей: 948 | Зарегистр. 06-02-2007 | Отправлено: 17:59 08-06-2009

SIgor33

Advanced Member

Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору

V1s1ter
Я это уже видел. DeveloperExpress OrgChart заслуживает внимание только когда имено диаграмму из базы рисуешь, а если есть перекрестные связи то уже сделать ничего невозможно. насчет Draw Objects там ножно все самому размещать.
Я использовал graphviz запуская в коносльном режиме, а файл формировал дельфи
Хотелось бы без консоли.

Всего записей: 653 | Зарегистр. 03-03-2009 | Отправлено: 09:14 09-06-2009

RS85

Full Member

Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору

Уважаемые гуру, кто знает, как можно в TListView отсортировать файлы и папки, как например в WinRar`e.
Т. е. сначала идут папки по алфавиту, а потом после них файлы.

Как можно описать подобную сортировку?

Заранее спасибо

Всего записей: 593 | Зарегистр. 07-02-2007 | Отправлено: 18:13 10-06-2009

Ramazan

Member

Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору

RS85
Например, так:

Код:

function CompareProc(Item1, Item2: Integer; Data: Integer): Integer; stdcall;
begin
if TListItem(Item1).ImageIndex = TListItem(Item2).ImageIndex then
Result := AnsiCompareText(TListItem(Item1).Caption, TListItem(Item2).Caption)
else
// Предполагается, что ImageIndex папки равен 0
if TListItem(Item1).ImageIndex = 0 then Result := -1 else Result := +1;
end;

Вызов сортировки:
ListView.CustomSort(CompareProc, 0);

Также можно перетащить реализацию CompareProc в обработчик OnCompare у ListView и установить SortType в stData

----------
Per rectum ad...

Всего записей: 359 | Зарегистр. 13-04-2002 | Отправлено: 08:31 11-06-2009

RS85

Full Member

Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору

Ramazan
Спасибо!

А можно немного пояснить принцип действия?

Эту функцию через цикл что-ли прогонять, по всему TListView, чтобы она сравнивала два Item`a, Item1 и Item2 и потом сортировала?

Вызов "ListView.CustomSort(CompareProc, 0);" не работает.
Пишет, что нужны параметры для функции, Item1 и Item2.

Заранее извиняюсь, если вопросы глупые. Просто что-то не могу понять.

Всего записей: 593 | Зарегистр. 07-02-2007 | Отправлено: 11:14 11-06-2009

Ramazan

Member

Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору

RS85
Функция CompareProc - callback-функция, которая возвращает результат сравнения двух элементов списка: -1, если первый элемент должен быть расположен выше, 0, если на одном уровне (без разницы, в каком порядке), +1, если второй элемент должен быть выше. Непосредственно ее вызывать не нужно, ее адрес должен быть передан в метод CustomSort у списка (ListView), а собственно сортировку выполняет уже CustomSort.
Можно вызвать и ListView.CustomSort(nil, 0), в этом случае необходимо определить обработчик OnCompare (см. текст тестового модуля)

----------
Per rectum ad...

Всего записей: 359 | Зарегистр. 13-04-2002 | Отправлено: 13:05 11-06-2009 | Исправлено: Ramazan, 10:02 12-06-2009

Страницы: 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

Реклама на форуме Ru.Board.

Powered by Ikonboard "v2.1.7b" © 2000 Ikonboard.com
Modified by Ru.B0ard
© Ru.B0ard 2000-2024

BitCoin: 1NGG1chHtUvrtEqjeerQCKDMUi6S6CG4iC