paintth.pas

外国人写的各种类型的源代码,有兴趣的朋友看看吧！是学习的好东西哟

unit paintth;

interface

uses
  Classes, Graphics, Windows;

type
  TPainterThread = class(TThread)
  private
    Color: Integer;
  protected
    procedure Execute; override;
  public
    constructor Create (Col: TColor);
  end;

implementation

{ TPainterThread }

uses
  MainForm;

constructor TPainterThread.Create(Col: TColor);
begin
  Color:= Col;
  inherited Create (True);
end;

procedure TPainterThread.Execute;
var
  X, Y, X1: Integer;
begin
  X := 0;
  Y := 0;
  repeat
    // scan the lines...
    X1 := X + 1;
    X := X1 mod 250;
    Y := Y + X1 div 250;
    Y := Y mod Form1.ClientHeight;
    Form1.Canvas.Lock;
    try
      Form1.Canvas.Pixels [X, Y] := Color;
    finally
      Form1.Canvas.UnLock;
    end;
  until Terminated;
end;

end.