» Вопросы по Delphi

Цитата:

Станно, очень странно, у меня всё нормально....

Да , очень странно...

Цитата:

Ну я как то давненько вставлял как то gif cтандартными средствами, но он был не анимированный

Еще более странно....

GloThin

Цитата:

Еще более странно...

Чтобы не мучаться с гифчиками, установите RxLib или Jediчтото там Они дают поддержку дельфи анимированных гифчиков.

Цитата:

Чтобы не мучаться с гифчиками, установите RxLib или Jediчтото там Они дают поддержку дельфи анимированных гифчиков.

Хмм прикольно, а где линк найтить , неть ли у добрых людей???

dartvaider
смотри здесь projectjedi.sourceforge.net

Поставил Microsoft .NET Framework SDK v2.0,
ту которая beta. В восьмёрке и девятке перестала работать клавиша F1. Ругается на htmlhelp271.bpl и htmlhelp290.bpl. Без F1 скучно, а новый SDK всёже хочется почитать. Информации как их подружить я пока не нашёл.
Так что поосторожнее SDK 2.0. Я думаю что надо обратно переустановить D2005, но не знаю будет ли после этого SDK такой же симпатичный.

vserd

Цитата:

А вы оптимист ))
Если рабочим языком Adobe является C++ то чтобы были примеры на Delphi это очень нужно постараться.

Я всегда оптимист API функции везде практически одинаковы.
"Если Вас съели у Вас все равно есть 2 выхода"

Народ, кто Quantum Grid5 пользуется, какие библиотеки для скинов красиво работают с DevExpress? или всё средствами lookAndFeel делаете?

Цитата:

Я думаю что надо обратно переустановить D2005

Похоже SDK v2.0 придётся прибить, так как переустановка фрамеворка 1.1 положительных результатов не принесла. А жаль - dotnetfx(22,4mb) setup(309mb) могут разве что на виртуал писюк попасть.

Pinocchio
Ужо вышла SDK v2.0 final. Может поможет:
http://www.microsoft.com/downloads/details.aspx?FamilyID=fe6f2099-b7b4-4f47-a244-c96d69c35dec&DisplayLang=en

LordMAD
Спасибо. Но я не уверен, что это поможет. Хорошо когда можно скачать гигабайт другой, однако желательно быть уверенным. Инфу я поискал, но ничего про Microsoft Document Explorer всвязи с дотнетом не увидел. Htmlhelp2Viewer пытается регаться к нему, но невыходит. Странно, MSDE работает и BDS хелп работает через меню пуск. А вот F1 никак. И что, не привыкну к меню пуск что и?

Да забыл. Убил я SDK2 и сам фикс, переустановил 1.1 вместе с SDK, ещё XP sp2 вдогонку. Ситуация таже. Буду ждать наступления переодической переустановки системы.

Ужо скачал и установил SDK v2.0 final. Такой же красявый. Опустошил ветки
\Software\Borland\BDS\X.0\Disabled IDE Packages. Ситуация таже. Может под дебагом его (bpl) подгрузить?

Pinocchio
Мне по ряду причин пришлось поставить .NET Framework 2.0 Так что имею ту же проблему. На Borland Quality Central проблема описана, решения нет.

LordMAD
У меня скоро меняют машину - переустановка софта, дополнительные OS, запихну SDK в нерабочую , так что я пас.

Пишу web-сервис через мастер, он прописывает (если смотреть WSDL) style="rpc", а есть возможность ее сменить? Нужен собственно "Document literal".

Оказывается всё не так страшно. Надо было деинсталлировать всё вместе с MSDN.
Потом для пущей вящести переименовать каталог:
_Program_Files_Common_Files_Microsoft_Shared_Help
После этого установить всё заного, что было до дотНет20

Pinocchio
Нашел рецепт, чтобы подружить .NET Framework 2.0 и Delphi 2005 (конкретно, речь идет о справке): в реестре в ветке HKEY_CLASSES_ROOT/AppID/dexplore.exe меняем значение AppID на {4A79114D-19E4-11d3-B86B-00C04F79F802}. И все! Справка снова работает!

Подтверждаю. Всё работает.

Подскажите как в delphi 7 под windows Xp можно узнать версию ехе файла. Например ( комментарий, название продукта и тд...).

nikto2
www.delphiworld.narod.ru/base/version_info.html

У меня вот какая проблема. Нужно сделать программу каторая будет различать команди от телевизионного пульта через инфракрасный порт. Может кто делал ето? Поделитесь как запрограмировать порт(сом). Буду очень благодарен за помощь.

nikto2
Там не всё так просто, как с мышкой, например. Там идёт посылка в виде 1 и 0 закодированая особым образом, причём для разных пультов она может заметно отличаться. Для начала скачай прогу http://slycontrol.ru/scr/rcexplorer.htm она покажет тебе как выглядит этот сигнал. Потом можно будет думать дальше...
Таже почитай это
http://slydiman.narod.ru/scr/plugins/dcd.htm#trans
http://slycontrol.ru/scr/irrc_irlink.htm
Поможет и просветит

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

OdesitVadim
По поводу инфракрасного порта, есть опенсорсная программа WinLIRC, которая как раз этим и занимается, в инете имеется различные ее версии, исходники в комплекте, написана на VS++ вроде (судю по сорцам). nikto2 качни и разберись как она работает.

Цитата:

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

То бишь что-бы при смене железки твоя прога сказала, что она уже на другом компе установлена?
ИМХО лучше всего писать в реестр что-нибудь типа результата преобразования серийного номера жесткого диска.
При запуске каждый раз получаем этот номер, осуществляем преоборазование и сравниваем получаемое значение с записанном в реестре.

Как получить серийник винта описано здесь: http://faq.realcoding.net/quest322.html

minos14
Если лень самому возится посмотри на компоненты под названием MachineID.

Просьба огромнейшая, попросили найти пример решения задачи по часовым поясам, т.е. есть текущее время, необходимо выставить часовой пояс и чтобы отобразилось время в этом часовом поясе по отношение к текущему времени...100 лет с момента окончания института ничего не делал, может у кого нить завалялись исходники?

Возникла следующая проблема.
Программа на Delphi, компилятор Delphi2005 с Update 3.
Имеется приложение (MDI), на главной форме - меню и StatusBar (ну и кое-что еще, не важно). В StatusBar есть 3 панели, все они OwnerDraw (я сам на них рисую, что мне надо).
При этом периодически (иногда при запуске, иногда при показе модального окна) во второй панели StatusBar появляется надпись с текстом=Caption левого крайнего меню (у меня "File"), в третьей панели StatusBar - надпись с текстом=Caption подменю (у меня "New"), и рядом Bitmap этого подменю.
Если заставить перерисовать это окно(минимизировать/максимизировать, наехать другим окном на StatusBar), то все становится на место.
Не могу понять, как это происходит и как устранить.
Менял стиль окна на fsNormal - не помогает.
В процедуре отрисовки (OwnerDraw) делал FillRect() - опять эта дрянь появляется, но с другим фоном - не clBtnFace, а clNavy.
Если убрать полностью меню, тогда все нормально, но меню мне нужно

MrZeRo

Цитата:

Если убрать полностью меню, тогда все нормально, но меню мне нужно

Дай код ownerdraw процедуры иначе нет смысла спрашивать (код оформи в теге more, чтобы не занимал много места).

Вот фрагмент из той панели, где выводится "New".


Цитата:

procedure TMainForm.StatusBar1DrawPanel(StatusBar: TStatusBar;
Panel: TStatusPanel; const Rect: TRect);
begin
if Panel.Index=0 then
DrawSolvedPanel(StatusBar, Panel, Rect)
else if Panel.Index=1 then
DrawModifiedPanel(StatusBar, Panel, Rect)
else if Panel.Index=2 then
DrawStatusPanel(StatusBar, Panel, Rect);
end;

procedure TMainForm.DrawStatusPanel(StatusBar: TStatusBar;
Panel: TStatusPanel; const Rect: TRect);
var
Left : Integer;
OldFontColor : TColor;
OldFontStyles : TFontStyles;
Str : String;
const
spc=3;
begin
with StatusBar.Canvas do
begin
Left := Rect.Left;
Inc(Left, spc);
OldFontColor := Font.Color;
OldFontStyles := Font.Style;
try
Font.Color := clBlack;
Str := IntToStr(Some_int_var);
TextOut(Left, Rect.Top, Str);
Inc(Left, TextWidth(Str)+2*spc);
Font.Color := clRed;
Str := IntToStr(Some_int_var);
TextOut(Left, Rect.Top, Str);
Inc(Left, TextWidth(Str)+2*spc);
Font.Style := Font.Style + [fsBold];
Font.Color := clNavy;
Str := IntToStr(Some_int_var);
TextOut(Left, Rect.Top, Str);
finally
Font.Color := OldFontColor;
Font.Style := OldFontStyles;
end;
end;
end;

Проблема с TeeChart, а именно с Pie.

Никак немогу понять как динамически присваивать значения в компоненте TPieSeries.
Eсть некие значения test1, test2:
По созданию формы я создаю два куска пирога
Series1.AddPie(test1,'значание1',$00FE9B82);
Series1.AddPie(test2,'значание2',536);

По таймеру я присваиваю им значания
Series1.YValues[0] := test1 ;
Series1.YValues[1] := test2 ;
Но они не изменяються, помогите пожайлуста.