Grafikformat prüfen

[josefkoller]

Hallo,

Zitat von Bummi:

Klingt als ob eine als abstrakt deklarierte Methode der Basisklasse Deiner Klasse nicht in Deiner Klasse implementiert wäre.

//*****************************

type
TSysBtnClick = procedure (Sender: TObject; AName:string) of Object;

TGradientOrientation = (gsVertical, gsHorizontal,gsHorizontalNeon, gsVerticalNeon);
TCaptionAlignment = (caLeft, caCenter, caRight); //footerCaption
TPixelRec = packed record
case Boolean of
true: (Color: TColor);
false: (r, g, b, Reserved: Byte);
end;

TKFPanel = class;

TFormOptions = class(TPersistent)
private
FPanel:TKFPanel;

//***********************

Ich hab z.B. eine eigene Prozedur in meiner Komponente.

TSysBtnClick = procedure (Sender: TObject; AName:string) of Object;

.....

TKFPanel = class(TPanel)
private
{ Private declarations }
FonSysBtnClick : TSysBtnClick;
...
published
property onSysBtnClick:TSysBtnClick read FonSysBtnClick write FonSysBtnClick;
...
und die Zuweisung dann so:
....
if Assigned(FonSysBtnClick) then FonSysBtnClick(Self, 'SysBtnLeft');
....

Müßte doch auch stimmen. Ich hab aber auch diese Sachen rausgenommen. Immer das Gleiche. Das Package läßt sich kompilieren.

Nach dem Plazieren der Komponente auf einer Form und einem Klick auf den PorpertyEditor kommt wieder mein "Abstrakter Fehler".

Am Besten ich mach das Ding nochmal neu. Interessieren würde mich aber schon, was diesen Fehler auslöst.

Danke für die Hinweise.

Josef

[Bummi]

Zitat:

Am Besten ich mach das Ding nochmal neu

Warum gleich aufgeben?
Hast Du die Komponente mal zur Laufzeit erzeugt, dann könntest Du einfach den Debugger nehmen ...
Ansonsten in Deinen Vorfahren schauen was rein als abstract deklariert ist und bei Dir kein passendes Override findet.

[josefkoller]

Hallo,

ich trau es mir ja fast nicht zu sagen, aber der Fehler lag am Grafikformat.

Ich hab den "grafischen Eigenschaften" meiner Komponente verschiedene Formate zum Testen zugeordnet, weil ich eben auf der Suche nach einer Möglichkeit war, um verschiedene Formate auf dem Canvas darstellen zu können.

Alle hatten TPicture. Beim Rumprobieren hab ich dann bei einem Property TGraphic zugewiesen und vergessen, nach erfolglosem Test, es wieder auf TPicture zu stellen.

Dieses

fBackground:TGraphic war der Auslöser. Jetzt steht es wieder auf fBackground:TPicture.

Der "abstrakte Fehler" ist damit weg.

Danke für eure Geduld.

Josef

[Sir Rufo]

@josefkoller Wenn du deine Quelltexte in

Code:

[DELPHI]
procedure foo;
begin
  DoSomething;
end;
[/DELPHI]

einschließen würdest, dann bekämen wir nicht alle so einen Augenkrebs beim Anschauen.

Delphi-Quellcode:

procedure foo;
begin
  DoSomething;
end;

EDIT: Und bis zu 24h kannst du alle deine Beiträge noch bearbeiten ... um z.B. die fehlenden Tags zu ergänzen

[Popov]

Schön, dass es jetzt klappt, nur ein Tipp für die Zukunft. Deine Quelltexte, es wäre schön wenn du sie in die richtigen Tags paceken könntest. Das wären

Code:

[DELPHI][/DELPHI]

von Hand eingegeben oder den Code markieren und auf den Helm mit dem Irokesenschnitt klicken. Das nur mal so am Rande.

[josefkoller]

Hallo,

Danke für die Hinweise.

Ich frag nicht oft, weil man die meisten Probleme mit Googeln lösen kann.

Wenn ich wieder Fragen hab, werd ich richtig zitieren. hab den "Helm gefunden.

Ciao

Josef

[Popov]

Mit der Google-Erfahrung kennst du dann ja die Foren und hast dich wahrscheinlich ganz doll gewundert wieso bei den anderen Leuten der Code so schön formatiert ist und deiner nicht. Siehst du, man erfährt nicht alles über Google