You could also try using a form with no border and set its: WindowState := wsMaximized; TransparentColor := True; TransparentColorValue := clWindow; AlphaBlend := True; AlphaBlendValue := 125; // may want to try different values BorderStyle := bsNone;
Regards, Sergei > -----Original Message----- > From: [EMAIL PROTECTED] [mailto:owner-delphi@;delphi.org.nz]On > Behalf Of Andreas Toth > Sent: Wednesday, 6 November 2002 9:50 AM > To: Multiple recipients of list delphi > Subject: RE: [DUG]: Win9x logout type screen > > > 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/ > --------------------------------------------------------------------------- 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/
