Puh!
Das klingt jetzt aber auch schon ganz anders, als:
Das ist schon mal falsch!
TImage ist ein Control um ein TPicture (Bitmap, GIF, JPeg,...) darzustellen.
(Controls sind sichtbare Steuerelement)
Es ist nicht als Basisklasse für eigene Controls gedacht.
So, und nun wieder zum eigentlichen Problem: TImage ist für meine Zwecke also ganz hervorragend geeignet -- nur ziert es sich noch ein wenig.
Das Problem ist folgendes:
Code:
TYPE
TGraphPaper = CLASS(TImage)
...
CONSTRUCTOR Create(MyParent: TWinControl; Title: STRING); REINTRODUCE;
PROCEDURE SetBounds(ALeft, ATop, AWidth, AHeight: INTEGER); OVERRIDE;
END;
Beim Erzeugen des GraphPapers wird der Konstruktor aufgerufen:
Code:
CONSTRUCTOR TGraphPaper.Create(MyParent: TWinControl; Title: STRING);
BEGIN
INHERITED CREATE(MyParent);
Und als nächstes sofort:
Code:
PROCEDURE TGraphPaper.SetBounds(ALeft, ATop, AWidth, AHeight: INTEGER);
BEGIN
INHERITED SetBounds(ALeft, ATop, AWidth, AHeight);
Und hier hätte ich zugern gewußt, woher die die Werte 0, 0, 0, 105 für ALeft, ATop, AWidth, AHeight kommen. Es wird ja nichts dazwischen Durchlaufen. Wenn ich nun diese Werte mit z.B. den Werten des Parents auf dem mein GraphPaper liegt, versorgen könnte, wäre ich alle Sorgen los.
Viele Dank
Jazzman