home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
DOS/V Power Report 1997 May
/
VPR9705A.ISO
/
VPR_DATA
/
PROGRAM
/
CBTRIAL
/
SETUP
/
DATA.Z
/
GAUGES.H
< prev
next >
Wrap
C/C++ Source or Header
|
1997-02-14
|
3KB
|
90 lines
//---------------------------------------------------------------------------
// Borland C++Builder
// Copyright (c) 1987, 1997 Borland International Inc. All Rights Reserved.
//---------------------------------------------------------------------------
#if !defined(GaugesHPP)
#define GaugesHPP
//----------------------------------------------------------------------------
#include <Menus.hpp>
#include <StdCtrls.hpp>
#include <Forms.hpp>
#include <Controls.hpp>
#include <Graphics.hpp>
#include <Classes.hpp>
#include <Messages.hpp>
#include <Windows.hpp>
#include <SysUtils.hpp>
#include <System.hpp>
#include <Consts.hpp>
#include <math.h>
//-- type declarations -------------------------------------------------------
enum TGaugeKind { gkText, gkHorizontalBar, gkVerticalBar, gkPie, gkNeedle };
class TGauge : public TGraphicControl
{
private:
Longint FMinValue;
Longint FMaxValue;
Longint FCurValue;
TGaugeKind FKind;
Boolean FShowText;
TFormBorderStyle FBorderStyle;
TColor FForeColor;
TColor FBackColor;
void __fastcall PaintBackground(Graphics::TBitmap *AnImage);
void __fastcall PaintAsText(Graphics::TBitmap *AnImage, const TRect &PaintRect);
void __fastcall PaintAsNothing(Graphics::TBitmap *AnImage, const TRect &PaintRect);
void __fastcall PaintAsBar(Graphics::TBitmap *AnImage, const TRect &PaintRect);
void __fastcall PaintAsPie(Graphics::TBitmap *AnImage, const TRect &PaintRect);
void __fastcall PaintAsNeedle(Graphics::TBitmap *AnImage, const TRect &PaintRect);
void __fastcall SetGaugeKind(TGaugeKind Value);
void __fastcall SetShowText(Boolean Value);
void __fastcall SetBorderStyle(TBorderStyle Value);
void __fastcall SetForeColor(TColor Value);
void __fastcall SetBackColor(TColor Value);
void __fastcall SetMinValue(Longint Value);
void __fastcall SetMaxValue(Longint Value);
void __fastcall SetProgress(Longint Value);
Longint __fastcall GetPercentDone(void);
protected:
virtual void __fastcall Paint(void);
public:
__fastcall virtual TGauge(TComponent *AOwner);
void __fastcall AddProgress(Longint Value);
__property Longint PercentDone = {read=GetPercentDone, nodefault};
__published:
__property Align ;
__property Color ;
__property Enabled ;
__property TGaugeKind Kind = {read=FKind, write=SetGaugeKind, default=1};
__property Boolean ShowText = {read=FShowText, write=SetShowText, default=1};
__property Font ;
__property TBorderStyle BorderStyle = {read=FBorderStyle, write=SetBorderStyle, default=1};
__property TColor ForeColor = {read=FForeColor, write=SetForeColor, default=0};
__property TColor BackColor = {read=FBackColor, write=SetBackColor, default=16777215};
__property Longint MinValue = {read=FMinValue, write=SetMinValue, default=0};
__property Longint MaxValue = {read=FMaxValue, write=SetMaxValue, default=100};
__property ParentColor ;
__property ParentFont ;
__property ParentShowHint ;
__property PopupMenu ;
__property Longint Progress = {read=FCurValue, write=SetProgress, nodefault};
__property ShowHint ;
__property Visible ;
};
class TBltBitmap : public Graphics::TBitmap{
public:
__fastcall virtual TBltBitmap();
void __fastcall MakeLike(Graphics::TBitmap* ATemplate);
};
//-- var, const, procedure ---------------------------------------------------
#define Pi 3.1415926535897932385
//-- end unit ----------------------------------------------------------------
#endif // Gauges