Новые книги

Эта книга – практическое руководство для новаторов и творческих личностей, в ней собрано 46 правил, которые помогут вам стать если даже не гением, то, как минимум, более креативно мыслящим человеком. Эти правила не новы – на протяжении многих столетий им следовали художники, ученые и мыслители, создавая свои шедевры. Но в горячке творчества их чаще всего игнорируют и забывают.

Издание начинается с нескольких советов по стратегии – как найти правильную идею. Затем даются подсказки, полезные на этапе ее воплощения, – как правильно идеей распорядиться. Далее речь идет о развитии ваших креативных навыков с течением времени, и наконец – о практическом применении вашей гениальности.

Книга будет полезна дизайнерам, маркетологам, художникам, ученым, а также всем, кто желает стать гением. Она поможет вам мечтать, изобретать, творить и расти, чем бы вы ни занимались.

На русском языке публикуется впервые.
Компания-легенда, история которой началась в тесной квартире учителя английского языка, а спустя всего 10 лет после основания достигла показателей продаж, значительно превышающих результаты eBay и Amazon, вместе взятых. Это рассказ, как никому не известному Джеку Ма и его 17 друзьям удалось сформировать отсутствующую интернет-индустрию в огромной – больше миллиарда жителей – стране. О людях, которые верили в себя и свое дело даже в самые тяжелые моменты – и сумели изменить мир.

Вопрос и Ответ 58

Вопросы и Ответы


      58. Как заставить перерисоваться весь экран?

      Добиться обновления содержимого всего экрана можно различными способами, но наверное, самый правильный - это воспользоваться функцией RepaintScreen из библиотеки USER.

      procedure RepaintScreen; external 'USER' index 275;

      Данная функция не требут передачи каких-либо параметров - она просто заставляет обновить содержимое всех окон и видимую область рабочего стола.

      Пример:

      unit Unit1;

      interface

      uses

        SysUtils, WinTypes, WinProcs, Messages, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls;


    • type

        TForm1 = class(TForm)

          Button1: TButton;
          procedure Button1Click(Sender: TObject);
          private
          { Private declarations }
          public
          { Public declarations }

        end;

      var

        Form1: TForm1;

      procedure RepaintScreen;

      implementation

      {$R *.DFM}

      procedure RepaintScreen; external 'USER' index 275;

      procedure TForm1.Button1Click(Sender: TObject);
      begin

        RepaintScreen;

      end;

      end.


...предыдущая страница следующая...
оглавление



"Вопрос и Ответ 58"
Copyright © "В помощь Веб-Мастеру" (Alexander D. Belyaev) 2005-2024 .
При перепечатке любого материала видимая ссылка на источник "В помощь Веб-Мастеру" и все имена, ссылки авторов обязательны!
Время генерации страницы: 0.006