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?!
