mythread.pas

SourceCode for Delphi. potoki v delphi

unit MyThread;

interface

uses  Classes, Graphics, ComCtrls;

type
  TPaintThread = class(TThread)
  private
    x,y:integer;
    FColor:TColor;
    FProgressBar:TProgressBar;
  public
    constructor InitColor(nColor:TColor);
    property ProgressBar:TProgressBar 
    write FProgressBar;
    procedure DisplayProgress;
  protected
    procedure Execute; override;
    procedure Paint;
  end;

implementation

  uses Main;

constructor TPaintThread.InitColor(nColor:TColor);
begin
  Fcolor:=nColor;
end;

procedure TPaintThread.DisplayProgress;
begin
 CriticalProcess.Acquire;
   try
  FprogressBar.Position:=y;
    finally
    CriticalProcess.Release;
        end;
end;


procedure TPaintThread.Paint;
var  j: Integer;
begin
     CriticalPaint.Acquire;
     try
  for j:=0 to 250 do begin
    x:=j;
    Form1.Canvas.Pixels[x,y]:=FColor;
  end;
        finally;
        CriticalPaint.Release;
        end;
end;


procedure TPaintThread.Execute;
  var  i: Integer;
begin
  repeat
    for i:=0 to Form1.ClientHeight do begin
      y:=i;
      DisplayProgress;
      Paint;
    end;
  until Terminated;
end;
end.