Not considering the disabling-of-the-desktop feature, the actual visual
effect you're talking about, didn't it just draw every second line black
similar to the following example, or did it do something fancier?
var
Row: Integer;
begin
for Row := 0 to Pred(Height) do
begin
if not Odd(Row) then
begin
Canvas.Pen.Color := clBlack;
Canvas.Pen.Style := psSolid;
Canvas.Pen.Width := 1;
Canvas.MoveTo(0, Row);
Canvas.LineTo(Width, Row);
end;
end;
end;
-----Original Message-----
From: [EMAIL PROTECTED] [mailto:owner-delphi@;delphi.org.nz]On
Behalf Of vss
Sent: Wednesday, 6 November 2002 10:30
To: Multiple recipients of list delphi
Subject: [DUG]: Win9x logout type screen
Hi all
IF ytou can remember back to windows 9x when you wanted to shut down, it
gave you another screen that you selected what you wanted to do, BUT the
important thing, is it drew like a curtain in the back ground to disable
the whole of the background.
I remembered seeing a control that did this back I think either delphi 1
or Delphi 2, but ti was a DCU, and the auther never replied back then,
so I doubt they will now :-)
Has anyone seen code to draw the background like I am wanting to do?
Thanks, Jeremy
---------------------------------------------------------------------------
New Zealand Delphi Users group - Delphi List - [EMAIL PROTECTED]
Website: http://www.delphi.org.nz
To UnSub, send email to: [EMAIL PROTECTED]
with body of "unsubscribe delphi"
Web Archive at: http://www.mail-archive.com/delphi%40delphi.org.nz/
---------------------------------------------------------------------------
New Zealand Delphi Users group - Delphi List - [EMAIL PROTECTED]
Website: http://www.delphi.org.nz
To UnSub, send email to: [EMAIL PROTECTED]
with body of "unsubscribe delphi"
Web Archive at: http://www.mail-archive.com/delphi%40delphi.org.nz/
