Paint-Ereignis für visuelle Komponente

[lzuser]

Ich habe zur Erstellung eines Koordinatensystems (KoSys) eine Komponente von TPaintbox abgeleitet:
Die Komponente zum Testen ist noch nicht in der LCL registriert.

Code: Alles auswählen

type
TKoSys=class(TPaintbox)
  private
    FOnPaint:TNotifyEvent;
    BkColor:TColor;          {Hintergrundfarbe des KoSys}
    procedure SetBackColor(c:TColor);
  protected
  public
    property Canvas;
    constructor Create(aOwner : TComponent ); override;
    destructor Destroy; override;
    procedure Paint; override;
    procedure MouseDown(Button: TMouseButton; Shift: TShiftState;
              X, Y: Integer); override;
    procedure MouseMove(Shift: TShiftState; X,Y: Integer);  override;
    procedure MouseUp(Button: TMouseButton; Shift: TShiftState;
              X, Y: Integer);  override;
 
  published
    {Eigenschaften, die ggf. im Objectinspektor editierbar sind}
    property BackColor:TColor read BkColor write SetBackColor;
    property OnPaint:TNotifyEvent read FOnPaint write FOnPaint;
  end;

und möchte diese Komonente auf einem Testformular einsetzen:

Code: Alles auswählen

TKoSysKomponenteForm = class(TForm)
    MainMenu: TMainMenu;
    KoSysPanel: TPanel;
    TestMenuItem: TMenuItem;
    procedure FormCreate(Sender: TObject);
    procedure FormDestroy(Sender: TObject);
    procedure TestMenuItemClick(Sender: TObject);
  private
    { private declarations }
    MyKoSys:TKoSys;
    procedure MyKoSysPaint(Sender:TObject);
 
 
procedure TKoSysKomponenteForm.FormCreate(Sender: TObject);
begin
MyKoSys:=TKoSys.Create(Self);
MyKoSys.Parent:=KoSysPanel;
MyKoSys.Align:=alClient;
MyKoSys.OnPaint:=MyKoSysPaint;     //Fehler: kompiliert aber in Delphi6 ohne Probleme
       {Error: Wrong number of parameters specified for call to "MyKoSysPaint"}
end;
 
procedure TKoSysKomponenteForm.MyKoSysPaint(Sender:TObject);
begin
with MyKoSys.Canvas do begin  MoveTo(100,100); LineTo(300,100);  end;
inherited Paint;
end;

Die letzte Prozedur ist mir wichtig, damit ich auch im Hauptprogramm noch Inhalte zur Paintbox
hinzufügen kann.
Warum kompiliert Delphi6 das ganze ohne Probleme?
Warum bekomme ich statt dessen bei Lazarus den obigen Fehler?
Wie könnte die Lösung hier aussehen?
Vielen Dank schon mal.

[Socke]

Hallo,
du hast einen typischen Fehler für Umsteiger von Delphi begangen (weiter Informationen für die Unterschiede findest du auf http://wiki.freepascal.org/Lazarus_For_Delphi_Users/de).

Da du mit Lazarus standardmäßig den FPC-eigenen objfpc Modus verwendest, müsstest du

Code: Alles auswählen

MyKoSys.OnPaint:=@MyKoSysPaint;

bei der Zuweisung von Prozedur-/Funktionsadressen schreiben.
Wenn das Programm sowohl von FPC als auch von Delphi kompiliert werden soll, musst du in der Quelltextdatei (oder in den Compileroptionen) den Modus auf delphi umstelllen. In der Quelltextdatei geht das mit dem Compilerschalter

Code: Alles auswählen

{$mode delphi}

ein evtl. vorhandenes {$mode objfpc} musst du dann aber löschen.

[lzuser]

Delphi-Umsteiger, stimmt!
Vielen Dank für deine ausführliche Erklärung.
Genauso funktioniert es jetzt.

[Marius]

Klasse, mit dem Tipp klappts jetzt auch endlich bei mir. Gehöre wohl auch zu den Dephi-Umsteiger, die solche Fehler machen

[pluto]

Ich würde nicht von TPaintBox ableiten sondern direkt von TCustomControl.

[Bora4d]

Das:

Code: Alles auswählen

property OnPaint:TNotifyEvent read FOnPaint write FOnPaint;

Exitstiert schon in TPaintBox sogar als published wieso implementierst du das nochmal?

[carli]

Das:

Code: Alles auswählen

property OnPaint:TNotifyEvent read FOnPaint write FOnPaint;

Exitstiert schon in TPaintBox sogar als published wieso implementierst du das nochmal?

"Richtige" Komponenten überladen andere Methoden, um eine Draw-Routine einzubauen.