Thema: Delphi Coverflow VCL Klasse

Einzelnen Beitrag anzeigen

Peter666

Registriert seit: 11. Aug 2007
357 Beiträge
 
#3

Re: Coverflow VCL Klasse

  Alt 23. Jan 2008, 16:41
Warnungen gibt es keine, das Problem ist das

function fdiv(num, den: PFReal): PFReal;
var p, q, r: Longword;
begin
p := longword(num) shl (PFREAL_SHIFT * 2);
q := p div longword(den);
r := q shr PFREAL_SHIFT;

result := r;
end;


bei:

xi := qMax(0, (w * PFREAL_ONE div 2) + fdiv(xs * h, dist + ys) shr PFREAL_SHIFT)

Einen völlig abstrusen Wert liefert und dementsprechend nichts gerendered wird. Die Renderslide macht hierbei die meiste Arbeit und just da will es nicht
  Mit Zitat antworten Zitat