Эффекты

← →
Andrey Filatow (2003-04-24 08:53) [0]

Никто не знает как можно дабиться такого же эффекта с экраном как в виндах при выключении? наложить окно поверх всех и сделать полупрозрачным?а как?

← →
Mike_Goblin © (2003-04-24 09:16) [1]

>наложить окно поверх всех
FormStyle := fsStayOnTop

>сделать полупрозрачным
AlphaBlend:=true
AlphaBlendValue:=128;

← →
злой (2003-04-24 10:15) [2]

2Mike_Goblin ©
ух ламооо... избалованное форточками ХР притом. писать программы в расчете на них просто глупо. теряется 60% потенциальных пользователей, что нехорошо. к примеру я до сих пор сижу под 98 виндой. куча рульных тулзов под ХР не работают, а особо злобные, например софтайс4.х просто грохает систему.

2Andrey Filatow
с следующий раз, когда будешь задавать вопрос, трижды о нем подумай. запомни, что качество ответа напрямую зависит от качества вопроса. на одном злобном, ныне покойном, форуме модератор рассматривал такую ерунду как провокацию флейма, с соответствующей карой.

← →
Mike_Goblin © (2003-04-24 12:18) [3]

2 злой
1. смотрим вверху. Человек четко указал ОС Win2k, при чем здесь Win98 и то что Вы на ней работаете?

>ух ламооо... избалованное форточками ХР притом
2. никогда не используйте, то что сделано другими программистами, они все ламеры! Пишите все сами (желательно в машинных кодах) итд итп, мы кул хацкеры напишем Windows через неделю. Где то я уже все это слышал :))

3.Своего решения Вы так и не предложили, хотя оно есть и для Windows 9x

← →
Anatoly Podgoretsky © (2003-04-24 12:26) [4]

Начем ты сидишь твое дело, а кто из вас двоих ламо, я думаю ты определил неверно.

← →
Yanis © (2003-04-24 13:44) [5]

unit Unit1;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, ExtCtrls;

type
TForm1 = class(TForm)
procedure GrayDesktop();
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.GrayDesktop;
const
Color1 = clWhite;
Color2 = clBlack;{}
{Color1 = $00AAAAAA;
Color2 = $00555555;{}
var
DesktopDC, MemDC: HDC;
NewBitmap, OldBitmap: HBITMAP;
I, J: Integer;
begin
DesktopDC := GetDC(0);
try
MemDC := CreateCompatibleDC(DesktopDC);
if MemDC <>0 then
begin
NewBitmap := CreateCompatibleBitmap(DesktopDC, 32, 32);
if NewBitmap <>0 then
begin
OldBitmap := SelectObject(MemDC, NewBitmap);
for I := 0 to 31 do
for J := 0 to 31 do
if (I + J) and 1 = 0 then
SetPixel(MemDC, I, J, Color1)
else
SetPixel(MemDC, I, J, Color2);
{ Paint }
J := 0;
while J <Screen.Height do
begin
I := 0;
while I <Screen.Width do
begin
BitBlt(DesktopDC, I, J, 32, 32, MemDC, 0, 0, SRCAND);
Inc(I, 32);
end;
Inc(J, 32);
end;
{ Delete objects }
DeleteObject(NewBitmap);
SelectObject(MemDC, OldBitmap);
end;
DeleteDC(MemDC);
end;
finally
ReleaseDC(0, DesktopDC);
end;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
Form1.GrayDesktop;
end;
end.

Проверь, должно получиться.

← →
Andrey Filatow (2003-04-24 19:19) [6]

Yanis: супер, все получилось, теперь только осталось придумать как бы все это обратно вернуть :)

procedure TForm1.Button1Click(Sender: TObject);
begin
InvalidateRect(0,nil,true);
end;

Эта функция перерисовывает всё даже область трея.

← →
Andrey Filatow (2003-04-24 19:39) [8]

супер, спасибо!

надо только часы остановить, я так думаю что при перерисовке их области, она (область) станет нормального цвета :о)

Эффекты Найти похожие ветки