文件列表:

demo (0, 1996-10-25)
demo\DIBdemo.dfm (2876, 1997-01-04)
demo\DIBdemo.pas (9131, 1997-01-04)
demo\DIBTEST.DOF (486, 1996-10-15)
demo\DIBTEST.DPR (333, 1996-10-14)
demo\DIBTEST.RES (876, 1996-10-14)
demo\Paldlg.dfm (789, 1997-01-04)
demo\Paldlg.pas (1878, 1996-10-14)
dibpbox.inf (494, 1997-01-07)
Dibtest.exe (254464, 1997-01-04)
PALETTE (0, 1996-10-25)
PALETTE\BLUE.PAL (4725, 1995-07-01)
PALETTE\BLUES.PAL (4765, 1995-07-01)
PALETTE\CHROMA.PAL (3606, 1995-07-01)
PALETTE\FIRESTRM.PAL (4767, 1995-07-01)
PALETTE\GAMMA1.PAL (4863, 1995-07-01)
PALETTE\GLASSES2.PAL (4757, 1995-07-01)
PALETTE\GREEN.PAL (4725, 1995-07-01)
PALETTE\GREY1.PAL (4725, 1995-07-01)
PALETTE\GREY2.PAL (4725, 1995-07-01)
PALETTE\HSV.PAL (4725, 1995-07-01)
PALETTE\JET.PAL (4725, 1995-07-01)
PALETTE\LYAPUNOV.PAL (4786, 1995-07-01)
PALETTE\NEON.PAL (4754, 1995-07-01)
PALETTE\RED.PAL (4725, 1995-07-01)
PALETTE\REDBANDS.PAL (4365, 1995-07-01)
PALETTE\ROYAL.PAL (4758, 1995-07-01)
PALETTE\SIN.PAL (4725, 1995-07-01)
PALETTE\SIN246.PAL (4725, 1995-07-01)
PALETTE\SIN468.PAL (4725, 1995-07-01)
PALETTE\SIN6810.PAL (4725, 1995-07-01)
PALETTE\VOLCANO.PAL (4762, 1995-07-01)
PALETTE\WHITE.PAL (4725, 1995-07-01)
vcl (0, 1997-01-04)
vcl\DIBpbox.dcr (480, 1996-10-14)
vcl\DIBPBOX.PAS (3326, 1996-10-15)
vcl\DIBSURF.PAS (18094, 1997-01-07)

Well, because my time is very limited, I prefer to attach the original doc provide by John B, the real creator of this files. My work was only to structure some things, and encapsulate his objects in a reusable object (TDIBSurface) and a VCL component (TDIBPaintBox) Well, see the demo, and enjoy it! Finally, I'll appreciate any feedback about enhancements (or problems) that you make to this stuff Cheers Agustin (Qxo) Villena avillena@dcc.uchile.cl PD : Sorry by my pooor english :) ::::::::::::::::::::::::::::::::::::::::::::::::::::::: ::::::::::::::::: Original Read_ME :::::::::::::::::::: ::::::::::::::::::::::::::::::::::::::::::::::::::::::: DIB and Palette demo code project thingy wotsit. ------------------------------------------------ Donated to the Public domain by me John Biddiscombe J.Biddiscombe@rl.ac.uk ----------------------------------------- this is for 256 colour display modes only ----------------------------------------- I always use 236 colour palettes to spare windows the grief of mucking up my colours. When show system colours is checked, 0-9 and 246-255 are visible too basically assume you have 236 colours and plot 10 upwards. ->the sinusoid demo covers it nicely. - also in the Create method for the DIB_surface_object the Pal_indices are allowed an offset, I've used 0, but if you put 10 in, then your colours can be accessed from 0-235 instead of 10-245. (Handy - I've used this lately) You can use all the normal API calls to draw on the DIB, just use the DC of the DIB and moveto,lineto as normal. I use the DIB really only for doing colour plots of 2D data, so I select (usually HSV) a palette and just plot pixels. NB - some of the palettes I've included are not 236 entries, EG CHROMA.PAL... The palette creation routine in Palunit, wraps the colours round if there are less than 236, you should check the pal_colours variable if you want to do something like the sinusoid without dodgy colours appearing. Nearly all my programs use ONE palette at a time, so if you have an MDI type program and need different palettes in different windows, then I guess you know what you are doing and don't need my help modifying this code. I must thank the Fractint/WinFract team for allowing me to steal their palettes and distribute them. For an example of these palettes in action have a look at Zonerings on http://www.hyperreal.com/tools/win3/graphics/eye_candy/ I must also add that most of the palettes are cyclic (wrap around) - because I used them for palette cycling. DELPHI SCREWS UP YOUR PALETTES - I'm sure the people at Borland meant well when they did all the Delphi graphics stuff, but all my software worked just fine under BPW, and I had to make a lot of modifications when porting to Delphi regarding Palette stuff. (and DC's but that's another story). I Hope this helps someone. John B

近期下载者：

相关文件：

评论：[我要评论] [举报此文件]

收藏者：