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

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

Рассылка закрыта

При закрытии подписчики были переданы в рассылку "Delphi - проблемы и решения" на которую и рекомендуем вам подписаться.

Вы можете найти рассылки сходной тематики в Каталоге рассылок.

←   Август 2001   →
 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
Автор
Сергей

Статистика

13.577 подписчиков
-18 за неделю
←   Все выпуски   →

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


Служба Рассылок Subscribe.Ru проекта Citycat.Ru
Ежедневная рассылка сайта Мастера DELPHI

DELPHI.mastak.ru

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

Новые компоненты   |x|
  • TYearPlanner v2.6 (75Kb) (28.08.01 04:12)
    Компонент для Delphi 1-6 и C++Builder 3.0 & 4.0, который напоминает планировщик года (см. Screenshot: http://www.delphipages.com/uploads/screenshots/YearPlan.gif :) Компактный размер!
    С исходными текстами

    Источник: www.delphipages.com   Автор: Jonathan Hosking http://www.the-hoskings.freeserve.co.uk/
    -= · VCL · Samples · =-
  • IETweak v1.1 (Hungarian) (482Kb) (28.08.01 04:12)
    IETweak - простая утилита, с помощью которой Вы можете устанавливать скрытые настройки Internet Explorer в системном реестре.
    Screenshot: http://www.delphipages.com/uploads/screenshots/ietweak.JPG
    Источник: www.delphipages.com   Автор: Lбszlу Gбrdonyi http://www.tar.hu/gles/
    -= · Tools · =-
  • TCaptureMovie (1.86Mb) (28.08.01 04:12)
    TCaptureMovie для Delphi и C++ Builder, делает снимок с любого видео клипа и сохраняет его в TBitmap, TImage или просто bmp файл.
    Screenshot: http://www.delphipages.com/uploads/screenshots/ACF399.gif

    Источник: www.delphipages.com   Автор: Michel Fornengo http://www.delphicity.com/cmovie/features.htm
    -= · VCL · =-
  • TActiveMovie (1.76Mb) (28.08.01 04:12)
    TActiveMovie это Delphi / C++Builder VCL компонет, который дает вам полный доступ ко всем фугкциям Microsoft's Media Player.
    Screenshot: http://www.delphipages.com/uploads/screenshots/ACF120.gif
    Источник: www.delphipages.com   Автор: Michel Fornengo http://www.delphicity.com/
    -= · VCL · =-
  • IRCMemo (17Kb) (28.08.01 04:12)
    Этот компонент может использоваться в программах IRC/CHAT. Это цветной memo с прокруткой. Если Вы хотите сделать чат, или IRC этот компонент то что Вы будете использовать ;)
    С исходными текстами
    Источник: www.delphipages.com   Автор: Slym Shadi
    -= · VCL · Samples · =-
  • Полный список компонент смотрите на сайте...
Кое-что из нашей кладовки   |x|
  • ZSpider timk tim@mail.primorye.ru   (27.08.01 23:50)
    Пример простого веб-спайдера использующего WinInet API.
    »»» Скачать: исходные тексты (7кб) демонстрационный EXE файл (36кб)
  • CheckYourMail Mixan mixanoid@mail.ru   (27.08.01 18:48)
    Каждые n минут проверяет почту и, если есть новая почта, по выбору играет звук и/или запускает программу и/или выдает сообщение. Классный, удобный и красивый.
    Взят с сайта http://mixan.narod.ru сайт обновлен и улучшен.
    »»» Скачать: исходные тексты (14кб) посмотреть скриншот
  • Редактирование строки по кларионовски АВС abc@aeroflot.net   (27.08.01 18:05)
    Некогда, работая на Clarionе, мне очень понравилось редактирование строки. Перейдя на Pascal я написал функции, реализующие технику работы со строкой по Clarion. Попутно повторил и экранные формы. Но это было давно и это было в DOSe.
      Для WINDOWS у меня есть компоненты, которые делают нечто похожее.
      Тексты (на Delphi) пока не выкладываю, т.к. писал для себя и там жуткий бардак. И возможно полно ошибок.
    Расчитываю потихоньку доделать всю палитру компонентов для работы со строками.
      Если кому-нибудь это интересно, пишите.
      Для тех,кто не знает Clariona:
    для перемещения по полям вниз  - Enter,стрелка вниз;
                            вверх - Esc, стрелка вверх
    режим вставки замены           - Ins
    работают клавиши               - home,End и т.д+.
    »»» Скачать: исходные тексты (2кб) демонстрационный EXE файл (208кб)
  • Русификация Delphi 5 Update Pack 1 Anton Ig delphi5@hotbox.ru   (20.02.01 23:04)
    В архиве находится 13 патчей, которые русифицируют большинство менюшек в Delphi 5 Up 1, а так же некоторые диалоги и сообщения об ошибках.
    »»» Скачать: исходные тексты
Лучшее из нашего FAQ   |x|
Работа с принтером.
Delphi имеет стандартный объект для доступа к принтеру - TPRINTER, находящийся в модуле PRINTERS. В этом модуле имеется переменная Printer:Tpinter, что избавляет от необходимости описывать свою. Он позволяет выводить данные на печать и управлять процессом печати. Правда, в некоторых версиях Delphi 1 он имеет "глюк" - не работают функции Draw и StrethDraw. Но эта проблема поправима - можно использовать функции API. Далее приведены основные поля и методы объекта Printers :
PROPERTY
Aborted:boolean - Показывает, что процесс печати прерван
Canvas:Tcanvas - Стандартный Canvas, как у любого графического объекта. Он позволяет рисовать на листе бумаге графику, выводить текст ... . Тут есть несколько особенностей, они описаны после описания объекта.
Fonts:Tstrings - Возвращает список шрифтов, поддерживаемых принтером
Handle:HDS - Получить Handle на принтер для использования функций API (см. Далее)
Orientation:TprinterOrientation - Ориентация листа при печати : (poPortrait, poLandscape)
PageHeight:integer - Высота листа в пикселах
PageNumber:integer - Номер страницы, увеличивается на 1 при каждом NewPage
PageWidth:integer - Ширина листа в пикселах
PrinterIndex:integer - Номер используемого принтера по списку доступных принтеров Printers
Printers:Tstrings - Список доступных принтеров
Printing:boolean - Флаг, показывающий, что сейчас идет процесс печати
Title:string - Имя документа или приложения. Под этим именем задание на печать регистрируется в диспетчере печати

METODS
AssignPrn(f:TextFile) - Связать текстовый файл с принтером.
Далее вывод информации в этот файл приводит к ее печати. Удобно в простейших случаях.
Abort - Сбросить печать
BeginDoc - Начать печать
NewPage - Начать новую страницу
EndDoc - Завершить печать.

Пример :


Procedure TForm1.Button1Click(Sender: TObject);
Begin
 With Printer do Begin
  BeginDoc; { Начало печати }
  Canvas.Font:=label1.font; { За!
дали шрифт }
  Canvas.TextOut(100,100,'Это тест принтера !!!'); { Печатаем текст }
  EndDoc; { Конец печати }
 end;
end;

Особенности работы с TPrinter


1. После команды BeginDoc шрифт у Canvas принтера сбрасывается и его необходимо задавать заново
2. Все координаты даны в пикселах, а для нормальной работы необходимы миллиметры (по двум очевидным причинам: очень трудно произвести разметку страницы в пикселах (особенно если необходима точность), и , главное, при изменении разрешающей способности принтера будет изменяться число точек на дюйм, и все координаты "поедут".
3. У TPrinter информация о принтере, по видимому, определяются один раз - в момент запуска программы (или смены принтера). Поэтому изменение настроек принтера в процессе работы программы может привести к некорректной работе, например, неправильной печать шрифтов True Type.
Определение параметров принтера через API
Для определения информации о принтере (плоттере, экране) необходимо знать Handle этого принтера, а его можно узнать объекта TPrinter - Printer.Handle.
Далее вызывается функция API (unit WinProcs) : GetDevice(Handle:HDC; Index:integer):integer;
Index - код параметра, который необходимо вернуть.
Для Index существует ряд констант :
DriverVersion - вернуть версию драйвера
Texnology - Технология вывода, их много, основные
 dt_Plotter - плоттер
 dt_RasPrinter - растровый принтер
 dt_Display - дисплей
HorzSize - Горизонтальный размер листа (в мм)
VertSize - Вертикальный размер листа (в мм)
HorzRes - Горизонтальный размер листа (в пикселах)
VertRes - Вертикальный размер листа (в пикселах)
LogPixelX - Разрешение по оси Х в dpi (пиксел /дюйм)
LogPixelY - Разрешение по оси Y в dpi (пиксел /дюйм)
Кроме перечисленных еще около сотни, они позволяют узнать о принтере практически все. Параметры, возвращаемые по LogPixelX и LogPixelY очень важны - они поз! воляют произвести пересчет координат из миллиметров в пиксели для текущего разрешения принтера. Пример таких функций:




Procedure TForm1.GetPrinterInfo; { Получить информацию о принтере }
begin
  PixelsX:=GetDeviceCaps(printer.Handle,LogPixelsX);
  PixelsY:=GetDeviceCaps(printer.Handle,LogPixelsY);
end;

Function TForm1.PrinterCoordX(x:integer):integer; { переводит координаты из мм в пиксели }
begin
 PrinterCoordX:=round(PixelsX/25.4*x);
end;

Function TForm1.PrinterCoordY(Y:integer):integer; { переводит координаты из мм в пиксели }
begin
 PrinterCoordY:=round(PixelsY/25.4*Y);
end;
---------------------------------
GetPrinterInfo;
Printer.Canvas.TextOut(PrinterCoordX(30), PrinterCoordY(55),
 'Этот текст печатается с отступом 30 мм от левого края и '+
 '55 мм от верха при любом разрешении принтера');


Данную методику можно с успехом применять для печати картинок - зная размер картинки можно пересчитать ее размеры в пикселах для текущего разрешения принтера, масштабировать, и затем уже распечатать. Иначе на матричном принтере (180 dpi) картинка будет огромной, а на качественном струйнике (720 dpi) - микроскопической.

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

Обсуждается в конференциях   |x|
У нас большой выбор статей   |x|
Поиск и фильтрация данных в Delphi
Базы данных являются удобным средством хранения структурированной информации. Однако само по себе накопление и хранение информации делает базу данных большой кучей мусора. Удобно организованный поиск и отбор информации способен резко повысить эффективность ее использования. В данной статье мы попытаемся разобраться в методах поиска информации, реализованных в Delphi. Предполагается, что Вы в общих чертах знакомы с теорией реляционных баз данных и имеете некоторый опыт программирования на Delphi.
Другие сайты о DELPHI   |x|
[ DiZeLsoft ] : "Всё о Delphi и для Delphi"
На этом сайте вы найдёте всю информацию о delphi, программы написанные на этом языке, компоненты, узнаете историю delphi, и многое другое...
Опрос населения :)
Как часто вы заглядываете на наш сайт?
»»» Регулярно
»»» Раз в неделю
»»» Когда нужна помощь
»»» По почтовой рассылке
»»» Сделал стартовой страницей
Для души

Хокку дня
Игрушечным шаром
Упало светило --
Осколки блестят.

Афоризмы
Большая часть ворующих расценивает свое воровство как восстановление справедливости.......

Фраза дня
Внедрить - внедрили, а вывнедрить - забыли

И на закуску коротенький анекдот
Граф вызывает слугу:
- Милейший, завтра ко мне приезжает теща. Вот список её любимых блюд.
- Понимаю, сэр!
- ... и если Вы приготовите хоть одно из них - немедленно получите расчет!

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

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

Добро пожаловать на сайт -= Мастера DELPHI =- 
http://subscribe.ru/
E-mail: ask@subscribe.ru 		Отписаться
Убрать рекламу 		Рейтингуется SpyLog
В избранное