psscale.h

用于开发Atmel的AVR系列单片机的GCC集成开发环境

//---------------------------------------------------------------------------
#ifndef PSScaleH
#define PSScaleH
//---------------------------------------------------------------------------
#include <vcl\SysUtils.hpp>
#include <vcl\Controls.hpp>
#include <vcl\Classes.hpp>
#include <vcl\Forms.hpp>
#pragma link "PSScale"
//---------------------------------------------------------------------------
enum TPSScaleSide {pssNone, pssUpper, pssLower, pssBoth};

class TPSScale : public TPersistent
{
private:
         bool FLine, FFatLine;
         TPSScaleSide FSide;
         int FSteps, FSub, FStepLen, FSubLen, FSpace;
         TFont *FScaleFont;
         TColor FColor_1, FColor_2, FColor_3, FColor_4, FColor_5;
         TColor FScaleColor;
         double FStart_1, FStop_1, FStart_2, FStop_2, FStart_3;
         double FStop_3, FStart_4, FStop_4, FStart_5, FStop_5;
         TNotifyEvent FOnChange;

         void __fastcall ValToArray (double *starray, double *sparray, TColor *carray);
         void __fastcall SetLine (bool val);
         void __fastcall SetFatLine (bool val);
         void __fastcall SetSide (TPSScaleSide val);
         void __fastcall SetSteps (int val);
         void __fastcall SetSub (int val);
         void __fastcall SetStepLen (int val);
         void __fastcall SetSubLen (int val);
         void __fastcall SetSpace (int val);
         void __fastcall SetColor_1 (TColor val);
         void __fastcall SetColor_2 (TColor val);
         void __fastcall SetColor_3 (TColor val);
         void __fastcall SetColor_4 (TColor val);
         void __fastcall SetColor_5 (TColor val);
         void __fastcall SetStart_1 (double val);
         void __fastcall SetStop_1 (double val);
         void __fastcall SetStart_2 (double val);
         void __fastcall SetStop_2 (double val);
         void __fastcall SetStart_3 (double val);
         void __fastcall SetStop_3 (double val);
         void __fastcall SetStart_4 (double val);
         void __fastcall SetStop_4 (double val);
         void __fastcall SetStart_5 (double val);
         void __fastcall SetStop_5 (double val);


protected:
           virtual void __fastcall Change ();

public:
         __fastcall TPSScale(void);
         __fastcall ~TPSScale(void);
         void __fastcall DrawHScale (Graphics::TCanvas *can, TRect rect);
         void __fastcall DrawVScale (Graphics::TCanvas *can, TRect rect);
         void __fastcall DrawAScale (Graphics::TCanvas *can, TRect rect,
                                     int start, int angle);
         int Min, Max;

__published:
 __property bool Line = {read=FLine, write=SetLine, default=true};
 __property bool FatLine = {read=FFatLine, write=SetFatLine, default=true};
 __property TPSScaleSide Side = {read=FSide, write=SetSide, default=pssBoth};
 __property int Steps = {read=FSteps, write=SetSteps, default=6};
 __property int Sub = {read=FSub, write=SetSub, default=4};
 __property int StepLen = {read=FStepLen, write=SetStepLen, default=10};
 __property int SubLen = {read=FSubLen, write=SetSubLen, default=5};
 __property int Space = {read=FSpace, write=SetSpace, default=10};
 __property TColor Color_1 = {read=FColor_1, write=SetColor_1, default=clLime, stored=true};
 __property TColor Color_2 = {read=FColor_2, write=SetColor_2, default=clYellow, stored=true};
 __property TColor Color_3 = {read=FColor_3, write=SetColor_3, default=clRed, stored=true};
 __property TColor Color_4 = {read=FColor_4, write=SetColor_4, default=clGreen, stored=true};
 __property TColor Color_5 = {read=FColor_5, write=SetColor_5, default=clBlue, stored=true};
 __property double Start_1 = {read=FStart_1, write=SetStart_1};
 __property double Stop_1 = {read=FStop_1, write=SetStop_1};
 __property double Start_2 = {read=FStart_2, write=SetStart_2};
 __property double Stop_2 = {read=FStop_2, write=SetStop_2};
 __property double Start_3 = {read=FStart_3, write=SetStart_3};
 __property double Stop_3 = {read=FStop_3, write=SetStop_3};
 __property double Start_4 = {read=FStart_4, write=SetStart_4};
 __property double Stop_4 = {read=FStop_4, write=SetStop_4};
 __property double Start_5 = {read=FStart_5, write=SetStart_5};
 __property double Stop_5 = {read=FStop_5, write=SetStop_5};
 __property TNotifyEvent OnChange = {read=FOnChange, write=FOnChange};
};
//---------------------------------------------------------------------------
#endif