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

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

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

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

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

←   Апрель 2002   →
 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
Автор
Сергей

Статистика

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

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


Информационный Канал Subscribe.Ru - www.lycos.ru
Ежедневная рассылка сайта Мастера DELPHI

DELPHI.mastak.ru

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

Кое-что из нашей кладовки   |x|
Лучшее из нашего FAQ   |x|
Как написать приложение, адекватно отображающееся на экранах с различным разрешением монитора? 

unit Main;
interface 
uses 
  Windows, Messages, SysUtils, Classes, Graphics, 
  Controls, Forms, Dialogs, StdCtrls;

type 
  TForm1 = class(TForm) 
    Button1: TButton; 
    Edit1: TEdit; 
    procedure Button1Click(Sender: TObject); 
    procedure FormCreate(Sender: TObject); 
  private 
    { Private declarations } 
    {Отлавливаем, сообщение о изменении разрешения экрана} 
    procedure WMDisplayChange(var message: TMessage); message WM_DISPLAYCHANGE; 
  public 
    { Public declarations } 
    W, H: integer; 
  end; 

var 
  Form1: TForm1; 

implementation 

{$R *.DFM} 

procedure TForm1.Button1Click(Sender: TObject); 
begin 
  Width := Round(Width * 1.5); 
  Height := Round(Height
* 1.5); 
  ScaleBy(150, 100) 
end; 

procedure TForm1.WMDisplayChange(var message: TMessage); 
begin 
  inherited; 
  Width := Round(Width * LOWORD(message.LParam) / W); 
  Height := Round(Height * HIWORD(message.LParam) / H); 
  ScaleBy(LOWORD(message.LParam), W); 
  W := Screen.Width; 
  H := Screen.Height; 
end; 

procedure TForm1.FormCreate(Sender: TObject); 
begin 
  W := Screen.Width; 
  H := Screen.Height; 
end; 

end.

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

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

Совет 22. Директория вашей программы.

Начнем с того, как можно узнать полное имя вашей программы. Здесь есть два решения.
Первое решение: воспользоваться таким объявлением Application.ExeName:string;
Второе решение: я чаще им пользуюсь paramstr(0); так же возвратит полный путь к вашей программе. Ну а чтобы узнать директорию вашей программы воспользуемся функцией ExtractFilePath(filename:string):string;
То есть узнать директорию можно так: ExtractFilePath(paramstr(0));

Автор: Михаил Христосенко
Сайт о программировании в Дельфи http://MihanDelphi.narod.ru
(c) при публикации этого материала ссылка на автора обязательна

Обсуждается в конференциях   |x|
У нас большой выбор статей   |x|
Невизуальные классы в Delphi
В этом обзоре мне хотелось бы осветить несколько классов Delphi, которым обычно в книгах и других обучающих материалах уделяется (если уделяется) весьма скромное внимание. Это так называемые невизуальные классы, не порожденные непосредственно от TComponent и не имеющие владельца. Следовательно, начинающий разработчик в палитре компонентов их не видит, в книжках о них не пишут, а help’ы ему читать неохота или он просто не знает английского...
Новинки книжного рынка   |x|
Delphi 6 в подлиннике
Delphi 6 - новая версия популярной системы быстрой разработки приложений. В книге описываются инструментальные средства среды Delphi 6, приводятся основы языка программирования Object Pascal и рассматриваются компоненты, свойства, методы и события, необходимые для разработки широкого спектра программ. Особое внимание уделяется работе с базами данных. Показывается использование как локальных, так и удаленных баз данных, включая создание многоуровневых информационных систем и публикацию результатов запросов через Интернет. Благодаря большому количеству затронутых тем, подробному изложению и многочисленным примерам книга будет полезна как начинающим, так и опытным программистам.
Автор: Гофман В.
Другие сайты о DELPHI   |x|
Бешенные бобры
Обычный мега сайт, куча полезной инфы, много, очень много стыбренных статей с самых разных сайтов. Также можно найти тучу компонентов, алгоритомов  и маленький форум. Этот сайт был признан самым ...
» Оценка сайта: 3
Опрос населения :)
Образование программиста?
»»» Высшее
»»» Незаконченное высшее
»»» Среднее специальное
»»» Среднее
Журнал "RSDN Magazine"  |x|

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

Для души

Хокку дня
Разлука... -
Кепкою машу
Подножьям алых гор.

Афоризмы
Люди, утверждающие, что в какой-то конкретной стране невозможно заниматься бизнесом, не должны заниматься бизнесом нигде....

Фраза дня
Кулер тоже вертолет. Только маленький еще.

Дурацкие законы (информация предоставлена сайтом kurilka.com)
В Северной Каролине (США) считается преступлением насвистывать на дырке от ключа.
В городе Соутерн Шоурз (США) запрещается кататься на роликовых коньках по хайвеям.

И на закуску коротенький анекдот
О человеке можно судить по его Temporary Internet Files...

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

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

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