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.

[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

[Bummi]

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

[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