Картинка в потоке

procedure TinitForm.BitBtn1Click(Sender: TObject);
begin
th:=Tengine.create(fPicture, progrBar);
     th.OnFinish:=PassMap;
end;

const PROC=1;
type
TMap=array of array of TColor;
 
  Tengine = class
  private
    fPicture: TBitmap;
    fMap: TMap;
    fbar: TProgressBar;
    FOnFinish: TNotifyEvent;
    procedure startMap;
    procedure GetMap(Sender: TObject); //<==starts when thread terminates
  public
    property OnFinish: TNotifyEvent read FOnFinish write FOnFinish;
    constructor create(Picture: TBitmap; var bar: TProgressbar);
    destructor destroy;
    property Map: TMap read fMap;
  end;
 
implementation
uses Initunit, MiniThread;
var
miniTh: array [1..PROC] of TMiniTh;
    k:byte;
{ TengineTh }
 
procedure Tengine.GetMap(Sender: TObject);
begin
    fmap:=AMap;
    if assigned(FOnFinish) then FOnFinish(self);
end;
 
constructor Tengine.create(Picture: TBitmap; var bar: TProgressBar);
begin
   //inherited Create(false);
   fpicture:=Picture;
   fbar:=bar;
   startMap; //<== start
end;
 
destructor Tengine.destroy;
begin
  fColCont.Destroy;
end;
 
procedure Tengine.startMap;
begin
  if ((FPicture.Width div fColCount=0) or (FPicture.Height div fRowCount=0)) then
  begin
    showmessage('Too small picture!');
    exit;
  end;
  //===============
  fBar.Max:=frowCount;
  //===============
  for k := 1 to PROC do    //threads starts immidiatelly
    minith[k]:=TMinith.create(Fpicture, 10, 20, fbar, k, GetMap); //<==здесь запускаются потоки
end;
 
end.

type
TminiTh = class(TThread)
     fPicture: TBitmap;
     fMap: TMap;
     fColCount, fRowCount: integer;
     FthNum: byte;
     fComplete: boolean;
     fbar: TProgressBar;
     procedure GetMap;
     procedure IncBar;
  public
     property complete: boolean read fComplete;
     property Map: TMap read fMap;
     constructor create(Picture: TBitmap; ColCount, RowCount: integer;
     var bar: TProgressBar;
     thNum:byte;
     ATermProc: TNotifyEvent);overload;
  protected
     procedure Execute; override;
 
  end;
 
implementation
{ TminiTh }
 
constructor TminiTh.create(Picture: TBitmap;
ColCount, RowCount:integer; var bar: TprogressBar;
thnum:byte; ATermProc: TNotifyEvent);
begin
  inherited Create(false);
  fPicture:=Picture;
  fColcount:=Colcount;
  frowcount:=RowCount;
  fthnum:=thnum;
  fbar:=bar;
  OnTerminate:=ATermProc;
end;
 
procedure TminiTh.Execute;
begin
  self.getmap;      //<== 2) synchronize(getmap)
end;
 
procedure TminiTh.GetMap;
var i,j:integer;
 MyRect:TBitmap;
  WCoef, HCoef, u, v: word;
   sR, sG, sB, vRGB: longint;
begin
 
  SetLength(FMap, fRowCount div PROC,fColCount);
  //FPicture.SaveToFile('pic.bmp');  <==5)
  WCoef:=FPicture.Width div fColCount;
  HCoef:=FPicture.Height div fRowCount;
  myRect:=TBitmap.Create(WCoef, HCoef);
  for I := 0 to (fRowCount div PROC)*fthnum-1 do
  begin
    for j := 0 to fColCount-1 do
      begin
         myRect.Canvas.CopyRect(Rect(0,0,myRect.Width,MyRect.Height), <== 3)
                                FPicture.Canvas,
                                Rect(j*Wcoef,i*Hcoef,(j+1)*Wcoef,(i+1)*Hcoef  )); 
         sR:=0; sG:=0; sB:=0;
         //myRect.SaveToFile('f'+inttostr(i)+inttostr(j)+'.bmp');
         for u := 0 to myRect.Height-1 do
         for v := 0 to Myrect.Width-1 do
         begin
            vRGB:=ColorToRGB(MyRect.Canvas.Pixels[v,u]);  <--1) fPicture.Canvas.Pixels[i,j]=-1
            inc(sR,GetRValue(vRGB));
            inc(sG,GetGValue(vRGB));
            inc(sB,GetBValue(vRGB));
         end;
         //FPicture.SaveToFile('pic.bmp');    //<== 4)
        FMap[i,j]:=RGB(sr div (u*v), sg div (u*v), sb div (u*v));
 
      end;
     Synchronize(IncBar);
  end;
end;
 
procedure TminiTh.IncBar;
begin
   fbar.Position:=fbar.Position+1;
end;

procedure TCanvas.CopyRect(const Dest: TRect; Canvas: TCanvas;
  const Source: TRect);
begin
  Changing;
  RequiredState([csHandleValid, csFontValid, csBrushValid]);
  Canvas.RequiredState([csHandleValid, csBrushValid]);        <----- !!
 
.....
 
procedure TCanvas.RequiredState(ReqState: TCanvasState);
var
  NeededState: TCanvasState;
begin
  NeededState := ReqState - State;
............
    if csFontValid in NeededState then CreateFont;
    if csPenValid in NeededState then CreatePen;
    if csBrushValid in NeededState then CreateBrush;                <----- !!

procedure TminiTh.GetMap22;
var
  i,j, xx: integer;
  MyRect: TBitmap;
  WCoef, HCoef, u, v: word;
  sR, sG, sB, vRGB: longint;
  pb: pbytearray;
begin
  SetLength(FMap, fRowCount, fColCount);
  WCoef := fPicture.Width div fColCount;
  HCoef := fPicture.Height div fRowCount;
  fpicture.PixelFormat:=pf24bit;
  for I := 0 to fRowCount-1 do
  begin
    for j := 0 to fColCount-1 do
    begin
      sR:=0; sG:=0; sB:=0;
      for u := i*Hcoef to (i+1)*Hcoef-1 do
      begin
        pb := fPicture.ScanLine[u];
        for v := j*Wcoef to (j+1)*Wcoef-1 do 
        begin
          xx := v*3;
          Inc(sB, pb[xx  ]);
          Inc(sG, pb[xx+1]);
          Inc(sR, pb[xx+2]);
         end;
      end;
      FMap[i,j]:=RGB(sr div (Wcoef*Hcoef), sg div (Wcoef*Hcoef), sb div (Wcoef*Hcoef));
    end;
    Synchronize(IncBar);
  end;
end;