Forum: FreePascal
by Alter Mann,
3. Apr 2016
Ja, sieht ganz so aus:oops:.
Ich habe es jetzt so gemacht und es geht:wink:
...
destructor TSmiley.Destroy;
begin
FPicture.Free;
inherited Destroy;
end;
Forum: FreePascal
by Alter Mann,
2. Apr 2016
@Zacherl
Ich werde morgen mal FImage initialisieren und das übergebene Picture via Assing zuweisen,
mal sehen vielleicht geht das ja.
Danke erstmal und noch einen schönen Abend:wink:
Update:
Also eine Änderung in:
Forum: FreePascal
by Alter Mann,
2. Apr 2016
Hallo,
da das mit den Rescourcen klappt, kommt das nächste Problemchen mit specialize TFPGObjectList:|
Folgendes ist gegeben
type
TSmileyInfo = record
Character : Integer;
Resource : Integer;
end;