Bugfix Freereport TRich Komponente bei Breaked = True

Xion · Verfasst: So 10.09.06 10:00

mit folgender Änderung kann man im Freereport einen Rich-Edit text auf Breaked=true setzen, ohne dass eine Zugriffsverletzung kommt. Inwiefern diese Änderungen andere Funktionen beeinflusst kann ich nicht 100% sagen, ich habe aber keine Probleme gefunden.

alter Source:

markieren

Delphi-Quelltext

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:

//aus der Unit FR_Class
function TfrBand.Draw: Boolean;
var
  b: TfrBand;
begin
  Result := False;
  CurView := View;
  CurBand := Self;
  AggrBand := Self;
  CalculatedHeight := -1;

neuer Source:

markieren

Delphi-Quelltext

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:

function TfrBand.Draw: Boolean;
var
  b: TfrBand;
begin
  Result := False;
  if View<>nil then  //die Zugriffsverletzung erscheint an anderer Stelle, weil CurView=nil ist und auf  
    CurView := View;   // propertys zugegriffem werden soll. Dies wird so verhindert.  
  CurBand := Self;
  AggrBand := Self;
  CalculatedHeight := -1;

_________________
a broken heart is like a broken window - it'll never heal
In einem gut regierten Land ist Armut eine Schande, in einem schlecht regierten Reichtum. (Konfuzius)

	Mitgliederliste
	Gruppen
	Das Team
	Richtlinien
	Synonyme