Ir al contenido



Foto

Componente JvTFDays de JEDI

Delphi JvTFDays JEDI

  • Por favor identifícate para responder
3 respuestas en este tema

#1 Behemot

Behemot

    Newbie

  • Miembros
  • Pip
  • 4 mensajes

Escrito 22 marzo 2019 - 11:22

Un cordial saludo para todos. Tengo un problema, haber si alguien tiene idea de que se debe hacer en el siguiente caso. El componente JvTFDays de la biblioteca JEDI (JVCL). se comporta diferente cuando se compila en Delphi 7 y Cuando se compila en Delphi XE. Necesito hacer que se vea como se comporta con Delphi 7, no encuentro el parámetro. 

 

Esta en Delphi 7:

 

Archivo adjunto  2019-03-23 at 00-18-50.png   117,77KB   1 descargas

 

Esta en Delphi XE

 

Archivo adjunto  2019-03-23 at 00-20-06.png   117,26KB   1 descargas

 

Necesito que las citas se vean completas y no cortadas.

 

Gracias por su colaboración.

 

El código que utilizo es el siguiente para hacer las pruebas:


delphi
  1. unit Unit1;
  2.  
  3. interface
  4.  
  5. uses
  6. Windows, Messages, SysUtils, Variants, Classes, Graphics,
  7. Controls, Forms, Dialogs, JvTFManager, StdCtrls, JvExStdCtrls,
  8. JvMemo, JvExControls, JvTFDays;
  9.  
  10.  
  11.  
  12. type
  13. TForm1 = class(TForm)
  14. DayGrid: TJvTFDays;
  15. Memo1: TJvMemo;
  16. ScheduleManager: TJvTFScheduleManager;
  17. procedure DayGridDblClick(Sender: TObject);
  18. procedure DayGridSelectingAppt(Sender: TObject; var Appt: TJvTFAppt);
  19. private
  20. { Private declarations }
  21. public
  22.  
  23. SelectedAppt : TJvTFAppt;
  24. { Public declarations }
  25. end;
  26.  
  27. var
  28. Form1: TForm1;
  29.  
  30. implementation
  31.  
  32. {$R *.dfm}
  33.  
  34. procedure TForm1.DayGridDblClick(Sender: TObject);
  35. var
  36. I: Integer;
  37. Appt: TJvTFAppt;
  38. ApptStartDate, ApptEndDate: TDate;
  39. ApptStartTime, ApptEndTime: TTime;
  40. begin
  41. with DayGrid do
  42. If DayGrid.ValidSelection Then // si se selecciona el área fuera del encabezado
  43. Begin
  44. {determine la hora para el evento futuro}
  45. ApptStartDate := Cols[SelStart.X].SchedDate;
  46. ApptEndDate := Cols[SelEnd.X].SchedDate;
  47. ApptStartTime := RowToTime(SelStart.Y);
  48. ApptEndTime := RowEndTime(SelEnd.Y);
  49. {crear evento}
  50. Appt := ScheduleManager.dbNewAppt('');
  51. With Appt do
  52. Begin
  53. Appt.BeginUpdate;
  54. Try
  55. // establecer la fecha y la hora
  56. SetStartEnd(ApptStartDate, ApptStartTime, ApptEndDate, ApptEndTime);
  57. Description := 'Descripción del evento';
  58. // Añadir
  59. Appt.AddSchedule(Cols[0].SchedName);
  60. Finally
  61. Appt.EndUpdate;
  62. End;
  63. End
  64. End;
  65.  
  66. end;
  67.  
  68. procedure TForm1.DayGridSelectingAppt(Sender: TObject; var Appt: TJvTFAppt);
  69. var
  70. Rect: TRect;
  71. begin
  72. // Este evento siempre se activa cuando intentamos seleccionar algo en la cuadrícula
  73. //de programación. Si se selecciona un evento , se devuelve un objeto en la variable Appt,
  74. // de lo contrario nil .
  75. //
  76.  
  77.  
  78. if Assigned(Appt) then
  79. begin
  80. SelectedAppt:=Appt;
  81. //captura de línea superior
  82. Rect := DayGrid.GetTopGrabHandleRect(0, Appt);
  83. Memo1.Lines.Clear;
  84. Memo1.Lines.Add('<--- Top Grab Handle Rec --->');
  85. Memo1.Lines.Add('Left = ' + IntToStr(Rect.Left));
  86. Memo1.Lines.Add('Top = ' + IntToStr(Rect.Top));
  87. Memo1.Lines.Add('Right = ' + IntToStr(Rect.Right));
  88. Memo1.Lines.Add('Bottom = ' + IntToStr(Rect.Bottom));
  89. //línea inferior
  90. Rect := DayGrid.GetBottomGrabHandleRect(0, Appt);
  91. Memo1.Lines.Add('<--- Bottom Grab Handle Rec --->');
  92. Memo1.Lines.Add('Left = ' + IntToStr(Rect.Left));
  93. Memo1.Lines.Add('Top = ' + IntToStr(Rect.Top));
  94. Memo1.Lines.Add('Right = ' + IntToStr(Rect.Right));
  95. Memo1.Lines.Add('Bottom = ' + IntToStr(Rect.Bottom));
  96. end;
  97.  
  98.  
  99. end;
  100.  
  101. end.


  • 0

#2 egostar

egostar

    missing my father, I love my mother.

  • Administrador
  • 13.962 mensajes
  • LocationMéxico

Escrito 25 marzo 2019 - 09:35

Hola Behemot

 

Nunca he usado esos componentes (JVCL), pero seguramente alguno de los compañeros te podrá orientar.

 

Saludos


  • 0

#3 Behemot

Behemot

    Newbie

  • Miembros
  • Pip
  • 4 mensajes

Escrito 23 mayo 2019 - 10:07

Hola Behemot

 

Nunca he usado esos componentes (JVCL), pero seguramente alguno de los compañeros te podrá orientar.

 

Saludos

 

Hola egostar, parece que no hay compañeros que me pueden ayudar ... conoces a alguien que maneje el tema, me refiero a creación de componentes, no necesariamente debe manejar los JEDI si no como modificar el componente ... me imagino que debe ser algo con canvas ... bueno en fin ojala alguien me pueda ayudar ..... saludos ...


  • 0

#4 egostar

egostar

    missing my father, I love my mother.

  • Administrador
  • 13.962 mensajes
  • LocationMéxico

Escrito 23 mayo 2019 - 03:04

Hola Behemot

¿Tendrán propiedades del tipo AutoSize, Stretch, o algo similar, que se puedan modificar?

Saludos
  • 0





Etiquetado también con una o más de estas palabras: Delphi, JvTFDays, JEDI