archive-com.com » COM » E » EFG2.COM

Total: 878

Choose link from "Titles, links and description words view":

Or switch to "Titles and links view".

  • EXP X LN 2 ReleaseDC 0 DeviceContents tmpstr Format d Colors Trunc ColorDepth case x of 1 tmpstr tmpstr MonoChrome 8 tmpstr tmpstr 256 Color 8 Bit 16 tmpstr tmpstr HiColor 16 Bit 24 tmpstr tmpstr TrueColor 24 Bit 32 tmpstr tmpstr TrueColor 32 Bit 64 tmpstr tmpstr UltraColor 64 Bit end ShowMessage tmpStr end Frederic Blanchard wrote Hi I want to read the current screen color resolution when my

    Original URL path: http://www.efg2.com/Lab/Library/UseNet/2000/0224.txt (2016-02-14)
    Open archived version from archive



  • pb isn t the pixel I got but the index the fix was i pti dib8 Colors pb r just incase anyone finds this useful heres the rest of the procedure a very good grayscale routine procedure Grayscale dib8 dib24 TFastDIB Colors Byte type TDiv3 array 0 767 of Byte TScale array 0 255 of Byte TLineErrors array 1 1 of DWord PDiv3 TDiv3 PScale TScale PLineErrors TLineErrors var x y i Ln Nxt Integer pc PFColor pb PByte Lines array 0 1 of PLineErrors Div3 PDiv3 Scale PScale pti PDWord dir ShortInt begin dib8 FillColors 0 Colors tfBlack tfWhite New Div3 pb Pointer Div3 for i 0 to 255 do begin pb i Inc pb pb i Inc pb pb i Inc pb end New Scale pb Pointer Scale x Colors shl 16 shr 8 y x for i 0 to 255 do begin pb y shr 16 Inc y x Inc pb end GetMem Lines 0 24 dib24 Width 2 GetMem Lines 1 24 dib24 Width 2 pc PFColor dib24 Bits for x 0 to dib24 Width 1 do begin Lines 0 x Div3 pc r pc g pc b 16 Inc pc end pc Ptr Integer pc

    Original URL path: http://www.efg2.com/Lab/Library/UseNet/1999/0801a.txt (2016-02-14)
    Open archived version from archive


  • I found a while back about pallete shifting that makes a cool rainbow background on the form It won t work on some NT systems unit rainbow interface uses SysUtils WinTypes Forms ExtCtrls Classes Messages Graphics type TForm1 class TForm Timer1 TTimer procedure FormCreate Sender TObject procedure FormDestroy Sender TObject procedure FormPaint Sender TObject procedure FormResize Sender TObject procedure Timer1Timer Sender TObject procedure FormClick Sender TObject procedure Timer2Timer Sender TObject var Done Boolean procedure FormKeyPress Sender TObject var Key Char procedure FormMouseMove Sender TObject Shift TShiftState X Y Integer private Private declarations BluePalette HPALETTE UsingOurPalette Boolean SaverKind Word protected procedure WMQueryNewPalette var Message TMessage message WM QUERYNEWPALETTE procedure WMPaletteChanged var Message TMessage message WM PALETTECHANGED procedure PaletteChanged var Message TMessage public Public declarations function GetPalette HPALETTE override end var Form1 TForm1 implementation R DFM Var Pal PLogPalette PalSize Word type TFadeDirection fdIn fdOut Procedure CursorOff Var Cstate Integer Begin Cstate ShowCursor True While Cstate 0 do Cstate ShowCursor False End Procedure CursorOn Var Cstate Integer Begin Cstate ShowCursor True While Cstate 0 Then Invalidate Message Result wTemp end procedure TForm1 WMQueryNewPalette var Message TMessage begin PaletteChanged Message inherited end procedure TForm1 WMPaletteChanged var Message TMessage begin if Message wparam clientwidth

    Original URL path: http://www.efg2.com/Lab/Library/UseNet/1999/0624b.txt (2016-02-14)
    Open archived version from archive


  • to swamp the differences between this and the other formula Also color perception depends strongly on background illumination perceived luminance values from a monitor image viewed in a brightly lit room are not the same as those perceived when the same monitor is viewed in a darkened room The above formulas are also only accurate when applied to linear gamma corrected RGB values Including the conversion from device RGB to

    Original URL path: http://www.efg2.com/Lab/Library/UseNet/1999/0730a.txt (2016-02-14)
    Open archived version from archive


  • type TGammaRamp packed record R array 0 255 of word G array 0 255 of word B array 0 255 of word end var SYS OldGamma TGammaRamp storeoldgamma procedure StoreOldGamma var DC HDC begin DC GetDC 0 GetDeviceGammaRamp DC SYS OldGamma ReleaseDC 0 DC end restoreoldgamma procedure RestoreOldGamma var DC HDC begin DC GetDC 0 SetDeviceGammaRamp DC SYS OldGamma ReleaseDC 0 DC end setgamma to 0 brighter to 255 more

    Original URL path: http://www.efg2.com/Lab/Library/UseNet/2002/0914.txt (2016-02-14)
    Open archived version from archive


  • X Newsreader Forte Agent 1 92 32 572 MIME Version 1 0 Content Type text plain charset us ascii Content Transfer Encoding 7bit NNTP Posting Host 203 29 136 33 X Trace newsgroups borland com 1032102633 203 29 136 33 15 Sep 2002 08 10 33 0700 Lines 10 Path newsgroups borland com not for mail Xref newsgroups borland com borland public delphi graphics 51250 On Sat 14 Sep 2002

    Original URL path: http://www.efg2.com/Lab/Library/UseNet/2002/0915.txt (2016-02-14)
    Open archived version from archive


  • that will make this task easier The following code is extracted form my Image processing app The app is available from this page if you are interested http www gu edu au school eng mmt ImProc html procedure GrayScale b TBitmap var i j Colr Integer sl pRGBArray Scanline begin if b PixelFormat pf24bit then begin ShowMessage Not a 24Bit color bitmap Exit end for j 0 to b Height

    Original URL path: http://www.efg2.com/Lab/Library/UseNet/2001/0918a.txt (2016-02-14)
    Open archived version from archive


  • is in pseudo code converting 8 bitsPERpixel Var Color1 TColor H W Integer Gray Byte Begin For h 0 to height 1 do begin for w 0 to width 1 do begin Color1 BitMap Canvas Pixels W H GetGrayValue Color1 Red Color1 Green Color1 Blue Color1 Red Gray Color1 Green Gray Color1 Blue Gray BitMap Canvas Pixels W H Color1 End End End Needed routine s follow Function GetGrayValue R

    Original URL path: http://www.efg2.com/Lab/Library/UseNet/1999/0311a.txt (2016-02-14)
    Open archived version from archive



  •