Unit Scope

SCOPE 2.0 "The Pack" "It's black 'n green and scrolls, it draws a a wriggly line, 'nuff said." -------- -------- -------- -------- -------- -------- -------- -------- Contents: TScope - An graphic oscilloscope control like the ones used in Windows NT 4.0 Taskmanager TIndicator - A vertical indicator-column like the ones on that NT Taskman. TSimplePie - A small and simple 3D-piechart like the one shown on a disk's Properties sheet. -------- -------- -------- -------- -------- -------- -------- -------- Copyrights (C) 1997 ved T Skovmand Eriksen email: TSEriksen@cyberdude.com ALL RIGHTS RESERVED -------- -------- -------- -------- -------- -------- -------- -------- This source is freeware and may be used as follows: * In development of in-house applications which will not be published. * In development of freeware applications PROVIDED that credit is given to me in the applications aboutbox or helpfile. * In development of shareware and commercial applications PROVIDED that I, Troels S Eriksen, recieve a free unlimited copy of all versions of said application AND that credits are given to me in the applications aboutbox or helpfile. * In printed or electronic form (fx. in a book) or in a source-library (fx. on CD) PROVIDED that I, Troels S Eriksen, recieve a royality-free unlimited copy of said book or library. * In any other way PROVIDED that I, Troels S Eriksen, give my explicit permission to the suggested use. By using this source you do acknowledge that the above restrictions apply to you and your use of this component and that you will confirm by them. -------- -------- -------- -------- -------- -------- -------- -------- Revision history: TScope Rev 01 - Control created. Rev 02 - Gridsize & Zeroline added, grid-drawing changed to use zeroline as baseline. Rev 03 - Redraw after resizing added. Rev 04 - Redraw after resizing moved to "SetBounds", minor bug removed, (didn't show control correctly when added to project). Rev 05 - Memory leak problem fixed. TIndicator Rev 01 - Control created. TSimplePie Rev 01 - Control created. -------- -------- -------- -------- -------- -------- -------- -------- Thanks to: * Bill Sparhawk, who notified me about the leaks in TScope (rev 05) and patiently helped me to remove them. -------- -------- -------- -------- -------- -------- -------- -------- TScope Properties: Active Starts/Stops scope Color Backgroundcolor Gridcolor Grid mask color Gridsize Size of grid mask in pixels Height Scopes height in pixels Interval Scroll speed in 1/100's seconds LineColor Scope dataline color Position Dataline value (range 0-100) Width Scopes width in pixels Basecolor Color of baseline Baseline Baseline value (range 0-100) TScope Methods: Clear Clears the control and redraws grid "Yah, I know - there ain't no pacemaker property either" -------- -------- -------- -------- -------- -------- -------- -------- TIndicator Properties: Background The controls background color Foreground The indicator color Height Control height Width Control widht Position Indicator level (range 0-100) TIndicator Methods: n/a -------- -------- -------- -------- -------- -------- -------- -------- TSimplePie Properties: BaseColor The base color of the control Position The used percentage (range 0-100) UsedColor The color for the used percentage Height Pies height in pixels Width Pies width in pixels TSimplePie Methods: n/a "The Programmers KISS: Keep It Simple, Silly " -------- -------- -------- -------- -------- -------- -------- -------- Known bugs: TScope * None - yet... TIndicator * None - yet... TSimplePie * At some specific heights/widths the pie is not filled with color. To get it drawn correctly, just resize the control (I know whats wrong, its just too much bother to fix it) Q: "Who suggested the cover-up?" A: "Actually, nobody suggested that there should NOT be a cover-up." -------- -------- -------- -------- -------- -------- -------- --------

Classes

TIndicator -
TScope -
TSimplePie -

Functions

Register - --- REGISTRATION -----------------------------------------------------------

Types

Constants

Variables


Functions


procedure Register;

--- REGISTRATION -----------------------------------------------------------

Types


Constants


Variables