Delphi-Quellcode:
type
THobel = class(TCustomControl)
private
FHobel_Bitmap :Tbitmap;
....
function GetBitmap:Tbitmap;
procedure SetBitmap(bmp:TBitmap);
....
published
property HG_Bitmap :TBitmap read GetBitmap write SetBitmap;
procedure THobel.SetBitmap(bmp: TBitmap);
begin
if FHobel_Bitmap=nil then FHobel_Bitmap:=TBitmap.Create;
FHobel_Bitmap.Assign(bmp);
end;
function THobel.GetBitmap: Tbitmap;
begin
if FHobel_Bitmap=nil then begin
result:=nil;
exit;
end;
result:=Tbitmap.Create;
result.Assign(FHobel_Bitmap);
FHobel_Bitmap.SaveToFile(Name);
end;
Wobei hier nur zum Testen das Bitmap in ' FHobel_Bitmap.SaveToFile(Name); ' gespeichert wird.
Sobald jetzt die Komponente auf das Form gezogen wird, wird das Bitmap gespeichert(zu der zeit ist es noch nil) weise ich dann im Objekt inspektor ein Bitmap zu,
wird es auf dem Desktop (Aktueller windows Pfad) abgespeichert.
Das ist ja auch alles völlig klar.
Ich habe mir halt nur angeschaut wie das in der Image Komponente gemacht wird, und die Funktioniert
.
Dort wird es wie gesagt erst beim speichern des Projekts in der
DFM abgelegt.
Nur wie erreiche ich das zu dem Zeitpunkt innerhalb der komponente ?