Hi Christian,
| One way is:
|
| dim p as Picture
|
| p=TintPictureMBS(bild1,&c808080,&c808080)
|
| g.DrawPicture p,0,0
|
| Of course you need to know good values for GrayBase and SepiaBase.
|
| Another way is the PictureSepiaMBS class which has more options:
|
| dim p as Picture
| dim t as PictureSepiaMBS
|
| t=new PictureSepiaMBS
|
| t.SourcePicture=bild1
|
| if t.run then
| p=t.DestinationPicture
|
| g.DrawPicture p,0,0
| end if
|
| (the more options are not used in this example)
Thanks for your examples, but I'm a die-hard
"no plugins in my project" kinda guy. :)
I'm sure your plugins are absolutely gorgeous,
but I'd rather maintain all my code and not
rely on 3rd party plugins if possible.
As the old saying goes...
"Give a man a fish; you have fed him for today.
Teach a man to use the Net and he won't bother you
for weeks."
Or words to that effect. :)
Thanks anyway,
All the best,
Mark.
--
No virus found in this outgoing message.
Checked by AVG Free Edition.
Version: 7.1.385 / Virus Database: 268.3.3/296 - Release Date: 29/03/2006
_______________________________________________
Unsubscribe or switch delivery mode:
<http://www.realsoftware.com/support/listmanager/>
Search the archives of this list here:
<http://support.realsoftware.com/listarchives/lists.html>
|