Как размыть задний фон дочерней формы

[Марк Охман]

Всем привет!!! Такой вопрос. Главная форма сама открывается на весь экран. С нее вызывается дочерняя, она меньше по размеру. Так вот. Можно ли сделать так чтобы дочерняя форма была видна ясно, а все что на заднем плане (т.е. главная) было размыто, чтоб не отвлекало. Помогите пожалуйста))) Заранее огромное спасибо!

[NoSilence]

а) Требуется размытие задней формы при отображении дочерней?

б) Требуется размытие (блокирование) рабочего стола? Т.е. главная форма прозрачная.

[Kotofff]

а) заняться изучением постов форумчанина BOBAH13 или в нашем журнале почитать его же статью - он как раз про слои говорит.

б) использовать компоненты BusinessSkinForm в них есть эффект размытия достигаемый установкой свойства ClientInActiveEffectType в значение bsieBlur

[Марк Охман]

Спасибо, скачал, ковыряюсь....)))
А можно еще вопрос в тепу, раз уж заговорили про BusinessSkinForm, как там сделать чтобы кнопки бросали отражение на фон? Ну как будто они стоят на полированной поверхности?

[Kotofff]

На сколько мне известно там такого эффекта нет.
Это из AlphaSkin`ов - свойство Reflected у SpeedButton`ов.

[Марк Охман]

Спасибо))))
а вот относительно вашего первого ответа, какой компонент нужно разместить на форме чтобы указать это свойство? (размытие)

Кто-нибудь, помогите!!! Пожалуйста)))) Как в BusinessSkinForms сделать размытие? Пишу я на Дельфях.

[Марк Охман]

Так и не разобрался. Кто знает, подскажите плиз, как в Дельфях, с помощью BusinessSkinForms размыть задний план?

[oxJass]

Сообщение от Марк Охман

Так и не разобрался. Кто знает, подскажите плиз, как в Дельфях, с помощью BusinessSkinForms размыть задний план?

а может так подойдёт:

 var
 F:TForm;

 *buttonclick*

   begin

F := TForm.Create(Application);
   F.BorderStyle := bsNone;
   F.Ctl3D := False;
   F.BoundsRect := Screen.WorkAreaRect;
   F.Color := clBlack;
   F.AlphaBlend := True;
    F.AlphaBlendValue :=150;
   FormStyle := fsStayOnTop;
   F.Show;
end;
   //И на закрытие формы FormCloseQuery: 

 F.Free;
   FormStyle := fsNormal;

[Марк Охман]

а что за dark? Дельф ругается что нет такой переменной.

[mihali4]

Выкиньте эту строку.

как сделать, чтобы кнопки бросали отражение на фон?

Элементарно. Я уже приводил пример :

//Эффект создается за счет отрисовки теней:

procedure ShadeIt(f: TForm; c: TControl; Width: Integer; Color: TColor);
var
rect: TRect;
old: TColor;
begin
if (c.Visible) then
begin
rect := c.BoundsRect; 
rect.Left := rect.Left + Width;
rect.Top := rect.Top + Width; 
rect.Right := rect.Right + Width;
rect.Bottom := rect.Bottom + Width;
old := f.Canvas.Brush.Color;
f.Canvas.Brush.Color := Color;
f.Canvas.fillrect(rect);
f.Canvas.Brush.Color := old;
end;
end;

procedure TForm1.FormPaint(Sender: TObject);
var
i: Integer;
begin
for i := 0 to Self.ControlCount - 1 do
ShadeIt(Self, Self.Controls[i], 5, clBlack);
end;

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