Новые книги

Еще недавно компаниям требовались десятки лет, чтобы заработать миллиард. Сегодня многие бизнесы, такие как Snapchat, WhatssApp и Uber, проходят этот путь за пару лет. Мы вступили в эпоху высоких скоростей, теперь, чтобы выжить и преуспеть, компании вынуждены стремительно расти. Ключевой вопрос: как успешно конкурировать в этом новом мире? Как избежать пресловутых болезней роста? Ответ – стать экспоненциальной организацией.

Эта книга – практическое руководство по созданию экспоненциальных компаний и управлению ими. Авторы рассказывают об опыте бизнеса, который вписался в новые условия, и дают советы, как адаптировать к переменам существующие организации. Благодаря «Взрывному росту» любая компания, от стартапа до огромной корпорации, научится использовать новые технологии, для того, чтобы добиться экспоненциального роста.
Изучив эту книгу, вы научитесь делать великолепные презентации, с помощью которых можно донести свои мысли и идеи до любой аудитории – совета директоров, команды проекта, слушателей семинара. Вы поймете, как и когда следует использовать PowerPoint, как готовить презентацию, выбрать дизайн слайдов, расставлять акценты и располагать картинки, схемы и графики и самое главное – как не перегрузить презентацию лишней информацией.

Книга предназначена для широкого круга читателей.

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

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


      22. Как заполнить форму ЛЮБЫМ растровым изображением?

      Стандартные средства Windows позволяют заполнять форму только изображением размером 8х8 точек (см. "Вопрос и Ответ 19"). Для заполнения формы растровым изображением любого размера необходимо в методе Paint заполнять всю форму нужным растровым изображением вручную.

      Пример:

      ............

        ............
        public

          bmp: TBitMap; {Объект TBitMap}
          kX, kY: Integer; {Количество целых изображений по X и Y}

        end;

      ............

      procedure TForm1.FormCreate(Sender: TObject);

        begin bmp := TBitMap.Create; {Создаем объект TBitMap}
        bmp.LoadFromFile('fon.bmp'); {Загружаем в него изображение}

      end;

      ............

      {Вызывается при изменении размеров окна (и при его создании тоже)}
      procedure TForm1.FormResize(Sender: TObject);
      begin

        {Проверяем загружено или нет изображение}
        IF bmp.Handle <> 0 THEN BEGIN

          {Вычисляем какое целое число раз поместится изображение на экране по вертикали и горизонтали}
          kX := Width DIV bmp.Width;
          kY := Height DIV bmp.Height;
          Refresh; {Перерисовываем окно}

        END;

      end;

      ............

      procedure TForm1.FormPaint(Sender: TObject);
      VAR X, Y: Integer;
      begin

        {Проверяем загружено или нет изображение}
        IF bmp.Handle <> 0 THEN

          FOR X := 0 TO kX DO {Количество изображений по X плюс одно}

            FOR Y := 0 TO kY DO {Количество изображений по Y плюс одно}

              Canvas.Draw(X*bmp.Width, Y*bmp.Height, bmp); {Рисуем}

      end;

      ............

      procedure TForm1.FormDestroy(Sender: TObject);
      begin

        bmp.Free; {Удаляем объект TBitMap}

      end;

      ............


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



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