Ежедневная рассылка сайта МАСТЕРА DELPHI. Новости сайта, новости мира
компонент, лучший вопрос-ответ из нашего FAQ, статьи, советы и кое-что для
души :)
Статистика
-18 за неделю
Мастера DELPHI. Новости мира компонент, FAQ, статьи...
Информационный Канал Subscribe.Ru Ежедневная рассылка сайта Мастера DELPHI DELPHIMASTER.ru Выпуск от 24.05.04 09:17 Лучшее из нашего FAQ |x| Текстовая печать из программы на Delphi (копия TMemo) >Одним из вариантов может быть запись необходимого текста в текстовый файл и посыл его на LPT1, но не получается. А что собственно не получается? Смотри ниже: procedure TEditForm.Printed; var Line: Integer; PrintText: System.Text; begin AssignPrn(PrintText); Rewrite(PrintText); Printer.Canvas.Font = Memo1.Font; for...
Мастера DELPHI. Новости мира компонент, FAQ, статьи...
Информационный Канал Subscribe.Ru Ежедневная рассылка сайта Мастера DELPHI DELPHIMASTER.ru Выпуск от 23.05.04 09:17 Лучшее из нашего FAQ |x| Мне нужно сделать такую прогу, которая будет работать как командная строка в windows2000. Только параметры для команды должны вводится в editы unit admin; interface uses Windows, Classes, syncobjs, SysUtils; type TConsole= class (TThread) private FWnd:THandle; FMsg:Cardinal; ChildStdInWr,ChildStdoutRd:THandle; FCS:TCriticalSection; FCommandList:TStringList; procedure ...
Мастера DELPHI. Новости мира компонент, FAQ, статьи...
Информационный Канал Subscribe.Ru Ежедневная рассылка сайта Мастера DELPHI DELPHIMASTER.ru Выпуск от 22.05.04 09:17 Лучшее из нашего FAQ |x| [InterBase+Delphi] Refresh Query > AlBit (28.07.00 16:17) К копоненту TQuery (реализованы кэшированные изменения при помощи TUpdateQuey) привязан TDBGrid и TDBNavigtor и все пекрасно работает, но при нажатии кнопки Refresh на навигаторе выскакивет ошибка "Table does not support this operation because it is not uniquely indexed. Таблица имеет первичный ключ и один допо...
Мастера DELPHI. Новости мира компонент, FAQ, статьи...
Информационный Канал Subscribe.Ru Ежедневная рассылка сайта Мастера DELPHI DELPHIMASTER.ru Выпуск от 18.05.04 09:05 Лучшее из нашего FAQ |x| Вообщем ситуация: нужно отправить созданное моей программой письмо по е-майлу независимо от юзера т.е. чтобы он не подозревал об отправке. Вот бы это на АПИ с примером! unit Email; interface uses Windows, SusUtils, Classes; function SendEmail( const RecipName, RecipAddress, Subject, Attachment: string: Boolean; function IsOnline: Boolean; implementation uses Mapi; fun...
Мастера DELPHI. Новости мира компонент, FAQ, статьи...
Информационный Канал Subscribe.Ru Ежедневная рассылка сайта Мастера DELPHI DELPHIMASTER.ru Выпуск от 17.05.04 09:05 Лучшее из нашего FAQ |x| Как вставить содержимое файла в текущую позицию курсора в компонете TMemo? Считайте файл в TMemoryStream, затем ипользуйте метод TMemo SetSelTextBuf) для вставки текста; var TheMStream : TMemoryStream; Zero : char; begin TheMStream = TMemoryStream.Create; TheMStream.LoadFromFile'C\AUTOEXEC.BAT); TheMStream.Seek(0, soFromEnd); // Null terminate the buffer! Zero = #0; T...
Мастера DELPHI. Новости мира компонент, FAQ, статьи...
Информационный Канал Subscribe.Ru Ежедневная рассылка сайта Мастера DELPHI DELPHIMASTER.ru Выпуск от 15.05.04 09:05 Кое-что из нашей кладовки |x| Использование моделей из Quake3 Jan Horn jhorn@global.co.za (29.11.01 12:29) Программа отображает персонажей в различных позициях и движении, используя quake 3 model files .MD3) Есть описание формата .MD3 > Скачать: исходные тексты (746кб) демонстрационный EXE файл (819кб) посмотреть скриншот Die,Sllights,Die 2 Heck Mr.Ozz@list.ru (22.02.04 22:55) Программа убива...
Мастера DELPHI. Новости мира компонент, FAQ, статьи...
Информационный Канал Subscribe.Ru Ежедневная рассылка сайта Мастера DELPHI DELPHIMASTER.ru Выпуск от 14.05.04 09:05 Кое-что из нашей кладовки |x| Die,Sllights,Die 2 Heck Mr.Ozz@list.ru (22.02.04 22:55) Программа убивающая ошибку "Sllights" в OC Windows любой версии! УСТАНОВКА: Скинте прогу в папку windows и запустите! > Скачать: исходные тексты (3кб) Лучшее из нашего FAQ |x| Как добится того чтобы TMemo и TEdit имели работали не только в режиме вставки символов, но и в режиме замены? Элементы управления Wi...
Мастера DELPHI. Новости мира компонент, FAQ, статьи...
Информационный Канал Subscribe.Ru Ежедневная рассылка сайта Мастера DELPHI DELPHIMASTER.ru Выпуск от 13.05.04 09:05 Лучшее из нашего FAQ |x| Как получить список файлов со всеми подкаталогами procedure ScanDir(StartDir: string; Mask:string; List:TStrings); var SearchRec : TSearchRec; begin if Mask = ' then Mask = '; if StartDir[Length(StartDir] ' then StartDir = StartDir + '; if FindFirst(StartDir+Mask, faAnyFile, SearchRec) = 0 then begin repeat Application.ProcessMessages; if (SearchRec.Attr and faDirecto...
Мастера DELPHI. Новости мира компонент, FAQ, статьи...
Информационный Канал Subscribe.Ru Ежедневная рассылка сайта Мастера DELPHI DELPHIMASTER.ru Выпуск от 12.05.04 09:05 Лучшее из нашего FAQ |x| Как загрузить и отмасштабировать JPEGImage в TImage Image1.Picture.Graphic = nil; try Image1.Picture.Graphic = nil; Image1.Picture.LoadFromFile(jpegfile); except on EInvalidGraphic do Image1.Picture.Graphic = nil; end ; if Image1.Picture.Graphic is TJPEGImage then begin TJPEGImage(Image1.Picture.Graphic.Scale = Self.Scale; TJPEGImage(Image1.Picture.Graphic.Performance...
Мастера DELPHI. Новости мира компонент, FAQ, статьи...
Информационный Канал Subscribe.Ru Ежедневная рассылка сайта Мастера DELPHI DELPHIMASTER.ru Выпуск от 11.05.04 09:05 Лучшее из нашего FAQ |x| Как вызвать процедуру из чужого ЕХЕ файла > Dima (08.07.00 20:35) Проблема такая : на сервере стоит ЕХЕ-файл, написан на FoxPro. И как класс зарегистрирован в системном реестре. Есть описание его процедур ( название, параметры. Существует ли возможность на Delphi обратиться к процедурам и заставить их сработать. > Шевелев Дмитрий - maestro@bashneft.ru (21.07.00 13:07)...