Вопрос № 44757: Доброго времени суток!
Свойство DisplayFormat округляет или просто обрубает цифры?
.Вопрос № 44767: Есть форма F1 на ней кнопка B1 к которой привязан Action1. На форме есть еще ComboBox1. Как из Action1Execute можно выполнить ComboBox1Enter и выбрать определенний элемент? Action1 универсален, так как его кнопка может находится на разные формы, Comb...Вопрос № 44795: Здравствуйте,уважаемые эксперты!
Не могли бы Вы подсказать мне, Можно-ли запаковать свой оригинальный шрифт в exeшник программы,чтобы она(программа) могла отображать с помощью него текст на других компьютерах,не имеющих этого шрифта в папке Font?...Вопрос № 44816: Доброго времени суток.
Появилась необходимость средствами Delphi рассчитывать стаж работы.
Подскажите, как это лучше реализовать, может, у кого есть исходники???
Заранее благодарен. Алексеев Александр.
.Вопрос № 44817: Здравствуйте уважаемые эксперты. Как в Delphi5 сделать так, чтобы при наведении мыши на картинку она менялась. Ведь событий OnMouseOver и OnMouseOut нет. Пробовал через OnMouseMove, но если быстро перемещать мышь на и из картинки, то не всегда работа...Вопрос № 44822: Доброе время суток, уважаемые эксперты! Не подскажите ли, где можно посмотреть толковое описание компонентов INDY и работы с ними на русском
языке. Заранее благодарю!...Вопрос № 44823: Здравствуйте уважаемые эксперты.
Вопрос такой. Я хорошо программирую на Delphi, есть специальное образование, но опыта работы нет. Как вы думаете, имеет ли мне смысл искать телеработу? И если да, то где. Посоветуйте пожалуйста.
С уважением, V...Вопрос № 44836: Здравствуйте Уважаемые Эксперты! Как установить библиотеку KOL на Borland Pascal 7 или Free Pascal? И еще как установить Polaris Library на Delphi 7. RXLib 2.75 установленна. Заранее Спасибо....
Вопрос № 44.757
Доброго времени суток!
Свойство DisplayFormat округляет или просто обрубает цифры?
Отправлен: 31.05.2006, 11:56
Вопрос задал: KuchumHan (статус: Студент)
Всего ответов: 2 Мини-форум вопроса >>> (сообщений: 5)
Отвечает: Ерёмин Андрей
Здравствуйте, KuchumHan!
Нет, оно отвечает только за общий вид представления числа, само число при этом не изменяется.
--------- Нет правила без исключений. Правило без исключений - исключение из правил.
Отвечает: Злоумышленник
Здравствуйте, 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 привязаны друг к другу.
Отвечает: Сухомлин Кирилл Владимирович
Здравствуйте, Negruzzi Cristian!
В коде B1.onClick прописываете выполнение Action1
А в исполнении Action1 прописываете саму процедуру.
Впрочем, я не понимаю, для чего так извращаться - либо можно сделать проще через Action-ы, либо вообще
их не использовать. Впрочем, это уже рассуждения на отвлеченную тему.
Приложение:
Ответ отправил: Сухомлин Кирилл Владимирович (статус: 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......). Что бы удалить шрифт нужно
--------- Жизнь коротка, чтобы писать на ассемблере
Ответ отправил: Решетник Д (статус: 7-ой класс)
Ответ отправлен: 31.05.2006, 17:41 Оценка за ответ: 5
Вопрос № 44.816
Доброго времени суток.
Появилась необходимость средствами Delphi рассчитывать стаж работы.
Подскажите, как это лучше реализовать, может, у кого есть исходники???
Отвечает: 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 и вернуть картинку. Данный способ также избавит от мерцаний картинки при движении мыши. Надеюсь, алгоритм понятен. А лучше использовать
специальный компоненты.
--------- Нет правила без исключений. Правило без исключений - исключение из правил.
Отвечает: Злоумышленник
Здравствуйте, Popcov!
Можно использовать событие OnMouseMove Картинки и элемента(ов) управления(й) вокруг картинки, смотрим приложение (картинка посередине формы). Желаю Вам успеха!
Приложение:
Ответ отправил: Злоумышленник (статус: 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 установленна. Заранее Спасибо.
Отвечает: 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
