Ejemplo n.º 1
0
//---------------------------------------------------------------------------
void  TDemoBasicMainForm::CreateEventObject(bool AAllDayEvent, bool ARandomResource, TcxCustomSchedulerStorage *AStorage,
  TColor AColor)
{
  TcxSchedulerEvent *AEvent = AStorage->createEvent();
  TDateTime ADate = GetRandomDate();
  AEvent->Start = ADate;
  if (!AAllDayEvent)
  {
	AEvent->Finish = ADate + (double)((random(180) + 30) * MinuteToTime);
  }
  else
  {
	AEvent->Finish = ADate + 1;
	AEvent->AllDayEvent = True;
  };
  AEvent->State = GetRandomState();
  if (AColor == Graphics::clDefault)
	AEvent->LabelColor = EventLabelColors[random(11)];
  else
	AEvent->LabelColor = AColor;
  int AIndex = random(22);
  AEvent->Caption = SportEvents[StartIndexes[AIndex] + random(EventsCount[AIndex])];
  if (ARandomResource) {
	AEvent->ResourceID = GetRandomResourceID(); }
  OnNewEvent(AEvent, AIndex);
}
Ejemplo n.º 2
0
bool	CMultiXWSStream::DoWork()
{
	WaitEventReturnCodes	ReturnCode;
	ReturnCode	=	Wait(1);
	if(ReturnCode	==	NoEventPending)
	{
		try
		{
			if(OnIdle())
				return	true;
			ReturnCode	=	Wait(5000);
		}	catch	(CMultiXException	&e)
		{
			return	OnMultiXException(e);
		}
	}

	try	
	{
		switch(ReturnCode)
		{
			case	MultiXEventPending	:
			{
				CMultiXEvent	*Event	=	Dequeue();
				if(Event)
				{
					OnNewEvent(Event);
				}
			}
			break;
#ifdef	WindowsOs
			case	WindowsMessagePending	:
			{
				MSG	Msg;
				PeekMessage(&Msg, NULL, 0, 0, PM_NOREMOVE);
			}
			break;
#endif
		}
	}	catch	(CMultiXException	&e)
	{
		return	OnMultiXException(e);
	}
	return	true;
}