Hvordan bruges canvas i en unit

du skal også bruge canvas unit

uses Forms;

efter interface

Du kan øve dig med en PaintBox comp. eller du kan lave dine canvas rutiner i din forms Onpaint Property eller vil de bare blive tegnet over af formen og de andre componenter når de opdaterer

/Martin

Hvordan vil uniten så kommer til at se ud. For hvis jeg tilføjer uses Forms får jeg stadigvæk en fejl melding.

Prøv dette

type

  Prik = class
  private
    MinCanvas : TCanvas;
  public
    procedure Mal;
    constructor Create;
    destructor Destroy;
  end;

implementation

constructor Prik.Create;
begin
  MinCanvas := TCanvas.Create;
end;

destructor Prik.Destroy;
begin
  MinCanvas.Free;
end;

procedure Prik.Mal;
begin
  MinCanvas.Pixels[2,10] := clRed;
end;

Bygger videre på zerohero's eksempel

  TPrik = class
  private
    fMinCanvas : TCanvas; // Defacto std. at private props starter med f!
  public
    procedure Mal;
    constructor Create(aCanvas : TCanvas); // Sender formens canvas over
    destructor Destroy; override; // Altid override en destructor!
  end;

implementation

constructor TPrik.Create(aCanvas : TCanvas);
begin
  fMinCanvas := TCanvas.Create;

  // Manglede at assigne handle så canvas'et ved hvor den skal tegne
  fMinCanvas.Handle := aCanvas.Handle;

(*
  At man så ligeså godt kunne gøre følgende, er en anden sag:
  fMinCanvas := aCanvas; // Uden at oprette ny.
end;

destructor TPrik.Destroy;
begin
  try
    fMinCanvas.Free;
  finally
    Inherited;
  end; // try
end;

procedure TPrik.Mal;
begin
  fMinCanvas.Lock;
  try
    fMinCanvas.Pixels[2,10] := clRed;
  finally
    fMinCanvas.UnLock;
  end; // try
end;

Dvs. jeg kopierede nærmere eksemplet og rettede det til "i mit billede". Eventuelle points bør også tilgå zerohero.

Rettelse:

constructor TPrik.Create(aCanvas : TCanvas);
begin
  fMinCanvas := TCanvas.Create;

  // Manglede at assigne handle så canvas'et ved hvor det skal tegne
  fMinCanvas.Handle := aCanvas.Handle;


//  At man ligeså godt kunne gøre følgende, er en anden sag:
//  fMinCanvas := aCanvas; // Uden at oprette nyt objekt
end;