Отправляет email-рассылки с помощью сервиса Sendsay
  Все выпуски  

Мастера DELPHI. Новости мира компонент, FAQ, статьи...


Информационный Канал Subscribe.Ru

Ежедневная рассылка сайта Мастера DELPHI

DELPHI.mastak.ru

Выпуск от 06.05.02 09:04

Обновился дайджест по FAQ. Скачать можно здесь
Вышел очередной дайджест форумов. Скачать можно здесь
Новые компоненты   |x|
  • psvFastWeb Library (406Kb) (05.05.02 23:00)
    Библиотека содержит несколько компонентов, облегчающих создание интернет-приложений и полностью совместимых с борландовским набором интернет-компонентов:
    TpsvPageProducer
    TpsvScriptLib
    TpsvTagLib
    TWebLibrary
    TpsvWebChart создает JPeg изображение из TChart
    TpsvWebRTF создает JPeg изображение из документа в Rich Text
    TpsvDataSetPageProducer
    TpsvDBPageProducer
    TpsvDBCtrlProducer аналогичен TDBCtrlGrid
    TpsvDBContentProducer возвращает содержимое поля BLOB как документ
    TpsvImageProducer создает изображение из TImageList
    TpsvCountryProducer
    TpsvDBFieldProducer
    TpsvFolderProducer
    TpsvWebBrowser может загрузить содержимое из строки, StringList или потока stream.
    С исходными текстами
    Источник: www.delphipages.com   Автор: Serhiy Perevoznyk http://www.delphipages.com/resume/resume.cfm?ID=300
    -= · VCL · Samples · =- [Перевел: Mark S. Zheleznyak]

  • Для уменьшения объема писем здесь публикуется не весь список новых компонент, потому заглядывайте и на сайт!
Кое-что из нашей кладовки   |x|
  • Context menu Набережных С. sergeynbr@newmail.ru   (05.05.02 10:14)
    Модуль содержит одну функцию InvokeContextMenu, написанную на основе ShellCtrls.InvokeContextMenu и выводящую контекстное меню оболочки.
    Исправлены некоторые ошибки и добавлен параметр для работы со специальными объектами.
    Буду благодарен за сообщения об обнаруженных ошибках или неоптимальных решениях.
    »»» Скачать: исходные тексты (2кб)
  • UGH! Gandalf Gendalf_the_gr@mail.ru   (04.05.02 13:20)
    UGH! (Ultra Good-looking sHell) - эта самая удобная и маленькая, оболочка для UPX. Поверте я много их пересмотрел прежде чем сделать свою. Исходники прилогаются. Для использования НУЖЕН UPX. (В той-же директории)
    »»» Скачать: исходные тексты (32кб) демонстрационный EXE файл (39кб)
Лучшее из нашего FAQ   |x|
Поиск в RichEdit
»»» Андрей - andreypalm@yahoo.com (19.11.00 21:12)
Подскажите, как работать с функцией FindText в TRichEdit.
Вызов типа

p:='MDII';
t:=RichEdit1.FindText(p,0,Length(p),[]);

.....
не работает?

»»» oksana - oksana@wtgres.pssr.ru (20.11.00 10:46)

procedure TForm1.Button1Click(Sender: TObject);
begin
FindDialog1.Position := Point(RichEdit1.Left + RichEdit1.Width, RichEdit1.Top);
FindDialog1.Execute;
end;

procedure TForm1.FindDialog1Find(Sender: TObject);
var
FoundAt: LongInt;
StartPos, ToEnd: Integer;
begin
with RichEdit1 do
begin
{ begin the search after the current selection if there is one }
{ otherwise, begin at the start of the text }
if SelLength <> 0 then

StartPos := SelStart + SelLength;
else

StartPos := 0;

{ ToEnd is the length from StartPos to the end of the text in the rich edit control }

ToEnd := Length(Text) - StartPos;

FoundAt := FindText(FindDialog1.FindText, StartPos, ToEnd, [stMatchCase]);
if FoundAt <> -1 then
begin
SetFocus;
SelStart := FoundAt;
SelLength := Length(FindDialog1.FindText);
end;
end;
end;

в хелпе 5 делфи

С уважением, Оксана

-= Из конференции сайта MASTERS OF DELPHI (http://delphi.mastak.com) =-

»»» Прислать свои комментарии

Советы по программированию в Дельфи

8)  Загрузить в StringGrid из текстового файла с разделителями (здесь '|')

procedure TForm1.Button1Click(Sender: TObject);
var sl:TStringList;
i,j,CCount:integer;
begin
sl:=TStringList.Create;
sl.LoadFromFile('e:\aa.txt');
With StringGrid1 Do Begin
 RowCount:=sl.Count+1;
 for i:=0 to sl.Count-1 do begin
   sl[i]:=Cells[i,0]+#13#10+
      StringReplace(sl[i],'|',#13#10,[rfReplaceAll]);
//можно убрать, если ColCount достаточно велико
   CCount:=1;
   for j:=1 to length(sl[i]) do
     if sl[i][j]=#13 then inc(CCount);
   if ColCount<CCount then ColCount:=CCount;  
//
   Rows[i+1].Text:=sl[i];
 end;
end;
sl.Free;  
end;

Автор: Б. Новгородов (MBo)

Обсуждается в конференциях   |x|
У нас большой выбор статей   |x|
«DELPHI в примерах для начинающих» - Изучение простейших приемов работы с файлами и потоками на примере программы «Монитор каталогов»
Давайте вместе создадим программу, которая будет непрерывно проверять каталог на предмет изменения содержимого (появление нового файла, удаление файла, переименование и изменение файла).
Добавим в нашу программу возможность ведения протокола изменений в проверяемом каталоге и функции динамической настройки этого списка.
После написания программы добавим еще одно "удобное"  свойство – спрячем программу в SysTray...
Новинки книжного рынка   |x|
Delphi 5: учебный курс
В книге рассмотрены возможности системы программирования Delphi 5, описан язык программирования Object Pascal, рассмотрены визуальные компоненты системы и методы их создания. Особое внимание уделено принципам и практическим приемам создания сетевых приложений для разных архитектур и разработке программ, поддерживающих основные протоколы Интернета.Не требует специальной подготовки, может быть использована как пособие для изучающих основы программирования и сетевые технологии, а также как справочник по компонентам Delphi и пособие для самообразования.
Автор: С. Бобровский
Другие сайты о DELPHI   |x|
Кладезь знаний человеческих
На нашем сайте Вы найдете статьи на любую тему связанную с копмпьютером! Почти каждодневное обновление, отменные статьи, форум! Заходите, мы будем рады Вам!

» Оценка сайта: 2
Опрос населения :)
Новый журнал для программистов "RSDN Magazine". За какую сумму вы готовы его покупать?
»»» 80р.
»»» 100р.
»»» 120р.
»»» 150р.
Журнал "RSDN Magazine"  |x|

Дорогие друзья! Мы рады представить вам новый совместный проект сайтов www.rsdn.ru, delphi.mastak.ru и www.optim.ru - профессиональный журнал для программистов RSDN Magazine.
Несомненно, ваше мнение о необходимости такого журнала, содержании рубрик и темах отдельных статей поможет сделать журнал более полезным и интересным. Высказать свое мнение, проголосовать или же подписаться вы можете на сайте. Без вашего участия, нам будет трудно сделать правильный журнал!
На сайте выложен анонс пилотного выпуска журнала, вступительное слово от редакции.

Для души

Хокку дня
Имена девочек на асфальте,
Прохожу по ним
от детства все дальше.

Афоризмы
Самые благородные поступки совершаются, как правило, по глупости....

Фраза дня
Это Вам не гифы по сайтам тырить!

Дурацкие законы (информация предоставлена сайтом kurilka.com)
В Хартфорде в Коннектикуте (США) супругам запрещено целоваться по воскресеньям.
В городе Нью Бритэн (США) пожарные машины не могут ездить быстрее, чем со скоростью в 25 миль в час, даже если они едут на пожар.

И на закуску коротенький анекдот
- Борис! Ты женат?
- Временно.
- Не понял.
- Старший брат на курорте, и его жена пока вместо него ругает меня...

Фотоприколы.
Начните день с хорошего настроения!
http://delphi.mastak.ru/cgi-bin/prikol.pl?id=654


На этом позвольте откланяться и пожелать вам удачного дня.
Искренне ваш, Алексей (delphi@mastak.com)

Добро пожаловать на сайт -= Мастера DELPHI =- 


http://subscribe.ru/
E-mail: ask@subscribe.ru
Отписаться
Убрать рекламу

В избранное