/ КОМПЬЮТЕРЫ И ПО / Языки программирования / Delphi

Выпуск № 494
от 06.06.2006, 01:35

Вопрос № 44.757

Доброго времени суток! Свойство DisplayFormat округляет или просто обрубает цифры?

Отправлен: 31.05.2006, 11:56 Вопрос задал: KuchumHan (статус: Студент) Всего ответов: 2 Мини-форум вопроса >>> (сообщений: 5)

Отвечает: Ерёмин Андрей Здравствуйте, KuchumHan! Нет, оно отвечает только за общий вид представления числа, само число при этом не изменяется. --------- Нет правила без исключений. Правило без исключений - исключение из правил.

Ответ отправил: Ерёмин Андрей (статус: Профессор) Россия, Тула WWW: Программирование на DELPHI: Всё для программиста. ICQ: 286837644 ---- Ответ отправлен: 31.05.2006, 12:03

Отвечает: Злоумышленник Здравствуйте, KuchumHan! Для числа 2,15 при DisplayFormat := 0.# и EditFormat := 0.## в режиме просмотра будет показано число 2,2 а в режиме редактирования 2,15. Вывод - округляет (не обрубает), но только "напоказ"

Ответ отправил: Злоумышленник (статус: 8-ой класс) Ответ отправлен: 31.05.2006, 19:18

Вопрос № 44.767

Есть форма F1 на ней кнопка B1 к которой привязан Action1. На форме есть еще ComboBox1. Как из Action1Execute можно выполнить ComboBox1Enter и выбрать определенний элемент? Action1 универсален, так как его кнопка может находится на разные формы, ComboBox1 и B1 привязаны друг к другу.

Отправлен: 31.05.2006, 13:06 Вопрос задал: Negruzzi Cristian (статус: Посетитель) Всего ответов: 1 Мини-форум вопроса >>> (сообщений: 0)

Отвечает: Сухомлин Кирилл Владимирович Здравствуйте, Negruzzi Cristian! В коде B1.onClick прописываете выполнение Action1 А в исполнении Action1 прописываете саму процедуру. Впрочем, я не понимаю, для чего так извращаться - либо можно сделать проще через Action-ы, либо вообще их не использовать. Впрочем, это уже рассуждения на отвлеченную тему. Приложение: procedure TForm1.Button1Click(Sender: TObject); begin if not Action1.Execute then ShowMessage('Не удалось выполнить!'); end; procedure TForm1.Action1Execute(Sender: TObject); begin Form1.ComboBox1.ItemIndex := // нужное значение end;

Ответ отправил: Сухомлин Кирилл Владимирович (статус: 7-ой класс) Ответ отправлен: 31.05.2006, 14:27 Оценка за ответ: 4

Вопрос № 44.795

Здравствуйте,уважаемые эксперты! Не могли бы Вы подсказать мне, Можно-ли запаковать свой оригинальный шрифт в exeшник программы,чтобы она(программа) могла отображать с помощью него текст на других компьютерах,не имеющих этого шрифта в папке Font?

Отправлен: 31.05.2006, 16:49 Вопрос задал: Ustas (статус: Посетитель) Всего ответов: 2 Мини-форум вопроса >>> (сообщений: 0)

Отвечает: Сухомлин Кирилл Владимирович Здравствуйте, Ustas! Скорей всего - нет. Я, например, не встречал, чтобы это можно было делать. Однако, можно написать процедуру установки шрифта. Воспользуйтесь каким-дь InstallShield и в нем сделайте установку шрифта. Насколько я знаю, достаточно записать шрифт в папку \%System%Fonts

Ответ отправил: Сухомлин Кирилл Владимирович (статус: 7-ой класс) Ответ отправлен: 31.05.2006, 17:30 Оценка за ответ: 3

Отвечает: Решетник Д Здравствуйте, Ustas! Как вариант, можно сделать фонт ресурсом и при надобности извлекать отдельным файлом. Для этого вначале нужно его поместить ресурсом в ЕХЕ. создайет файл fontres.rc в него запишите такую строчку без кавычек "MyFont Fonts <font filename>" и скомпилировать ресурс с помощью brcc32.exe fontres.rc полученный файл fontres.res переместите в папку с программой и слинкуйте диресктивой {$R fontres.res}. в программе извлекать вот так: procedure TForm1.FormCreate(Sender: TObject); var Res : TResourceStream; begin Res := TResourceStream.Create(hInstance, 'MyFont', Pchar('Fonts')); Res.SavetoFile('fontfilename'); Res.Free; AddFontResource(PChar('fontfilename')); SendMessage(HWND_BROADCAST,WM_FONTCHANGE,0,0); end; и теперь его можно использовать в программею. Только нужно нужно знать внутреннее имя шрифта (а-ля Arial, Times New Roman......). Что бы удалить шрифт нужно RemoveFontResource(PChar("fontfilename")) SendMessage(HWND_BROADCAST,WM_FONTCHANGE,0,0); --------- Жизнь коротка, чтобы писать на ассемблере

Ответ отправил: Решетник Д (статус: 7-ой класс) Ответ отправлен: 31.05.2006, 17:41 Оценка за ответ: 5

Вопрос № 44.816

Доброго времени суток. Появилась необходимость средствами Delphi рассчитывать стаж работы. Подскажите, как это лучше реализовать, может, у кого есть исходники??? Заранее благодарен. Алексеев Александр.

Отправлен: 31.05.2006, 18:34 Вопрос задал: Алексеев Александр Владимирович (статус: Посетитель) Всего ответов: 1 Мини-форум вопроса >>> (сообщений: 1)

Отвечает: Boriss Здравствуйте, Алексеев Александр Владимирович! Это очень просто: в модуле DateUtils есть функции: function YearsBetween(const ANow, AThen: TDateTime): Integer; function MonthsBetween(const ANow, AThen: TDateTime): Integer; function WeeksBetween(const ANow, AThen: TDateTime): Integer; function DaysBetween(const ANow, AThen: TDateTime): Integer; function HoursBetween(const ANow, AThen: TDateTime): Int64; function MinutesBetween(const ANow, AThen: TDateTime): Int64; function SecondsBetween(const ANow, AThen: TDateTime): Int64; function MilliSecondsBetween(const ANow, AThen: TDateTime): Int64; --------- Вывод - то место в тексте, где вы устали думать

Ответ отправил: Boriss (статус: Профессор) Россия, Саранск Организация: факультет Электронной техники, Мордовский госуниверситет Адрес: г. Саранск WWW: Программирование на Паскале ---- Ответ отправлен: 01.06.2006, 15:45 Оценка за ответ: 5 Комментарий оценки: Огромное спасибо. То, что нуна.

Вопрос № 44.817

Здравствуйте уважаемые эксперты. Как в Delphi5 сделать так, чтобы при наведении мыши на картинку она менялась. Ведь событий OnMouseOver и OnMouseOut нет. Пробовал через OnMouseMove, но если быстро перемещать мышь на и из картинки, то не всегда работает, видимо OnMouseMove не успевает считывать координаты. Заранее спасибо.

Отправлен: 31.05.2006, 18:38 Вопрос задал: Popcov (статус: Посетитель) Всего ответов: 2 Мини-форум вопроса >>> (сообщений: 0)

Отвечает: Ерёмин Андрей Здравствуйте, Popcov! Заведите отдельную переменную, которая будет хранить текущее состояние картинки (например: state: integer = 0;). В OnMouseMove() картинки проверяйте значение переменной: если 0, то измените значение на 1 и загрузить вторую картинку. Аналогично для события OnMouseMove() формы (или TPanel - смотря на чём TImage расположен). Здесь уже наоборот: если было 1, то поменять на 0 и вернуть картинку. Данный способ также избавит от мерцаний картинки при движении мыши. Надеюсь, алгоритм понятен. А лучше использовать специальный компоненты. --------- Нет правила без исключений. Правило без исключений - исключение из правил.

Ответ отправил: Ерёмин Андрей (статус: Профессор) Россия, Тула WWW: Программирование на DELPHI: Всё для программиста. ICQ: 286837644 ---- Ответ отправлен: 31.05.2006, 18:58 Оценка за ответ: 5

Отвечает: Злоумышленник Здравствуйте, Popcov! Можно использовать событие OnMouseMove Картинки и элемента(ов) управления(й) вокруг картинки, смотрим приложение (картинка посередине формы). Желаю Вам успеха! Приложение: procedure TForm1.Image1MouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer); begin Image1.Proportional := false; end; procedure TForm1.FormMouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer); begin Image1.Proportional := true; end;

Ответ отправил: Злоумышленник (статус: 8-ой класс) Ответ отправлен: 31.05.2006, 19:18 Оценка за ответ: 5

Вопрос № 44.822

Доброе время суток, уважаемые эксперты! Не подскажите ли, где можно посмотреть толковое описание компонентов INDY и работы с ними на русском языке. Заранее благодарю!

Отправлен: 31.05.2006, 19:59 Вопрос задал: Sokol (статус: Посетитель) Всего ответов: 1 Мини-форум вопроса >>> (сообщений: 0)

Отвечает: Евгения Здравствуйте, Sokol! Покопалась в интернете, нашла такой сайт: http://www.podgoretsky.com/ddp.html, там по инди: Введение в Indy, Чад Хувер - перевод и Глубины Indy, Чад Хувер - перевод Вроде и толково (относительно другого, что я в интернете увидела) и по-русски... И там еще много другого интересного, как я посмотрела... мне даже самой понравилось... Счастливо! --------- Я не волшебник, я только учусь... А разве кто-то обещал, что будет легко?

Ответ отправила: Евгения (статус: 6-ой класс) Ответ отправлен: 31.05.2006, 21:22 Оценка за ответ: 5 Комментарий оценки: Спасибо! Дуду читать и умнеть! 8-)

Вопрос № 44.823

Здравствуйте уважаемые эксперты. Вопрос такой. Я хорошо программирую на Delphi, есть специальное образование, но опыта работы нет. Как вы думаете, имеет ли мне смысл искать телеработу? И если да, то где. Посоветуйте пожалуйста. С уважением, Vikki.

Отправлен: 31.05.2006, 20:10 Вопрос задала: Vikki (статус: Посетитель) Всего ответов: 1 Мини-форум вопроса >>> (сообщений: 1)

Отвечает: Bochvarov NikB Здравствуйте, Vikki! Если твой английскии язьик хорош - у тебе очен хорошая переспектива.

Ответ отправил: Bochvarov NikB (статус: 9-ый класс) Ответ отправлен: 31.05.2006, 23:10 Оценка за ответ: 4 Комментарий оценки: Английский хорош. Спасибо.

Вопрос № 44.836

Здравствуйте Уважаемые Эксперты! Как установить библиотеку KOL на Borland Pascal 7 или Free Pascal? И еще как установить Polaris Library на Delphi 7. RXLib 2.75 установленна. Заранее Спасибо.

Отправлен: 31.05.2006, 22:48 Вопрос задал: Шишкин М.А. (статус: Посетитель) Всего ответов: 2 Мини-форум вопроса >>> (сообщений: 0)

Отвечает: sir henry Здравствуйте, Шишкин М.А.! 1) Установить KOL под Borland Pascal 7 нельзя, потому что KOL - работает с 32-ух разрядными системами, а BP7 - 16-ти разрядная, разная система адресации памяти и регистров процессора. Для FreePascal - нет проблем. Просто подключаете в своей программе, в строке Uses модкль Kol.

Ответ отправил: sir henry (статус: Академик) Россия, Красноярск ---- Ответ отправлен: 01.06.2006, 10:19

Отвечает: Boriss Здравствуйте, Шишкин М.А.! В Borland Pascal не предусмотрена установка каких-ли компонент - их там нет. Модули можно использовать без всякой установки, но может возникнуть проблема с тем, что в этих модулях идет вызов системных функций, о которых Borland Pascal и понятия не имеет (разработка его закончена в 1992-1993 гг. ) Во Free Pascal установите Lazarus - это аналог Delphi, только бесплатный --------- Вывод - то место в тексте, где вы устали думать

Ответ отправил: Boriss (статус: Профессор) Россия, Саранск Организация: факультет Электронной техники, Мордовский госуниверситет Адрес: г. Саранск WWW: Программирование на Паскале ---- Ответ отправлен: 01.06.2006, 12:43

© 2001-2006, Портал RusFAQ.ru, Россия, Москва. Идея, дизайн, программирование: Калашников О.А. Email: adm@rusfaq.ru, Тел.: +7 (926) 535-23-31 Авторские права | Реклама на портале Версия системы: 4.34 от 01.06.2006