Grafikformat prüfen

[himitsu]

Ähhh, wieso nicht einfach so?
Canvas.StretchDraw(ClientRect, Image1.Picture.Graphic);


Aber warum willst du das Bild von einem TImage manuell auf die Form malen und läßt es nicht das Image machen?
(Align und Stretch)

Wird das TImage nur als "interner" Bild-Container genutzt?
Wenn ja, wieso?
Dafür ist TPicture da.
TImage ist für die Darstellung eines TPicture, was als "billiger" Container etwas übertrieben ist.
(Ich kann natürlich meinen Einkauf mit einem Tieflader heimbringen, selbst wenn ein Fiat Panda reichen würde)

Zitat:

Es kommt immer noch "Abstrakter Fehler".

Und wo? (schön das wird einen Debugger haben .. nur nutzen muß man den mal)

Sagt dir dein Compiler eigentlich nicht irgendwas vonwegen "Variable ico ist nicht initialisiert" ?
Du erstellst TIcon nicht immer, versuchst es aber immer freizugeben. Das ist grundsätzlich erstmal nicht schlimm, aber wenn man dann nichtmal diese Variavle initialisiert hat (z.B. nil), dann muß das Freigeben zwangsläufig knallen.

[Bummi]

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

[josefkoller]

Hallo,

Zitat von himitsu:

Ähhh, wieso nicht einfach so?
Canvas.StretchDraw(ClientRect, Image1.Picture.Graphic);


Aber warum willst du das Bild von einem TImage manuell auf die Form malen und läßt es nicht das Image machen?
(Align und Stretch)

Wird das TImage nur als "interner" Bild-Container genutzt?
Wenn ja, wieso?
Dafür ist TPicture da.
TImage ist für die Darstellung eines TPicture, was als "billiger" Container etwas übertrieben ist.
(Ich kann natürlich meinen Einkauf mit einem Tieflader heimbringen, selbst wenn ein Fiat Panda reichen würde)

Zitat:

Es kommt immer noch "Abstrakter Fehler".

Und wo? (schön das wird einen Debugger haben .. nur nutzen muß man den mal)

Sagt dir dein Compiler eigentlich nicht irgendwas vonwegen "Variable ico ist nicht initialisiert" ?
Du erstellst TIcon nicht immer, versuchst es aber immer freizugeben. Das ist grundsätzlich erstmal nicht schlimm, aber wenn man dann nichtmal diese Variavle initialisiert hat (z.B. nil), dann muß das Freigeben zwangsläufig knallen.

Wie ich schrieb, ich hab das nur mal eben schnell mit onpaint und Image1 probiert, weil ich zuerst dachte, der Fehler käme von der Malerei in meiner Komponente.

In der Komponente selber wird alles was erzeugt wird auch wieder freigegeben.

Danke auch für Deinen "hämisch" gemeinten Hinweis auf einen Debugger.

Du kannst den Debugger im Komponentencode setzen, wo Du willst, so findest Du in meinem Fall den Fehler nicht.

Danke trotzdem.

Josef

[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