Отправляет 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
31
Автор
Сергей

Статистика

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

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


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

DELPHI.mastak.ru

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

Мы рады сообщить, что к нашей команде присоединился сайт Дмитрия Мироводина DelphiGFX посвященный графике и написанию игр на Delphi. Рекомендуем посмотреть всем!
На этом сайте вы найдете: cтатьи посвящены работе с 3D ( OpenGL, Direct3D ) и 2D (GDI, DirectX) графикой, основам проектирования игр, описанием принципов построения игр, алгоритмам, разобраны основные технологии. В общем, описывают теоретический базис и его практическое применение.
За несколько лет существования проекта собрана достаточно большая коллекция примеров и готовых игр написанных на Delphi.
Помимо статей и примеров на сервере находится коллекция библиотек (заголовки для различных Api, VCL компоненты, модули) для работы с графикой, каталог ссылок и много разных полезных мелочей.
Мы надеемся, что Вы по достоинству оцените этот ресурс. Заходим: DelphiGFX.mastak.ru
Кое-что из нашей кладовки   |x|
  • sesLib khomutov Khomutov@mgok.ru   (27.03.02 08:17)
    The sesLib is a "light" native VCL components package with Delphi 5 compatible help system.
    The sesLib consists of three components: TsesEdit, TsesLogger, TsesDataSet.
    The TsesEdit is the integral component , which incapsulates the   many basic properies and
    methods of the data editor line components: TEdit, TComboBox, TDBEdit, TDBComboBox, etc.
    In many cases, you may consider the TsesEdit as a replacement of these components.
    The TsesEdit is the direct descendant of the TCustomPanel, as a shell or container  for
    the child components: TCustomEdit, TSpeedButton as PickButton, TSpeedButton as PopupButton.
    The realized powerful properties, methods and events of the TsesEdit give a application developer the total control over all entered by user data.
    In combination with the TsesLogger you can easily create a editing group of the TsesEdits,
    using a group operations. So, you may check up by one function call the status of group editing: sesLogger1.Complete.
    The last function detemines whether or not the user completes the edition  with valid result.
    The TsesEdit supports the six level of data control:
    I. by if-Required-nonEmpty-level control;II. by low-level key pressing control;III. by data-format-level control;
    IV. by data-range-level control;V. by data-in-PickList-level control;VI. by data-User handler-level control.
    On the fifth(V) level you have a wide choice of tools, which allow you easily create the most suitable PickList kind either memory based or database oriented.
    The TsesLogger links TsesEdits into integrated group and provides logging functions. So, you
    may provide the user a possibility to see a history list of entered valid  data values or to pick up one of these values from the list.
    The TsesDataSet is a "light" variant of the direct descendant of the TDataSet without
    using BDE or ADO(uses DB unit only).
    »»» Скачать: исходные тексты
  • Преобразование изображений Vince Carter ilia@valley.ru   (27.03.02 23:31)
    Программа преобразует изображения из формата BMP в формат ICO и наоборот
    »»» Скачать: исходные тексты (4кб) демонстрационный EXE файл (188кб)
Лучшее из нашего FAQ   |x|
Как получить дескриптор окна другого приложения и сделать его активным?
Использование фуекции Windows API FindWindow() - простейший способ нахождение окна, при условии, что известен его заголовок или имя оконного класса. Если Вам известна только часть заголовка окна (например 'Netscape - ' + 'какой-то неизвестный URL'), Ва м нужно использовать функцию EnumWindows() для получения всех окон, затем вызывать функцию GetWindowsText() и GetClassName для поиска нужного окна. Следующий пример находит первое окно, содержащее совпадающую часть заголовка окна и полностью совпадающее название оконного класса (если он задан) и делает это окно активным. 

 type
   PFindWindowStruct = ^TFindWindowStruct;
   TFindWindowStruct = record
     Caption : string;
     ClassName : string;
     WindowHandle : THandle;
   end;

 function EnumWindowsProc(hWindow : hWnd;
                          lParam  : LongInt) : Bool
 {$IFDEF
Win32} stdcall; {$ELSE} ; export; {$ENDIF}
 var
   lpBuffer : PChar;
   WindowCaptionFound : bool;
   ClassNameFound : bool;

 begin
   GetMem(lpBuffer, 255);
   Result := True;
   WindowCaptionFound := False;
   ClassNameFound := False;

   try
     if GetWindowText(hWindow, lpBuffer, 255) > 0 then
       if Pos(PFindWindowStruct(lParam).Caption, StrPas(lpBuffer)) > 0
        then WindowCaptionFound := true;

     if PFindWindowStruct(lParam).ClassName = '' then
       ClassNameFound := True else
         if GetClassName(hWindow, lpBuffer, 255) > 0 then
           if Pos(PFindWindowStruct(lParam).ClassName, StrPas(lpBuffer))
            > 0 then ClassNameFound := True;

     if (WindowCaptionFound and ClassNameFound)
then begin
       PFindWindowStruct(lParam).WindowHandle := hWindow;
       Result := False;
     end;

   finally
     FreeMem(lpBuffer, sizeof(lpBuffer^));
   end;
 end!
;

 function FindAWindow(Caption : string;
                      ClassName : string) : THandle;
 var
   WindowInfo : TFindWindowStruct;

 begin
   with WindowInfo do begin
     Caption := Caption;
     ClassName := ClassName;
     WindowHandle := 0;
     EnumWindows(@EnumWindowsProc, LongInt(@WindowInfo));
     FindAWindow := WindowHandle;
   end;
 end;

 procedure TForm1.Button1Click(Sender: TObject);
 var
   TheWindowHandle : THandle;
 begin
   TheWindowHandle := FindAWindow('Netscape - ', '');
   if TheWindowHandle = 0 then
     ShowMessage('Window Not Found!') else
     BringWindowToTop(TheWindowHandle);
 end;


Источник: Дельфи. Вокруг да около.

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

Обсуждается в конференциях   |x|
У нас большой выбор статей   |x|
А СОБСТВЕННО ЗАЧЕМ? Немного об пользовательских интерфейсах. Часть 3.
Термин юзабилити становится все более модным. Его начинают склонять все кому не лень. Не удивлюсь если в скором времени, они будут зазывать пользователей слоганами вроде: "В нашей программе самое лучшее юзабилити. Покупайте только у нас!"... И возникает резонный вопрос, помимо этой своеобразной моды на юзабилити, существуют ли другие основания, для того чтобы программисты дружною толпой кинулись в дебри проектирования интерфейсов и эргономики?
Новинки книжного рынка   |x|
Delphi 6 в подлиннике
Delphi 6 - новая версия популярной системы быстрой разработки приложений. В книге описываются инструментальные средства среды Delphi 6, приводятся основы языка программирования Object Pascal и рассматриваются компоненты, свойства, методы и события, необходимые для разработки широкого спектра программ. Особое внимание уделяется работе с базами данных. Показывается использование как локальных, так и удаленных баз данных, включая создание многоуровневых информационных систем и публикацию результатов запросов через Интернет. Благодаря большому количеству затронутых тем, подробному изложению и многочисленным примерам книга будет полезна как начинающим, так и опытным программистам.
Автор: Гофман В.
Другие сайты о DELPHI   |x|
Polaris Software
Русификация Delphi
Русские строковые ресурсы и экранные формы
> run-time в виде набора PAS-модулей для Delphi 3,4,5.
> run-time пакеты VCL Delphi 4 и 5.
> run-time пакеты ...
» Оценка сайта: 5
Опрос населения :)
К какой возрастной категории Вы принадлежите ?
»»» меньше 16
»»» от 17 до 20
»»» от 21 до 23
»»» от 24 до 26
»»» от 27 до 30
»»» от 30 до 35
»»» от 35 до 40
»»» от 40 до 44
»»» больше 45
Журнал "RSDN Magazine"  |x|

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

Для души

Хокку дня
Молодой петушок
Кукарекнул во сне с перепугу -
Бульонный кубик приснился...

Афоризмы
Дураку полработы не показывают. Дураку вообще ничего не надо показывать....

Фраза дня
Раб мечтает не о свободе, а о своих рабах

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

И на закуску коротенький анекдот
Двое спешат на электричку.
- Сколько осталось до отхода поезда?
- Десять минут...
- А по моим часам - пять!
- Значит ты не успеешь!

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

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

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