Canvas

Du kan implementere din egen type TCanvas.

Lav en nedarvning af en TCanvas.

Implementer alle tegne metoder, og udvid properties med nogle min/max koordinatsæt som angiver hvor der må tegnes.

Du kan benytte PainBox'en der ligger under Systems

Ellers så tegn på et TImage... Så behøver du heller ikke at repainte det! Så forsvinder det nemlig ikke når trækker et anden vindue ind over... Det gør det hvis du bare tegner løst på Canvas!!!

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs;

type
  TForm1 = class(TForm)
    procedure FormMouseMove(Sender: TObject; Shift: TShiftState; X,
      Y: Integer);
    procedure FormMouseDown(Sender: TObject; Button: TMouseButton;
      Shift: TShiftState; X, Y: Integer);
    procedure FormMouseUp(Sender: TObject; Button: TMouseButton;
      Shift: TShiftState; X, Y: Integer);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;
  down:boolean;

implementation

{$R *.dfm}

procedure TForm1.FormMouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
if down then
Form1.Canvas.LineTo(X, Y);
end;

procedure TForm1.FormMouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
Form1.Canvas.MoveTo(X, Y);
down := true;
end;

procedure TForm1.FormMouseUp(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
down := false;
end;

end.

Hvis du vil styre hvor de tegner kan du jo lave noget som dette på OnMouseMove:
if (down) and (y > 100) and (x > 200) and (y < 400) and (x < 400) then
...

Tak for svarene... pointsne går til dkn