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

СообЧА. Программирование на Delphi

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

При закрытии подписчики были переданы в рассылку "Программирование в 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
26.09.2001
22:01:01
22:36:02
27
28
29
30
Автор
Сергей

Статистика

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

СообЧА. Программирование на Delphi


Служба Рассылок Subscribe.Ru проекта Citycat.Ru
Subscribe.Ru : СообЧА. Программирование на Delphi
Служба Рассылок Subscribe.Ru проекта Citycat.Ru
Технологии карьеры и личностного развития.
Разнообразные материалы по технологиям, методам, способам построения успешной карьеры и личностного (интеллектуального, духовного, физического ...) развития.
Подписаться.   Рассылки Subscribe.Ru


 

Мир Delphi

PixelSoftware

  

По тех. причинам подсчет подписчиков не ведется.

 
     

.::::: СообЧа - Программирование на Delphi :::::.

 

ї 2000 - 2001COOLer

  

Дизайн: Yoghurt

  
     

Оглавление

 

В выпуске

  

Рассылка СообЧА

  
     
  
Рассылки Subscribe.Ru
СообЧа (СООБщество ЧАйников). Обмен опытом, вопросы, ответы.

  Назад к оглавлению    
   
 

Конкурс и новости рассылки

  
 
   

  • Участвуйте в конкурсе "Статья месяца" и вы выиграете книгу по Delphi от магазина ОЗОН. В конце каждого месяца Вами будет выбран лучший автор, который и получит книгу. Присылайте ваши статьи на  pixel@novgorod.net . Авторов просим строго придерживаться тематики рассылки.

  • Сегодня у нас масса плохих новостей:

  1. В связи с крахом всей системы, и последующим форматированием винта потеряны все файлы проекта, и письма подписчиков. Если вы что-нибудь посылали (статью или вопрос) и не получили ответа, то повторите попытку.

  2. По странным причинам был закрыт сайт http://pixelsoft.bos.ru , с которого велся подсчет подписчиков увы... Если та же участь постигнет мой сайт, уйду в горы :(   

  3. Обновление сайта отложено по вышеуказанным причинам.

 Вот такое вот горе...

Немного разбавим нашу тему, вот классный анекдот(ну очень к рассылке):

у трех человек спрашивают:" Вам нужно вкрутить лампочку в комнате, ваши действия?"

  • Ламер: буду искать стул и лампочку

  • Новичок в "Дельфях" : Скачаю из сети модуль, позволяющий вкручивать лампочки

  • Асс в "Дельфях" : Пошлю сообщение к лампоче через API , чтобы она вкрутилась.

Ж)

  • Нравится ли вам наша рассылка?

    • Да

    Нет

    Не успел оценить

      Назад к оглавлению    
       
     

    Выбор лучшего

    		  
     
       
    ув. Подписчики. пожалуйста оцените труд данных авторов отдав свой голос за того, кого вы считаете достойным. В конце месяца(блин хоть бы кто сказал!) по итогам голосования лучшему автору будет подарена книга от магазина "ОЗОН". Если вы хотите увидить своё имя среди авторов - то прочитайте условия конкурса Выбери лучшего
    Pixel
    PILOT
    Art

     
      Назад к оглавлению    
       
     

    Немного о...

    		 
     
       

    Q:Как можно обойтись без Ttimer и наиболее рационально использовать ресурсы системы?

    A: сложно, но можно.... 

    procedure Delay(ms : longint);
    var
    TheTime : LongInt;
    begin
    TheTime := GetTickCount + ms;

    while GetTickCount < TheTime do
    Application.ProcessMessages;
    end;

    procedure TForm1.Button1Click(Sender: TObject);
    begin
    ShowMessage('Start Test');
    Delay(2000);
    ShowMessage('End Test');
    end;

    Q:Как узнать и поменять разрешение экрана?

    A: поменять можно так...

    procedure ChangeDisplayResolution(x, y : word);
    var

    dm : TDEVMODE;

    begin

    ZeroMemory(@dm, sizeof(TDEVMODE));

    dm.dmSize := sizeof(TDEVMODE);

    dm.dmPelsWidth := x;

    dm.dmPelsHeight := y;

    dm.dmFields := DM_PELSWIDTH or DM_PELSHEIGHT;

    ChangeDisplaySettings(dm, 0);

    end;

     

    А узнать...

    { Example }
    begin
    iScreenWidth := Screen.Width;

    iScreenHeight := Screen.Height;
    end;

     

    mailto:Автор:Pixel(pixel@novgorod.net http://pixelsoft.narod.ru/ )
    ї COOLer 
    Назад к оглавлению    
       
     

    Startbuttonus Chameleonis 

    		  
     
       

    Пример из серии "Что можно сделать с рабочим столом". В общем, это обычный трюк с кнопкой "Пуск" (Start).

    Совместимость: все версии Delphi.

     

    { объявляем глобальные переменные }
    var
    Form1: TForm1;
    StartButton: hWnd;
    OldBitmap: THandle;
    NewImage: TPicture;
    { добавляем следующий код в событие формы OnCreate }
    procedure TForm1.FormCreate(Sender: TObject);
    begin
    NewImage := TPicture.create;
    NewImage.LoadFromFile('C:\Windows\Circles.BMP');
    StartButton := FindWindowEx

    (FindWindow(
    'Shell_TrayWnd',
    nil),

    0,'Button', nil);
    OldBitmap := SendMessage(StartButton,

    BM_SetImage, 0,

    NewImage.Bitmap.Handle);
    end;
    { Событие OnDestroy }
    procedure TForm1.FormDestroy(Sender: TObject);
    begin
    SendMessage(StartButton,BM_SetImage,0,OldBitmap);
    NewImage.Free;
    end;

     

     

    mailto:Автор:Pixel(pixel@novgorod.net http://pixelsoft.narod.ru/ )

     

    Zaluskiy Anton(COOLer)    - ведущий проекта    "Мир Delphi"



    о3он TopList
    -AdRiver-
    http://subscribe.ru/
    E-mail: ask@subscribe.ru     		Отписаться
    Убрать рекламу     		Рейтингуется SpyLog
    http://subscribe.ru/
    E-mail: ask@subscribe.ru     		Отписаться
    Убрать рекламу     		Рейтингуется SpyLog
    В избранное