» Вопросы по Delphi (все версии) - часть 4

Maks150988
Не работает, потому что 'А' и 'Я' - ето AnsiChar; замените на #$0410 и #$042F.
Но имейте ввиду, что такой алгоритм не работает с другие символы, напр. "ё".
Вообще, вот как сделано в SysUtils:
Код: function WideLowerCase(const S: WideString): WideString;
var
Len: Integer;
begin
Len := Length(S);
SetString(Result, PWideChar(S), Len);
if Len > 0 then CharLowerBuffW(Pointer(Result), Len);
end;

Mandor Sawall
Спасибо, функция то что надо. У меня просто dcu файлы.

Вопрос к знающим. Вот например у меня есть на окошке меню, состоящее из нескольких столбцов - Файл/Правка/Справка. Мне нужно придать всем пунктам стиль овнердрав. Как-нибудь можно за один раз пройтись по всем столбцам рекурсивно? Знаю что есть GetMenuItemCount, но это только для подменю одного столбца действует. Мне бы все сразу одним заходом обработать - заранее неизвестно сколько будет пунктов и столбцов. Ищу ищу и что-то в поисковике ничего подходящего не находится.

Всем привет! Подскажите пожалуйста кто знает:
У меня есть два компонента TreeView и WebBrowser1 .
Мне нужно чтобы при клике на узел в TreeView открывалась страниц в WebBrowser1 и при смене страницы менялся узел.

AleksXP
а написать обработчик OnClick для TreeView не судьба? и написать обработчик при смене страницы у WebBrowser'a? или вам готовый код подать?

Maks150988
Попробуй GetSubMenu - там вторым параметром menu item position. По сути главное меню это набор dropdownmenu - вот кусок хелпа
If the function succeeds, the return value is the handle of the drop-down menu or submenu activated by the menu item.
а вот пример кода

Код:
var
hM:HMENU;
mn:array[0..10] of char;
begin
hm:=GetSubMenu(MainMenu1.Handle,1);
GetMenuString(hm,0,mn,2,MF_BYPOSITION);
ShowMessage(mn);

f3ka это я уже делал, просто мне нужно открывать станицы в зависимости от выставленного index'а в treeView, в Onclick у меня открывается следующая страница и она никак не привязана к к конкретному пункту в треевиев
p.s. знал бы я не спрашивал

AleksXP
только совсем не понятно что хранится в TreeView...
если бы был код можно было бы сказать что с ним можно сделать...
и тем более не понятно почему на OnClick происходит открытие следующей страницы никак не привязанной к Node...
у TreeView есть OnChange... почему бы там не проанализировать какой Node выбрали и открыть страницу?

ShIvADeSt
Да не, внутри подменюшек не будет у подменюшек, хотя можно тоже цикл сделать. Сделал пока так:


Код: //узнаем сколько подменю у главного меню
iCount := GetMenuItemCount(hAppMenu);
//проходимся по всем подменю
for mIndex := 0 to iCount do
begin
//узнаем сколько пунктов в подменю и проходимся по ним
iSubCount := GetMenuItemCount(GetSubMenu(hAppMenu, mIndex));
for mSubIndex := 0 to iSubCount do
begin
iSubID := GetMenuItemID(GetSubMenu(hAppMenu, mIndex), mSubIndex);
iState := GetMenuState(hAppMenu, iSubID, MF_BYCOMMAND);
if (iState and MF_SEPARATOR = MF_SEPARATOR) then
ModifyMenuW(GetSubMenu(hAppMenu, mIndex), iSubID, MF_SEPARATOR or MF_BYCOMMAND or MF_OWNERDRAW, iSubID, nil)
else
ModifyMenuW(GetSubMenu(hAppMenu, mIndex), iSubID, MF_BYCOMMAND or MF_OWNERDRAW, iSubID, nil);
end;
end;

Maks150988

Цитата:

Просто не хочется мудрить с флагом MF_BYPOSITION

На самом деле - это наиболее мудрое решение, так как ты в данном случае пляшешь от количества элементов - поэтому BYPOSITION то что доктор прописал

Хай чуваки! Помогите решить задачу.Буду очень признателен.

Написать программу для пересчета из миль в километры и наоборот (1 миля = 1.609344 км) и выводить сообщение с результатом. Расстояние вводится из окна формы, программа должна обеспечить невозможность введения выходных одновременно в милях и километрах и не допустите ввод недопустимых символов.

ShIvADeSt
Опа, что-то я запутался немного. В уме крутил вертел представлял как пункты будут обрабатываться...

Было так:

Код: //узнаем сколько подменю у главного меню
iCount := GetMenuItemCount(hAppMenu);
//проходимся по всем подменю
for mIndex := 0 to iCount do
begin
//узнаем сколько пунктов в подменю и проходимся по ним
iSubCount := GetMenuItemCount(GetSubMenu(hAppMenu, mIndex));
for mSubIndex := 0 to iSubCount do
begin
iSubID := GetMenuItemID(GetSubMenu(hAppMenu, mIndex), mSubIndex);
iState := GetMenuState(hAppMenu, iSubID, MF_BYCOMMAND);
if (iState and MF_SEPARATOR = MF_SEPARATOR) then
ModifyMenuW(GetSubMenu(hAppMenu, mIndex), iSubID, MF_SEPARATOR or MF_BYCOMMAND or MF_OWNERDRAW, iSubID, nil)
else
begin
//itemData.iData := itemIcon;
ModifyMenuW(GetSubMenu(hAppMenu, mIndex), iSubID, MF_BYCOMMAND or MF_OWNERDRAW, iSubID, PWideChar(itemData.itemIcon));
Inc(itemData.itemIcon);
end;
end;
end;

Походу, ошибочка в коде. Надо писать так:

Код:
for mIndex := 0 to iCount -1 do
....
for mSubIndex := 0 to iSubCount - 1 do

Dromaf
Ну и в чем конкретно у вас проблема? Или вы предлагаете нам самим эту программу полностью написать, а вы потом скажете нам "Спасибо"?

Dromaf
Просто в интернете уже готовые калькуляторы на это есть, задача сама по себе не логична. Если бы Вы нам поиск в ГОСТах предложили...

Цитата:

Dromaf
Ну и в чем конкретно у вас проблема? Или вы предлагаете нам самим эту программу полностью написать, а вы потом скажете нам "Спасибо"?

Да)напишите плж,а то запара по предмету.

Dromaf
Подмигивающий смайлик там не просто так стоит.
Во-первых написать то я смогу... например на MSEgui с использованием регэкспов. Но ведь преподаватель такое не примет.
Во-вторых зачем мне отнимать хлеб у братьев по клавиатуре, которые своими объявлениями залепливают все институтские доски объявлений?

NOwlar
Да нет, при чем тут это.

Dromaf
Сколько заплатишь?

Уважаемые знатоки, существует ли способ получить формат даты-времени с удаленного SQL-сервера (например, с PostgreSQL'а)?
А то моя прога на одних серверах работает, на других вылетает с сообщением о неверной дате
Попробовал погуглить - не тут-то было, нету ничего подобного.

Друзья! Помогите решить следующую задачу.
Есть текст в каком-то компоненте (к примеру TEdit).
Текст следующего формата:
"работа над объектами 23432, 345345 и 445"
Нужно выделить все цифры гипперсылками (по некоторому алгоритму, например, больше 100). И назначить действие при нажатии, например, OpenObject(id).
Посоветуйте, как можно это реализовать. Может, на основе другого какого-нибудь компонента...
Спасибо!

Проблема такая :
есть WebBrowser
есть html документ

При нажатии по ссылке в html документе, который открыт через WebBrowser по событию WebBrowser1DocumentComplete форма должна закрыться тогда когда прогрузиться документ по имени exit, на некоторых компьютерах закрывается, не некоторых нет почему понять не могу


Код: procedure TForm1.WebBrowser1DocumentComplete(Sender: TObject;
const pDisp: IDispatch; var URL: OleVariant);
var e:string;
begin
e:=('exit');
if e=WebBrowser1.LocationName then
begin
close;
Application.Terminate;
end;
end;

Grande

Цитата:

Уважаемые знатоки, существует ли способ получить формат даты-времени с удаленного SQL-сервера (например, с PostgreSQL'а)?

Я незнаком со всеми SQL серверами, но, IMHO, алгоритм таков.
1) определяем Тип SQL сервера.
2) Для каждого типа формируем свой запрос о формате даты, например для MS SQL "select @DateTimeFormat".
Не смотря, на то, что форматы стындартезированы есть отличия. Пример 1-JAN-2009 InterBase поймет в любом случае, а МЫ SQL только если региональные настройки английские, а если русские то подавай ему 1-ЯНВ-2009.
Есть еще один формат ISO 8601, шабол таков ГГГГММДДTчч:мм:сс[.ммм] в середине именно латинская "T", она отделяет дату от времени.
Еще незабывайте, что возможно при одинаковом формате для разных серверов могут потребоватся разные кавычки для заключения этой самой даты.

Grande
как сказал V1s1ter используйте в Вашей программе формат ISO
или подозреваю у Вас типа такого .ParamByName().Value :='12.01.2009' т.е. строка
переделайте в формат TDateTime
var mDate : TDateTime;
begin
mDate :=Now;
.ParamByName().Value := mDate;

V1s1ter
Нету в постгресе DateTimeFormat, в том-то и дело
Да и похожего ничего нет.


Добавлено:
greenpc
У меня не так, но это мысль. Спасибо, попробую.

Grande
greenpc
Указанный вами способ проидет только для одного типа серверов, я понял, нужен универсальный. Поэтому сначало и надо определить тип сервера, а потом исходя из его возможностей и все остальное. Тип DateTime напрямую можно отослать толькос помощью api сервера, универсаньный код должен генерить строки в соответствующем формате.
Если интересовал только PostgreSQL, то и вопрос нужно было задать именно понему.

V1s1ter
вы не правы что надо определять тип сервера... как раз таки компоненты доступа уже знают куда они подключены и параметр будет преобразован в правильный вид...

f3ka
Да видимо глупость написал... Точнее написл правильно, в смысле реализации решения, но забыл, что разработчики универсальных компонент, тоже должны были режить эту проблему. Сорри ...

У меня возник вопрос.
У меня обычное VCL приложение. Как можно повысить приоритет основного и единственного потока своей программы? (гугли предложило только информацию про многопоточные приложения)

Kursist
что то типа того наверное

для приложения
SetPriorityClass(GetCurrentProcess, xxx_PRIORITY_CLASS);

для потока
SetThreadPriority(GetCurrentThread, THREAD_PRIORITY_xxxxx);

Terre
Спасибо!
Про поток информацию находил, а про приложение нет.
А где лучше это вставлять? В FormCreate, FormActivate ?