Рассылка закрыта
При закрытии подписчики были переданы в рассылку "Delphi - проблемы и решения" на которую и рекомендуем вам подписаться.
Вы можете найти рассылки сходной тематики в Каталоге рассылок.
| ← Август 2025 | ||||||
|
1
|
2
|
3
|
||||
|---|---|---|---|---|---|---|
|
4
|
5
|
6
|
7
|
8
|
9
|
10
|
|
11
|
12
|
13
|
14
|
15
|
16
|
17
|
|
18
|
19
|
20
|
21
|
22
|
23
|
24
|
|
25
|
26
|
27
|
28
|
29
|
30
|
31
|
Ежедневная рассылка сайта МАСТЕРА DELPHI. Новости сайта, новости мира
компонент, лучший вопрос-ответ из нашего FAQ, статьи, советы и кое-что для
души :)
Статистика
-18 за неделю
Мастера DELPHI. Новости мира компонент, FAQ, статьи...
Информационный Канал Subscribe.Ru Ежедневная рассылка сайта Мастера DELPHI DELPHIMASTER.ru Выпуск от 13.09.04 09:18 Лучшее из нашего FAQ |x| Как изменить размер Jpeg и сохранить его в новый файл procedure TForm1.Button1Click(Sender: TObject); var bmp: TBItmap; jpg: TJpegImage; scale: Double; begin if opendialog1.execute then begin jpg= TJpegImage.Create; try jpg.Loadfromfile( opendialog1.filename ); if jpg.Height > jpg.Width then scale = 50 / jpg.Height else scale = 50 / jpg.Width; bmp= Tbitmap.Create; try...
Мастера DELPHI. Новости мира компонент, FAQ, статьи...
Информационный Канал Subscribe.Ru Ежедневная рассылка сайта Мастера DELPHI DELPHIMASTER.ru Выпуск от 12.09.04 09:18 Лучшее из нашего FAQ |x| Как работать с плагинами ? Я сделал так - выбираю все DLL из каталога с программой, загружаю каждую и пытаюсь найти в ней функцию (через API GetProcAddress) с заранее определенным жестко именем (например что нибудь типа IsPluginForMyStuff. Если нашлась - DLL считается моим плагином, если нет - выгрузить и забыть. А набор вызываемых функций по идее одинаков у всех плаг...
Мастера DELPHI. Новости мира компонент, FAQ, статьи...
Информационный Канал Subscribe.Ru Ежедневная рассылка сайта Мастера DELPHI DELPHIMASTER.ru Выпуск от 11.09.04 09:18 Лучшее из нашего FAQ |x| Удаление каталога со всем содержимым { Удалить каталог со всем содержимым } function DeleteDir(Dir : string) : boolean; Var Found : integer; SearchRec : TSearchRec; begin result=false; if IOResult<>0 then ; ChDir(Dir); if IOResult<>0 then begin ShowMessage'Не могу войти в каталог: +Dir); exit; end ; Found = FindFirst, faAnyFile, SearchRec); while Found = 0...
Мастера DELPHI. Новости мира компонент, FAQ, статьи...
Информационный Канал Subscribe.Ru Ежедневная рассылка сайта Мастера DELPHI DELPHIMASTER.ru Выпуск от 10.09.04 09:18 Лучшее из нашего FAQ |x| Зачем нужен TAction ? Hужны они для синхронизации свойств Enable, Checked, ImageIndex, Caption, Hint, OnClick и т.п. различных контролов. Hаиболее часто применяется для кнопок и элементов меню. Сильно облегчает разработку дружественных сред, когда до какого-то действия можно добраться через кнопку toolbar'а, MainMenu'шку и PopupMenu'шку: 1. Создал Action, проставил св...
Мастера DELPHI. Новости мира компонент, FAQ, статьи...
Информационный Канал Subscribe.Ru Ежедневная рассылка сайта Мастера DELPHI DELPHIMASTER.ru Выпуск от 09.09.04 09:18 Лучшее из нашего FAQ |x| Как поместить bitmap в Metafile? Пример: procedure TForm1.Button1Click(Sender: TObject); var m : TmetaFile; mc : TmetaFileCanvas; b : tbitmap; begin m = TMetaFile.Create; b = TBitmap.create; b.LoadFromFile'C\SomePath\SomeBitmap.BMP); m.Height = b.Height; m.Width = b.Width; mc = TMetafileCanvas.Create(m, 0); mc.Draw(0, 0, b); mc.Free; b.Free; m.SaveToFile'C\SomePath\Te...
Мастера DELPHI. Новости мира компонент, FAQ, статьи...
Информационный Канал Subscribe.Ru Ежедневная рассылка сайта Мастера DELPHI DELPHIMASTER.ru Выпуск от 08.09.04 09:18 Лучшее из нашего FAQ |x| Моя программа использует дравер принтера. Возможно ли потихоньку установить драйвер принтера без вмешательства пользователя? Приведенный пример устанавливает драйвер принтера. Вам необходимо скопировать файлы с драйвером принтера в каталог Windows\System и внести необходимые изменения в файл Win.Ini. Примечание: DriverName = Имя драйвера; DRVFILE - имя файла с драйвер...
Мастера DELPHI. Новости мира компонент, FAQ, статьи...
Информационный Канал Subscribe.Ru Ежедневная рассылка сайта Мастера DELPHI DELPHIMASTER.ru Выпуск от 07.09.04 09:18 Лучшее из нашего FAQ |x| Подскажите какие ХОРОШИЕ программы есть для создания ИНТАЛЯШЕК > kingdom (26.07.00 21:19) День добрый ! 1) Поделитесь опытом, расскажите как лучше писать ИНСТАЛЯШКУ, чтобы и в реестр лазела и комп перегружала и все остальное. Есть InstallSheild Express, но это слабовато. 2)Если не сложно расскажите немного об InstallSheild (обычном, что это такое, насколько сложное и ...
Мастера DELPHI. Новости мира компонент, FAQ, статьи...
Информационный Канал Subscribe.Ru Ежедневная рассылка сайта Мастера DELPHI DELPHIMASTER.ru Выпуск от 06.09.04 09:18 Лучшее из нашего FAQ |x| Как перемещать компонент мышкой во время работы программы "runtime? Перехватить событие OnMouseDown, запомнить x и y координты курсора мыши. Отслеживать движение мыши по событию OnMouseMove и перемещать компонент вслед за курсором мыши до тех пор пока не произойдет событие OnMouseUp. В примере показано перемещение компонента TButton. Перемещение начинается, когда поль...
Мастера DELPHI. Новости мира компонент, FAQ, статьи...
Информационный Канал Subscribe.Ru Ежедневная рассылка сайта Мастера DELPHI DELPHIMASTER.ru Выпуск от 05.09.04 09:18 Лучшее из нашего FAQ |x| FTP - докачка файлов. > Диман (09.08.00 13:50) Как качать файлы через интернет по протоколу FTP я разобрался - послать команду RETR - и эдать файл. А какую команду нужно послать, что бы файл начал скачиваться не с начала а с определённого места - т.е. при обрыве связи докачать его. Может кто знает - подскажите. Или может знаете где раскопать инфу по этому вопросу? > W...
Мастера DELPHI. Новости мира компонент, FAQ, статьи...
Информационный Канал Subscribe.Ru Ежедневная рассылка сайта Мастера DELPHI DELPHIMASTER.ru Выпуск от 08.08.04 09:18 Лучшее из нашего FAQ |x| Как проверить инсталлирована ли BDE Проверить реестр with TRegistry.create do begin Rootkey = HKEY_LOCAL_MACHINE; OpenKey'SOFTWARE\BORLAND\DATABASE ENGINE, false); CFGFile = ReadString'CONFIGFILE01); Free; end ; Вариант от "Anatoly Podgoretsky" (nps@nps.vnet.ee) try dbiInit(nil); except showmessage'BDE не установлено) end ; > Прислать свои комментарии Обсуждается в ко...
