library MonthCalendar;

uses Windows,Kol,drawShare;

var
  src:PBitmap;

procedure Init(PRec:PParamRec; var ed:pointer; DTools:PDrawTools); cdecl;
begin
  src.Free;
  src := NewBitmap(0,0);
  src.LoadFromFile('.\\Elements\\cnet\\draw\\monthcalendar.bmp');
end;

procedure Close(PRec:PParamRec; ed:pointer); cdecl;
begin
  src.Free;
end;

procedure Draw(PRec:PParamRec; ed:pointer; pDC:HDC); cdecl;
begin
  StretchBlt(pDC, 0 , 0, src.Width, src.Height, src.Canvas.Handle, 0, 0, src.Width, src.Height, SRCCOPY);
end;

exports
  Init,
  Close,
  Draw;

begin
end.