Thanks for the contributions
I have been to these sites and after the usual tangental browseing that
happens when anybody with a sense of curiosity browsers the net, I
fopund several interesting articles.
1) A screen saver called spheres which is great but is targeted at
16 bit and therefore has no preview
2) An artickle about writing a previewer by Robert Vivrette (basically
pass the handle odf a panel on the command line)
3) Microsoft MSDN documentation (the usual frustration)
4) An article on how to/from write to the desk top which was
brilliant.
Now I tried to apply rthe desktop analogy (which works by the way to the
desktop) to writing to the little preview window. But something is
not working. Any comments. Here is the snippet for any enlighteded
comments.
regards & thanks Tony Goodrich
procedure Splash(thehandle: string);
var
MyImage: TBitMap;
MyCanvas: TCanvas;
begin
MyImage := TBitMap.Create;
MyImage.LoadFromFile('c:\earth.bmp');
MyCanvas := tcanvas.create;
try
with MyCanvas do
begin
handle := getdc(strtoint(thehandle)); // no go
// handle := getwindowdc(strtoint(thehandle)); // no go
// handle := strtoint(thehandle); // blows up
// handle := getwindowdc(Getdesktopwindow); // writes to
desktop OK
end;
copyrect(rect(0, 0, 200, 200),
MyImage.canvas,
rect(0, 0, 200, 200));
finally
MyCanvas.free;
end;
MyImage.Free;
end;
---------------------------------------------------------------------------
New Zealand Delphi Users group - Delphi List - [EMAIL PROTECTED]
Website: http://www.delphi.org.nz
