Добрый вечер читатели рассылки. Сегодня выходит очередной 61 выпуск рассылки клуба программистов. В этом номере рассылки вы сможете прочитать обзор интересных тем с форума, а так же оставшиеся статьи из последнего выпуска журнала ПРОграммист.
Новые интересные статьи клуба программистов.
Статьи на сайте клуба постоянно пополняются. Поэтому это постоянная и основная рубрика рассылки.
Здравствуйте, уважаемые читатели. Как и обещал, сегодня с вами мы подробно рассмотрим процедуры работы с графическими объектами, вынесенными в отдельный модуль, позволяющий использовать универсальные методы для создания движущихся изображений, находящихся в файлах, обычно в виде спрайтов…
Многие начинающие программисты пробуют свои силы в создании аудиоплеера. И вот когда у них более-менее получается создать функциональную основную часть и музыка уже играет, хочется добавить еще чего-нибудь крутого. Часто это спектроанализатор или спектрограмма, которую многие ошибочно называют эквалайзером (эквалайзер – это средство настройки, а не анализа звука) [1]. В этом уроке мы попробуем создать спектрограмму на Delphi, а прикручивать ее мы будем к движку BASS. Скажу сразу,
что существует Delphi оболочка для BASS от нашего корейского коллеги под названием TBassPlayer, в которой есть спектрограмма, но наша задача – научиться самим, а не использовать готовые решения. Однако вам никто не запрещает просмотреть исходный код этого компонента (он свободный), это никогда не повредит. Изучив этот урок, вы научитесь создавать свою собственную, уникальную своим внешним видом спектрограмму. Желательно, чтобы вы имели основные понятия об ООП, так как я не буду подробно останавливаться
на этом и больше внимания уделю вопросам вывода графики.
Александр Терлецкий
by mutabor altair.79@mail.ru
Ну тогда в разделе Public пишем следующую строку:
procedure WMSysCommand(var Msg: TWMSysCommand);message WM_SYSCOMMAND;
далее после слова implementation описываем эту процедуру
Procedure TForm1.WMSysCommand(var Msg: TWMSysCommand);
beginif msg.CmdType=SC_MINIMIZE thenbegin
//здесь делаем что надо
endelseinherited;
end;
procedure TForm2.OnCreate(sender: TObject); begin self.i=0; end;
procedure TForm2.Button1Click(Sender: TObject); const pas='159357'; var n:integer; begin self.i:=self.i+1; n:=3-self.i; if edit1.Text=pas then begin
hide; free;
Нашел маленькую фишку, которую можно использовать в программах.
Создайте текстовый файл с любым содержанием.
смените ему разрешение на *.url
Вуаля – 50% пользователей не смогут его открыть.
Единственный метод – это запустить редактор и через “файл”-”открыть”.
=) Enjoy.
P.S. Лично я так храню базу ссылок – и логично и практично
Для решения этой проблемы есть много способов.
1. E:\Documents and Settings\Феникс\Local Settings\Application Data\Opera\Opera\cache
ищем подходящее по размеру, и ставим нужное расширение.
2. В строке адреса пишем: opera:cache и смотрим что в кэше есть без переименований
Когда она рядом, меня лихорадит. От одного ее прикосновения я сбиваюсь и путаюсь. Ее "да" и "нет" невпопад поставят в тупик кого угодно. Она сама не знает, чего от меня хочет. Когда она пускает в ход свои длинные накрашенные ногти, я срываюсь на писк.
Кто-нибудь! Уберите же от меня эту юзершу!!!
***
Решим любые проблемы с компьютером! Настройка, обучение, установка программ!
Просьба не писать в KOI-8.
***
Юзеру на заметку: если вы не можете запомнить назначение клавиш, наклейте на них ярлычки с кратким описанием функций, приемов работы, списком справочной литературы...
***
Персональный компьютер - не только ваш помощник в работе и компаньон в минуты отдыха, но и отличный источник лома драгоценных и цветных металлов!