4 respuestas en este tema

[Behemot]

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:

 

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

 

Esta en Delphi XE

 

 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

unit Unit1;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics,
  Controls, Forms, Dialogs, JvTFManager, StdCtrls, JvExStdCtrls,
  JvMemo, JvExControls, JvTFDays;
 
 
 
type
  TForm1 = class(TForm)
    DayGrid: TJvTFDays;
    Memo1: TJvMemo;
    ScheduleManager: TJvTFScheduleManager;
    procedure DayGridDblClick(Sender: TObject);
    procedure DayGridSelectingAppt(Sender: TObject; var Appt: TJvTFAppt);
  private
    { Private declarations }
  public
 
    SelectedAppt : TJvTFAppt;
    { Public declarations }
  end;
 
var
  Form1: TForm1;
 
implementation
 
{$R *.dfm}
 
procedure TForm1.DayGridDblClick(Sender: TObject);
var
  I: Integer;
  Appt: TJvTFAppt;
  ApptStartDate, ApptEndDate: TDate;
  ApptStartTime, ApptEndTime: TTime;
begin
  with DayGrid do
    If DayGrid.ValidSelection Then // si se selecciona el área fuera del encabezado
    Begin
      {determine la hora para el evento futuro}
      ApptStartDate := Cols[SelStart.X].SchedDate;
      ApptEndDate := Cols[SelEnd.X].SchedDate;
      ApptStartTime := RowToTime(SelStart.Y);
      ApptEndTime := RowEndTime(SelEnd.Y);
      {crear evento}
      Appt := ScheduleManager.dbNewAppt('');
      With Appt do
      Begin
        Appt.BeginUpdate;
        Try
          // establecer la fecha y la hora
          SetStartEnd(ApptStartDate, ApptStartTime, ApptEndDate, ApptEndTime);
          Description := 'Descripción del evento';
          // Añadir
          Appt.AddSchedule(Cols[0].SchedName);
        Finally
          Appt.EndUpdate;
        End;
      End
    End;
 
end;
 
procedure TForm1.DayGridSelectingAppt(Sender: TObject; var Appt: TJvTFAppt);
var
  Rect: TRect;
begin
// Este evento siempre se activa cuando intentamos seleccionar algo en la cuadrícula
//de programación. Si se selecciona un evento , se devuelve un objeto en la variable Appt,
// de lo contrario nil .
//
 
 
  if Assigned(Appt) then
  begin
    SelectedAppt:=Appt;
    //captura de línea superior
    Rect := DayGrid.GetTopGrabHandleRect(0, Appt);
    Memo1.Lines.Clear;
    Memo1.Lines.Add('<--- Top Grab Handle Rec --->');
    Memo1.Lines.Add('Left = ' + IntToStr(Rect.Left));
    Memo1.Lines.Add('Top = ' + IntToStr(Rect.Top));
    Memo1.Lines.Add('Right = ' + IntToStr(Rect.Right));
    Memo1.Lines.Add('Bottom = ' + IntToStr(Rect.Bottom));
    //línea inferior
    Rect := DayGrid.GetBottomGrabHandleRect(0, Appt);
    Memo1.Lines.Add('<--- Bottom Grab Handle Rec --->');
    Memo1.Lines.Add('Left = ' + IntToStr(Rect.Left));
    Memo1.Lines.Add('Top = ' + IntToStr(Rect.Top));
    Memo1.Lines.Add('Right = ' + IntToStr(Rect.Right));
    Memo1.Lines.Add('Bottom = ' + IntToStr(Rect.Bottom));
  end;
 
 
end;
 
end.

[egostar]

Hola Behemot

 

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

 

Saludos

[Behemot]

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 ...

[egostar]

Hola Behemot

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

Saludos

[others84]

Encontraste la forma de corregir tu problema?