untshamsicalendar.pas

来自「Shamsi calender for persians」· PAS 代码 · 共 57 行

{$IFDEF VER180}                 // Delphi 2006
  {$DEFINE DELPHI10}
  {$DEFINE COMPILER10}
{$ENDIF}


{$IFDEF VER150}                 // Delphi 7
  {$DEFINE DELPHI7}
  {$DEFINE COMPILER7}
{$ENDIF}

{$R SHCalendar.res}
unit untShamsiCalendar;

interface
uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Comctrls,
  ExtCtrls, DateUtils, Forms, Grids, StdCtrls, Buttons, untShamsi, CommCtrl,
  Menus, Mask, JvExMask, JVSpin, TypInfo;


type

  TTrackButton = (tbRightButton, tbLeftButton);
  
  TSpin = class(TJvSpinEdit)
    protected
      procedure KillFocusMsg(var Msg: TWMKillFocus); message WM_KILLFOCUS;
  end;

  TColors = class(TPersistent)
    private
      //Colors
      FSelectDayColor,
      FHolyDayColor,
      FTodayColor,
      FTopPanelColor,
      FTopCaptionColor,
      FBottomPanelColor,
      FBottomTodayCaptionColor: TColor;
    published
      property SelectDay: TColor read FSelectDayColor write FSelectDayColor default clBlue;
      property Today: TColor read FTodayColor write FTodayColor default clGreen;
      property Holyday: TColor read FHolyDayColor write FHolyDayColor default $008080FF;
      property TopPanel: TColor read FTopPanelColor write FTopPanelColor default $00E35400;
      property TopCaption: TColor read FTopCaptionColor write FTopCaptionColor default clWhite;
      property BottomPanel: TColor read FBottomPanelColor write FBottomPanelColor default clBtnFace;
      property BottomTodayCaption: TColor read FBottomTodayCaptionColor write FBottomTodayCaptionColor default clBlack;
  end;

  //THolyDaysMonth = (mFarvardin1 = 257, mFarvardin2, mFarvardin3, mFarvardin4, mFarvardin12 = 268, mFarvardin13, mKhordad14 = 782, mKhordad15 = 783, mBahman22 = 2838, mEsfand29 = 3101, mEsfand30);//Byte2= Month;Byte1 = Day{Word}
  TChangeDate = procedure(Sender: TObject; ShDate, ShFormatDate: String) of object;

  TShCalendar = class(TCustomPanel)
  private
    { Private declarations }
    FYear: Smallint;//忧