Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by Peter666,
24. Feb 2008
Sorry für die Verzögerung. Ja das ganze lief problemlos - ich hab nur einiges umstellen müssen. Leider ist mir der Code abhanden gekommen, aber wenn du anstelle von Bitmaps die Daten in ein PByte-Array schreibst und Int64 nutzt anstelle von LongLong geht das recht schnell. Ich hatte sogar bei ner Auflösung von 1280x1024 mit 128x128 Pixel großen Covern eine Geschwindigkeit weit jenseits der 30fps....
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by Peter666,
23. Jan 2008
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;