Einzelnen Beitrag anzeigen

TUX_der_Pinguin

Registriert seit: 1. Jun 2005
Ort: Anholt (NRW)
608 Beiträge
 
Delphi 11 Alexandria
 
#9

Re: Rave Fehler in OnBeforePrint mit Projekt Variable

  Alt 1. Apr 2010, 11:30
So jetzt soll mir mal einer Sagen das das kein Bug im Rave Report ist, ich habe das OnBeforePrint Ereignis jetzt
so oft umgestellt und probiert es irgendwie zum laufen zu bewegen jedoch ist nichts zu machen es funktioniert immer
nur eine Angabe der Position.

1. Versuch das ändern von Self.Left schlägt fehlt, Self.Top lässt sich ändern.
Code:
function rgnTreatment_OnBeforePrint(Self: TRaveRegion);
begin
  Self.Visible := (RaveProject.GetParam('grb_Treatment') = '-1');

  //Funktioniert NICHT
  if (RaveProject.GetParam('grb_Treatment_Left') <> '') then
    Self.Left := StrToFloat(RaveProject.GetParam('grb_Treatment_Left'));
  end;

  //Funktioniert einwandfrei
  if (RaveProject.GetParam('grb_Treatment_Top') <> '') then
    Self.Top := StrToFloat(RaveProject.GetParam('grb_Treatment_Top'));
  end;
end OnBeforePrint;
2. Versuch hier lässt sich Self.Left ändern aber jetzt nicht mehr Self.Top
Code:
function rgnTreatment_OnBeforePrint(Self: TRaveRegion);
begin
  Self.Visible := (RaveProject.GetParam('grb_Treatment') = '-1');

  //Funktioniert NICHT
  if (RaveProject.GetParam('grb_Treatment_Top') <> '') then
    Self.Top := StrToFloat(RaveProject.GetParam('grb_Treatment_Top'));
  end;

  //Funktioniert einwandfrei
  if (RaveProject.GetParam('grb_Treatment_Left') <> '') then
    Self.Left := StrToFloat(RaveProject.GetParam('grb_Treatment_Left'));
  end;

end OnBeforePrint;
Gibt es für Delphi 2009 / Rave Report 7.6.2 BE irgendein Update was diesen Fehler behebt?

Oder irgendwelche Vorschläge das Ganze doch noch irgendwie zu lösen.
  Mit Zitat antworten Zitat