Hallo zusammen
<P>
Ich hab unter Delphi 5 eine eigene Lib geschrieben. Nun habe ich versucht das ganze auf Delphi 6 zu portieren. Das ganze ging recht gut bis auf einen Punkt :
<P>
Ich habe einen eigenen PropertyEditor geschrieben um bei meinen eigenen Buttons die Auswahl eines ButtonImages zu erleichtern.
<P>
Hier der problembehaftete Teil meines des PropertyEditorCodes :
<P>
<PRE>
// Eigener ImageIndex Editor
TImageIndexEditor = class(TIntegerProperty)
private
function fAktuelleImageListe : TCustomImageList;
public
function GetAttributes: TPropertyAttributes; override;
procedure GetValues(Proc: TGetStrProc); override;
procedure ListDrawValue(const Value: string; ACanvas: TCanvas;
const ARect: TRect; ASelected: Boolean); override;
procedure PropDrawValue(ACanvas: TCanvas; const ARect: TRect;
ASelected: Boolean); override;
procedure ListMeasureHeight(const Value: string; Canvas: TCanvas;
var AHeight: Integer); override;
end;
</PRE><BR>
Nun gibt's die Prozeduren : ListDrawValue, PropDrawValue und ListMeasureHeight in der Basisklasse TIntegerProperty nicht mehr.
<P>
<B>Weiss jemand wie man das lösen könnte ?</B>
<P>
<P>
Ich hab unter Delphi 5 eine eigene Lib geschrieben. Nun habe ich versucht das ganze auf Delphi 6 zu portieren. Das ganze ging recht gut bis auf einen Punkt :
<P>
Ich habe einen eigenen PropertyEditor geschrieben um bei meinen eigenen Buttons die Auswahl eines ButtonImages zu erleichtern.
<P>
Hier der problembehaftete Teil meines des PropertyEditorCodes :
<P>
<PRE>
// Eigener ImageIndex Editor
TImageIndexEditor = class(TIntegerProperty)
private
function fAktuelleImageListe : TCustomImageList;
public
function GetAttributes: TPropertyAttributes; override;
procedure GetValues(Proc: TGetStrProc); override;
procedure ListDrawValue(const Value: string; ACanvas: TCanvas;
const ARect: TRect; ASelected: Boolean); override;
procedure PropDrawValue(ACanvas: TCanvas; const ARect: TRect;
ASelected: Boolean); override;
procedure ListMeasureHeight(const Value: string; Canvas: TCanvas;
var AHeight: Integer); override;
end;
</PRE><BR>
Nun gibt's die Prozeduren : ListDrawValue, PropDrawValue und ListMeasureHeight in der Basisklasse TIntegerProperty nicht mehr.
<P>
<B>Weiss jemand wie man das lösen könnte ?</B>
<P>