Компонент в виде Track Bar'а, имеет ряд достоинств, по сравнению с обычными. 1. Цвета всех объектов настраиваемы 2. 7 стандартных видов бегунка (+7, если учитывать Orientation) 3. Бегунок можно представить картинкой (TBitmap или из TImageList) 4. Свойство Bevel - для всего Track Bar'а и отдельно для SelRange 5. В SelRange можно рисовать, то есть придать вид TrackBar'у как в Photoshop'е ... и ещё несколько интересных вещей
в архиве предлагается Readme а также пример использования
»»» Скачать: исходные тексты (28кб)
Демонстрация фонтана на OpenGL (Delphi 5.0)vmikhailovvmikhailov@mtu.ru (27.01.02 19:14)
В приложении моделируется поведение реального фонтана, состоящего из "капель воды". Полученная модель рендерится под OpenGL. Фонтан можно "взорвать" и наблюдать фейерверк разлетающихся брызг. Набор классов, из которых построено приложение, легко расширить таким образом, чтобы добавить к существующей модели новые природные явления, например, "ветра" или тумана. Документация и примеры классов - внутри архива с исходниками.
»»» Скачать: исходные тексты (156кб) демонстрационный EXE файл (217кб) посмотреть скриншот
Как узнать серийный номер аудио CD?
CD может иметь или не иметь серийный номер и/или универсальный код продукта (Universal Product Code). MCI-расширение Windows предоставляет эту информации с помощью комманды MCI_INFO_MEDIA_IDENTITY command. Эта команда возвращает уникальную ID-строку. Пример:
uses MMSystem, MPlayer;
procedure TForm1.Button1Click(Sender: TObject); var mp : TMediaPlayer; msp : TMCI_INFO_PARMS; MediaString : array[0..255] of char; ret : longint; begin mp := TMediaPlayer.Create(nil); mp.Visible := false; mp.Parent := Application.MainForm; mp.Shareable := true; mp.DeviceType := dtCDAudio; mp.FileName := 'D:'; mp.Open; Application.ProcessMessages;
FillChar(MediaString, sizeof(MediaString), #0); FillChar(msp, sizeof(msp), #0); msp.lpstrReturn := @MediaString; msp.dwRetSize := 255; ret := mciSendCommand(Mp.DeviceId, MCI_INFO, MCI_INFO_MEDIA_IDENTITY, longint(@msp)); if Ret <> 0 then begin MciGetErrorString(ret, @MediaString, sizeof(MediaString)); Memo1.Lines.Add(StrPas(MediaString)); end else Memo1.Lines.Add(StrPas(MediaString)); mp.Close; Application.ProcessMessages; mp.free; end; end.
помогите разобраться с поинтерами
Мастера, подскажите пожалуйста, как правильно пользоваться функцией GetSystemDirectory, а то я совсем запутался с ...
Как создать свой Help?
Напишите пожалуйста как создавать свои Хелпы. Хотя бы начало дпльше разьберусь
Программирование сокетов в Дельфи.
Данная статья посвящена созданию приложений архитектуры клиент/сервер в Borland Delphi на основе сокетов ("sockets" - гнезда). А написал я эту статью не просто так, а потому что в последнее время этот вопрос очень многих стал интересовать. Пока что затронем лишь создание клиентской части сокетного приложения...
Delphi 5 для профессионалов
Эта книга поможет вам овладеть программированием в Delphi, включая язык Object Pascal, компоненты Delphi (как работу с существующими компонентами, так и разработку ваших собственных), поддержку баз данных и приложений клиент/сервер, базовые элементы программирования в среде Windows и разработку COM-приложений, а также Web-программирование. Для чтения этой книги нет необходимости в глубоких знаниях какой-либо из этих тем, но что вам действительно понадобится — это основы программирования на Паскале.
Автор: М. Кэнту
delpixx.ru Сайт посвященный Программированию на Делфи, где можно скачать исходники, примеры пррограмм, почерпнуть информацию о разлицных функция и процедурах в Delphi и.т.д
Опрос населения :)
Новый журнал для программистов "RSDN Magazine". Ваше мнение, нужен ли он вообще?
Дорогие друзья! Мы рады представить вам новый совместный проект сайтов www.rsdn.ru, delphi.mastak.ru и www.optim.ru - профессиональный журнал для программистов RSDN Magazine.
Несомненно, ваше мнение о необходимости такого журнала, содержании рубрик и темах отдельных статей поможет сделать журнал более полезным и интересным. Высказать свое мнение, проголосовать или же подписаться вы можете на сайте. Без вашего участия, нам будет трудно сделать правильный журнал!
Для души
Хокку дня
Котенок пытается лакать Сплошное молоко Первого в жизни снега.
Афоризмы
Если грех слишком уж сладок, раскаяние не может быть горьким....
Фраза дня
Брокер от пейджера не далеко падает (Киллер).
И на закуску коротенький анекдот
Спите быстрее, нам нужна Ваша подушка!