procedure TfmTodayView.FormCreate(Sender: TObject);

 

procedure TfmTodayView.FormCreate(Sender: TObject);

begin

  //Выполняем перевод интерфейса программы

  fmAliveOrganizerApplication.SetNewLanguage(Self);

 

  //Скрываем все вкладки

  HideAllPagesCX(pcToday);

  pcToday.ActivePageIndex := 0;

 

  Shader.DoubleBuffered  := True;

  Shader1.DoubleBuffered := True;

  FLastItemNoKeyDown := -1;

  cxDate.Date := DateOf(Now);

  Timer1Timer(nil);

  pnHeader_ContactResize(nil);

  pnAdditionTodayDataResize(nil);

  GetNotePadImage;