Картинка на фон формы

@Hrethgir · 29.04.2017, 12:58. **Показов** 25262. **Ответов** 26

Студворк — интернет-сервис помощи студентам

Картинка на фон формы. Это реально?

@Hrethgir · 30.01.2018, 11:01 **[ТС]**

Разумеется я переделал фон, так лучше, и я думаю что тулза должна иметь нормальный вид, работать с ней часто юзеру.
Такая вот серенькая "мышка", будет считать объём пластика на слой, и от плотности и объёма управлять мощностью обдува - интеллектуальный обдув, доработка под все виды пластика, немного новых функций, ну и решил интерфейс нормальный сделать.

@Hrethgir · 30.01.2018, 11:51 **[ТС]**

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

@Shura_vi · 28.02.2019, 21:12

Как один из вариантов с картинкой на форме.На фотошопе заливаем в розовый цвет там где нужна прозрачность. Розовый цвет в лазарусе дает прозрачность.

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
procedure SetFormRegionByImage(Bmp: Graphics.TBitmap; TransColor: TColor);
var
  W, H, i, j: Integer;
  Rgn, tmpRgn: HRGN;
begin
  if Bmp = nil then Exit;
 
  //Размеры картинки
  W := Bmp.Width - 1;
  H := Bmp.Height - 1;
 
  //Создать основной регион размером с картинку
  Rgn := CreateRectRgn(0, 0, W + 1, H + 1);
 
  //Проверить каждую точку рисунка и вычесть из региона прозрачную точку
  for i := 0 to W do
    for j := 0 to H do
      if Bmp.Canvas.Pixels[i, j] = TransColor then
        begin
        //Создать временный регион размером 1x1 пиксель
        tmpRgn := CreateRectRgn(i, j, i + 1, j + 1);
        //Вычесть из основного
        CombineRgn(Rgn, Rgn, tmpRgn, RGN_DIFF);
        //Почистить
        DeleteObject(tmpRgn);
        end;
 
  //Применить регион к форме
  SetWindowRgn(FZControlGUI.Handle, Rgn, True);
 
  //Почистить память
  DeleteObject(Rgn);
end;

на выходе получаем форму

@volvo · 28.02.2019, 21:13

Сообщение от Shura_vi

Розовый цвет в лазарусе дает прозрачность.

Бред.

@Shura_vi · 28.02.2019, 21:38

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

@igelizm · 01.03.2019, 04:09

А анигифку на форму возможно?

@volvo · 01.03.2019, 11:29

igelizm, Вставить на форму анимацию в формате gif

Новые блоги и статьи Все статьи Все блоги /
Когда логика программы не спасает от человеческих ошибок Maks 18.08.2026 В последнее время всё чаще и чаще сталкиваюсь с таким явлением, как абсолютная невнимательность (или глупость) пользователей. Проявляется это чаще всего на работе в коллективе. Допустим, человек с. . .	Лето уходит kumehtar 17.08.2026	Мысли в слух kumehtar 17.08.2026 Забавно, насколько сейчас стала доступна информация. Например о магии, духовном развитии, медитациях, и других подобных направлениях, ранее зачастую тайных, передаваемых от учителя к ученику. Хотя. . .	Перемещение строк из ТЧ в другой документ с учетом текущего пробега Maks 17.08.2026 Реализация из решения ниже выполнена на примере нетипового документа "Автозапчасти", с ТЧ "Шины". За основу взят алгоритм отсюда: https:/ / www. cyberforum. ru/ blogs/ 359708/ 10838. html Задача: . . .
Саморегулирующийся социальный контракт для сервера cross-section. Hrethgir 14.08.2026 С кодом конечно таких глубоких размышлений пока не было, впрочем я уже привык к алгоритмизации. Суть предмета записи: снова в диалоге с нейросетью (я взял пока себе ник для учётки админа - Rector). . . .	Часы электронные Uhbif79 12.08.2026 Выкладываю программу часов. Программа позволяет: 1. Использовать системное время и дату, 2. Есть возможность вводить время и дату вручную. 3. Реализованы 2 будильника: начало и конец рабочего дня. . . .	Часы с будильником на основе класса QLCDNumber Uhbif79 12.08.2026 Всем добрый день, выкладываю программу часов с будильником на основе класса QLCDNumber. Здесь я пробовал самостоятельно создавал классы, впервые столкнулся с видимостью переменной одного класса из. . .	Установка MinGW GCC 16.2 и CMake 8Observer8 10.08.2026 VK Видео: https:/ / vkvideo. ru/ video-240781534_456239017 YouTube: eY5-5PyI9NM Текстовая версия

@Hrethgir Заблокирован

	Картинка на фон формы 29.04.2017, 12:58. Показов 25262. Ответов 26 Метки нет (Все метки) Картинка на фон формы. Это реально? 0

@Hrethgir Заблокирован
	30.01.2018, 11:01 [ТС]
	Разумеется я переделал фон, так лучше, и я думаю что тулза должна иметь нормальный вид, работать с ней часто юзеру. Такая вот серенькая "мышка", будет считать объём пластика на слой, и от плотности и объёма управлять мощностью обдува - интеллектуальный обдув, доработка под все виды пластика, немного новых функций, ну и решил интерфейс нормальный сделать. Миниатюры 0

@Hrethgir Заблокирован
	30.01.2018, 11:51 [ТС]
	Ну и добавлю то, что в настоящий момент апгрейд тулзы ведётся для того, чтобы избежать дефектов на слоях, вызванных тем, что если слои охлаждаются не равномерно, то они и выдавливаются немного по разному и вследствии при изменении сечения детали наблюдаются полосы, которые сформировались вследствии неравномерного раската шва соплом. Тулза фряшная. 0

@Shura_vi 0 / 0 / 0 Регистрация: 31.01.2019 Сообщений: 5
	28.02.2019, 21:38
	Прозрачность не катит, только фиолетовый цвет должен быть прозрачен, как видно на скрине у меня розовый сработал. 0

@igelizm 59 / 0 / 0 Регистрация: 10.02.2019 Сообщений: 54
	01.03.2019, 04:09
	А анигифку на форму возможно? 0

@volvo Супер-модератор 33467 / 21566 / 8249 Регистрация: 22.10.2011 Сообщений: 37,020 Записей в блоге: 12
	01.03.2019, 11:29
	igelizm, Вставить на форму анимацию в формате gif 0