Multithread rendering

This commit is contained in:
ronaldhordijk
2005-09-11 10:20:56 +00:00
parent 8e90d82350
commit b8ea205da3
7 changed files with 816 additions and 236 deletions

View File

@ -22,7 +22,7 @@ interface
uses
Classes, windows, Messages, Graphics,
controlPoint, Render, Render64, Render64MT, RenderMM;
controlPoint, Render, Render64, Render64MT, RenderMM, RenderMM_MT;
const
WM_THREAD_COMPLETE = WM_APP + 5437;
@ -132,7 +132,12 @@ begin
TRenderer64MT(FRenderer).NrOfTreads := NrThreads;
end;
end else begin
FRenderer := TRendererMM64.Create;
if NrThreads <= 1 then begin
FRenderer := TRendererMM64.Create;
end else begin
FRenderer := TRendererMM64_MT.Create;
TRendererMM64_MT(FRenderer).NrOfTreads := NrThreads;
end;
FRenderer.MaxMem := MaxMem
end;