Карта сайта Kansoftware
НОВОСТИУСЛУГИРЕШЕНИЯКОНТАКТЫ
Разработка программного обеспечения
KANSoftWare

Сделать сложный фон окна

Delphi , Программа и Интерфейс , Интерфейс

Сделать сложный фон окна

Фон окна может представлять собой повторяющиеся картинки произвольного размера.


procedure TForm1.FormCreate(Sender: TObject);
begin
  bm := TBitMap.Create;
  bm.LoadFromFile('Example.bmp');
end;

procedure TForm1.FormPaint(Sender: TObject);
var
  x, y: integer;
begin
  for x := 0 to Form1.ClientWidth div bm.Width do
    for y := 0 to Form1.ClientHeight div bm.Height do
      Form1.Canvas.Draw(x * bm.Width, y * bm.Height, bm);
end;

procedure TForm1.FormDestroy(Sender: TObject);
begin
  bm.Destroy;
end;

Вы можете использовать для "подложки" формы любой стиль кисти. Таким образом, можно получить окно "в полосочку", "в сеточку" и т.д.


procedure TForm1.FormCreate(Sender: TObject);
begin
  Form1.Brush.Style := bsDiagCross;
end;

Ту же задачу можно решить, используя свойство кисти Bitmap, позволяющее создавать свои стили. Размер картинки при этом всегда равен 8X8.


procedure TForm1.FormCreate(Sender: TObject);
begin
  Form1.Brush.Bitmap := TBitMap.Create;
  Form1.Brush.Bitmap.LoadFromFile('Phone.bmp');
end;

procedure TForm1.FormDestroy(Sender: TObject);
begin
  Form1.Brush.Bitmap.Destroy;
end;

Статья Сделать сложный фон окна раздела Программа и Интерфейс Интерфейс может быть полезна для разработчиков на Delphi и FreePascal.


Комментарии и вопросы


Ваше мнение или вопрос к статье в виде простого текста (Tag <a href=... Disabled). Все комментарии модерируются, модератор оставляет за собой право удалить непонравившейся ему комментарий.

заголовок

e-mail

Ваше имя

Сообщение

Введите код




Материалы статей собраны из открытых источников, владелец сайта не претендует на авторство. Там где авторство установить не удалось, материал подаётся без имени автора. В случае если Вы считаете, что Ваши права нарушены, пожалуйста, свяжитесь с владельцем сайта.



:: Главная :: Интерфейс ::


реклама



©KANSoftWare (разработка программного обеспечения, создание программ, создание интерактивных сайтов), 2007
Top.Mail.Ru Rambler's Top100
29.03.2024 18:51:33/0.033287048339844/0