小编cla*_*prv的帖子

我正在使用fullcalendar的最后一个版本,我查看了文档如何更改背景颜色事件,但我不知道如何制作不同的事件.
我需要代码示例与事件红色,蓝色,绿色,如图片.

我在文档网站上看到了这段代码,但我无法应用2种颜色:

$('#calendar').fullCalendar({
  editable: true,
  events: [{
    title: 'Teste1',
    start: new Date(y, m, d, 10, 30),
    allDay: false,
    editable: false
  }, {
    title: 'Teste2',
    start: new Date(y, m, d, 11, 40),
    allDay: false
  }],
  eventColor: '#378006'
});

我在 Delphi 7 中有一个应用程序，我在其中编写了下面的代码以将大型 PDF 文件从 blob 字段加载到内存，然后我加载 PDF，它可以完美地处理我已经用 1 GB 文件测试过的大文件。但是，某处存在内存泄漏，我不知道在哪里加载 10 个大文件后，它会显示消息 - 内存不足。

我不确定如何在加载内存后清除内存。

我已经测试了加载几个pdf文件，它运行良好，组件没有问题。请注意，我不想在将其加载到组件中后将其保存到文件中，我想直接在内存中进行。

请注意，我不想在磁盘上保存到文件然后加载组件，我想直接在内存中进行。

procedure TForm1.btnAbrirClick(Sender: TObject);
var
  BlobStream: TStream;
  Arquivo: Pointer;
begin
  pdf2.Active := False;
  Screen.Cursor := crHourGlass;
  try
    BlobStream := absqry1.CreateBlobStream(absqry1.FieldByName('binario'),bmRead);
    Arquivo := AllocMem(BlobStream.Size);
    BlobStream.Position := 0;
    BlobStream.ReadBuffer(Arquivo^, BlobStream.Size);
    pdf2.LoadDocument(Arquivo);
    pdfvw1.Active := True;
  finally
    Screen.Cursor := crDefault;
    BlobStream.Free;
    Arquivo := nil;
  end;
end;