Komponentenentwicklung mit Delphi7

[Christian18]

HI,

ich bins nochaml. ich habe es jetzt mal versucht. jetzt habe ich zwar schon mal ein anderes objekt auf meiner form, aber wenn ich die eigenschaft rand auf true setze, dann passier immernoch nicht. was habe ich falsch gemacht??? hier mein code:

Delphi-Quellcode:

unit Diagramm;

interface

uses
  SysUtils, Classes, Forms, ExtCtrls, Controls;

type
  TDiagramm = class(TGraphicControl)
  private
    FForm : TForm;
    FRand : Boolean;
    FHeight : Integer;
    FWidth : Integer;
    procedure Diagramm();
    { Private-Deklarationen }
  protected
    { Protected-Deklarationen }
  public
    { Public-Deklarationen }
  published
    property Form : TForm Read FForm Write FForm;
    property Rand : Boolean Read FRand Write FRand;
    property Height : Integer Read FHeight Write FHeight;
    property Width : Integer Read FWidth Write FWidth;
    { Published-Deklarationen }
  end;

procedure Register;

implementation

procedure Register;
begin
  RegisterComponents('Standard', [TDiagramm]);
end;

procedure TDiagramm.Diagramm();
begin
  // Rahmen zeichnen
  if FRand=True then
    begin
      Canvas.Rectangle(0, 0, Width, Height);
    end;

  // Achsen zeichnen
  Canvas.MoveTo(30, 30);
  Canvas.LineTo(30, Height - 30);
  Canvas.LineTo(Width - 30, Height - 30);
end;

end.