Полностью рабочая версия + недостающий файлик. Факи и доки на русском - на сайте fastreport.ru "Как ставить?" лежит в архиве... Качайте и наслаждайтесь лучшим генератором отчетов...
»»» Скачать: исходные тексты
Компонент Label с возможностью поворота текста на произвольный угол.Юрий Кkonstantinov@box.vsi.ru (18.11.02 23:04)
Совсем простенький компонент Label с возможностью поворота текста на произвольный угол (Свойство Rotate - значение угла поворота в градусах). К сожалению, работает только для TruType шрифтов и пока не работает свойство Wordwrap - "перенос по словам". Очень хотельсь бы знать мнение мастеров о том корректно ли все написанно, где и какие ошибки я допустил, где можно было использовать более оптимальный код, методы или типы данных. С уважением, Константинов Юрий.
»»» Скачать: исходные тексты (1кб)
Huffman for DelphiPoirotpoirot@rol.ru (18.11.02 21:29)
Реализация алгоритма архивации Хаффмана. Архив содержит модуль и его использование в DLL. Хенп прилагается. перед использование рекомендуется прочитать КОПИРАЙТ в хелпе.
»»» Скачать: исходные тексты (69кб)
Преобразование текста OEM у Ansi
Эта версия работает под любым Delphi. (Начиная с Delphi 2, это можно записать короче с использованием AnsiToOem и OemToAnsi.) Здесь все просто.
function ConvertAnsiToOem(const S : string) : string; { ConvertAnsiToOem translates a string into the OEM-defined character set } {$IFNDEF WIN32} var Source, Dest : array[0..255] of Char; {$ENDIF} begin {$IFDEF WIN32} SetLength(Result, Length(S)); if Length(Result) > 0 then AnsiToOem(PChar(S), PChar(Result)); {$ELSE} if Length(Result) > 0 then begin AnsiToOem(StrPCopy(Source, S), Dest); Result := StrPas(Dest); end; {$ENDIF} end; { ConvertAnsiToOem }
function ConvertOemToAnsi(const S : string) : string; { ConvertOemToAnsi translates
a string from the OEM-defined character set into either an ANSI or a wide-charac!
ter string } {$IFNDEF WIN32} var Source, Dest : array[0..255] of Char; {$ENDIF} begin {$IFDEF WIN32} SetLength(Result, Length(S)); if Length(Result) > 0 then OemToAnsi(PChar(S), PChar(Result)); {$ELSE} if Length(Result) > 0 then begin OemToAnsi(StrPCopy(Source, S), Dest); Result := StrPas(Dest); end; {$ENDIF} end; { ConvertOemToAnsi }
Список компов в сетке
Есть домен NT. Как можно вытащить список компов в этой сети подобно тому как это делает проводник?
CPU
Как узнать, на сколько % загружен проц? Больщой спасиб!
TShellListView или что нибудь подобное
Где можно достить компонент наподобие TShellListView только необходимо добавлять файлы самому. Написать самому не ...
Delphi 6: первое знакомство
Ну вот наконец-то, в руках коробочка с диском и бумажкой, на которой кто-то старательно вывел фломастером Delphi 6. Из коробочки вынимается диск, вставляется в cd-rom и...
Delphi: специальный справочник
В книге содержится обширный справочный материал по основным элементам языка, включающий в себя наиболее употребительные функции, классы и объекты. Последовательно и подробно изложен процесс создания баз данных, Windows-приложений и динамических библиотек. Приложения с описанием различных кодов ошибок выполнения программ делает книгу полезной не только начинающим программистам, но и пользователям, активно работающим с Delphi
Автор: Б. Карпов
Virtual Reality OnLine Множество разных программ (исходников), компонентов (в том числе RxLib, самый крутой пакеи компонентов для Дельфи), форум, ежемесячные статьи.
» Оценка сайта: 4
Опрос населения :)
Новый журнал для программистов "RSDN Magazine". За какую сумму вы готовы его покупать?
Дорогие друзья! Мы рады представить вам новый совместный проект сайтов www.rsdn.ru, delphi.mastak.ru и www.optim.ru - профессиональный журнал для программистов RSDN Magazine.
Несомненно, ваше мнение о необходимости такого журнала, содержании рубрик и темах отдельных статей поможет сделать журнал более полезным и интересным. Высказать свое мнение, проголосовать или же подписаться вы можете на сайте. Без вашего участия, нам будет трудно сделать правильный журнал!
На сайте выложен анонс пилотного выпуска журнала, вступительное слово от редакции.
Для души
Хокку дня
Сентябрьских яблок Тонкая кислинка, И губ твоих...
Афоризмы
Когда ищут выгоду, забывают об искренности....
Фраза дня
Человеку свойственно ошибаться. И он пользуется этим свойством часто и с удовольствием.
Дурацкие законы (информация предоставлена сайтом kurilka.com)
В Миннесоте (США) вам грозит попасть в тюрьму за то, что вы спите голым.
В Аляске (США) запрещается (добавим -и не рекомендуется) будить медведей, чтобы их сфотографировать, а также, выбрасывать живых лосей из самолета.
И на закуску коротенький анекдот
2 программера в дупель пьяные из кабака выходят, один другому говорит: - Ну, что, включай автопилот. - А у меня его нету. - Ну, тогда включай эмулятор автопилота.