Вопрос и Ответ 22 < Вопросы и Ответы по Delphi < Delphi

Новые книги

В книге рассказывается о том, как привлечь инвестиции в малый бизнес, не связанный с инновациями и высокими технологиями. Вы узнаете, какие мотивы движут инвесторами и какие семь шагов необходимо сделать для привлечения инвестиций: от оценки проекта и подготовки пакета документов до нюансов юридического оформления и жизни после инвестиционной сделки. В каждой главе вы найдете конкретные инструменты, которые помогут вам на этом пути, включая различные чек-листы, шаблоны, финансовые модели, образцы документов и презентаций.

Автор книги Олег Иванов — практик с колоссальным опытом, основатель InvestBazar.com, первой и крупнейшей в России платформы, позволяющей предпринимателям сферы реального бизнеса привлекать деньги частных инвесторов. Авторская методика помогла сотням предпринимателям привлечь инвестиции в свой бизнес и успешно развиваться.

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

Дети онлайн: опасности в Сети

Анна Левченко – создатель Всероссийского центра мониторинга опасного и запрещенного законом РФ контента, руководитель движения «Безопасное детство», помощник уполномоченного по правам ребенка при Президенте РФ, инициатор сетевого движения «Сдай педофила!».

Интернет и социальные сети давно прочно вошли в нашу жизнь. Сегодня практически у каждого ребенка есть аккаунты в соцсетях. Но бесконтрольный доступ к интернету для несовершеннолетних может обернуться трагедией. Каждому третьему ребенку в России приходилось сталкиваться с педофилами в Сети. Как защитить ребенка от угроз и что делать, если все-таки предотвратить трагедию не удалось? Что нужно сделать в первую очередь? Куда бежать, кому жаловаться? Ответы на эти вопросы вы найдете на страницах моей книги.

Вопрос и Ответ 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;

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

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