Einzelnen Beitrag anzeigen

SearchBot

Registriert seit: 27. Jun 2004
Ort: N-W vom Bodensee
313 Beiträge
 
Delphi 12 Athens
 
#4

Komponente vererben und neue Eigenschaft hinzufügen?

  Alt 5. Feb 2018, 17:06
Hm.. neu compilieren - hab ich auch schon überlegt, aber das Package nicht gefunden und ungeduldig nicht weiter gesucht.

Wahrscheinlich ist es besser, nicht in dem original-Code rumzubasteln, sondern eine neue Komponente mit den gewünschten Eigenschaften zu erstellen.

Ich habe mir also gedacht, dann baue ich mir eine neue Komponente aus der vorhandenen (hab sowas aber noch nie gemacht).
Also mit "Komponente erstellen..." die JvItemsPanel vererbt...

Delphi-Quellcode:
unit ItemsPanel;

interface

uses
  SysUtils, Classes,
  Windows, Messages, Graphics, Controls, ExtCtrls,
  JvExtComponent, JvThemes, JvJCLUtils, JvExControls,JvItemsPanel;

type
  TItemsPanel = class(TJvItemsPanel)
  private
    { Private-Deklarationen }
   FItemsColor: TArray<TColor>; //statt Array of TColor - mag er irgendwie nicht
   procedure SetIColor(const index:integer; Color: TColor);
   function GetIColor(const index:integer): TColor;
  protected
    { Protected-Deklarationen }
   procedure Paint; override;
  public
   constructor Create(AOwner: TComponent); override;
   destructor Destroy; override;
    { Public-Deklarationen }
    property ItemsColor[index: Integer]:TColor read GetIColor write SetIColor default clBtnFace; //neue Elemente sollen erstmal diese Farbe haben
  published
    { Published-Deklarationen }
  end;

procedure Register;

implementation

constructor TItemsPanel.Create(AOwner: TComponent);
begin
  inherited Create(AOwner);
  FItemsColor:=TArray<TColor>.Create()
end;

function TItemsPanel.GetIColor(const index:integer): TColor;
begin
  result:=clBtnFace;
  if index>=Items.Count then exit;
  result:=FItemsColor[index];
end;

procedure TItemsPanel.SetIColor(const index:integer; Color: TColor);
begin
  if index>=Items.Count then exit;
  FItemsColor[index]:=Color;
  Paint;
end;
So mal den Anfang.

Jetzt erzählt mir der Compiler an dieser mit rotem ♠ markierten Stelle:
property ItemsColor[index: Integer]:TColor read GetIColor write SetIColor default clBtnFace;
"Inkompatible Typen: 'Procedure' und 'Integer'"

Ich gebe da doch aus der Function (nicht Procedure) den Typen TColor wieder raus.
Verstehe ich nicht?!
  Mit Zitat antworten Zitat