VPF::AlphaBlend только в тех местах где нет компонентов

Delphist

Дата 7.6.2007, 14:17 (ссылка)

(нет голосов)

Загрузка ...

Delphist Эксперт

Профиль
Группа: Завсегдатай
Сообщений: 2145
Регистрация: 3.2.2004
Где: всегда в сети

Репутация: 2
Всего: 3

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

--------------------

ProcessInfo 1-ая моя программа (аналог spyxx.exe с гораздо большим функц-ом - внедрение dll в адр. простр. процесса, перехват API-функций, разбор приложения на окна мн.др).
Когда-то давным-давно использовал это...

Delphist

Дата 7.6.2007, 16:33 (ссылка)

(нет голосов)

Загрузка ...

Delphist Эксперт

Профиль
Группа: Завсегдатай
Сообщений: 2145
Регистрация: 3.2.2004
Где: всегда в сети

Репутация: 2
Всего: 3

Или хотя бы для определенного цвета. На форме есть Label белого цвета, и я говорю, что на белый цвет прозрачность не применять, и получится что метка не будет прозрачной.

--------------------

Alexeis

Дата 7.6.2007, 20:17 (ссылка)

(нет голосов)

Загрузка ...

Амеба

Профиль
Группа: Админ
Сообщений: 11743
Регистрация: 12.10.2005
Где: Зеленоград

Репутация: 109
Всего: 459

Как вариант сделать 2 формы, одну под другой. Форма с контролами будет непрозрачной, только в местах где контролы, а нижняя уже по вкусу smile

--------------------

Vit вечная память.

Обсуждение действий администрации форума производятся только в этом форуме

гениальность идеи состоит в том, что ее невозможно придумать

MetalFan

Дата 7.6.2007, 22:02 (ссылка)

(нет голосов)

Загрузка ...

Аццкий Сотона

Профиль
Группа: Комодератор
Сообщений: 3815
Регистрация: 2.10.2006
Где: Moscow

Репутация: 62
Всего: 128

а с регионами ничего нельзя тут прикрутить?

--------------------

There are always someone smarter than you...

Sunvas

Дата 8.6.2007, 10:45 (ссылка)

(нет голосов)

Загрузка ...

Соль и сахар

Профиль
Группа: Участник
Сообщений: 3388
Регистрация: 12.3.2006
Где: Тосно

Репутация: 28
Всего: 89

Может аттач натолкнет на какие-то мысли..

Присоединённый файл ( Кол-во скачиваний: 75 )

___________________.rar 12,13 Kb

--------------------

Воспитывая детей по своему образу и подобию, родители почему-то надеются, что они будут лучше их.

Alexeis

Дата 8.6.2007, 11:09 (ссылка)

(нет голосов)

Загрузка ...

Амеба

Профиль
Группа: Админ
Сообщений: 11743
Регистрация: 12.10.2005
Где: Зеленоград

Репутация: 109
Всего: 459

MetalFan, А что с ними можно сделать кроме дырки? А нужно как раз антипод дырки.

Sunvas, мдя этот пример не для слабых видюх. У меня большая задержка на перерисовку. Быстрое решение возможно если использовать UpdateLayeredWindow , но при этом прийдеться все контролы рисовать руками.

--------------------

Sunvas

Дата 8.6.2007, 11:19 (ссылка)

(нет голосов)

Загрузка ...

Соль и сахар

Профиль
Группа: Участник
Сообщений: 3388
Регистрация: 12.3.2006
Где: Тосно

Репутация: 28
Всего: 89

Alexeis, А что, если форму сделать прозрачной, а у элементов прозрачность убрать? Или прозрачность наследуется?

--------------------

Воспитывая детей по своему образу и подобию, родители почему-то надеются, что они будут лучше их.

Alexeis

Дата 8.6.2007, 11:38 (ссылка)

(нет голосов)

Загрузка ...

Амеба

Профиль
Группа: Админ
Сообщений: 11743
Регистрация: 12.10.2005
Где: Зеленоград

Репутация: 109
Всего: 459

Прозрачность не устанавливается для детей.

--------------------

Delphist

Дата 8.6.2007, 12:19 (ссылка)

(нет голосов)

Загрузка ...

Delphist Эксперт

Профиль
Группа: Завсегдатай
Сообщений: 2145
Регистрация: 3.2.2004
Где: всегда в сети

Репутация: 2
Всего: 3

Цитата(Sunvas @ 8.6.2007, 12:19

)

а у элементов прозрачность убрать

Как её убрать?

Добавлено через 1 минуту и 4 секунды

Цитата(Alexeis @ 8.6.2007, 12:38

)

Прозрачность не устанавливается для детей.

Не правда! Все контролы лежщие на форме также делаются прозрачными, если формы прозрачна, а надо бы запретить.

Добавлено через 9 минут и 3 секунды
Нужно подобие примера Sunvas'a только чтобы отрисовка выполнялась без тормозов.

--------------------

Alexeis

Дата 8.6.2007, 13:59 (ссылка)

(нет голосов)

Загрузка ...

Амеба

Профиль
Группа: Админ
Сообщений: 11743
Регистрация: 12.10.2005
Где: Зеленоград

Репутация: 109
Всего: 459

Цитата(Delphist @ 8.6.2007, 12:19

)

Не правда! Все контролы лежщие на форме также делаются прозрачными, если формы прозрачна, а надо бы запретить.

Цитата(MSDN)

WS_EX_LAYERED
Windows 2000/XP: Creates a layered window. Note that this cannot be used for child windows.

А кто говорил что они не могут быть прозрачными? Я сказал что устанавливать прозрачность нельзя. Их прозрачность определяется прозрачностью парента, потому они не имеют своей прозрачности.

--------------------

Delphist

Дата 8.6.2007, 16:21 (ссылка)

(нет голосов)

Загрузка ...

Delphist Эксперт

Профиль
Группа: Завсегдатай
Сообщений: 2145
Регистрация: 3.2.2004
Где: всегда в сети

Репутация: 2
Всего: 3

Цитата(Alexeis @ 8.6.2007, 14:59

)

Ну так как решить мой вопрос?

--------------------

misha_mike

Дата 8.6.2007, 16:46 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 47
Регистрация: 1.6.2007

Репутация: нет
Всего: 1

Можно подумать на тему OnPaint. При помощи PaintTo рисовать контролы прямо на DC рабочего стола. Только со стиранием прийдется повозиться, но думаю реально.

Mephisto

Дата 8.6.2007, 17:00 (ссылка)

(нет голосов)

Загрузка ...

Волкъ

Профиль
Группа: Завсегдатай
Сообщений: 1818
Регистрация: 27.8.2003
Где: Питер

Репутация: 1
Всего: 34

Вот как дельфина делает альфабленд:

Код


procedure TCustomForm.SetLayeredAttribs;
const
  cUseAlpha: array [Boolean] of Integer = (0, LWA_ALPHA);
  cUseColorKey: array [Boolean] of Integer = (0, LWA_COLORKEY);
var
  AStyle: Integer;
begin
  if not (csDesigning in ComponentState) and
    (Assigned(SetLayeredWindowAttributes)) and HandleAllocated then
  begin
    AStyle := GetWindowLong(Handle, GWL_EXSTYLE);
    if FAlphaBlend or FTransparentColor then
    begin
      if (AStyle and WS_EX_LAYERED) = 0 then
        SetWindowLong(Handle, GWL_EXSTYLE, AStyle or WS_EX_LAYERED);
      SetLayeredWindowAttributes(Handle, FTransparentColorValue, FAlphaBlendValue,
        cUseAlpha[FAlphaBlend] or cUseColorKey[FTransparentColor]);
    end
    else
    begin
      SetWindowLong(Handle, GWL_EXSTYLE, AStyle and not WS_EX_LAYERED);
      RedrawWindow(Handle, nil, 0, RDW_ERASE or RDW_INVALIDATE or RDW_FRAME or RDW_ALLCHILDREN);
    end;
  end;
end;

Что вам мешает проделать то же с каждым из компонентов? Каждому сказать что он не альфаблендится? Попробуй по крайней мере!

bems

Дата 8.6.2007, 17:10 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Комодератор
Сообщений: 3400
Регистрация: 5.1.2006

Репутация: 31
Всего: 88

Mephisto, SetLayeredWindowAttributes работает только с top-level окнами

--------------------

Обижено школьников: 8

Alexeis

Дата 8.6.2007, 17:36 (ссылка)

(нет голосов)

Загрузка ...

Амеба

Профиль
Группа: Админ
Сообщений: 11743
Регистрация: 12.10.2005
Где: Зеленоград

Репутация: 109
Всего: 459

Цитата(misha_mike @ 8.6.2007, 16:46

)

Пробовал. :( Рисует криво (Без XP стиля).

--------------------

Delphist

Дата 8.6.2007, 18:07 (ссылка)

(нет голосов)

Загрузка ...

Delphist Эксперт

Профиль
Группа: Завсегдатай
Сообщений: 2145
Регистрация: 3.2.2004
Где: всегда в сети

Репутация: 2
Всего: 3

Цитата(Mephisto @ 8.6.2007, 18:00

)

Вот как дельфина делает альфабленд:

Ну покажи, хотя бы напримере 2-х компонентов

--------------------

Sunvas

Дата 8.6.2007, 21:31 (ссылка)

(нет голосов)

Загрузка ...

Соль и сахар

Профиль
Группа: Участник
Сообщений: 3388
Регистрация: 12.3.2006
Где: Тосно

Репутация: 28
Всего: 89

Общем долго-долго я над этим игрался. Использовал всю мощь сего форума - никак не получается для контролов на форме сделать. Как-то видно винда определяет что не форма это.
Мой приговор - невозможно.

--------------------

Воспитывая детей по своему образу и подобию, родители почему-то надеются, что они будут лучше их.

misha_mike

Дата 9.6.2007, 00:56 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 47
Регистрация: 1.6.2007

Репутация: нет
Всего: 1

Ну почему сразу невозможно? Тут уже предлагали: делаем два одинаковых по размеру окна, одно с альфа-каналом без контролов, а над ним второе с контролами и WS_EX_TRANSPARENT. Остается синхронизировать все операции над ними и обеспечить всегда правильный взаимный z-order. Изврат, но если заказчик так хочет изврат -- пусть его и получает, кто ж ему лекарь?

Delphist

Дата 9.6.2007, 10:44 (ссылка)

(нет голосов)

Загрузка ...

Delphist Эксперт

Профиль
Группа: Завсегдатай
Сообщений: 2145
Регистрация: 3.2.2004
Где: всегда в сети

Репутация: 2
Всего: 3

Цитата(Sunvas @ 8.6.2007, 22:31

)

Мой приговор - невозможно.

Ну а как же заставка AutoCad 2006

--------------------

Alexeis

Дата 9.6.2007, 10:55 (ссылка)

(нет голосов)

Загрузка ...

Амеба

Профиль
Группа: Админ
Сообщений: 11743
Регистрация: 12.10.2005
Где: Зеленоград

Репутация: 109
Всего: 459

Я даже попробовал его. Трудновато

Цитата(misha_mike @ 9.6.2007, 00:56

)

обеспечить всегда правильный взаимный z-order

А так выглядит очень даже ничего.

--------------------

sw04

Дата 9.6.2007, 19:25 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 372
Регистрация: 22.1.2007
Где: Ufa

Репутация: нет
Всего: 18

Чем Вам не угодил пример из статьи прозрачности форм?
получается ровно так как надо - все компоненты изображены нормально, а сама форма прозрачная.
Есть минус в перерисовке при любом движении окна, но другого решения пока не видел.

--------------------

<удалено администрацией>

Alexeis

Дата 9.6.2007, 19:44 (ссылка)

(нет голосов)

Загрузка ...

Амеба

Профиль
Группа: Админ
Сообщений: 11743
Регистрация: 12.10.2005
Где: Зеленоград

Репутация: 109
Всего: 459

Цитата(Delphist @ 9.6.2007, 10:44

)

Ну а как же заставка AutoCad 2006

Так она наверное без конролов совсем.

--------------------

Yanis

Дата 9.6.2007, 22:17 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Участник Клуба
Сообщений: 2937
Регистрация: 9.2.2004
Где: Москва

Репутация: 72
Всего: 111

Вот какой изврат я нарисовал smile

Прежде чем качать можете глянуть скрин.
Основной принцип заключается в создании второй прозрачной формы, которая всегда располагается под основной формой. Дырки в основной форме я добился с помощью её свойсвта Transparent и TransparentColor. Скачивайте, смотрите.

Это сообщение отредактировал(а) Yanis - 9.6.2007, 22:52

Присоединённый файл ( Кол-во скачиваний: 69 )

test.rar 240,74 Kb

--------------------

*щёлк*

Alexeis

Дата 9.6.2007, 22:40 (ссылка)

(нет голосов)

Загрузка ...

Амеба

Профиль
Группа: Админ
Сообщений: 11743
Регистрация: 12.10.2005
Где: Зеленоград

Репутация: 109
Всего: 459

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

--------------------

Yanis

Дата 9.6.2007, 22:43 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Участник Клуба
Сообщений: 2937
Регистрация: 9.2.2004
Где: Москва

Репутация: 72
Всего: 111

Alexeis
Всё таки лучше один раз потрогать, чем сто раз прочитать smile

Я думаю, что с не VCL-евскими окошками вообще летать будет.

--------------------

*щёлк*

Yanis

Дата 9.6.2007, 23:55 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Участник Клуба
Сообщений: 2937
Регистрация: 9.2.2004
Где: Москва

Репутация: 72
Всего: 111

Alexeis
Твои слова

Цитата(Alexeis @ 9.6.2007, 23:40

)

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

дали мне стимул добиться, что бы окно не мигало smile

Достаточно заменить:

Код

procedure WMActivate(var M: TWMActivate); message WM_ACTIVATE;
procedure TForm2.WMActivate(var M: TWMActivate);
begin
  if M.Active <> WA_INACTIVE then
    begin
      Form1.Show;
      Form1.SetSamePos(Form1, Self);
    end;
end;

на

Код

procedure WMMouseActivate(var M: TWMMouseActivate); message WM_MOUSEACTIVATE;
procedure TForm2.WMMouseActivate(var M: TWMMouseActivate);
begin
  M.Result := MA_NOACTIVATEANDEAT;
end;

Исправленный исходник прилагается. В этот раз только код.

Присоединённый файл ( Кол-во скачиваний: 71 )

test.rar 29,51 Kb

--------------------

*щёлк*

ivan219

Дата 10.6.2007, 10:56 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Завсегдатай
Сообщений: 1121
Регистрация: 19.11.2005
Где: Планета земля

Репутация: 2
Всего: 12

Eсли можно раскажите суть метода а то я так и непонял smile

Это сообщение отредактировал(а) ivan219 - 10.6.2007, 11:05

--------------------

Мой первый сайт и моя первая программа!!!!!

Yanis

Дата 10.6.2007, 11:24 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Участник Клуба
Сообщений: 2937
Регистрация: 9.2.2004
Где: Москва

Репутация: 72
Всего: 111

Цитата(ivan219 @ 10.6.2007, 11:56

)

Eсли можно раскажите суть метода а то я так и непонял

А ты скачай. Там же всё просто.
Попробуй такой код на пустой форме:

Код

  TransparentColor := True;
  TransparentColorValue := clPurple;

Все контролы с цветом clPurple, расположенные теперь на этой форме будут дырявить форму.
Если дописать:

Код

Color := clPurple;

, то форма будет без клиентской области вместо этого будет дырка smile

Что бы нельзя было кликнуть «под формой», я располагаю форму с прозрачностью 1 под главной формой.

Это сообщение отредактировал(а) Yanis - 10.6.2007, 11:25

--------------------

*щёлк*

Alexeis

Дата 10.6.2007, 12:41 (ссылка)

(нет голосов)

Загрузка ...

Амеба

Профиль
Группа: Админ
Сообщений: 11743
Регистрация: 12.10.2005
Где: Зеленоград

Репутация: 109
Всего: 459

Цитата(Yanis @ 10.6.2007, 11:24

)

Что бы нельзя было кликнуть «под формой», я располагаю форму с прозрачностью 1 под главной формой.

Более того нижнюю форму можно сделать с градиентной прозрачностью, т.е. плавно растворяющуюся к краям. Это делается при помощи UpdateLayeredWindow. В ней можно задать прозрачность каждого пиксела. Как я понял эта функция была введена для создания стартовых окошек, потому на ней не видны контролы. Но она очень даже подошла бы как фон к примеру Яниса.

--------------------

Alexeis

Дата 10.6.2007, 14:00 (ссылка)

(нет голосов)

Загрузка ...

Амеба

Профиль
Группа: Админ
Сообщений: 11743
Регистрация: 12.10.2005
Где: Зеленоград

Репутация: 109
Всего: 459

Вот гибрид на основе примеров Яниса и Гирдера. Теперь в качестве фона у нас круговой градиент похожий на стекло бутылки.

Код


procedure TForm1.FormActivate(Sender: TObject);
begin
  if bLoaded then
    Exit;
  with Form2 do
    begin
     { AlphaBlend := True;  //убрана равномерная прозрачность
      AlphaBlendValue := 1; }
      BorderStyle := bsNone;
      SetSamePos(Self, Form2);
      Show;
      SetWindowPos(Handle, Form1.Handle, 0, 0, 0, 0,
                   SWP_NOMOVE or SWP_NOSIZE);
      Form1.Show;
    end;
  bLoaded := True;
end;

Код


procedure TForm2.FormResize(Sender: TObject);
type
  TRGBAarray = array[0..32000] of RGBQUAD;
  PRGBAarray = ^TRGBAarray;
var
  Bmp  : TBitmap;
  BF   : TBlendFunction;
  PA   : PRGBAarray;
  i, j : integer;
  cx, cy : integer;
  LA, L : integer;
  Alpha : integer;
  b : boolean;
  FBmpSize    : TSize;
  FBmpTopLeft :TPoint;
begin
  Bmp := TBitmap.Create;
  Bmp.PixelFormat := pf32Bit;
  Bmp.Width  := Width;
  Bmp.Height := Height;
  Bmp.Canvas.Brush.Color := RGB(0, 40, 0);
  Bmp.Canvas.FillRect(Rect(0, 0, Width, Height));

  SetWindowLong(Handle, GWL_EXSTYLE,
                GetWindowLong(Handle, GWL_EXSTYLE) or WS_EX_LAYERED);
  BF.BlendOp             := AC_SRC_OVER;
  BF.BlendFlags          := 0;
  BF.SourceConstantAlpha := 255;
  BF.AlphaFormat         := AC_SRC_ALPHA;

  LA := round(sqrt(sqr(Bmp.Width) + sqr(Bmp.Height)) / 2);
  cx := Bmp.Width div 2;
  cy := Bmp.Height div 2;

  for i := 0 to Bmp.Height-1
  do
    begin
      PA := Bmp.ScanLine[i];
      for j := 0 to Bmp.Width - 1
      do
        begin
          L     := round(sqrt(sqr(cx - j) + sqr(cy - i)));
          Alpha := 255 - ((L * 255) div LA);
          PA[j].rgbReserved := Alpha;
        end;
    end;

  FBmpSize.cx := Width;
  FBmpSize.cy := Height;
  FBmpTopLeft := Point(0, 0);

  UpdateLayeredWindow(Handle, 0, nil,
                      @FBmpSize, Bmp.Canvas.Handle, @FBmpTopLeft,
                      clNone, @BF, ULW_ALPHA);
  Bmp.Free;

end;

Присоединённый файл ( Кол-во скачиваний: 133 )

transForm.rar 233,42 Kb

--------------------

Yanis

Дата 10.6.2007, 15:08 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Участник Клуба
Сообщений: 2937
Регистрация: 9.2.2004
Где: Москва

Репутация: 72
Всего: 111

Alexeis
smile

Цитата(Alexeis @ 10.6.2007, 15:00

)

Вот гибрид на основе примеров Яниса и Гирдера.

А где Girder такой пример давал?

--------------------

*щёлк*

aktuba

Дата 10.6.2007, 15:20 (ссылка)

(нет голосов)

Загрузка ...

Смышленный

Профиль
Группа: Завсегдатай
Сообщений: 1915
Регистрация: 24.4.2006
Где: Планета Земля

Репутация: 16
Всего: 38

Alexeis, жестоко глючит пример!!!
user posted image

--------------------

ivan219

Дата 10.6.2007, 15:23 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Завсегдатай
Сообщений: 1121
Регистрация: 19.11.2005
Где: Планета земля

Репутация: 2
Всего: 12

Симпатично smile

--------------------

Мой первый сайт и моя первая программа!!!!!

Alexeis

Дата 10.6.2007, 19:59 (ссылка)

(нет голосов)

Загрузка ...

Амеба

Профиль
Группа: Админ
Сообщений: 11743
Регистрация: 12.10.2005
Где: Зеленоград

Репутация: 109
Всего: 459

Цитата(Yanis @ 10.6.2007, 15:08

)

А где Girder такой пример давал?

http://forum.vingrad.ru/index.php?show_typ...howtopic=100336

Цитата(aktuba @ 10.6.2007, 15:20

)

Alexeis, жестоко глючит пример!!!

Раскрой секрет как это удалось сделать? Явно формы разделились.

. Хотя тут полная синхронизация по перемещению smile

--------------------

Yanis

Дата 10.6.2007, 20:06 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Участник Клуба
Сообщений: 2937
Регистрация: 9.2.2004
Где: Москва

Репутация: 72
Всего: 111

Цитата(Alexeis @ 10.6.2007, 20:59

)

Раскрой секрет как это удалось сделать?

Это может быть у кого угодно. Главное что бы побольше прог было запущено и комп тормозил smile

--------------------

*щёлк*

Alexeis

Дата 10.6.2007, 20:32 (ссылка)

(нет голосов)

Загрузка ...

Амеба

Профиль
Группа: Админ
Сообщений: 11743
Регистрация: 12.10.2005
Где: Зеленоград

Репутация: 109
Всего: 459

Цитата(Yanis @ 10.6.2007, 20:06

)

Главное что бы побольше прог было запущено и комп тормозил

Не это не влияет. Я запустил 2 экземпляра проги

Код


While true do;

И раскидал по обоим процам. (добился 100% загрузки). И начал гонять эту прогу. Она тормозила жутко на перемещении, но такого поймать мне не удалось smile

. ДУмю здесь что-то другое.

--------------------

aktuba

Дата 10.6.2007, 21:52 (ссылка)

(нет голосов)

Загрузка ...

Смышленный

Профиль
Группа: Завсегдатай
Сообщений: 1915
Регистрация: 24.4.2006
Где: Планета Земля

Репутация: 16
Всего: 38

Цитата

Раскрой секрет как это удалось сделать?

Скачал и запустил из архива. Никакого секрета, никакой загрузки компа...

--------------------

Alexeis

Дата 10.6.2007, 22:56 (ссылка)

(нет голосов)

Загрузка ...

Амеба

Профиль
Группа: Админ
Сообщений: 11743
Регистрация: 12.10.2005
Где: Зеленоград

Репутация: 109
Всего: 459

Винда XP?

--------------------

aktuba

Дата 10.6.2007, 23:13 (ссылка)

(нет голосов)

Загрузка ...

Смышленный

Профиль
Группа: Завсегдатай
Сообщений: 1915
Регистрация: 24.4.2006
Где: Планета Земля

Репутация: 16
Всего: 38

Цитата

Винда XP?

Да.

--------------------

Delphist

Дата 13.6.2007, 09:32 (ссылка)

(нет голосов)

Загрузка ...

Delphist Эксперт

Профиль
Группа: Завсегдатай
Сообщений: 2145
Регистрация: 3.2.2004
Где: всегда в сети

Репутация: 2
Всего: 3

Yanis, спасибо за пример, есть один недостаток - не работает OnClick панели, и формы. Помоги это исправить.

--------------------

Alexeis

Дата 13.6.2007, 09:56 (ссылка)

(нет голосов)

Загрузка ...

Амеба

Профиль
Группа: Админ
Сообщений: 11743
Регистрация: 12.10.2005
Где: Зеленоград

Репутация: 109
Всего: 459

Цитата(Delphist @ 13.6.2007, 09:32

)

Yanis, спасибо за пример, есть один недостаток - не работает OnClick панели, и формы. Помоги это исправить.

Все нормально, только не нужно создавать лишних обработчиков, ведь клики формы уже обрабатываются тут. Дописать свой код вместо showmessage('Form_click'); и все.

Код


procedure TForm2.WMMouseActivate(var M: TWMMouseActivate);
begin
  showmessage('Form_click');
  M.Result := MA_NOACTIVATEANDEAT;
end;

Это сообщение отредактировал(а) Alexeis - 13.6.2007, 09:57

--------------------

GELEAF

Дата 1.11.2007, 22:47 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 73
Регистрация: 11.3.2006

Репутация: нет
Всего: нет

Я поставил полупрозрачную png картинку на форму при запуску она небыла полупрозрачна...почему?
И вообше мне кажется надо не дырку в форме сделать а полу прозрачную форму с полностью непрозрачными контролами

Alexeis

Дата 1.11.2007, 22:56 (ссылка)

(нет голосов)

Загрузка ...

Амеба

Профиль
Группа: Админ
Сообщений: 11743
Регистрация: 12.10.2005
Где: Зеленоград

Репутация: 109
Всего: 459

Цитата(GELEAF @ 1.11.2007, 22:47

)

Я поставил полупрозрачную png картинку на форму при запуску она небыла полупрозрачна...почему?

Потому что такого механизма нет. Нужно pngшку превратить в bmpшку 32 бита на цвет и задать ее в UpdateWindowLayer, как это делается в примере.

--------------------

MetalFan

Дата 10.2.2008, 18:26 (ссылка)

(нет голосов)

Загрузка ...

Аццкий Сотона

Профиль
Группа: Комодератор
Сообщений: 3815
Регистрация: 2.10.2006
Где: Moscow

Репутация: 62
Всего: 128

поковырял тут на тему решения сабжа с пом. UpdateLayeredWindow.
вот, что получилось:
user posted image

замеченные баги:
не отрисовывается курсор в edit. не отображается ItemIndex в ListBox... и пр.

Присоединённый файл ( Кол-во скачиваний: 76 )

LayeredWindow.rar 3,68 Kb

--------------------

There are always someone smarter than you...

windbear

Дата 17.4.2008, 00:09 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 1
Регистрация: 1.10.2007

Репутация: нет
Всего: нет

MetalFan, пример хорош, но тормозит ужасно... по крайней мере полной отрисовки не происходит.. при фокусе на едите, каретка не отображается

MetalFan

Дата 17.4.2008, 08:32 (ссылка)

(нет голосов)

Загрузка ...

Аццкий Сотона

Профиль
Группа: Комодератор
Сообщений: 3815
Регистрация: 2.10.2006
Где: Moscow

Репутация: 62
Всего: 128

Цитата(windbear @ 17.4.2008, 00:09

)

тормозит ужасно... по крайней мере полной отрисовки не происходит

странное у тебя понятие "тормозов"

Цитата(windbear @ 17.4.2008, 00:09

)

при фокусе на едите, каретка не отображается

Цитата(MetalFan @ 10.2.2008, 18:26

)

не отрисовывается курсор в edit

это мы и так знаем

--------------------

There are always someone smarter than you...

kr3v3tkus

Дата 9.3.2009, 12:08 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 107
Регистрация: 8.3.2008

Репутация: нет
Всего: 1

народ сори, я смотрю тема относительно старая, мб появились новые, более простые решения? или также только подстановка форм и самостоятельная перерисовка?

Delphist

Дата 10.3.2009, 13:30 (ссылка)

(нет голосов)

Загрузка ...

Delphist Эксперт

Профиль
Группа: Завсегдатай
Сообщений: 2145
Регистрация: 3.2.2004
Где: всегда в сети

Репутация: 2
Всего: 3

Цитата(kr3v3tkus @ 9.3.2009, 13:08

)

а с чего они вдруг появяться?

--------------------

kr3v3tkus

Дата 11.3.2009, 02:53 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 107
Регистрация: 8.3.2008

Репутация: нет
Всего: 1

ну я не слишком секу smile

вдруг в новых дельфях изменили наследование альфабленда =]

Delphist

Дата 11.3.2009, 11:37 (ссылка)

(нет голосов)

Загрузка ...

Delphist Эксперт

Профиль
Группа: Завсегдатай
Сообщений: 2145
Регистрация: 3.2.2004
Где: всегда в сети

Репутация: 2
Всего: 3

Цитата(kr3v3tkus @ 11.3.2009, 03:53

)

ну я не слишком секу вдруг в новых дельфях изменили наследование альфабленда =]

Ага

дождешься

--------------------

Alexeis

Дата 11.3.2009, 12:41 (ссылка)

(нет голосов)

Загрузка ...

Амеба

Профиль
Группа: Админ
Сообщений: 11743
Регистрация: 12.10.2005
Где: Зеленоград

Репутация: 109
Всего: 459

Цитата(kr3v3tkus @ 11.3.2009, 01:53

)

вдруг в новых дельфях изменили наследование альфабленда =]

Все это делается средствами ОС. Если можно было бы такое сделать, то ввели бы.

--------------------

Teleport

Дата 15.3.2009, 06:45 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 557
Регистрация: 5.7.2008
Где: Прибалтика

Репутация: 3
Всего: 6

выкладываю давно найденный мною пример - может кому интересен будет. Компонет + demo пример. На 2007 делфи поставился без проблем. Правда перерисовка тормозит при перетаскивании окна. Не ругайте если не понравится smile

Присоединённый файл ( Кол-во скачиваний: 58 )

stainedglass.part1.rar 683,59 Kb

--------------------

Teleport

Дата 15.3.2009, 06:49 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 557
Регистрация: 5.7.2008
Где: Прибалтика

Репутация: 3
Всего: 6

+ часть 2

Присоединённый файл ( Кол-во скачиваний: 52 )

stainedglass.part2.rar 380,32 Kb

--------------------

1 Пользователей читают эту тему (1 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Общие вопросы \| Следующая тема »