скрыть

скрыть

  Форум  

Delphi FAQ - Часто задаваемые вопросы

| Базы данных | Графика и Игры | Интернет и Сети | Компоненты и Классы | Мультимедиа |
| ОС и Железо | Программа и Интерфейс | Рабочий стол | Синтаксис | Технологии | Файловая система |



Google  
 

Разукрасить свою форму



Автор: Рудный Артем

Не самый рациональный, но один из самых простых способов разукрасить свою форму. В событии формы onPoint напишем следующее:

procedure TForm1.FormPaint(Sender: TObject);
var
  i, j: Longint;
begin
  with Canvas do
    for i := 1 to Width do // для всех точек Формы по горизонтали
    begin
      Application.ProcessMessages;
      for j := 1 to Height do // для каждой точки Формы по вертикали
        Pixels[i, j] := random(9999); // задаём случайный цвет пиксела
    end;
  // получится мраморное окно
end;

// Теперь можно поэкспериментировать с цветом пикселей:
// Для этого выражение random(9999)заменим на другие к примеру
J * i
Sqr(i + j)
Round(Sqr(i + j) / Pi)
// Здесь можно издеваться как фантазия позволит!!!.





Copyright © 2004-2016 "Delphi Sources". Delphi World FAQ




Группа ВКонтакте   Ссылка на Twitter   Группа на Facebook