Все стандартные элементы управления теперь доступны в Flat-стиле. Компоненты поддерживают стили Flat и стандартный, переключаемые с помощью менеджера стилей.
Новая версия компоненты С исходными текстами Компонента из раздела: Component Packs: Interface Middle
Источник: www.torry.net
Автор: Lajos Farkashttp://www.maxcomponents.net -= · VCL · Samples · =- [Перевел: Сергей Зинин]
Для уменьшения объема писем здесь публикуется не весь список новых компонент, потому заглядывайте и на сайт!
Программа-пример получения курсов валют, публикуемых на сайте Банка России. Исходные тексты для D5 и D6. Для D5 требует установленной библиотеки Indy версии 8.x
»»» Скачать: исходные тексты (14кб)
Определение системной информации.
Часто при создании систем привязки программ к компьютеру или окон типа System Info или About Box необходимо определить данные о пользователе и о системе. Это можно сделать следующим образом (из примеров по Delphi - программа COA):
Procedure GetInfo; Var WinVer, WinFlags : LongInt; { Версия Windows и флаги } hInstUser, Fmt : Word; { Дескриптор } Buffer : ARRAY[0..30] OF Char; { Буфер под ASCIIZ строку } begin hInstUser := LoadLibrary('USER'); { Открыли библиотеку User } LoadString(hInstUser, 514, Buffer, 30); LabelUserName.Caption := StrPas(Buffer); { Имя пользователя } LoadString(hInstUser, 515, Buffer, 30); FreeLibrary(hInstUser); LabelCompName.Caption := StrPas(Buffer); { Компания } WinVer
:= GetVersion; LabelWinVer.Caption := Format('Windows %u.%.2u', { Верси!
я Windows } [LoByte(LoWord(WinVer)), HiByte(LoWord(WinVer))]); LabelDosVer.Caption := Format('DOS %u.%.2u', { Версия DOS } [HiByte(HiWord(WinVer)), LoByte(HiWord(WinVer))]); WinFlags := GetWinFlags; IF WinFlags AND WF_ENHANCED > 0 THEN LabelWinMode.Caption := '386 Enhanced Mode' { Режим } ELSEIF WinFlags AND WF_PMODE > 0 THEN LabelWinMode.Caption := 'Standard Mode' ELSE LabelWinMode.Caption := 'Real Mode'; IF WinFlags AND WF_80x87 > 0 THEN { Сопроцессор } ValueMathCo.Caption := 'Present' ELSE ValueMathCo.Caption := 'Absent';
Fmt := GetFreeSystemResources(GFSR_SYSTEMRESOURCES); ValueFSRs.Caption := Format('%d%% Free', [Fmt1]); { Свободно ресурсов } { Свободно памяти} ValueMemory.Caption := FormatFloat(',#######',
MemAvail DIV 1024) + ' KB Free'; end;
Помогите составить запрос...
Одна таблица Z и три таблицы A,B,C : Z Index Town ---------------- 111000 Ufa 222000 Tomsk 333000 Sochi ...
Нужна помошь с отслеживанием клавишь)))
Всех с прошедшими празниками))) У меня возникла проблема с отслеживанием клавишь. Как можно отследить нажатие клавишь ...
TreeView
procedure TForm1.TreeView1Change(Sender: TObject; Node: TTreeNode); var stt:string; begin AssignFile(F1,'RUS.txt'); ...
Мониторинг тлелфонной линии
Господа!!! Есть проблемка. У меня VoiceModem, поддерживает ли он мониторинг телефонной линии TAPI или нет. Если да , то ...
Midas и COM. Советы и Приемы
Статья показывает, как писать приложения, использующие несколько модулей, которые связываются через COM и совместно используют Midas сервер. Освещаются вопросы перемещения файлов, массивов и других структур данных c использованием COM.
Delphi 6 в подлиннике
Delphi 6 - новая версия популярной системы быстрой разработки приложений. В книге описываются инструментальные средства среды Delphi 6, приводятся основы языка программирования Object Pascal и рассматриваются компоненты, свойства, методы и события, необходимые для разработки широкого спектра программ. Особое внимание уделяется работе с базами данных. Показывается использование как локальных, так и удаленных баз данных, включая создание многоуровневых информационных систем и публикацию результатов запросов через Интернет. Благодаря большому количеству затронутых тем, подробному изложению и многочисленным примерам книга будет полезна как начинающим, так и опытным программистам.
Автор: Гофман В.
Дорогие друзья! Мы рады представить вам новый совместный проект сайтов www.rsdn.ru, delphi.mastak.ru и www.optim.ru - профессиональный журнал для программистов RSDN Magazine.
Несомненно, ваше мнение о необходимости такого журнала, содержании рубрик и темах отдельных статей поможет сделать журнал более полезным и интересным. Высказать свое мнение, проголосовать или же подписаться вы можете на сайте. Без вашего участия, нам будет трудно сделать правильный журнал!
На сайте выложен анонс пилотного выпуска журнала, вступительное слово от редакции.
Для души
Хокку дня
Все тот же бренный мир, Пьянея, плачу В сумерках осенних.
Афоризмы
Если бездельник не раздражает вас, значит вы сами чем-то похожи на него....
Фраза дня
Сложно совмещать неприятное с бесполезным.
Дурацкие законы (информация предоставлена сайтом kurilka.com)
В городе Хейден в Аризоне (США) вам грозит штраф, если вы будете приставать к лягушкам.
В Канадской провинции Альберта выпущенным из тюрьмы преступникам до сих пор полагается заряженный пистолет и конь, чтобы они "могли покинуть город".
И на закуску коротенький анекдот
Удивительный орган - человеческий мозг: когда мы утром просыпаемся, он начинает усиленно работать и не останавливается вплоть до нашегоприбытия на работу.